From: Andrew Cohen <cohen@andy.bu.edu>
Date: Tue, 21 Jun 2011 22:13:24 +0000 (+0000)
Subject: nnimap.el (nnimap-find-article-by-message-id): return nil when no article found.
X-Git-Tag: emacs-pretest-24.0.90~104^2~481
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=183a6951a6ea741ce3aa374a81e7d7ab099e5c12;p=emacs.git

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 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)