From: teranisi <teranisi>
Date: Fri, 1 Sep 2000 02:03:00 +0000 (+0000)
Subject: (elmo-imap4-read-part): Use `elmo-imap4-response-value-all' instead of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0aa344d46dec4cfaa1b28db449b051475f28ee3b;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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)))