From 31f7fab802a2a0a2277034d28c981472e6e16335 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 3 Oct 2000 01:16:59 +0000 Subject: [PATCH] 2000-10-03 Yuuichi Teranishi * wl-draft.el (wl-draft-forward): Get references field from original buffer. 2000-10-02 A. SAGATA * wl-draft.el (wl-draft-forward): Add references field. --- wl/ChangeLog | 9 +++++++++ wl/wl-draft.el | 15 +++++++++++++-- 2 files changed, 22 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index bf28455..9f3da2c 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,14 @@ 2000-10-03 Yuuichi Teranishi + * wl-draft.el (wl-draft-forward): Get references field from + original buffer. + +2000-10-02 A. SAGATA + + * wl-draft.el (wl-draft-forward): Add references field. + +2000-10-03 Yuuichi Teranishi + * 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 --- 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")) -- 1.7.10.4