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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 818440842cd509c25a2e07d6b7d430384fba6bb6..5a6ad58443807aba429d82ac80645f36bae350de 100644 (file)
--- 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 dc8b38b8f9a24bc4ea3f77101799b3e3abd69621..1bbd76f345ee68e882342f2c6faaf5d1b8849e8d 100644 (file)
--- 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)