From: yoichi <yoichi>
Date: Sat, 13 Sep 2003 08:25:53 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-fcc-append-read-folder-hist): New variable.
X-Git-Tag: wl-2_11_11~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9b1f12857d3c2d981cfd924a3300b26dc5ee3aaf;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-fcc-append-read-folder-hist): New variable.
(wl-draft-do-fcc): Append fcc'ed folder to wl-read-folder-hist.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0e2c515..c61f627 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-13  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-draft.el (wl-draft-fcc-append-read-folder-hist): New variable.
+	(wl-draft-do-fcc): Append fcc'ed folder to wl-read-folder-hist.
+
 2003-09-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-mime.el (wl-draft-preview-message): Use `format' to print value.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 8c5a236..aaf595d 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1535,6 +1535,11 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 			 (progn (forward-line 1) (point)))))
       fcc-list)))
 
+(defcustom wl-draft-fcc-append-read-folder-hist t
+  "Non-nil to append fcc'ed folder to `wl-read-folder-hist'."
+  :type 'boolean
+  :group 'wl-draft)
+
 (defun wl-draft-do-fcc (header-end &optional fcc-list)
   (let ((send-mail-buffer (current-buffer))
 	(tembuf (generate-new-buffer " fcc output"))
@@ -1567,6 +1572,10 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	       (and wl-fcc-force-as-read 'read))
 	      (wl-draft-write-sendlog 'ok 'fcc nil (car fcc-list) id)
 	    (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)))
 	  (setq fcc-list (cdr fcc-list)))))
     (kill-buffer tembuf)))