* 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 (file)
--- 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 (file)
--- 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))