mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-21 10:24:55 +00:00
Code Issues Releases Activity

nnimap.el (nnimap-request-set-mark): Remove left over.

Browse Source 
nnimap.el (nnimap-get-groups): Allow non-quoted strings as mailbox names.
This commit is contained in:
Gnus developers 2010-11-26 11:03:16 +00:00 committed by Katsumi Yamaoka
parent b40950bfce
commit 36af6c6577
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -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> 2010-11-26 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-insert): Revert last change. * shr.el (shr-insert): Revert last change.

6
lisp/gnus/nnimap.el
View File

@ -928,7 +928,6 @@ textual parts.")
flags)) flags))
(deffoo nnimap-request-set-mark (group actions &optional server) (deffoo nnimap-request-set-mark (group actions &optional server)
(debug)
(when (nnimap-possibly-change-group group server) (when (nnimap-possibly-change-group group server)
(let (sequence) (let (sequence)
(with-current-buffer (nnimap-buffer) (with-current-buffer (nnimap-buffer)
@ -1029,7 +1028,10 @@ textual parts.")
(separator (read (current-buffer))) (separator (read (current-buffer)))
(group (read (current-buffer)))) (group (read (current-buffer))))
(unless (member '%NoSelect flags) (unless (member '%NoSelect flags)
(push group groups)))) (push (if (stringp group)
group
(format "%s" group))
groups))))
(nreverse groups))) (nreverse groups)))
(deffoo nnimap-request-list (&optional server) (deffoo nnimap-request-list (&optional server)