| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-08-31 04:15:23 (GMT) |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-08-31 04:15:23 (GMT) |
| commit | bf846caae21141704ed81d6c2e6db7c53f157606 (patch) (side-by-side diff) | |
| tree | 5bc898a676d61a7a44f89d9cbe841c725c517b1d | |
| parent | 856fe7a9bd702666fd7e0b18f003dc944bec93e5 (diff) | |
| download | gnus-bf846caae21141704ed81d6c2e6db7c53f157606.zip | |
gnus-notifications.el (gnus-notifications-action): Avoid CL-ism
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus-notifications.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 88969f0..34b43cc 100644 --- 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 diff --git a/lisp/gnus-notifications.el b/lisp/gnus-notifications.el index 811a908..c512995 100644 --- 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)) - (article (caddr group-article))) + (article (nth 2 group-article))) (gnus-fetch-group group (list article))))))) (defun gnus-notifications-notify (from subject photo-file) |