* wl-util.el (wl-collect-summary, wl-kill-buffers): Use `mapc' instead of `mapcar...

(wl-read-search-condition-internal): Don't use `function' for lambda.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ada57e0..1840f3c 100644 (file)
--- 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 (file)
--- 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)