From: yoichi <yoichi>
Date: Fri, 3 Nov 2006 00:01:54 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-folder-search): Fix return value.
X-Git-Tag: wl-2_15_6-fixes~135
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ffb03b17ea52af4daff122faecaea0317e9ed4cb;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-folder-search): Fix return value.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index fb5ef57..2d8c670 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-03  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* elmo-imap4.el (elmo-folder-search): Fix return value.
+
 2006-11-01  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-imap4.el (elmo-imap4-find-next-line): Check whether a label
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index a367964..f44ba76 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2334,13 +2334,15 @@ If optional argument REMOVE is non-nil, remove FLAG."
 						condition &optional numbers)
   (if (elmo-folder-plugged-p folder)
       (save-excursion
-	(let ((session (elmo-imap4-get-session folder)))
+	(let ((session (elmo-imap4-get-session folder))
+	      ret)
 	  (message "Searching...")
 	  (elmo-imap4-session-select-mailbox
 	   session
 	   (elmo-imap4-folder-mailbox-internal folder))
-	  (elmo-imap4-search-internal folder session condition numbers)
-	  (message "Searching...done")))
+	  (setq ret (elmo-imap4-search-internal folder session condition numbers))
+	  (message "Searching...done")
+	  ret))
     (luna-call-next-method)))
 
 (luna-define-method elmo-folder-msgdb-create-plugged