Undo last change.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 65c4e06..d3ac5ef 100644 (file)
--- 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 (file)
--- 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))