* elmo-localdir.el (elmo-folder-append-buffer): Fix interface.

* elmo-flag.el (elmo-folder-append-buffer): Ditto.
* elmo-maildir.el (elmo-folder-append-buffer): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 457673a..6b84b65 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2004-04-10  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * elmo-localdir.el (elmo-folder-append-buffer): Fix interface.
+       * elmo-flag.el (elmo-folder-append-buffer): Ditto.
+       * elmo-maildir.el (elmo-folder-append-buffer): Ditto.
+
 2004-04-03  Tetsurou Okazaki  <okazaki@be.to>
 
        * elmo-imap4.el (elmo-imap4-fetch-callback-1): Use `elmo-delete-cr-buffer'.

diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index 8dbd111..dfb0466 100644 (file)
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -193,8 +193,7 @@
   numbers)
 
 (luna-define-method elmo-folder-append-buffer ((folder elmo-flag-folder)
-                                              unread
-                                              &optional number)
+                                              &optional flag number)
   (error "Cannot append to the flag folder"))
 
 ;;; Utilities

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 5456bcc..8ba51cb 100644 (file)
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -197,8 +197,7 @@
       (sort flist '<))))
 
 (luna-define-method elmo-folder-append-buffer ((folder elmo-localdir-folder)
-                                              unread
-                                              &optional number)
+                                              &optional flag number)
   (let ((filename (elmo-message-file-name
                   folder
                   (or number

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 7959e4e..74a7405 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -393,7 +393,7 @@ file name for maildir directories."
     filename))
 
 (luna-define-method elmo-folder-append-buffer ((folder elmo-maildir-folder)
-                                              &optional status number)
+                                              &optional flag number)
   (let ((basedir (elmo-maildir-folder-directory-internal folder))
        (src-buf (current-buffer))
        dst-buf filename)