From e1991423c66ab95eb44721bec4415669780fee3b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 30 Aug 2012 20:46:01 -0400 Subject: [PATCH] * lisp/gnus/gnus-notifications.el (gnus-notifications-action): Avoid CL-ism. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-notifications.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index c449f53d420..b167686b09c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/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/gnus-notifications.el b/lisp/gnus/gnus-notifications.el index 811a90895ae..c5129958997 100644 --- a/lisp/gnus/gnus-notifications.el +++ b/lisp/gnus/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.39.2