* modb.el (elmo-msgdb-length): Define.

* elmo.el (elmo-make-folder): Fixed.
(elmo-generic-folder-append-messages): Follow the API change.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e4bd3e0..69b772a 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,10 @@
 2003-09-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * modb.el (elmo-msgdb-length): Define.
+
+       * elmo.el (elmo-make-folder): Fixed.
+       (elmo-generic-folder-append-messages): Follow the API change.
+
        * elmo-dop.el (elmo-folder-append-buffer-dop-delayed): Follow the
        API change.
 

diff --git a/elmo/elmo.el b/elmo/elmo.el
index 0a012d2..c9769f6 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -133,7 +133,7 @@ If optional argument NON-PERSISTENT is non-nil, the folder msgdb is not saved."
          (setq prefix (substring name 0 1))
          (setq name (substring name 1)))
       (setq type (intern (car (setq split (split-string name ":")))))
-      (if (> (length split) 2)
+      (if (>= (length split) 2)
          (setq name (substring name (+ 1 (length (car split)))))
        (error "Error in folder name `%s'" original))
       (setq prefix (concat (car split) ":")))
@@ -1038,7 +1038,7 @@ NUMBERS is a list of message numbers, messages are searched from the list."
                    (> (buffer-size) 0)
                    (elmo-folder-append-buffer
                     folder
-                    flags
+                    (or flags '(read))
                     (if same-number (car numbers))))))
          (error (setq failure t)))
        ;; FETCH & APPEND finished

diff --git a/elmo/modb.el b/elmo/modb.el
index b46bdf1..c093895 100644 (file)
--- a/elmo/modb.el
+++ b/elmo/modb.el
@@ -150,6 +150,9 @@ A string is for message-id of the message.")
   (modb-generic-set-message-modified-internal msgdb nil)
   (modb-generic-set-flag-modified-internal msgdb nil))
 
+(luna-define-method elmo-msgdb-length ((msgdb modb-generic))
+  0)
+
 ;; for on demand loading
 (provide 'modb-generic)