From: murata <murata>
Date: Sat, 20 May 2000 15:29:13 +0000 (+0000)
Subject: (wl-summary-switch-to-clone-buffer): Remove elmo-msgdb-overview-hashtb
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8dcc8d315c24276a60e23a8ab4833e10c0acfd15;p=elisp%2Fwanderlust.git

(wl-summary-switch-to-clone-buffer): Remove elmo-msgdb-overview-hashtb
from copy-variables.
(wl-summary-refile-subr): Use `elmo-msgdb-overview-get-entity'
instead of `elmo-msgdb-overview-get-entity-by-number'.
(wl-summary-auto-refile): Ditto.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 23a9a6a..5f52ece 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2595,8 +2595,7 @@ If optional argument is non-nil, checking is omitted."
 	(buf (get-buffer-create buffer-name))
 	(folder wl-summary-buffer-folder-name)
 	(copy-variables
-	 (append '(elmo-msgdb-overview-hashtb
-		   wl-summary-buffer-view
+	 (append '(wl-summary-buffer-view
 		   wl-summary-buffer-refile-list
 		   wl-summary-buffer-delete-list
 		   wl-summary-buffer-copy-list
@@ -2920,17 +2919,6 @@ If optional argument is non-nil, checking is omitted."
   (string= (wl-summary-subject-filter-func-internal subject1)
 	   (wl-summary-subject-filter-func-internal subject2)))
 
-(defun wl-summary-subject-equal-by-number (msg1 msg2 &optional overview)
-  (let ((overview (or overview
-		      (elmo-msgdb-get-overview wl-summary-buffer-msgdb))))
-    (wl-summary-subject-equal
-     (or (elmo-msgdb-overview-entity-get-subject
-	  (elmo-msgdb-overview-get-entity-by-number overview msg1))
-	 "")
-     (or (elmo-msgdb-overview-entity-get-subject
-	  (elmo-msgdb-overview-get-entity-by-number overview msg2))
-	 ""))))
-
 (defmacro wl-summary-put-alike (alike)
   (` (elmo-set-hash-val (format "#%d" (wl-count-lines))
 			(, alike)
@@ -3517,9 +3505,8 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 				(elmo-msgdb-get-number-alist
 				 wl-summary-buffer-msgdb)))))
 	 (entity (and msg-num
-		      (elmo-msgdb-overview-get-entity-by-number
-		       (elmo-msgdb-get-overview wl-summary-buffer-msgdb)
-		       msg-num)))
+		      (elmo-msgdb-overview-get-entity
+		       msg-num wl-summary-buffer-msgdb)))
 	 (variable 
 	  (intern (format "wl-summary-buffer-%s-list" copy-or-refile)))
 	 folder mark already tmp-folder)
@@ -3627,8 +3614,8 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 							     mark-alist))
 		   (setq dst
 			 (wl-refile-guess-by-rule
-			  (elmo-msgdb-overview-get-entity-by-number
-			   overview number)))
+			  (elmo-msgdb-overview-get-entity
+			   number wl-summary-buffer-msgdb)))
 		   (not (equal dst spec)))
 	  (when (not (member dst checked-dsts))
 	    (wl-folder-confirm-existence dst)
@@ -3645,8 +3632,8 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 		  (lambda (x)
 		    (when (and (setq dst 
 				     (wl-refile-guess-by-rule
-				      (elmo-msgdb-overview-get-entity-by-number 
-				       overview x)))
+				      (elmo-msgdb-overview-get-entity 
+				       x wl-summary-buffer-msgdb)))
 			       (not (equal dst spec)))
 		      (if (wl-summary-refile dst x)
 			  (incf count))