(nnimap-retrieve-which-headers):

(nnimap-request-article-part): Quote message-id.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 588172b..3455736 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-10-28  Simon Josefsson  <sj@extundo.com>
 
+       * nnimap.el (nnimap-retrieve-which-headers): 
+       (nnimap-request-article-part): Quote message-id.
+
        * smime.el (smime-CA-directory): Rename from `smime-CAs'.
        (smime-CA-file): New variable.
        (smime-call-openssl-region): Don't error.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index b1c5cac..59d38a0 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -453,7 +453,7 @@ If EXAMINE is non-nil the group is selected read-only."
                           articles)))))
       (mapcar (lambda (msgid)
                (imap-search
-                (format "HEADER Message-Id %s" msgid)))
+                (format "HEADER Message-Id \"%s\"" msgid)))
              articles))))
 
 (defun nnimap-group-overview-filename (group server)
@@ -696,7 +696,7 @@ function is generally only called when Gnus is shutting down."
   (when (nnimap-possibly-change-group group server)
     (let ((article (if (stringp article)
                       (car-safe (imap-search
-                                 (format "HEADER Message-Id %s" article)
+                                 (format "HEADER Message-Id \"%s\"" article)
                                  nnimap-server-buffer))
                     article)))
       (when article