# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1290769396 0
# Node ID 8071f778f77e634a232c807df1607de6064d865c
# Parent  55d0f7023d7bc8bb973deff6f64058ca07dd9453
nnimap.el (nnimap-request-set-mark): Remove left over.
nnimap.el (nnimap-get-groups): Allow non-quoted strings as mailbox names.

diff -r 55d0f7023d7b -r 8071f778f77e lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Fri Nov 26 07:35:42 2010 +0000
+++ b/lisp/gnus/ChangeLog	Fri Nov 26 11:03:16 2010 +0000
@@ -1,3 +1,8 @@
+2010-11-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* nnimap.el (nnimap-get-groups): Allow non-quoted strings as mailbox
+	names.
+
 2010-11-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* shr.el (shr-insert): Revert last change.
diff -r 55d0f7023d7b -r 8071f778f77e lisp/gnus/nnimap.el
--- a/lisp/gnus/nnimap.el	Fri Nov 26 07:35:42 2010 +0000
+++ b/lisp/gnus/nnimap.el	Fri Nov 26 11:03:16 2010 +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)