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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88969f0..34b43cc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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
 2012-08-30  Julien Danjou  <julien@danjou.info>
 
        * gnus-notifications.el (gnus-notifications-notify): Use timeout from

diff --git a/lisp/gnus-notifications.el b/lisp/gnus-notifications.el
index 811a908..c512995 100644 (file)
--- 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))
     (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)
           (gnus-fetch-group group (list article)))))))
 
 (defun gnus-notifications-notify (from subject photo-file)