[Emacs-diffs] /srv/bzr/emacs/trunk r109825: * lisp/gnus/gnus-notifications.el (gnus-notifications-action): Avoid CL-ism.

[Stefan Monnier]

------------------------------------------------------------
revno: 109825
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2012-08-30 20:46:01 -0400
message:
  * lisp/gnus/gnus-notifications.el (gnus-notifications-action): Avoid CL-ism.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-notifications.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-08-30 22:14:27 +0000
+++ b/lisp/gnus/ChangeLog       2012-08-31 00:46:01 +0000
@@ -1,3 +1,7 @@
+2012-08-31  Stefan Monnier  <address@hidden>
+
+       * gnus-notifications.el (gnus-notifications-action): Avoid CL-ism.
+
 2012-08-30  Julien Danjou  <address@hidden>
 
        * gnus-notifications.el (gnus-notifications-notify): Use timeout from

=== modified file 'lisp/gnus/gnus-notifications.el'
--- a/lisp/gnus/gnus-notifications.el   2012-08-30 22:14:27 +0000
+++ b/lisp/gnus/gnus-notifications.el   2012-08-31 00:46:01 +0000
@@ -74,7 +74,7 @@
     (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)