From 0aa344d46dec4cfaa1b28db449b051475f28ee3b Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 1 Sep 2000 02:03:00 +0000 Subject: [PATCH] (elmo-imap4-read-part): Use `elmo-imap4-response-value-all' instead of `elmo-imap4-response-value'. (elmo-imap4-parse-response): Return value of `EXPUNGE'. --- elmo/ChangeLog | 3 +++ elmo/elmo-imap4.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index c0b493d..be666ee 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -2,6 +2,9 @@ * elmo-imap4.el (elmo-imap4-parse-response): Use string-match for garbage checking. + (elmo-imap4-read-part): Use `elmo-imap4-response-value-all' instead of + `elmo-imap4-response-value'. + (elmo-imap4-parse-response): Return value of `EXPUNGE'. 2000-08-31 Yuuichi Teranishi diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index b8c7bbc..9353965 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -1221,7 +1221,7 @@ If optional argument UNMARK is non-nil, unmark." (elmo-imap4-spec-mailbox spec)) (elmo-delete-cr (elmo-imap4-response-bodydetail-text - (elmo-imap4-response-value + (elmo-imap4-response-value-all (elmo-imap4-send-command-wait session (format (if elmo-imap4-use-uid @@ -1599,7 +1599,7 @@ Return nil if no complete line has arrived." (elmo-imap4-forward)) (EXISTS (list 'exists token)) (RECENT (list 'recent token)) - (EXPUNGE (list 'expunge t)) + (EXPUNGE (list 'expunge token)) (FETCH (elmo-imap4-parse-fetch token)) (t (list 'garbage (buffer-string))))))) (t (if (not (string-match elmo-imap4-seq-prefix (symbol-name token))) -- 1.7.10.4