(elmo-imap4-read-part): Use `elmo-imap4-response-value-all' instead of

`elmo-imap4-response-value'.
(elmo-imap4-parse-response): Return value of `EXPUNGE'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index c0b493d..be666ee 100644 (file)
--- 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  <teranisi@gohome.org>
 

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index b8c7bbc..9353965 100644 (file)
--- 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)))