From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 13:17:07 +0000 (+0000)
Subject: Revert wl-score-put-alike.
X-Git-Tag: elmo-imap4-compliance-root~61
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=19db56e4921ca3e2366792b46d5f5b5052d27a86;p=elisp%2Fwanderlust.git

Revert wl-score-put-alike.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d5672ed..4b4f590 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -4,8 +4,8 @@
 	(wl-draft-body-goto-top, wl-draft-body-goto-bottom): Change from
 	macro to function.
 
-	* wl-score.el (wl-score-get-alike, wl-score-put-alike): Change
-	from macro to inline-function.
+	* wl-score.el (wl-score-get-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.
diff --git a/wl/wl-score.el b/wl/wl-score.el
index eef13fc..aa90570 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -538,10 +538,10 @@ Set `wl-score-cache' nil."
       (setq extras (cdr extras)))
     nil))
 
-(defsubst wl-score-put-alike ()
-  (elmo-set-hash-val (format "#%d" (wl-count-lines))
-		     alike
-		     wl-score-alike-hashtb))
+(defmacro 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))