X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-imap4.el;fp=elmo%2Felmo-imap4.el;h=0bf13145355b30be900a231571729fc9226ef184;hb=f622d78a13809911fb3c57d38351b73a5df3a44f;hp=707a26387e5829db960b5812016caec0ca22407a;hpb=4b570b8742bd440d884b0104bdc1e8b490188008;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 707a263..0bf1314 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1474,20 +1474,21 @@ If optional argument UNMARK is non-nil, unmark."
 
 (defun elmo-imap4-append-msg (spec string &optional msg no-see)
   (let ((session (elmo-imap4-get-session spec))
-	send-buf)
+	send-buf result)
     (elmo-imap4-session-select-mailbox session
 				       (elmo-imap4-spec-mailbox spec))
     (setq send-buf (elmo-imap4-setup-send-buffer string))
     (unwind-protect
-	(elmo-imap4-send-command-wait
-	 session
-	 (list
-	  "append "
-	  (elmo-imap4-mailbox (elmo-imap4-spec-mailbox spec))
-	  (if no-see " " " (\\Seen) ")
-	  (elmo-imap4-buffer-literal send-buf)))
-      (kill-buffer send-buf)))
-  t)
+	(setq result (elmo-imap4-response-ok-p
+		      (elmo-imap4-send-command-wait
+		       session
+		       (list
+			"append "
+			(elmo-imap4-mailbox (elmo-imap4-spec-mailbox spec))
+			(if no-see " " " (\\Seen) ")
+			(elmo-imap4-buffer-literal send-buf)))))
+      (kill-buffer send-buf))
+    result))
 
 (defun elmo-imap4-copy-msgs (dst-spec
 			     msgs src-spec &optional expunge-it same-number)