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.

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index b0f36a5..bb5e6ec 100644 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -4654,6 +4654,12 @@ Non-nil \e$B$J$i%I%i%U%HMQ$K?7$7$$%U%l!<%`$r3+$-$^$9!#\e(B
 \e$BJV?.;~$N%I%i%U%H$N\e(B @samp{Subject:} \e$B$G!"855-;v$N\e(B @samp{Subject:} \e$B$N@hF,$K\e(B
 \e$BIU$12C$($kJ8;zNs$G$9!#\e(B
 
+@item wl-forward-subject-prefix
+@vindex wl-forward-subject-prefix
+\e$B=i4|@_Dj$O\e(B @samp{Forward: }\e$B!#\e(B
+\e$BE>Aw;~$N%I%i%U%H$N\e(B @samp{Subject:} \e$B$G!"855-;v$N\e(B @samp{Subject:} \e$B$N@hF,$K\e(B
+\e$BIU$12C$($kJ8;zNs$G$9!#\e(B
+
 @item wl-draft-reply-use-address-with-full-name
 @vindex wl-draft-reply-use-address-with-full-name
 \e$B=i4|@_Dj$O\e(B @code{t}\e$B!#\e(B

diff --git a/doc/wl.texi b/doc/wl.texi
index 065208c..3bd88d2 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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