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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4b4f590..193eacb 100644 (file)
--- 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 (file)
--- 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)