From: murata <murata>
Date: Wed, 10 May 2000 12:58:58 +0000 (+0000)
Subject: (wl-score-put-alike): Use wl-count-lines
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=72ec10907c1098864e04ef8242d0b59f013d2a92;p=elisp%2Fwanderlust.git

(wl-score-put-alike): Use wl-count-lines
(wl-score-get-alike): Ditto.
---

diff --git a/wl/wl-score.el b/wl/wl-score.el
index 69aca75..aa0f1e7 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -562,11 +562,6 @@ See `wl-score-simplify-buffer-fuzzy' for details."
 	  (setq entries rest)))))
   nil)
 
-(defsubst wl-score-lines ()
-  (save-excursion
-    (beginning-of-line)
-    (count-lines 1 (point))))
-
 (defun wl-score-extra (scores header now expire)
   (let ((score-list scores)
 	entries alist extra extras)
@@ -584,17 +579,13 @@ See `wl-score-simplify-buffer-fuzzy' for details."
     nil))
 
 (defmacro wl-score-put-alike ()
-  (` (elmo-set-hash-val (format "#%d" (wl-score-lines))
+  (` (elmo-set-hash-val (format "#%d" (wl-count-lines))
 			alike
 			wl-score-alike-hashtb)))
-;;(push (cons (wl-score-lines) alike) wl-score-alike-alist)
-;;(put-text-property (1- (point)) (point) 'messages alike)
 
 (defmacro wl-score-get-alike ()
-  (` (elmo-get-hash-val (format "#%d" (wl-score-lines))
+  (` (elmo-get-hash-val (format "#%d" (wl-count-lines))
 			wl-score-alike-hashtb)))
-;;(cdr (assq (wl-score-lines) wl-score-alike-alist))
-;;(get-text-property (point) 'messages)))
 
 (defun wl-score-insert-header (header messages &optional extra-header)
   (let ((mime-decode (nth 3 (assoc header wl-score-header-index)))