From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 31 Aug 2012 00:46:01 +0000 (-0400)
Subject: * lisp/gnus/gnus-notifications.el (gnus-notifications-action): Avoid CL-ism.
X-Git-Tag: emacs-24.2.90~465
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1991423c66ab95eb44721bec4415669780fee3b;p=emacs.git

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

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  <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 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)