From d662aac443c70d9b8423b3d1b3900aae315bd88b Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 17 Dec 2001 15:43:36 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-open-folder): Bind `elmo-mime-charset'. --- wl/ChangeLog | 4 ++++ wl/wl-summary.el | 12 +++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 06749f0..8f73849 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-12-18 Yuuichi Teranishi + + * wl-summary.el (wl-summary-open-folder): Bind `elmo-mime-charset'. + 2001-12-17 Hiroya Murata * wl-addrmgr.el (wl-addrmgr-mode): Fixed docstring. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 5c86d0f..6cef744 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -2473,11 +2473,13 @@ If ARG, without confirm." (defsubst wl-summary-open-folder (folder) ;; Select folder - (unwind-protect - (elmo-folder-open folder 'load-msgdb) - ;; For compatibility - (setq wl-summary-buffer-msgdb (elmo-folder-msgdb folder)) - (setq wl-summary-buffer-folder-name (elmo-folder-name-internal folder)))) + (let ((elmo-mime-charset wl-summary-buffer-mime-charset)) + (unwind-protect + (elmo-folder-open folder 'load-msgdb) + ;; For compatibility + (setq wl-summary-buffer-msgdb (elmo-folder-msgdb folder)) + (setq wl-summary-buffer-folder-name (elmo-folder-name-internal + folder))))) (defun wl-summary-goto-folder-subr (&optional name scan-type other-window sticky interactive scoring) -- 1.7.10.4