From e8f6cc2436c2228767296baf753025cd39482f86 Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Sat, 10 Apr 2004 06:19:01 +0000
Subject: [PATCH] * 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.

---
 elmo/ChangeLog        |    6 ++++++
 elmo/elmo-flag.el     |    3 +--
 elmo/elmo-localdir.el |    3 +--
 elmo/elmo-maildir.el  |    2 +-
 4 files changed, 9 insertions(+), 5 deletions(-)

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