[Emacs-diffs] master 0a1c834: Handle unquoted IMAP group names

[Katsumi Yamaoka]

branch: master
commit 0a1c83457d209fcf08c741a5e50bd60b72fd8713
Author: Eric Abrahamsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    Handle unquoted IMAP group names
    
    * lisp/gnus/nnimap.el (nnimap-get-groups): Correctly read unquoted
    group names from the server LIST response.
---
 lisp/gnus/ChangeLog |    5 +++++
 lisp/gnus/nnimap.el |    7 ++++++-
 2 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7910d74..7895f37 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-18  Eric Abrahamsen  <address@hidden>
+
+       * nnimap.el (nnimap-get-groups): Correctly read unquoted group names
+       from the server LIST response.
+
 2015-02-14  Lars Ingebrigtsen  <address@hidden>
 
        * nnimap.el (nnimap-retrieve-headers): If the server closes connection
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 4a9ca74..6904e0a 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1262,7 +1262,12 @@ If LIMIT, first try to limit the search to the N last 
articles."
     (while (search-forward "* LIST " nil t)
       (let ((flags (read (current-buffer)))
            (separator (read (current-buffer)))
-           (group (read (current-buffer))))
+           (group (buffer-substring-no-properties
+                   (progn (skip-chars-forward " \"")
+                          (point))
+                   (progn (move-end-of-line 1)
+                          (skip-chars-backward " 
\"")
+                          (point)))))
        (unless (member '%NoSelect flags)
          (push (utf7-decode (if (stringp group)
                                 group