From 5b65e9f295aa95e93033df7e8ef4a510788dc08d Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 13 Sep 2003 09:42:23 +0000 Subject: [PATCH] Don't update wl-read-folder-hist when the folder is same as previous one --- wl/wl-draft.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/wl/wl-draft.el b/wl/wl-draft.el index aaf595d..4047e7c 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1574,8 +1574,9 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (wl-draft-write-sendlog 'failed 'fcc nil (car fcc-list) id)) (if (and wl-draft-fcc-append-read-folder-hist (boundp 'wl-read-folder-hist)) - (setq wl-read-folder-hist - (append (list (car fcc-list)) wl-read-folder-hist))) + (or (equal (car fcc-list) (car wl-read-folder-hist)) + (setq wl-read-folder-hist + (append (list (car fcc-list)) wl-read-folder-hist)))) (setq fcc-list (cdr fcc-list))))) (kill-buffer tembuf))) -- 1.7.10.4