From: teranisi <teranisi>
Date: Mon, 17 Dec 2001 15:49:41 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-open-folder): Bind `elmo-mime-charset'.
X-Git-Tag: wl-2_8_0pre2~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=85887079d1f75eb56c7c0587ee20788db220cba4;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5badfbb..104e570 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-17  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
--- 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)