From 1e0ae4881006d37d764b3f6df217e0e099d922a7 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 27 Jul 2000 02:30:49 +0000 Subject: [PATCH] 2000-07-26 Takaaki MORIYAMA * wl-refile.el (wl-refile-learn): Move hit element to the top of `wl-refile-alist'. --- wl/ChangeLog | 5 +++++ wl/wl-refile.el | 9 ++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 4ac0512..b751e26 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2000-07-26 Takaaki MORIYAMA + + * wl-refile.el (wl-refile-learn): Move hit element to the top of + `wl-refile-alist'. + 2000-07-26 Kenichi OKADA * 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 --- 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)) -- 1.7.10.4