From f622d78a13809911fb3c57d38351b73a5df3a44f Mon Sep 17 00:00:00 2001
From: teranisi <teranisi>
Date: Wed, 3 Oct 2001 04:19:03 +0000
Subject: [PATCH] * elmo-imap4.el (elmo-imap4-append-msg): Return nil if NO
 response.

---
 elmo/ChangeLog     |    4 ++++
 elmo/elmo-imap4.el |   21 +++++++++++----------
 2 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d3ac5ef..65c4e06 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-append-msg): Return nil if NO response.
+
 2001-09-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-util.el (elmo-address-quote-specials): New function;
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)
-- 
1.7.10.4