* wl-summary.el (wl-summary-set-message-modified): No use

elmo-folder-set-message-modified and wl-summary-set-mark-modified.
(wl-summary-set-mark-modified): Abolish.
(wl-summary-mark-modified-p): Ditto.
(wl-summary-save-view): Follow the change above.

* wl-expire.el (wl-summary-expire): Likewise.

* elmo.el (luna-define-class): Remove slot message-modified and
flag-modified.
(elmo-folder-set-message-modified): Abolish.
(elmo-generic-folder-commit): Follow the change above.
(elmo-folder-synchronize): Ditto.

* elmo-pipe.el (elmo-folder-set-message-modified): Abolish.

* elmo-multi.el (elmo-folder-set-message-modified): Ditto.

* elmo-filter.el (elmo-folder-set-message-modified): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 92a4ebf..90968bc 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,17 @@
+2003-09-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (luna-define-class): Remove slot message-modified and
+       flag-modified.
+       (elmo-folder-set-message-modified): Abolish.
+       (elmo-generic-folder-commit): Follow the change above.
+       (elmo-folder-synchronize): Ditto.
+
+       * elmo-pipe.el (elmo-folder-set-message-modified): Abolish.
+
+       * elmo-multi.el (elmo-folder-set-message-modified): Ditto.
+
+       * elmo-filter.el (elmo-folder-set-message-modified): Ditto.
+
 2003-09-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * modb-standard.el (modb-standard-make-message-entity,

diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
index 923ae8c..c0a0817 100644 (file)
--- a/elmo/elmo-filter.el
+++ b/elmo/elmo-filter.el
@@ -77,14 +77,6 @@
       (elmo-folder-set-msgdb-internal (elmo-filter-folder-target-internal
                                       folder) nil)))
 
-(luna-define-method elmo-folder-set-message-modified ((folder
-                                                      elmo-filter-folder)
-                                                     modified)
-  (if (elmo-filter-folder-require-msgdb-internal folder)
-      (elmo-folder-set-message-modified-internal
-       (elmo-filter-folder-target-internal folder) modified)
-    (elmo-folder-set-message-modified-internal folder modified)))
-
 (luna-define-method elmo-folder-commit :around ((folder elmo-filter-folder))
   ;; Save target msgdb if it is used.
   (if (elmo-filter-folder-require-msgdb-internal folder)

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index a006b84..314bc49 100644 (file)
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -522,12 +522,6 @@
              (elmo-folder-list-flagged child flag in-msgdb)))))
     numbers))
 
-(luna-define-method elmo-folder-set-message-modified ((folder
-                                                      elmo-multi-folder)
-                                                     modified)
-  (dolist (child (elmo-multi-folder-children-internal folder))
-    (elmo-folder-set-message-modified child modified)))
-
 (luna-define-method elmo-folder-commit ((folder elmo-multi-folder))
   (dolist (child (elmo-multi-folder-children-internal folder))
     (elmo-folder-commit child)))

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 4e84663..d363143 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -158,11 +158,6 @@
 (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.

diff --git a/elmo/elmo.el b/elmo/elmo.el
index 9c30dcf..09dc513 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -106,8 +106,6 @@ If a folder name begins with PREFIX, use BACKEND."
                                     msgdb  ; msgdb (may be nil).
                                     killed-list  ; killed list.
                                     persistent   ; non-nil if persistent.
-                                    message-modified ; message is modified.
-                                    flag-modified    ; flag is modified.
                                     process-duplicates  ; read or hide
                                     biff   ; folder for biff
                                     ))
@@ -205,12 +203,6 @@ 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.
@@ -672,8 +664,6 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-FLAG-ALIST).")
        (elmo-msgdb-killed-list-save
         (elmo-folder-msgdb-path folder)
         (elmo-folder-killed-list-internal folder)))
-      (elmo-folder-set-message-modified folder nil)
-      (elmo-folder-set-flag-modified-internal folder nil)
       (elmo-msgdb-save msgdb))))
 
 (luna-define-method elmo-folder-close-internal ((folder elmo-folder))
@@ -1564,9 +1554,7 @@ If update process is interrupted, return nil.")
              (setq crossed (elmo-folder-append-msgdb folder new-msgdb))
              ;; process crosspost.
              ;; Return a cons cell of (NUMBER-CROSSPOSTS . NEW-FLAG-ALIST).
-             (elmo-folder-process-crosspost folder)
-             (elmo-folder-set-message-modified folder t)
-             (elmo-folder-set-flag-modified-internal folder t))
+             (elmo-folder-process-crosspost folder))
            ;; return value.
            (or crossed 0)))
       (quit

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f081d62..ba84440 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,13 @@
+2003-09-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-summary.el (wl-summary-set-message-modified): No use
+       elmo-folder-set-message-modified and wl-summary-set-mark-modified.
+       (wl-summary-set-mark-modified): Abolish.
+       (wl-summary-mark-modified-p): Ditto.
+       (wl-summary-save-view): Follow the change above.
+
+       * wl-expire.el (wl-summary-expire): Likewise.
+
 2003-09-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-detect-mark-position): Use

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index a452149..bf32cf1 100644 (file)
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -691,7 +691,6 @@ ex. +ml/wl/1999_11/, +ml/wl/1999_12/."
              (wl-summary-delete-messages-on-buffer delete-list deleting-info)
              (wl-summary-folder-info-update)
              (wl-summary-set-message-modified)
-             (wl-summary-set-mark-modified)
              (sit-for 0)
              (set-buffer-modified-p nil))
            (wl-expired-alist-save))

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 0d31c7d..7ce4f39 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1007,18 +1007,9 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
       "folder mode"))
 
 (defun wl-summary-set-message-modified ()
-  (elmo-folder-set-message-modified
-   wl-summary-buffer-elmo-folder t)
-  (setq wl-summary-buffer-message-modified t)
-  (wl-summary-set-mark-modified))
+  (setq wl-summary-buffer-message-modified t))
 (defun wl-summary-message-modified-p ()
   wl-summary-buffer-message-modified)
-(defun wl-summary-set-mark-modified ()
-  (elmo-folder-set-flag-modified-internal
-   wl-summary-buffer-elmo-folder t))
-(defun wl-summary-mark-modified-p ()
-  (elmo-folder-flag-modified-internal
-   wl-summary-buffer-elmo-folder))
 (defun wl-summary-set-thread-modified ()
   (setq wl-summary-buffer-thread-modified t))
 (defun wl-summary-thread-modified-p ()
@@ -1045,7 +1036,6 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
     ;; save the current summary buffer view.
     (if (and wl-summary-cache-use
             (or (wl-summary-message-modified-p)
-                (wl-summary-mark-modified-p)
                 (wl-summary-thread-modified-p)))
        (wl-summary-save-view-cache))))