From: teranisi <teranisi>
Date: Fri, 19 Apr 2002 05:38:01 +0000 (+0000)
Subject: * wl-draft.el (wl-default-draft-cite): Bind elmo-mime-charset
X-Git-Tag: elmo-mark-root~200
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1a35a6c6bcf219976597e87bbcc1538742bb938;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-default-draft-cite): Bind elmo-mime-charset
while msgdb access.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 68fd4b3..8f572de 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-default-draft-cite): Bind elmo-mime-charset
+	while msgdb access.
+
 2002-04-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-auto-refile): Don't stop mark process
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a77261f..15b0515 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -659,13 +659,14 @@ Reply to author if WITH-ARG is non-nil."
 	     (buffer-live-p message-buf))
 	(progn
 	  (with-current-buffer summary-buf
-	    (setq num (save-excursion
-			(set-buffer message-buf)
-			wl-message-buffer-cur-number))
-	    (setq entity (elmo-msgdb-overview-get-entity
-			  num (wl-summary-buffer-msgdb)))
-	    (setq date (elmo-msgdb-overview-entity-get-date entity))
-	    (setq from (elmo-msgdb-overview-entity-get-from entity)))
+	    (let ((elmo-mime-charset wl-summary-buffer-mime-charset))
+	      (setq num (save-excursion
+			  (set-buffer message-buf)
+			  wl-message-buffer-cur-number))
+	      (setq entity (elmo-msgdb-overview-get-entity
+			    num (wl-summary-buffer-msgdb)))
+	      (setq date (elmo-msgdb-overview-entity-get-date entity))
+	      (setq from (elmo-msgdb-overview-entity-get-from entity))))
 	  (setq cite-title (format "At %s,\n%s wrote:"
 				   (or date "some time ago")
 				   (if wl-default-draft-cite-decorate-author