(elmo-msgdb-delete-messages): Always return t.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a86990d..9dcf94e 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2003-11-21  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * modb-standard.el (elmo-msgdb-delete-messages): Always return t.
+
 2003-11-20  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * modb-standard.el (elmo-msgdb-delete-messages): Dose not process

diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el
index 412bad6..632c132 100644 (file)
--- a/elmo/modb-standard.el
+++ b/elmo/modb-standard.el
@@ -465,7 +465,8 @@
        (modb-standard-set-flag-modified msgdb number)))
     (modb-standard-set-number-list-internal msgdb number-list)
     (modb-standard-set-entity-map-internal msgdb entity-map)
-    (modb-standard-set-flag-map-internal msgdb flag-map)))
+    (modb-standard-set-flag-map-internal msgdb flag-map)
+    t))
 
 (luna-define-method elmo-msgdb-sort-entities ((msgdb modb-standard)
                                              predicate &optional app-data)

diff --git a/elmo/modb.el b/elmo/modb.el
index a78f1ee..b42261e 100644 (file)
--- a/elmo/modb.el
+++ b/elmo/modb.el
@@ -125,7 +125,8 @@ Return CONDITION itself if no entity exists in msgdb.")
 Return non-nil if message-id of entity is duplicated.")
 
 (luna-define-generic elmo-msgdb-delete-messages (msgdb numbers)
-  "Delete messages which are contained NUMBERS from MSGDB.")
+  "Delete messages which are contained NUMBERS from MSGDB.
+Return non-nil if messages is deleted successfully.")
 
 (luna-define-generic elmo-msgdb-sort-entities (msgdb predicate
                                                     &optional app-data)