* wl-summary.el (wl-summary-open-folder): Bind `elmo-mime-charset'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 06749f0..8f73849 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-summary.el (wl-summary-open-folder): Bind `elmo-mime-charset'.
+
 2001-12-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-addrmgr.el (wl-addrmgr-mode): Fixed docstring.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5c86d0f..6cef744 100644 (file)
--- 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)