Function: gnus-notifications-action

gnus-notifications-action is a byte-compiled function defined in gnus-notifications.el.gz.

Signature

(gnus-notifications-action ID KEY)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-notifications.el.gz
(defun gnus-notifications-action (id key)
  (let ((group-article (assoc id gnus-notifications-id-to-msg)))
    (when group-article
      (let ((group (cadr group-article))
            (article (nth 2 group-article)))
        (cond ((or (equal key "read")
                   (equal key "default"))
               (gnus-fetch-group group (list article))
               (select-frame-set-input-focus (selected-frame)))
              ((equal key "mark-read")
               (gnus-update-read-articles
                group
                (delq article (gnus-list-of-unread-articles group)))
               ;; gnus-group-refresh-group
               (gnus-group-update-group group))))))
  ;; Notifications are removed unless otherwise specified once they (or
  ;; an action of theirs) are selected
  (assoc-delete-all id gnus-notifications-id-to-msg))