From 9b6356d593b88d46677cec3effbe0bf430feb84d Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 17 Jul 2003 16:12:35 +0000 Subject: [PATCH] * elmo.el (elmo-folder-move-messages): Use elmo-folder-detach-messages. --- elmo/ChangeLog | 1 + elmo/elmo.el | 3 +-- 2 files changed, 2 insertions(+), 2 deletions(-) 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 * 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)) -- 1.7.10.4