From: teranisi Date: Sun, 3 Oct 2004 05:16:47 +0000 (+0000) Subject: (elmo-folder-append-buffer): Fix docstring. X-Git-Tag: wl-2_12-root~67 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6f54fd64c548e0c4c259fa5fd30616caae5bc874;p=elisp%2Fwanderlust.git (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 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,9 @@ +2004-10-03 Yuuichi Teranishi + + * 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 * elmo-split.el (elmo-split-rule): Update comment. diff --git a/elmo/elmo.el b/elmo/elmo.el index d9fe670..e000593 100644 --- 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