[Emacs-diffs] /srv/bzr/emacs/trunk r102531: nnimap.el (nnimap-request-set-mark): Remove left over.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102531
author: Gnus developers
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-11-26 11:03:16 +0000
message:
  nnimap.el (nnimap-request-set-mark): Remove left over.
  nnimap.el (nnimap-get-groups): Allow non-quoted strings as mailbox names.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-26 07:35:42 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-26 11:03:16 +0000
@@ -1,3 +1,8 @@
+2010-11-26  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * nnimap.el (nnimap-get-groups): Allow non-quoted strings as mailbox
+       names.
+
 2010-11-26  Katsumi Yamaoka  <address@hidden>
 
        * shr.el (shr-insert): Revert last change.

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2010-11-26 02:17:55 +0000
+++ b/lisp/gnus/nnimap.el       2010-11-26 11:03:16 +0000
@@ -928,7 +928,6 @@
     flags))
 
 (deffoo nnimap-request-set-mark (group actions &optional server)
-  (debug)
   (when (nnimap-possibly-change-group group server)
     (let (sequence)
       (with-current-buffer (nnimap-buffer)
@@ -1029,7 +1028,10 @@
            (separator (read (current-buffer)))
            (group (read (current-buffer))))
        (unless (member '%NoSelect flags)
-         (push group groups))))
+         (push (if (stringp group)
+                   group
+                 (format "%s" group))
+               groups))))
     (nreverse groups)))
 
 (deffoo nnimap-request-list (&optional server)