* elmo-msgdb.el (elmo-msgdb-flist-load): Use elmo-mime-charset.

 (elmo-msgdb-flist-save): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9cd1de2..3763ddf 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-04-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-msgdb.el (elmo-msgdb-flist-load): Use elmo-mime-charset.
+       (elmo-msgdb-flist-save): Ditto.
+
 2001-4-18  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-shimbun.el (elmo-folder-list-subfolders):

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 76e4a78..ede79f5 100644 (file)
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -551,7 +551,7 @@ content of MSGDB is changed."
                     (expand-file-name
                      (elmo-safe-filename fname)
                      (expand-file-name "folder" elmo-msgdb-dir)))))
-    (elmo-object-load flist-file nil t)))
+    (elmo-object-load flist-file elmo-mime-charset t)))
 
 (defun elmo-msgdb-flist-save (fname flist)
   (let ((flist-file (expand-file-name
@@ -559,7 +559,7 @@ content of MSGDB is changed."
                     (expand-file-name
                      (elmo-safe-filename fname)
                      (expand-file-name "folder" elmo-msgdb-dir)))))
-    (elmo-object-save flist-file flist)))
+    (elmo-object-save flist-file flist elmo-mime-charset)))
 
 (defun elmo-crosspost-alist-load ()
   (elmo-object-load (expand-file-name