From: yoichi Date: Sat, 10 Apr 2004 17:50:30 +0000 (+0000) Subject: (elmo-folder-append-buffer): change name of argument flag -> flags X-Git-Tag: wl-2_11_25~11 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d6f0f1d102813e2bf503ab8f524363dbd501ede4;p=elisp%2Fwanderlust.git (elmo-folder-append-buffer): change name of argument flag -> flags --- diff --git a/elmo/elmo-cache.el b/elmo/elmo-cache.el index c09a95f..7ea9ae7 100644 --- a/elmo/elmo-cache.el +++ b/elmo/elmo-cache.el @@ -113,7 +113,7 @@ new-msgdb)) (luna-define-method elmo-folder-append-buffer ((folder elmo-cache-folder) - &optional flag number) + &optional flags number) ;; dir-name is changed according to msgid. (unless (elmo-cache-folder-dir-name-internal folder) (let ((msgid (std11-field-body "message-id")) diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el index 6eae055..fff92e8 100644 --- a/elmo/elmo-localdir.el +++ b/elmo/elmo-localdir.el @@ -197,7 +197,7 @@ (sort flist '<)))) (luna-define-method elmo-folder-append-buffer ((folder elmo-localdir-folder) - &optional flag number) + &optional flags number) (let ((filename (elmo-message-file-name folder (or number @@ -210,7 +210,7 @@ (table (elmo-flag-table-load path)) (msgid (std11-field-body "message-id"))) (when msgid - (elmo-flag-table-set table msgid flag) + (elmo-flag-table-set table msgid flags) (elmo-flag-table-save path table))) t))) diff --git a/elmo/elmo.el b/elmo/elmo.el index 717a850..0dcfae0 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -372,11 +372,11 @@ If optional IS-LOCAL is non-nil, update only local (not server) status.") "The next message number that will be assigned to a new message. FOLDER is the ELMO folder structure.") -(luna-define-generic elmo-folder-append-buffer (folder &optional flag +(luna-define-generic elmo-folder-append-buffer (folder &optional flags number) "Append current buffer as a new message. FOLDER is the destination folder(ELMO folder structure). -FLAG is the status of appended message. +FLAGS is the status of appended message (list of symbols). If optional argument NUMBER is specified, the new message number is set \(if possible\). Return nil on failure.")