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

[elisp/wanderlust.git] / elmo / elmo.el

diff --git a/elmo/elmo.el b/elmo/elmo.el
index a06abb0..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))
@@ -1121,7 +1111,7 @@ If CACHED is t, message is set as cached.")
     (elmo-msgdb-unset-flag (elmo-folder-msgdb folder) number 'cached)))
 
 (defun elmo-message-copy-entity (entity)
-  (elmo-msgdb-copy-message-entity (elmo-message-entity-db entity)
+  (elmo-msgdb-copy-message-entity (elmo-message-entity-handler entity)
                                  entity))
 
 (luna-define-generic elmo-message-entity (folder key)
@@ -1159,11 +1149,11 @@ ENTITY is the message-entity to get the parent.")
      ,@form))
 
 (defmacro elmo-message-entity-number (entity)
-  `(elmo-msgdb-message-entity-number (elmo-message-entity-db ,entity)
+  `(elmo-msgdb-message-entity-number (elmo-message-entity-handler ,entity)
                                     ,entity))
 
 (defmacro elmo-message-entity-set-number (entity number)
-  `(elmo-msgdb-message-entity-set-number (elmo-message-entity-db ,entity)
+  `(elmo-msgdb-message-entity-set-number (elmo-message-entity-handler ,entity)
                                         ,entity
                                         ,number))
 
@@ -1173,7 +1163,7 @@ ENTITY is the message entity structure obtained by `elmo-message-entity'.
 FIELD is the symbol of the field name.
 if optional DECODE is non-nil, returned value is decoded."
   (elmo-msgdb-message-entity-field
-   (elmo-message-entity-db entity)
+   (elmo-message-entity-handler entity)
    entity field decode))
 
 (defun elmo-message-entity-set-field (entity field value)
@@ -1182,7 +1172,7 @@ ENTITY is the message entity structure.
 FIELD is the symbol of the field name.
 VALUE is the field value (raw)."
   (elmo-msgdb-message-entity-set-field
-   (elmo-message-entity-db entity)
+   (elmo-message-entity-handler entity)
    entity field value))
 
 (luna-define-generic elmo-folder-count-flags (folder)
@@ -1279,9 +1269,7 @@ FIELD is a symbol of the field.")
 (luna-define-method elmo-message-field ((folder elmo-folder) number field)
   (when (zerop (elmo-folder-length folder))
     (error "Cannot treat this folder correctly."))
-  (elmo-msgdb-message-entity-field (elmo-folder-msgdb folder)
-                                  (elmo-message-entity folder number)
-                                  field))
+  (elmo-message-entity-field (elmo-message-entity folder number) field))
 
 (luna-define-method elmo-message-use-cache-p ((folder elmo-folder) number)
   nil) ; default is not use cache.
@@ -1566,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