From 7727160ac3fed37e9536785f406a141d08783b6d Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 3 Oct 2001 04:57:22 +0000 Subject: [PATCH] * elmo-dop.el (elmo-folder-append-buffer-dop-delayed): Check return value of elmo-folder-append-buffer for lost+found folder. --- elmo/elmo-dop.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el index 586c165..4b31e93 100644 --- a/elmo/elmo-dop.el +++ b/elmo/elmo-dop.el @@ -247,7 +247,7 @@ FOLDER is the folder structure." ;;; Delayed operation (executed at online status). (defun elmo-folder-append-buffer-dop-delayed (folder unread number set-number) (let ((spool-folder (elmo-dop-spool-folder folder)) - failure) + failure saved) (with-temp-buffer (elmo-message-fetch spool-folder number (elmo-make-fetch-strategy 'entire) @@ -258,9 +258,12 @@ FOLDER is the folder structure." (error (setq failure t))) (when failure ;; Append failed... - (elmo-folder-append-buffer (elmo-make-folder elmo-lost+found-folder) - unread set-number)) - (elmo-folder-delete-messages spool-folder (list number)) + (setq saved (elmo-folder-append-buffer + (elmo-make-folder elmo-lost+found-folder) + unread set-number))) + (if (or (not failure) + saved) + (elmo-folder-delete-messages spool-folder (list number))) t))) (defun elmo-folder-delete-messages-dop-delayed (folder number-alist) -- 1.7.10.4