From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 11:52:52 +0000 (+0000)
Subject: * wl-util.el (wl-collect-summary, wl-kill-buffers): Use `mapc' instead of `mapcar... 
X-Git-Tag: elmo-imap4-compliance-root~67
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=74dfeb4708596998c5b7229ff41def29a4d95a03;p=elisp%2Fwanderlust.git

* wl-util.el (wl-collect-summary, wl-kill-buffers): Use `mapc' instead of `mapcar'. Don't use `function' for lambda.
(wl-read-search-condition-internal): Don't use `function' for lambda.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ada57e0..1840f3c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2010-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-util.el (wl-collect-summary, wl-kill-buffers): Use `mapc'
+	instead of `mapcar'. Don't use `function' for lambda.
+	(wl-read-search-condition-internal): Don't use `function' for
+	lambda.
+
 	* wl-draft.el (wl-draft-reply): Use `elmo-parse' instead of `wl-parse'.
 
 	* wl-draft.el (wl-draft-do-fcc): Use `with-temp-buffer'.
diff --git a/wl/wl-util.el b/wl/wl-util.el
index a27671e..9afc7b6 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -505,23 +505,23 @@ that `read' can handle, whenever this is possible."
 		nil nil))))))
 
 (defmacro wl-kill-buffers (regexp)
-  `(mapcar (function
-	    (lambda (x)
-	      (if (and (buffer-name x)
-		       (string-match ,regexp (buffer-name x)))
-		  (and (get-buffer x)
-		       (kill-buffer x)))))
-	   (buffer-list)))
+  `(mapc
+    (lambda (x)
+      (if (and (buffer-name x)
+	       (string-match ,regexp (buffer-name x)))
+	  (and (get-buffer x)
+	       (kill-buffer x)))))
+  (buffer-list))
 
 (defun wl-collect-summary ()
   (let (result)
-    (mapcar
-     (function (lambda (x)
-		 (if (and (string-match "^Summary"
-					(buffer-name x))
-			  (with-current-buffer x
-			    (eq major-mode 'wl-summary-mode)))
-		     (setq result (nconc result (list x))))))
+    (mapc
+     (lambda (x)
+       (if (and (string-match "^Summary"
+			      (buffer-name x))
+		(with-current-buffer x
+		  (eq major-mode 'wl-summary-mode)))
+	   (setq result (nconc result (list x)))))
      (buffer-list))
     result))
 
@@ -1074,10 +1074,10 @@ is enclosed by at least one regexp grouping construct."
       (let ((default (format-time-string "%Y-%m-%d")))
 	(setq value (completing-read
 		     (format "Value for '%s' [%s]: " field default)
-		     (mapcar (function
-			      (lambda (x)
-				(list (format "%s" (car x)))))
-			     elmo-date-descriptions)))
+		     (mapcar
+		      (lambda (x)
+			(list (format "%s" (car x))))
+		      elmo-date-descriptions)))
 	(concat (downcase field) ":"
 		(if (equal value "") default value))))
      ((string-match "!?Flag" field)