Mercurial > emacs
changeset 111731:8071f778f77e
nnimap.el (nnimap-request-set-mark): Remove left over.
nnimap.el (nnimap-get-groups): Allow non-quoted strings as mailbox names.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 26 Nov 2010 11:03:16 +0000 |
| parents | 55d0f7023d7b |
| children | 6098376da331 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnimap.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)