From: yoichi <yoichi>
Date: Thu, 15 Jul 2004 13:50:35 +0000 (+0000)
Subject: * elmo-archive.el (elmo-archive-folder-append-buffer): Return nil
X-Git-Tag: wl-2_11_31~64
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8619238b902483ab5daad292fff97bc70d4828f5;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b8387f1..44125e8 100644
--- 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
--- 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