[Emacs-diffs] /srv/bzr/emacs/trunk r104666: nnimap.el (nnimap-find-article-by-message-id): return nil when no article found.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104666
author: Andrew Cohen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2011-06-21 22:13:24 +0000
message:
  nnimap.el (nnimap-find-article-by-message-id): return nil when no article 
found.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-06-21 20:51:45 +0000
+++ b/lisp/gnus/ChangeLog       2011-06-21 22:13:24 +0000
@@ -5,6 +5,11 @@
        (auth-sources): Prefer the ~/.authinfo file over the ~/.authinfo.gpg
        file, especially when saving.
 
+2011-06-21  Andrew Cohen  <address@hidden>
+
+       * nnimap.el (nnimap-find-article-by-message-id): return nil when no
+       article found.
+
 2011-06-18  Teodor Zlatanov  <address@hidden>
 
        * auth-source.el (auth-source-netrc-use-gpg-tokens): Replace

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2011-05-30 22:11:52 +0000
+++ b/lisp/gnus/nnimap.el       2011-06-21 22:13:24 +0000
@@ -929,7 +929,7 @@
                 (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)