From: teranisi <teranisi>
Date: Wed, 3 Oct 2001 03:54:43 +0000 (+0000)
Subject: * elmo.el (elmo-generic-folder-append-messages): Check return value of
X-Git-Tag: wl-2_7_5~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=326b52af9c83997f55f60853ffbe7e70fcaf8157;p=elisp%2Fwanderlust.git

* elmo.el (elmo-generic-folder-append-messages): Check return value of
elmo-folder-append-buffer.

* elmo-localdir.el (elmo-folder-append-buffer): Ditto.

* elmo-imap4.el (elmo-folder-append-buffer): Ditto.

* elmo-archive.el (elmo-archive-folder-append-buffer): Return t
if append buffer content succeds.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 451fc17..e58139b 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,15 @@
+2001-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo.el (elmo-generic-folder-append-messages): Check return value of
+	elmo-folder-append-buffer.
+
+	* elmo-localdir.el (elmo-folder-append-buffer): Ditto.
+
+	* elmo-imap4.el (elmo-folder-append-buffer): Ditto.
+
+	* elmo-archive.el (elmo-archive-folder-append-buffer): Return t
+	if append buffer content succeds.
+
 2001-10-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-pop3.el (elmo-message-fetch-plugged): Fixed label for
diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index cd62a39..eb3e895 100644
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -586,7 +586,8 @@ 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-archive-call-method method (list arc newfile))
+		 t)
 	     nil))))))
 
 (luna-define-method elmo-folder-append-messages :around
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index c8337c9..72c0427 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2389,7 +2389,8 @@ If optional argument REMOVE is non-nil, remove FLAG."
 		    (if unread " " " (\\Seen) ")
 		    (elmo-imap4-buffer-literal send-buffer))))
 	  (kill-buffer send-buffer))
-	result)
+	(and result
+	     (elmo-imap4-response-ok-p result)))
     ;; Unplugged
     (if elmo-enable-disconnected-operation
 	(elmo-folder-append-buffer-dop folder unread number)
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 1b351aa..7769c2b 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -220,12 +220,13 @@
 		   folder
 		   (or number
 		       (1+ (car (elmo-folder-status folder)))))))
-    (if (file-writable-p filename)
-	(write-region-as-binary
-	 (point-min) (point-max) filename nil 'no-msg))
-    t))
+    (when (file-writable-p filename)
+      (write-region-as-binary
+       (point-min) (point-max) filename nil 'no-msg)
+      t)))
 
-(luna-define-method elmo-folder-append-messages :around ((folder elmo-localdir-folder)
+(luna-define-method elmo-folder-append-messages :around ((folder
+							  elmo-localdir-folder)
 							 src-folder numbers
 							 unread-marks
 							 &optional same-number)
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 120640f..2524b08 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -874,12 +874,13 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
 	       nil (current-buffer)
 	       'unread)
 	      (unless (eq (buffer-size) 0)
-		(elmo-folder-append-buffer
-		 folder
-		 (setq unseen (member (elmo-message-mark
-				       src-folder (car numbers))
-				      unread-marks))
-		 (if same-number (car numbers)))))
+		(setq failure (not
+			       (elmo-folder-append-buffer
+				folder
+				(setq unseen (member (elmo-message-mark
+						      src-folder (car numbers))
+						     unread-marks))
+				(if same-number (car numbers)))))))
 	  (error (setq failure t)))
 	;; FETCH & APPEND finished
 	(unless failure