From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 13:26:19 +0000 (+0000)
Subject: * wl-score.el (wl-score-put-alike): Explicit add `alike' argument.
X-Git-Tag: elmo-imap4-compliance-root~60
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9eb2532133a51ac6bca2e8b8784e445a7cde8081;p=elisp%2Fwanderlust.git

* wl-score.el (wl-score-put-alike): Explicit add `alike' argument.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4b4f590..193eacb 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2010-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-score.el (wl-score-put-alike): Explicit add `alike' argument.
+
 	* wl-draft.el (wl-draft-config-body-goto-header)
 	(wl-draft-body-goto-top, wl-draft-body-goto-bottom): Change from
 	macro to function.
diff --git a/wl/wl-score.el b/wl/wl-score.el
index aa90570..7f8b1b8 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -538,9 +538,9 @@ 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
+(defmacro wl-score-put-alike (alike)
+  `(elmo-set-hash-val (format "#%d" (wl-count-lines))
+		      ,alike
 		      wl-score-alike-hashtb))
 
 (defsubst wl-score-get-alike ()
@@ -576,12 +576,12 @@ Set `wl-score-cache' nil."
 	      ;; headers.
 	      (wl-push art alike)
 	    (when last
-	      (wl-score-put-alike)
+	      (wl-score-put-alike alike)
 	      (insert last ?\n))
 	    (setq alike (list art)
 		  last this)))
 	(when last
-	  (wl-score-put-alike)
+	  (wl-score-put-alike alike)
 	  (insert last ?\n))
 	(when mime-decode
 	  (decode-mime-charset-region (point-min) (point-max)