* nnimap.el (nnimap-find-article-by-message-id): Don't error out if

group is nil.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2cb9489e86e791e64ea62393b376b4bf4fdae059..ece158142c6ccbe365987ca69b564c3df82031f2 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-24  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * nnimap.el (nnimap-find-article-by-message-id): Don't error out if
+       group is nil.
+
 2012-12-23  Andreas Schwab  <schwab@linux-m68k.org>
 
        * shr.el (shr-tag-em): Render as italic, not bold.

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 5126c25f66b614db9b9f19d0d3b51bed7b305490..7a7d67517c626efbd0b5bce816448135119354a5 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -971,7 +971,7 @@ textual parts.")
 (defun nnimap-find-article-by-message-id (group message-id)
   (with-current-buffer (nnimap-buffer)
     (erase-buffer)
-    (unless (equal group (nnimap-group nnimap-object))
+    (unless (or (not group) (equal group (nnimap-group nnimap-object)))
       (setf (nnimap-group nnimap-object) nil)
       (setf (nnimap-examined nnimap-object) group)
       (nnimap-send-command "EXAMINE %S" (utf7-encode group t)))