From: dmaus <dmaus>
Date: Mon, 10 May 2010 06:43:42 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-mailbox-selected-p): New macro.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e9a3228b20a142c77a0c9ec694415b010200ccec;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-mailbox-selected-p): New macro.
Return non-nil if mailbox is selected in session.
(elmo-imap4-session-select-mailbox): Use macro
`elmo-imap4-mailbox-selected-p'.
(elmo-folder-exists-p-plugged): Dto.
(elmo-folder-check-plugged): Dto.
(elmo-imap4-folder-diff-plugged): Dto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6b2f155..23d9b1e 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,13 @@
+2010-05-08  David Maus  <dmaus@ictsoc.de>
+
+	* elmo-imap4.el (elmo-imap4-mailbox-selected-p): New macro.
+	Return non-nil if mailbox is selected in session.
+	(elmo-imap4-session-select-mailbox): Use macro
+	`elmo-imap4-mailbox-selected-p'.
+	(elmo-folder-exists-p-plugged): Dto.
+	(elmo-folder-check-plugged): Dto.
+	(elmo-imap4-folder-diff-plugged): Dto.
+
 2010-05-05  David Maus  <dmaus@ictsoc.de>
 
 	* elmo-imap4.el (elmo-imap4-mailbox-size-update-maybe): Use
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index f304809..5861053 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -211,6 +211,10 @@ Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"")
   `(and (memq ,capability (elmo-imap4-session-capability-internal ,session))
 	(not (memq ,capability elmo-imap4-disabled-extensions))))
 
+(defmacro elmo-imap4-mailbox-selected-p (mailbox session)
+  "Return non-nil if MAILBOX is selected in SESSION."
+  `(string= (elmo-imap4-session-current-mailbox-internal ,sessio) ,maibox))
+
 ;;; MIME-ELMO-IMAP Location
 (eval-and-compile
   (luna-define-class mime-elmo-imap-location
@@ -737,9 +741,7 @@ selecting folder was failed.
 If NO-ERROR is 'notify-bye, only BYE response is reported as error.
 Returns response value if selecting folder succeed. "
   (when (or force
-	    (not (string=
-		  (elmo-imap4-session-current-mailbox-internal session)
-		  mailbox)))
+	    (not (elmo-imap4-mailbox-selected-p mailbox session)))
     (let (response result)
       (unwind-protect
 	  (setq response
@@ -2167,9 +2169,8 @@ Return nil if no complete line has arrived."
 
 (luna-define-method elmo-folder-exists-p-plugged ((folder elmo-imap4-folder))
   (let ((session (elmo-imap4-get-session folder)))
-    (if (string=
-	 (elmo-imap4-session-current-mailbox-internal session)
-	 (elmo-imap4-folder-mailbox-internal folder))
+    (if (elmo-imap4-mailbox-selected-p
+	 (elmo-imap4-folder-mailbox-internal folder) session)
 	t
       (elmo-imap4-session-select-mailbox
        session
@@ -2530,9 +2531,9 @@ If optional argument REMOVE is non-nil, remove FLAG."
 (luna-define-method elmo-folder-check-plugged ((folder elmo-imap4-folder))
   (let ((session (elmo-imap4-get-session folder 'if-exists)))
     (when session
-      (if (string=
-	   (elmo-imap4-session-current-mailbox-internal session)
-	   (elmo-imap4-folder-mailbox-internal folder))
+      (if (elmo-imap4-mailbox-selected-p
+	   (elmo-imap4-folder-mailbox-internal folder)
+	   session)
 	  (if elmo-imap4-use-select-to-update-status
 	      (elmo-imap4-session-select-mailbox
 	       session
@@ -2551,8 +2552,9 @@ If optional argument REMOVE is non-nil, remove FLAG."
 	(elmo-imap4-session-select-mailbox
 	 session
 	 (elmo-imap4-folder-mailbox-internal folder)))
-    (if (string= (elmo-imap4-session-current-mailbox-internal session)
-		 (elmo-imap4-folder-mailbox-internal folder))
+    (if (elmo-imap4-mailbox-selected-p
+	 (elmo-imap4-folder-mailbox-internal folder)
+	 session)
 	(progn
 	  (elmo-imap4-send-command-wait session "noop")
 	  (setq unread (length (elmo-imap4-folder-list-flagged folder 'unread)))