Undo last commit.

[elisp/wanderlust.git] / elmo / elmo-internal.el

diff --git a/elmo/elmo-internal.el b/elmo/elmo-internal.el
index ae489ea..afe65ab 100644 (file)
--- a/elmo/elmo-internal.el
+++ b/elmo/elmo-internal.el
@@ -33,7 +33,7 @@
 ;;; ELMO internal folder
 (luna-define-class elmo-internal-folder (elmo-folder) ())
 
-(defvar elmo-internal-folder-list '(flag cache sendlog))
+(defvar elmo-internal-folder-list '(flag cache sendlog null))
 (defvar elmo-internal-obsolete-folder-list '((mark flag)))
 
 (luna-define-method elmo-folder-initialize ((folder
@@ -64,7 +64,8 @@
          :type sym
          :prefix (elmo-folder-prefix-internal folder)
          :name (elmo-folder-name-internal folder)
-         :persistent (elmo-folder-persistent-internal folder))
+         :persistent (elmo-folder-persistent-internal folder)
+         :mime-charset (elmo-folder-mime-charset-internal folder))
         name)
       folder)))
 
@@ -75,7 +76,7 @@
        (lambda (x)
         (let ((name (concat (elmo-folder-prefix-internal folder)
                             (symbol-name x))))
-          (if (elmo-folder-have-subfolder-p (elmo-make-folder name))
+          (if (elmo-folder-have-subfolder-p (elmo-get-folder name))
               (list name)
             name)))
        elmo-internal-folder-list)
@@ -84,7 +85,7 @@
            (lambda (x)
              (let* ((name (concat (elmo-folder-prefix-internal folder)
                                   (symbol-name x)))
-                    (subfolder (elmo-make-folder name)))
+                    (subfolder (elmo-get-folder name)))
                (if (elmo-folder-have-subfolder-p subfolder)
                    (elmo-folder-list-subfolders subfolder)
                  (list name))))