* elmo.el (elmo-folder-synchronize): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7c00986..ad00910 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -2,6 +2,7 @@
 
        * elmo.el (elmo-folder-detach-messages): New method.
        (elmo-folder-move-messages): Use it.
+       (elmo-folder-synchronize): Ditto.
 
        * elmo-multi.el (elmo-folder-detach-messages): Define.
 

diff --git a/elmo/elmo.el b/elmo/elmo.el
index 8f9f68a..bb0ea4f 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1506,8 +1506,8 @@ If update process is interrupted, return nil.")
                (elmo-folder-process-crosspost folder)
                0 ; no updates.
                )
-           (if delete-list (elmo-msgdb-delete-msgs
-                            (elmo-folder-msgdb folder) delete-list))
+           (when delete-list
+             (elmo-folder-detach-messages folder delete-list))
            (when new-list
              (elmo-msgdb-change-mark (elmo-folder-msgdb folder)
                                      elmo-msgdb-new-mark