From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 13:06:56 +0000 (+0000)
Subject: * wl-score.el (wl-score-get-alike, wl-score-put-alike): Change from macro to inline... 
X-Git-Tag: elmo-imap4-compliance-root~63
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fceaa7d966c72630d1b8b146ae0414b4d144a8c6;p=elisp%2Fwanderlust.git

* wl-score.el (wl-score-get-alike, wl-score-put-alike): Change from macro to inline-function.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6054290..0b54d3f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2010-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-score.el (wl-score-get-alike, wl-score-put-alike): Change
+	from macro to inline-function.
+
 	* 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
diff --git a/wl/wl-score.el b/wl/wl-score.el
index 4b6f329..eef13fc 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -538,14 +538,14 @@ Set `wl-score-cache' nil."
       (setq extras (cdr extras)))
     nil))
 
-(defmacro wl-score-put-alike ()
-  '(elmo-set-hash-val (format "#%d" (wl-count-lines))
-		      alike
-		      wl-score-alike-hashtb))
-
-(defmacro wl-score-get-alike ()
-  '(elmo-get-hash-val (format "#%d" (wl-count-lines))
-		      wl-score-alike-hashtb))
+(defsubst wl-score-put-alike ()
+  (elmo-set-hash-val (format "#%d" (wl-count-lines))
+		     alike
+		     wl-score-alike-hashtb))
+
+(defsubst wl-score-get-alike ()
+  (elmo-get-hash-val (format "#%d" (wl-count-lines))
+		     wl-score-alike-hashtb))
 
 (defun wl-score-insert-header (header messages &optional extra-header)
   (let ((mime-decode (nth 3 (assoc header wl-score-header-index)))