From c1e70a9ddc4f3c6a051665cc9d6c0bb27c263bc2 Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 23 Sep 2003 05:23:49 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 14 ++++++++++++++ elmo/elmo-filter.el | 8 -------- elmo/elmo-multi.el | 6 ------ elmo/elmo-pipe.el | 5 ----- elmo/elmo.el | 14 +------------- wl/ChangeLog | 10 ++++++++++ wl/wl-expire.el | 1 - wl/wl-summary.el | 12 +----------- 8 files changed, 26 insertions(+), 44 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 92a4ebf..90968bc 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,17 @@ +2003-09-23 Hiroya Murata + + * 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 * modb-standard.el (modb-standard-make-message-entity, diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el index 923ae8c..c0a0817 100644 --- 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 --- 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 --- 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 --- 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 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,13 @@ +2003-09-23 Hiroya Murata + + * 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 * 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 --- 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 --- 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)))) -- 1.7.10.4