From 679a3790da98aba541696305733959e0e45b5573 Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 12:59:40 +0000
Subject: [PATCH] (wl-kill-buffers): Change from macro to function.
 (wl-count-lines): Change from macro to inline-function.

---
 wl/ChangeLog  |    2 ++
 wl/wl-util.el |   24 ++++++++++++------------
 2 files changed, 14 insertions(+), 12 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1840f3c..6054290 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -4,6 +4,8 @@
 	instead of `mapcar'. Don't use `function' for lambda.
 	(wl-read-search-condition-internal): Don't use `function' for
 	lambda.
+	(wl-kill-buffers): Change from macro to function.
+	(wl-count-lines): Change from macro to inline-function.
 
 	* wl-draft.el (wl-draft-reply): Use `elmo-parse' instead of `wl-parse'.
 
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 34e56e8..baf4d7a 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -504,14 +504,14 @@ that `read' can handle, whenever this is possible."
 		wl-summary-buffer-display-mime-mode
 		nil nil))))))
 
-(defmacro wl-kill-buffers (regexp)
-  `(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-kill-buffers (regexp)
+  (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)
@@ -653,10 +653,10 @@ that `read' can handle, whenever this is possible."
 
 ;;;
 
-(defmacro wl-count-lines ()
-  '(save-excursion
-     (beginning-of-line)
-     (count-lines 1 (point))))
+(defsubst wl-count-lines ()
+  (save-excursion
+    (beginning-of-line)
+    (count-lines 1 (point))))
 
 (defun wl-horizontal-recenter ()
   "Recenter the current buffer horizontally."
-- 
1.7.10.4