2000-10-03 Yuuichi Teranishi <teranisi@gohome.org>

	* wl-draft.el (wl-draft-forward): Get references field from
	original buffer.

2000-10-02  A. SAGATA  <sagata@nttvdt.hil.ntt.co.jp>

	* wl-draft.el (wl-draft-forward): Add references field.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bf28455..9f3da2c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,14 @@
 2000-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-draft.el (wl-draft-forward): Get references field from
+       original buffer.
+
+2000-10-02  A. SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+       * wl-draft.el (wl-draft-forward): Add references field.
+
+2000-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
        * wl-draft.el (wl-draft-parse-msg-id-list-string): New function.
        (wl-draft-reply): Use it.
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 34ea888..8b8d11b 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -263,8 +263,19 @@ the `wl-smtp-features' variable."
        cc))))
 
 (defun wl-draft-forward (original-subject summary-buf)
-  (wl-draft "" (concat "Forward: " original-subject)
-           nil nil nil nil nil nil nil nil nil summary-buf)
+  (let (references)
+    (with-current-buffer (wl-message-get-original-buffer)
+      (setq references (nconc
+                       (std11-field-bodies '("References" "In-Reply-To"))
+                       (list (std11-field-body "Message-Id"))))
+      (setq references (delq nil references)
+           references (mapconcat 'identity references " ")
+           references (wl-draft-parse-msg-id-list-string references)
+           references (wl-delete-duplicates references)
+           references (if references
+                          (mapconcat 'identity references "\n\t"))))
+    (wl-draft "" (concat "Forward: " original-subject)
+             nil nil references nil nil nil nil nil nil summary-buf))
   (goto-char (point-max))
   (wl-draft-insert-message)
   (mail-position-on-field "To"))