(nnimap-find-article-by-message-id): Really return the article number.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 673c998..affc2f8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnimap.el (nnimap-find-article-by-message-id): Really return the
+       article number.
+
        * nntp.el (nntp-server-list-active-group): Document.
 
        * nnimap.el (nnimap-find-article-by-message-id): Use EXAMINE instead of

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 241dc7d..8aad3ea 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -737,7 +737,8 @@ textual parts.")
           (nnimap-send-command "UID SEARCH HEADER Message-Id %S" message-id))
          article result)
       (setq result (nnimap-wait-for-response sequence))
-      (when (car result)
+      (when (and result
+                (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)))))