From: teranisi <teranisi>
Date: Wed, 3 Oct 2001 04:37:22 +0000 (+0000)
Subject: Undo last change.
X-Git-Tag: wl-2_6_1~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d2ec778768196121e4fb7c99d1e21440d477d383;p=elisp%2Fwanderlust.git

Undo last change.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 65c4e06..d3ac5ef 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,7 +1,3 @@
-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 0bf1314..624da68 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1479,14 +1479,13 @@ If optional argument UNMARK is non-nil, unmark."
 				       (elmo-imap4-spec-mailbox spec))
     (setq send-buf (elmo-imap4-setup-send-buffer string))
     (unwind-protect
-	(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)))))
+	(setq result (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))