diff --git a/src/api-client.lisp b/src/api-client.lisp
index c359c9e..7a4b1fb 100644
--- a/src/api-client.lisp
+++ b/src/api-client.lisp
@@ -658,18 +658,16 @@ numerical indices identifying the option voting for"
                         :exclude-types exclude-types
                         :account-id    account-id))
 
-(defun mentions (max-id)
+(defun mentions (max-id &optional (excluded-types '(:follow :favourite :reblog)))
   "Get the  latest mentions, starting from `min-id` (pass nil to get
 the latest 15 mentions)."
   (get-notifications :max-id max-id
-                     :exclude-types '(:follow
-                                      :favourite
-                                      :reblog)))
+                     :exclude-types excluded-types))
 
 (defun-w-lock delete-notification (notification-id)
     *client-lock*
   "Delete a notification identified by `notification-id'"
-  (api-pleroma:delete-notification *client* notification-id))
+  (tooter:delete-notification *client* notification-id))
 
 (defun sort-id< (list)
   "Sort entities by id in descending order"
diff --git a/src/api-pleroma.lisp b/src/api-pleroma.lisp
index a90dd0e..a0e4812 100644
--- a/src/api-pleroma.lisp
+++ b/src/api-pleroma.lisp
@@ -16,16 +16,6 @@
 
 (in-package :api-pleroma)
 
-(defgeneric delete-notification (object id))
-
-(defmethod delete-notification ((object tooter:client) (id string))
-  (tooter:submit object
-                 "/api/v1/notifications/dismiss"
-                 :id id))
-
-(defmethod delete-notification ((object tooter:client) (notification tooter:notification))
-  (delete-notification object (tooter:id notification)))
-
 (defgeneric create-chat (object user-id))
 
 (defmethod create-chat ((object tooter:client) (account-id string))
diff --git a/src/command-line.lisp b/src/command-line.lisp
index 3f1b9ef..94ec57e 100644
--- a/src/command-line.lisp
+++ b/src/command-line.lisp
@@ -122,4 +122,4 @@
       (when (getf options :check-follows-requests)
         (setf *check-follow-requests* (getf options :check-follows-requests)))
       (when (getf options :notify-mentions)
-        (setf *notify-mentions* (getf options :check-follows-requests))))))
+        (setf *notify-mentions* (getf options :notify-mentions))))))
diff --git a/src/package.lisp b/src/package.lisp
index 44fd2b1..345b820 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -1267,7 +1267,6 @@
    :misc)
   (:shadowing-import-from :misc :random-elt :shuffle)
   (:export
-   :delete-notification
    :chat-message
    :message-id
    :nreadp