2000-07-26 Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp>

	* wl-refile.el (wl-refile-learn): Move hit element to the top of
	`wl-refile-alist'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4ac0512..b751e26 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-26  Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp>
+
+       * wl-refile.el (wl-refile-learn): Move hit element to the top of
+       `wl-refile-alist'.
+
 2000-07-26     Kenichi OKADA   <okada@opaopa.org>
 
        * wl-draft.el (wl-draft): Added argument `content-transfer-encoding'.

diff --git a/wl/wl-refile.el b/wl/wl-refile.el
index ee0296c..0b25900 100644 (file)
--- a/wl/wl-refile.el
+++ b/wl/wl-refile.el
@@ -119,11 +119,10 @@
                  (member 'wl-refile-guess-by-subject
                          wl-refile-guess-func-list))
              (wl-refile-subject-learn entity dst))))
-    (if key
-       (if (setq hit (assoc key wl-refile-alist))
-           (setcdr hit dst)
-         (setq wl-refile-alist
-               (nconc wl-refile-alist (list (cons key 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)))))
 
 (defun wl-refile-msgid-learn (entity dst)
   (let ((key (elmo-msgdb-overview-entity-get-id entity))