* 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 (file)
--- 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 (file)
--- 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)))