* wl-draft.el (wl-draft): Added 14th argument `parent-folder'.

* wl-summary.el (wl-summary-write): Call wl-draft with 14th argument.
(wl-summary-write-current-folder): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 929431a..071a758 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-11-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-draft.el (wl-draft): Added 14th argument `parent-folder'.
+
+       * wl-summary.el (wl-summary-write): Call wl-draft with 14th argument.
+       (wl-summary-write-current-folder): Ditto.
+
 2001-11-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-folder.el (wl-folder-get-newsgroups): Use

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index dec1fc4..ec9cb08 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -73,6 +73,7 @@
 (defvar wl-draft-reedit nil)
 (defvar wl-draft-reply-buffer nil)
 (defvar wl-draft-forward nil)
+(defvar wl-draft-parent-folder nil)
 
 (defvar wl-draft-config-sub-func-alist
   '((body          . wl-draft-config-sub-body)
@@ -95,6 +96,7 @@
 (make-variable-buffer-local 'wl-sent-message-via)
 (make-variable-buffer-local 'wl-draft-fcc-list)
 (make-variable-buffer-local 'wl-draft-reply-buffer)
+(make-variable-buffer-local 'wl-draft-parent-folder)
 
 (defmacro wl-smtp-extension-bind (&rest body)
   (` (let* ((smtp-sasl-mechanisms
@@ -1320,7 +1322,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 (defun wl-draft (&optional to subject in-reply-to cc references newsgroups
                           mail-followup-to
                           content-type content-transfer-encoding
-                          body edit-again summary-buf from)
+                          body edit-again summary-buf from parent-folder)
   "Write and send mail/news message with Wanderlust."
   (interactive)
   (unless (featurep 'wl)
@@ -1366,6 +1368,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
     (setq truncate-partial-width-windows nil)
     (setq truncate-lines wl-draft-truncate-lines)
     (setq wl-sent-message-via nil)
+    (setq wl-draft-parent-folder parent-folder)
     (if (stringp (or from wl-from))
        (insert "From: " (or from wl-from) "\n"))
     (and (or (interactive-p)

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 0ec7284..9351e17 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4896,7 +4896,8 @@ Reply to author if invoked with ARG."
   "Write a new draft from Summary."
   (interactive)
   (wl-draft nil nil nil nil nil
-           nil nil nil nil nil nil (current-buffer))
+           nil nil nil nil nil nil (current-buffer)
+           nil (wl-summary-buffer-folder-name))
   (run-hooks 'wl-mail-setup-hook)
   (mail-position-on-field "To"))
 
@@ -4927,7 +4928,9 @@ Use function list is `wl-summary-write-current-folder-functions'."
        (error "Can't guess by folder %s" folder))
       (wl-draft (nth 0 guess-list) nil nil ; To:
                (nth 1 guess-list) nil  ; Cc:
-               (nth 2 guess-list))     ; Newsgroups:
+               (nth 2 guess-list)      ; Newsgroups:
+               nil nil nil nil nil nil nil
+               folder)
       (run-hooks 'wl-mail-setup-hook)
       (mail-position-on-field "Subject"))))