From ffb03b17ea52af4daff122faecaea0317e9ed4cb Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 3 Nov 2006 00:01:54 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-folder-search): Fix return value. --- elmo/ChangeLog | 4 ++++ elmo/elmo-imap4.el | 8 +++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * elmo-imap4.el (elmo-folder-search): Fix return value. + 2006-11-01 Hiroya Murata * 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 -- 1.7.10.4