From: yoichi <yoichi>
Date: Sat, 10 Apr 2004 06:19:01 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-folder-append-buffer): Fix interface.
X-Git-Tag: wl-2_11_25~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e8f6cc2436c2228767296baf753025cd39482f86;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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)