Fix for compilation on XEmacs of commit 4c012447.

[gnus] / lisp / nnimap.el

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index d8b49f7..369d9d3 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -197,7 +197,7 @@ textual parts.")
          (nnimap-header-parameters))
         t)
        (unless (process-live-p (get-buffer-process (current-buffer)))
-         (error "Server closed connection")) 
+         (error "Server closed connection"))
        (nnimap-transform-headers)
        (nnheader-remove-cr-followed-by-lf))
       (insert-buffer-substring
@@ -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 (end-of-line)
+                          (skip-chars-backward " \r\"")
+                          (point)))))
        (unless (member '%NoSelect flags)
          (push (utf7-decode (if (stringp group)
                                 group