From d2ec778768196121e4fb7c99d1e21440d477d383 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 3 Oct 2001 04:37:22 +0000 Subject: [PATCH] Undo last change. --- elmo/ChangeLog | 4 ---- elmo/elmo-imap4.el | 15 +++++++-------- 2 files changed, 7 insertions(+), 12 deletions(-) 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 - - * elmo-imap4.el (elmo-imap4-append-msg): Return nil if NO response. - 2001-09-20 Yuuichi Teranishi * 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)) -- 1.7.10.4