Mercurial > emacs

diff lisp/net/imap.el @ 110216:6f3cc5774150

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 fb6801a4089a
line wrap: on
line diff
--- 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)