From: yoichi <yoichi>
Date: Sat, 13 Sep 2003 09:42:23 +0000 (+0000)
Subject: Don't update wl-read-folder-hist when the folder is same as previous one
X-Git-Tag: wl-2_11_12~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5b65e9f295aa95e93033df7e8ef4a510788dc08d;p=elisp%2Fwanderlust.git

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
--- 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)))