From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 6 Sep 2010 00:10:55 +0000 (+0000)
Subject: imap.el (imap-mailbox-get): Revert last change for this function.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~61
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a131b9b876d46b339ef9a64a1fbc53977a4bd46b;p=emacs.git

imap.el (imap-mailbox-get): Revert last change for this function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4ec7ca6b476..740d40309a9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 
diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index 5c30a5788d8..e286a14a0e4 100644
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -1315,9 +1315,10 @@ If BUFFER is nil, the current buffer is assumed."
   (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)