From: hmurata <hmurata>
Date: Sun, 3 Aug 2003 16:18:11 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-set-message-modified): Use
X-Git-Tag: wl-2_11_6~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2adf79b4181070aedfd549a3df1cb099fb3d427;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-set-message-modified): Use
elmo-folder-set-message-modified instead of
elmo-folder-set-message-modified-internal.

* elmo.el (elmo-folder-set-message-modified): New method.
(elmo-generic-folder-commit): Use it.
(elmo-folder-synchronize): Ditto.

* elmo-pipe.el (elmo-folder-set-message-modified): Define.
(elmo-folder-commit): Remove duplicate definition.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a3d977d..f5b3620 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,12 @@
+2003-08-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo.el (elmo-folder-set-message-modified): New method.
+	(elmo-generic-folder-commit): Use it.
+	(elmo-folder-synchronize): Ditto.
+
+	* elmo-pipe.el (elmo-folder-set-message-modified): Define.
+	(elmo-folder-commit): Remove duplicate definition.
+
 2003-08-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo.el (elmo-folder-list-message-entities): Ignore killed-list.
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 6a4a2db..b387a9f 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -157,6 +157,11 @@
 (luna-define-method elmo-folder-close-internal ((folder elmo-pipe-folder))
   (elmo-folder-close-internal(elmo-pipe-folder-dst-internal folder)))
 
+(luna-define-method elmo-folder-set-message-modified
+  ((folder elmo-pipe-folder) modified)
+  (elmo-folder-set-message-modified-internal
+   (elmo-pipe-folder-dst-internal folder) modified))
+
 (luna-define-method elmo-folder-list-messages ((folder elmo-pipe-folder)
 					       &optional visible-only in-msgdb)
   ;; Use target folder's killed-list in the pipe folder.
@@ -327,10 +332,6 @@
 		      (elmo-pipe-folder-dst-internal new-folder))
     (elmo-msgdb-rename-path folder new-folder)))
 
-(luna-define-method elmo-folder-commit ((folder elmo-pipe-folder))
-  (elmo-folder-commit
-   (elmo-pipe-folder-dst-internal folder)))
-
 (luna-define-method elmo-folder-synchronize ((folder elmo-pipe-folder)
 					     &optional
 					     disable-killed
diff --git a/elmo/elmo.el b/elmo/elmo.el
index a67eda7..2686788 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -156,6 +156,7 @@ If optional argument NON-PERSISTENT is non-nil, the folder msgdb is not saved."
   (or (elmo-folder-msgdb-internal folder)
       (elmo-folder-set-msgdb-internal folder
 				      (elmo-msgdb-load folder))))
+
 (luna-define-generic elmo-folder-open (folder &optional load-msgdb)
   "Open and setup (load saved status) FOLDER.
 If optional LOAD-MSGDB is non-nil, msgdb is loaded.
@@ -204,6 +205,12 @@ Return value is cons cell or list:
 (luna-define-generic elmo-folder-reserve-status-p (folder)
   "If non-nil, the folder should not close folder after `elmo-folder-status'.")
 
+(luna-define-generic elmo-folder-set-message-modified (folder modified)
+  "Set FOLDER as modified.")
+(luna-define-method elmo-folder-set-message-modified ((folder elmo-folder)
+						      modified)
+  (elmo-folder-set-message-modified-internal folder modified))
+
 (luna-define-generic elmo-folder-list-messages (folder &optional visible-only
 						       in-msgdb)
   "Return a list of message numbers contained in FOLDER.
@@ -682,7 +689,7 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
       (elmo-folder-set-info-max-by-numdb
        folder
        (elmo-folder-list-messages folder nil 'in-msgdb))
-      (elmo-folder-set-message-modified-internal folder nil)
+      (elmo-folder-set-message-modified folder nil)
       (elmo-msgdb-killed-list-save
        (elmo-folder-msgdb-path folder)
        (elmo-folder-killed-list-internal folder)))
@@ -1554,7 +1561,7 @@ If update process is interrupted, return nil.")
 	      ;; process crosspost.
 	      ;; Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).
 	      (elmo-folder-process-crosspost folder)
-	      (elmo-folder-set-message-modified-internal folder t)
+	      (elmo-folder-set-message-modified folder t)
 	      (elmo-folder-set-mark-modified-internal folder t))
 	    ;; return value.
 	    (or crossed 0)))
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9cc733d..e55b9d8 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-08-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-set-message-modified): Use
+	elmo-folder-set-message-modified instead of
+	elmo-folder-set-message-modified-internal.
+
 2003-08-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-sync): Call wl-summary-sync-marks
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 80db851..5b71144 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1002,7 +1002,7 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
       "folder mode"))
 
 (defun wl-summary-set-message-modified ()
-  (elmo-folder-set-message-modified-internal
+  (elmo-folder-set-message-modified
    wl-summary-buffer-elmo-folder t)
   (setq wl-summary-buffer-message-modified t)
   (wl-summary-set-mark-modified))