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