* lisp/gnus/gnus-notifications.el (gnus-notifications-action): Avoid CL-ism.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index c449f53d4209303a157798b62d1ea38ad50cc875..b167686b09c04a99f8b34c28db3269d5b10c96d9 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2012-08-31  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * gnus-notifications.el (gnus-notifications-action): Avoid CL-ism.
+
 2012-08-30  Julien Danjou  <julien@danjou.info>
 
        * gnus-notifications.el (gnus-notifications-notify): Use timeout from

diff --git a/lisp/gnus/gnus-notifications.el b/lisp/gnus/gnus-notifications.el
index 811a90895ae4ab103330149b191d8128d3bc76bc..c5129958997262f6a3c957ff1dc7b8fc8f23f6b0 100644 (file)
--- 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)