Mercurial > emacs
changeset 110216:6f3cc5774150
imap.el (imap-mailbox-get): Revert last change for this function.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 06 Sep 2010 00:10:55 +0000 |
| parents | 1a9f718ae483 |
| children | 5c9d7f960c31 |
| files | lisp/ChangeLog lisp/net/imap.el |
| diffstat | 2 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Sep 06 00:06:55 2010 +0000 +++ b/lisp/ChangeLog Mon Sep 06 00:10:55 2010 +0000 @@ -7,6 +7,7 @@ (imap-mailbox-map): Ditto. (imap-mailbox-put): Ditto. (imap-mailbox-get): Ditto. + (imap-mailbox-get): Revert last change for this function. 2010-09-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
--- a/lisp/net/imap.el Mon Sep 06 00:06:55 2010 +0000 +++ b/lisp/net/imap.el Mon Sep 06 00:10:55 2010 +0000 @@ -1315,9 +1315,10 @@ (get (intern-soft (or mailbox imap-current-mailbox) imap-mailbox-data) propname)) -(defun imap-mailbox-get (propname &optional mailbox) - (imap-mailbox-get-1 propname (or (imap-utf7-encode mailbox) - imap-current-mailbox))) +(defun imap-mailbox-get (propname &optional mailbox buffer) + (with-current-buffer (or buffer (current-buffer)) + (imap-mailbox-get-1 propname (or (imap-utf7-encode mailbox) + imap-current-mailbox)))) (defun imap-mailbox-map-1 (func &optional mailbox-decoder) (let (result)