nnimap.el (nnimap-make-thread-query): Quote message-ids for gmail.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 400abd51c270cbabceddf407944c2794cadb47ba..f90e180b128f7bae8c62022fc7e34b39f9097dd3 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-24  Andrew Cohen  <cohen@andy.bu.edu>
+
+       * nnimap.el (nnimap-make-thread-query): Quote message-ids for gmail.
+
 2011-07-23  Andrew Cohen  <cohen@andy.bu.edu>
 
        * nnir.el (nnir-search-thread): New function to make an nnir group

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 8a0d635ef7bfc4134464a0a6bcf6575230ad585c..52de48869d854e12f8b45fa3fe955adface6c010 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1947,13 +1947,13 @@ textual parts.")
         (refs (split-string
                (or (mail-header-references header)
                    "")))
-       (value
-        (format
-         "(OR HEADER REFERENCES %s HEADER Message-Id %s)"
-         id id)))
+        (value
+         (format
+          "(OR HEADER REFERENCES %S HEADER Message-Id %S)"
+          id id)))
     (dolist (refid refs value)
       (setq value (format
-                  "(OR (OR HEADER Message-Id %s HEADER REFERENCES %s) %s)"
+                  "(OR (OR HEADER Message-Id %S HEADER REFERENCES %S) %s)"
                   refid refid value)))))