* wl-draft.el (wl-default-draft-cite-decorate-author): New variable.

(wl-default-draft-cite): Do not arrange author name if the value of
`wl-default-draft-cite-decorate-author' is nil.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5ea5a13..eb536a0 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-21  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-draft.el (wl-default-draft-cite-decorate-author): New variable.
+       (wl-default-draft-cite): Do not arrange author name if the value of
+       `wl-default-draft-cite-decorate-author' is nil.
+
 2002-01-21  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-mime.el (wl-mime-save-content): Use `message' instead of `error'.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index ffb9cc6..44912f5 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -54,6 +54,7 @@
 
 (defvar wl-draft-buf-name "Draft")
 (defvar wl-draft-cite-function 'wl-default-draft-cite)
+(defvar wl-default-draft-cite-decorate-author t)
 (defvar wl-draft-buffer-file-name nil)
 (defvar wl-draft-field-completion-list nil)
 (defvar wl-draft-verbose-send t)
@@ -644,8 +645,10 @@ Reply to author if WITH-ARG is non-nil."
            (setq from (elmo-msgdb-overview-entity-get-from entity)))
          (setq cite-title (format "At %s,\n%s wrote:"
                                   (or date "some time ago")
-                                  (wl-summary-from-func-internal
-                                   (or from "you"))))))
+                                  (if wl-default-draft-cite-decorate-author
+                                    (wl-summary-from-func-internal
+                                     (or from "you"))
+                                    (or from "you"))))))
     (and cite-title
         (insert cite-title "\n"))
     (mail-indent-citation)))