X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo.el;h=09dc51379a071debb7e60c793e0f72dee2275d98;hb=c1e70a9ddc4f3c6a051665cc9d6c0bb27c263bc2;hp=a06abb0b3d37d972b5c4b98977324cbe798b0bf5;hpb=0a4f27eec0a2e5035d6bb853a62dd7631ea8cb2a;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo.el b/elmo/elmo.el
index a06abb0..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))
@@ -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