From: teranisi <teranisi>
Date: Thu, 17 Jul 2003 16:12:35 +0000 (+0000)
Subject: * elmo.el (elmo-folder-move-messages): Use elmo-folder-detach-messages.
X-Git-Tag: elmo-mark-restart~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9b6356d593b88d46677cec3effbe0bf430feb84d;p=elisp%2Fwanderlust.git

* elmo.el (elmo-folder-move-messages): Use elmo-folder-detach-messages.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7488ee5..7c00986 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,6 +1,7 @@
 2003-07-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo.el (elmo-folder-detach-messages): New method.
+	(elmo-folder-move-messages): Use it.
 
 	* elmo-multi.el (elmo-folder-detach-messages): Define.
 
diff --git a/elmo/elmo.el b/elmo/elmo.el
index bcda883..8f9f68a 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1094,8 +1094,7 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
       (if (and (not no-delete) succeeds)
 	  (progn
 	    (if (and (elmo-folder-delete-messages src-folder succeeds)
-		     (elmo-msgdb-delete-msgs
-		      (elmo-folder-msgdb src-folder) succeeds))
+		     (elmo-folder-detach-messages src-folder succeeds))
 		(setq result t)
 	      (message "move: delete messages from %s failed."
 		       (elmo-folder-name-internal src-folder))