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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index fb5ef57..2d8c670 100644 (file)
--- 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 (file)
--- 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