From: okazaki <okazaki>
Date: Mon, 28 Aug 2000 08:38:59 +0000 (+0000)
Subject: * wl-refile.el (wl-refile-learn): Simplified.  Use `memq'
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f4d946e0c58151983cb03d36f358988cf47405de;p=elisp%2Fwanderlust.git

* wl-refile.el (wl-refile-learn): Simplified.  Use `memq'
instead of `member' for `wl-refile-guess-func-list' look-ups.
Use `cons' instead of `add-to-list' to update `wl-refile-alist'.
---

diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index 0b25900..607b105 100644
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -108,21 +108,20 @@
 		  (wl-address-header-extract-address
 		   (elmo-msgdb-overview-entity-get-from 
 		    entity)))))
-	  (setq key from)))
-    (if (not ml)
-	(progn
-	  (if (or wl-refile-msgid-alist
-		  (member 'wl-refile-guess-by-msgid
-			  wl-refile-guess-func-list))
-	      (wl-refile-msgid-learn entity dst))
-	  (if (or wl-refile-subject-alist
-		  (member 'wl-refile-guess-by-subject
-			  wl-refile-guess-func-list))
-	      (wl-refile-subject-learn entity dst))))
+	  (setq key from))
+      (if (or wl-refile-msgid-alist
+	      (memq 'wl-refile-guess-by-msgid
+		    wl-refile-guess-func-list))
+	  (wl-refile-msgid-learn entity dst))
+      (if (or wl-refile-subject-alist
+	      (memq 'wl-refile-guess-by-subject
+		    wl-refile-guess-func-list))
+	  (wl-refile-subject-learn entity dst)))
     (when key
       (if (setq hit (assoc key wl-refile-alist))
           (setq wl-refile-alist (delq hit wl-refile-alist)))
-      (add-to-list 'wl-refile-alist (cons key dst)))))
+      (setq wl-refile-alist (cons (cons key dst)
+				  wl-refile-alist)))))
 
 (defun wl-refile-msgid-learn (entity dst)
   (let ((key (elmo-msgdb-overview-entity-get-id entity))