From 77d20918219932a9b0140992543138838aabab66 Mon Sep 17 00:00:00 2001 From: okazaki Date: Sat, 4 Nov 2000 21:06:47 +0000 Subject: [PATCH] * elmo-pipe.el (elmo-pipe-drain): When calling `elmo-list-folder', `elmo-pop3-use-uidl' must be bound to nil. (Pointed out by Hiroya Murata ) --- elmo/elmo-pipe.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el index 6808574..372ba2a 100644 --- a/elmo/elmo-pipe.el +++ b/elmo/elmo-pipe.el @@ -63,18 +63,19 @@ (defvar elmo-pipe-drained-hook nil "A hook called when the pipe is flushed.") (defun elmo-pipe-drain (src dst) - (let ((srclist (elmo-list-folder src)) - (msgdb (elmo-msgdb-load src)) - elmo-nntp-use-cache + "Move all messages of SRC to DST." + (let (elmo-nntp-use-cache elmo-imap4-use-cache elmo-pop3-use-cache ; Inhibit caching while moving messages. elmo-pop3-use-uidl) ; No need to use UIDL (message "Checking %s..." src) - (elmo-move-msgs src srclist dst msgdb) - ;; Don't save msgdb here. - ;; Because summary view of original folder is not updated yet. - ;; (elmo-msgdb-save src msgdb) - (elmo-commit src) + (let ((srclist (elmo-list-folder src)) + (msgdb (elmo-msgdb-load src))) + (elmo-move-msgs src srclist dst msgdb) + ;; Don't save msgdb here. + ;; Because summary view of original folder is not updated yet. + ;; (elmo-msgdb-save src msgdb) + (elmo-commit src)) (run-hooks 'elmo-pipe-drained-hook))) (defun elmo-pipe-list-folder (spec) -- 1.7.10.4