X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-dop.el;h=b9441881db2e1417793541fdb5bf3edc561963bb;hb=3a4e0ede6f7ecdb73d3c636c5a2fef6d64e8b00a;hp=4c2f161abfe66336aaa14eed50e942ba56b98158;hpb=8c045e2a35385172f28a94500b2af4347dd10c8c;p=elisp%2Fwanderlust.git

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))