mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-30 11:09:23 +00:00
nnimap.el (nnimap-request-set-mark): Remove left over.
nnimap.el (nnimap-get-groups): Allow non-quoted strings as mailbox names.
This commit is contained in:
parent
b40950bfce
commit
36af6c6577
@ -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.
|
||||
|
@ -928,7 +928,6 @@ textual parts.")
|
||||
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 @@ textual parts.")
|
||||
(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)
|
||||
|
Loading…
Reference in New Issue
Block a user