From 870d54c94f8b0b85cfa48473b2b471707de07fd7 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 3 Oct 2001 04:48:35 +0000 Subject: [PATCH] * elmo-dop.el (elmo-dop-flush-pending-append-operations): Check return value of elmo-append-msg. --- elmo/ChangeLog | 5 +++++ elmo/elmo-dop.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * elmo-dop.el (elmo-dop-flush-pending-append-operations): Check + return value of elmo-append-msg. + 2001-09-20 Yuuichi Teranishi * 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)) -- 1.7.10.4