diff options
author | Andrew Cohen <[email protected]> | 2011-06-21 22:13:24 +0000 |
---|---|---|
committer | Katsumi Yamaoka <[email protected]> | 2011-06-21 22:13:24 +0000 |
commit | 183a6951a6ea741ce3aa374a81e7d7ab099e5c12 (patch) | |
tree | 2e188eb3d76d5b4ca4409740c0eb7c1b69a82534 /lisp/gnus | |
parent | 95f41d9ad1df5519e989b290440c171e7d79ad33 (diff) |
nnimap.el (nnimap-find-article-by-message-id): return nil when no article found.
Diffstat (limited to 'lisp/gnus')
-rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/gnus/nnimap.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 818440842c..5a6ad58443 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -5,6 +5,11 @@ (auth-sources): Prefer the ~/.authinfo file over the ~/.authinfo.gpg file, especially when saving. +2011-06-21 Andrew Cohen <[email protected]> + + * nnimap.el (nnimap-find-article-by-message-id): return nil when no + article found. + 2011-06-18 Teodor Zlatanov <[email protected]> * auth-source.el (auth-source-netrc-use-gpg-tokens): Replace diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index dc8b38b8f9..1bbd76f345 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -929,7 +929,7 @@ textual parts.") (car (setq result (nnimap-parse-response)))) ;; Select the last instance of the message in the group. (and (setq article - (car (last (assoc "SEARCH" (cdr result))))) + (car (last (cdr (assoc "SEARCH" (cdr result)))))) (string-to-number article)))))) (defun nnimap-delete-article (articles) |