From: okada <okada>
Date: Fri, 1 Feb 2002 04:03:04 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-pick): New function.
X-Git-Tag: wl-2_9_7~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a5739d6626641ffd7c5bad5d3edfcfdcb23813e2;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-pick): New function.
Define key as "?".
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ce967d5..4af6a66 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2002-02-01  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-folder.el (wl-folder-pick): New function.
+	Define key as "?".
+
+2002-02-01  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-draft.el (wl-draft-send-mail-with-pop-before-smtp):
 	Fix for unplugged.
 
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 757128b..8b99a0b 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -171,6 +171,7 @@
   (define-key wl-folder-mode-map "E"    'wl-folder-empty-trash)
   (define-key wl-folder-mode-map "F"    'wl-folder-flush-queue)
   (define-key wl-folder-mode-map "V"    'wl-folder-virtual)
+  (define-key wl-folder-mode-map "?"    'wl-folder-pick)
   (define-key wl-folder-mode-map "q"    'wl-exit)
   (define-key wl-folder-mode-map "z"    'wl-folder-suspend)
   (define-key wl-folder-mode-map "\M-t" 'wl-toggle-plugged)
@@ -2812,6 +2813,40 @@ Call `wl-summary-write-current-folder' with current folder name."
 	      wl-fldmgr-make-filter-default)
 	     "/" entity))))
 
+(defun wl-folder-pick ()
+  (interactive)
+  (save-excursion
+    (let* ((condition (car (elmo-parse-search-condition
+			    (elmo-read-search-condition
+			     wl-summary-pick-field-default))))
+	   (entity (wl-folder-get-entity-from-buffer))
+	   (folder-list
+	    (if (wl-folder-buffer-group-p)
+		(wl-folder-get-entity-list
+		 (wl-folder-search-group-entity-by-name
+		  entity
+		  wl-folder-entity))
+	      (list entity)))
+	   results ret)
+      (while (car folder-list)
+	(setq ret (elmo-folder-search
+		   (wl-folder-get-elmo-folder (car folder-list))
+		   condition))
+	(if ret
+	    (setq results
+		  (append results
+			  (list (cons (car folder-list) ret)))))
+	(setq folder-list (cdr folder-list)))
+      (if results
+	  (message "%s are picked."
+		   (mapconcat '(lambda (res)
+				 (format "%s(%d)"
+					 (car res)
+					 (length (cdr res))))
+			      results
+			      ","))
+	(message "No message was picked.")))))
+
 (require 'product)
 (product-provide (provide 'wl-folder) (require 'wl-version))