From: teranisi <teranisi>
Date: Wed, 3 Oct 2001 04:19:03 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-append-msg): Return nil if NO response.
X-Git-Tag: wl-2_6_1~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f622d78a13809911fb3c57d38351b73a5df3a44f;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-append-msg): Return nil if NO response.
---

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)