Don't update wl-read-folder-hist when the folder is same as previous one

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index aaf595d..4047e7c 100644 (file)
--- 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)))