From: teranisi <teranisi>
Date: Tue, 3 Oct 2000 01:30:19 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-pick): Fixed.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=40ac5b5b310f2af4a2adaa1cf99753fe5a29e367;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-pick): Fixed.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 310dbc7..8ba839d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2000-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-summary.el (wl-summary-pick): Fixed.
+
 	* wl-draft.el (wl-draft-forward): Get references field from
 	original buffer.
 	(wl-draft-forward): Use `wl-draft-parse-msg-id-list-string'.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 88fa6c6..cd6ace4 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3906,9 +3906,9 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
        ((string-match field "cc")
 	(setq get-func 'elmo-msgdb-overview-entity-get-cc))
        ((string-match field "since")
-	(setq server-side-search (vector 'date "since" value)))
+	(setq server-side-search (vector 'match "since" value)))
        ((string-match field "before")
-	(setq server-side-search (vector 'date "before" value)))
+	(setq server-side-search (vector 'match "before" value)))
        ((string-match field "body")
 	(setq server-side-search (vector 'match "body" value)))
        ((member field elmo-msgdb-extra-fields)
@@ -3923,7 +3923,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 		(message "Searching...")
 		(let ((elmo-mime-charset wl-summary-buffer-mime-charset))
 		  (setq result (elmo-search wl-summary-buffer-folder-name
-					    (list server-side-search))))
+					    server-side-search)))
 		(if from-list
 		    (setq result (elmo-list-filter from-list result)))
 		(message "%d message(s) are picked." (length result)))