From: yoichi <yoichi>
Date: Mon, 21 Jan 2002 15:48:09 +0000 (+0000)
Subject: * wl-draft.el (wl-default-draft-cite-decorate-author): New variable.
X-Git-Tag: wl-2_9_6~24
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b3fb30c9a04bad2660eae5ef7770cdbbf1cef428;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)))