From: teranisi <teranisi>
Date: Wed, 3 Oct 2001 04:48:35 +0000 (+0000)
Subject: * elmo-dop.el (elmo-dop-flush-pending-append-operations): Check
X-Git-Tag: wl-2_6_1~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=870d54c94f8b0b85cfa48473b2b471707de07fd7;p=elisp%2Fwanderlust.git

* elmo-dop.el (elmo-dop-flush-pending-append-operations): Check
return value of elmo-append-msg.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d3ac5ef..e4608a7 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-dop.el (elmo-dop-flush-pending-append-operations): Check
+	return value of elmo-append-msg.
+
 2001-09-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-util.el (elmo-address-quote-specials): New function;
diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index 4c2f161..b944188 100644
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -419,8 +419,10 @@ even an operation concerns the unplugged folder."
 			    (car appendings))))
 	(when file-string
 	  (condition-case ()
-	      (elmo-append-msg folder file-string (car appendings) nil
-			       (not (member (car appendings) seen-list)))
+	      (setq failure (not 
+			     (elmo-append-msg 
+			      folder file-string (car appendings) nil
+			      (not (member (car appendings) seen-list)))))
 	    (quit  (setq failure t))
 	    (error (setq failure t)))
 	  (setq i (+ 1 i))