From 9eb2532133a51ac6bca2e8b8784e445a7cde8081 Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 1 Jan 2010 13:26:19 +0000 Subject: [PATCH] * wl-score.el (wl-score-put-alike): Explicit add `alike' argument. --- wl/ChangeLog | 2 ++ wl/wl-score.el | 10 +++++----- 2 files changed, 7 insertions(+), 5 deletions(-) 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 + * 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) -- 1.7.10.4