nnimap.el (nnimap-find-article-by-message-id): return nil when no article found.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 818440842cd..5a6ad584438 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  <cohen@andy.bu.edu>
+
+        * nnimap.el (nnimap-find-article-by-message-id): return nil when no
+        article found.
+
 2011-06-18  Teodor Zlatanov  <tzz@lifelogs.com>
 
         * auth-source.el (auth-source-netrc-use-gpg-tokens): Replace
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index dc8b38b8f9a..1bbd76f345e 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)