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