From 757cfe6ab1140e732308caf37d14db88829c916d Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Mon, 1 Jul 2002 15:28:47 +0000
Subject: [PATCH] 2002-07-01  Akihiro MOTOKI  <amotoki@dd.iij4u.or.jp>

	* wl-vars.el (wl-forward-subject-prefix): New variable.
	* wl-draft.el (wl-draft-forward): Use it.
---
 doc/wl-ja.texi |    6 ++++++
 doc/wl.texi    |    6 ++++++
 wl/ChangeLog   |    5 +++++
 wl/wl-draft.el |    2 +-
 wl/wl-vars.el  |    6 ++++++
 5 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index b0f36a5..bb5e6ec 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -4654,6 +4654,12 @@ Non-nil ならドラフト用に新しいフレームを開きます。
 返信時のドラフトの @samp{Subject:} で、元記事の @samp{Subject:} の先頭に
 付け加える文字列です。
 
+@item wl-forward-subject-prefix
+@vindex wl-forward-subject-prefix
+初期設定は @samp{Forward: }。
+転送時のドラフトの @samp{Subject:} で、元記事の @samp{Subject:} の先頭に
+付け加える文字列です。
+
 @item wl-draft-reply-use-address-with-full-name
 @vindex wl-draft-reply-use-address-with-full-name
 初期設定は @code{t}。
diff --git a/doc/wl.texi b/doc/wl.texi
index 065208c..3bd88d2 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -4713,6 +4713,12 @@ The initial setting is @samp{Re: }.
 In the @samp{Subject:} of the reply draft, this string is prepended to
 the @samp{Subject:} of being replied.
 
+@item wl-forward-subject-prefix
+@vindex wl-forward-subject-prefix
+The initial setting is @samp{Forward: }.
+In the @samp{Subject:} of the forwarding draft, this string is prepended
+to the @samp{Subject:} of being forwarded.
+
 @item wl-draft-reply-use-address-with-full-name
 @vindex wl-draft-reply-use-address-with-full-name
 The initial setting is @code{t}.
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 23d654f..77e4950 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-01  Akihiro MOTOKI  <amotoki@dd.iij4u.or.jp>
+
+	* wl-vars.el (wl-forward-subject-prefix): New variable.
+	* wl-draft.el (wl-draft-forward): Use it.
+
 2002-06-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-message.el (wl-message-prev-page): When it is called without
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index d5c9614..3a7b312 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -271,7 +271,7 @@
 			 (mapconcat 'identity references "\n\t"))))
     (wl-draft (list (cons 'To "")
 		    (cons 'Subject
-			  (concat "Forward: " original-subject))
+			  (concat wl-forward-subject-prefix original-subject))
 		    (cons 'References references))
 	      nil nil nil nil parent-folder))
   (goto-char (point-max))
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index a78b667..028f7bc 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1482,6 +1482,12 @@ Each elements are regexp of field-name."
   :group 'wl-draft
   :group 'wl-pref)
 
+(defcustom wl-forward-subject-prefix "Forward: "
+  "*Prefix of the subject of the forwarded message."
+  :type 'string
+  :group 'wl-draft
+  :group 'wl-pref)
+
 (defcustom wl-draft-reply-use-address-with-full-name t
   "*Use address with full-name in the draft of replied message."
   :type 'boolean
-- 
1.7.10.4