From bf846caae21141704ed81d6c2e6db7c53f157606 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 31 Aug 2012 04:15:23 +0000 Subject: [PATCH] gnus-notifications.el (gnus-notifications-action): Avoid CL-ism --- lisp/ChangeLog | 4 ++++ lisp/gnus-notifications.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 88969f052..34b43cc63 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-08-31 Stefan Monnier + + * gnus-notifications.el (gnus-notifications-action): Avoid CL-ism. + 2012-08-30 Julien Danjou * gnus-notifications.el (gnus-notifications-notify): Use timeout from diff --git a/lisp/gnus-notifications.el b/lisp/gnus-notifications.el index 811a90895..c51299589 100644 --- a/lisp/gnus-notifications.el +++ b/lisp/gnus-notifications.el @@ -74,7 +74,7 @@ not get notifications." (let ((group-article (assoc id gnus-notifications-id-to-msg))) (when group-article (let ((group (cadr group-article)) - (article (caddr group-article))) + (article (nth 2 group-article))) (gnus-fetch-group group (list article))))))) (defun gnus-notifications-notify (from subject photo-file) -- 2.25.1