From: hmurata <hmurata>
Date: Wed, 17 Sep 2003 13:46:17 +0000 (+0000)
Subject: * modb.el (elmo-msgdb-length): Define.
X-Git-Tag: wl-2_11_14~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7d048f806e6f0729279b7051e3b4966089284736;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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)