(elmo-folder-append-buffer): Fix docstring.

(elmo-generic-folder-append-messages): If elmo-message-flags return nil,
pass (read) for the FLAG argument of elmo-folder-append-buffer.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3e767ca..cf709ee 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2004-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo.el (elmo-folder-append-buffer): Fix docstring.
+       (elmo-generic-folder-append-messages): If elmo-message-flags return nil,
+       pass (read) for the FLAG argument of elmo-folder-append-buffer.
+       
 2004-10-02  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * elmo-split.el (elmo-split-rule): Update comment.

diff --git a/elmo/elmo.el b/elmo/elmo.el
index d9fe670..e000593 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -382,7 +382,8 @@ FOLDER is the ELMO folder structure.")
   "Append current buffer as a new message.
 FOLDER is the destination folder (ELMO folder structure).
 FLAGS is the flag list for the appended message (list of symbols).
-If it is nil, it is not that there is no flag and what is not defined is meant.
+If FLAGS contain `read', the message is appended as `not-unread'.
+If it is nil, the appended message will be treated as `new'.
 If optional argument NUMBER is specified, the new message number is set
 \(if possible\).
 Return nil on failure.")
@@ -1057,10 +1058,11 @@ If optional argument IF-EXISTS is nil, load on demand.
                    (> (buffer-size) 0)
                    (elmo-folder-append-buffer
                     folder
-                    (elmo-message-flags
-                     src-folder
-                     (car numbers)
-                     (elmo-msgdb-get-message-id-from-buffer))
+                    (or (elmo-message-flags
+                         src-folder
+                         (car numbers)
+                         (elmo-msgdb-get-message-id-from-buffer))
+                        '(read))
                     (if same-number (car numbers))))))
          (error (setq failure t)))
        ;; FETCH & APPEND finished