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

	article found.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd0b220..812ca82 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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/nnimap.el b/lisp/nnimap.el
index dc8b38b..1bbd76f 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/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)