From 3be76d9771f75b84cb02aa0523a57afee1507b6d Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Thu, 17 Jul 2003 16:14:30 +0000
Subject: [PATCH] * elmo.el (elmo-folder-synchronize): Ditto.

---
 elmo/ChangeLog |    1 +
 elmo/elmo.el   |    4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7c00986..ad00910 100644
--- 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
--- 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
-- 
1.7.10.4