(nnimap-retrieve-group-data-early): utf7-encode the group parameters.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 15693a8..ee89362 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * nnimap.el (nnimap-update-qresync-info): \Flagged messages are read
        for Gnus.
 
        * nnimap.el (nnimap-update-qresync-info): \Flagged messages are read
        for Gnus.

+       (nnimap-retrieve-group-data-early): utf7-encode the group parameters.

 
        * gnus-sum.el (gnus-summary-set-local-parameters): Ignore the `active'
        non-variable, too.
 
        * gnus-sum.el (gnus-summary-set-local-parameters): Ignore the `active'
        non-variable, too.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 703b258..3c8bcf0 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -974,7 +974,8 @@ textual parts.")
                   modseq)
              (push
               (list (nnimap-send-command "EXAMINE %S (QRESYNC (%s %s))"
                   modseq)
              (push
               (list (nnimap-send-command "EXAMINE %S (QRESYNC (%s %s))"

-                                         group uidvalidity modseq)
+                                         (utf7-encode group t)
+                                         uidvalidity modseq)

                     'qresync
                     nil group 'qresync)
               sequences)
                     'qresync
                     nil group 'qresync)
               sequences)


@@ -992,7 +993,8 @@ textual parts.")
                     ;; examine), but will tell us whether the group
                     ;; is read-only or not.
                     "SELECT")))
                     ;; examine), but will tell us whether the group
                     ;; is read-only or not.
                     "SELECT")))

-             (push (list (nnimap-send-command "%s %S" command group)
+             (push (list (nnimap-send-command "%s %S" command
+                                              (utf7-encode group t))

                          (nnimap-send-command "UID FETCH %d:* FLAGS" start)
                          start group command)
                    sequences)))
                          (nnimap-send-command "UID FETCH %d:* FLAGS" start)
                          start group command)
                    sequences)))