From: teranisi Date: Thu, 17 Jul 2003 16:14:30 +0000 (+0000) Subject: * elmo.el (elmo-folder-synchronize): Ditto. X-Git-Tag: elmo-mark-restart~32 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3be76d9771f75b84cb02aa0523a57afee1507b6d;p=elisp%2Fwanderlust.git * elmo.el (elmo-folder-synchronize): Ditto. --- 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