From: teranisi <teranisi>
Date: Wed, 3 Oct 2001 04:57:22 +0000 (+0000)
Subject: * elmo-dop.el (elmo-folder-append-buffer-dop-delayed): Check return value of
X-Git-Tag: wl-2_7_5~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7727160ac3fed37e9536785f406a141d08783b6d;p=elisp%2Fwanderlust.git

* elmo-dop.el (elmo-folder-append-buffer-dop-delayed): Check return value of
elmo-folder-append-buffer for lost+found folder.
---

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)