From c1a35a6c6bcf219976597e87bbcc1538742bb938 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 19 Apr 2002 05:38:01 +0000 Subject: [PATCH] * wl-draft.el (wl-default-draft-cite): Bind elmo-mime-charset while msgdb access. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) 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 + + * wl-draft.el (wl-default-draft-cite): Bind elmo-mime-charset + while msgdb access. + 2002-04-17 Hiroya Murata * 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 -- 1.7.10.4