From 7d048f806e6f0729279b7051e3b4966089284736 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 17 Sep 2003 13:46:17 +0000 Subject: [PATCH] * modb.el (elmo-msgdb-length): Define. * elmo.el (elmo-make-folder): Fixed. (elmo-generic-folder-append-messages): Follow the API change. --- elmo/ChangeLog | 5 +++++ elmo/elmo.el | 4 ++-- elmo/modb.el | 3 +++ 3 files changed, 10 insertions(+), 2 deletions(-) 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 + * 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) -- 1.7.10.4