* elmo-archive.el (elmo-archive-folder-append-buffer): Return nil

on failure.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b8387f1..44125e8 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-15  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * elmo-archive.el (elmo-archive-folder-append-buffer): Return nil
+       on failure.
+
 2004-07-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * elmo-util.el (elmo-set-work-buf): Define edebug spec and indent

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index 47beb91..b7e7b44 100644 (file)
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -616,13 +616,13 @@ TYPE specifies the archiver's symbol."
                   (copy-to-buffer dst-buffer (point-min) (point-max)))
                 (as-binary-output-file
                  (write-region (point-min) (point-max) newfile nil 'no-msg))
-                (elmo-archive-call-method method (list arc newfile))
-                (elmo-folder-preserve-flags
-                 folder
-                 (with-current-buffer src-buffer
-                   (elmo-msgdb-get-message-id-from-buffer))
-                 flags)
-                t)
+                (when (elmo-archive-call-method method (list arc newfile))
+                  (elmo-folder-preserve-flags
+                   folder
+                   (with-current-buffer src-buffer
+                     (elmo-msgdb-get-message-id-from-buffer))
+                   flags)
+                  t))
             nil))))))
 
 (luna-define-method elmo-folder-append-messages :around