From: okada <okada>
Date: Sun, 15 Oct 2000 15:32:00 +0000 (+0000)
Subject: 	* elmo-nntp.el (elmo-nntp-read-msg): Don't error.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ed0e33642f9bf60932b3425ddc3af120a2628600;p=elisp%2Fwanderlust.git

	* elmo-nntp.el (elmo-nntp-read-msg): Don't error.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e5e0b84..8f0d191 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2000-10-15  Kenichi OKADA  <okada@opaopa.org>
 
+	* elmo-nntp.el (elmo-nntp-read-msg): Don't error.
+
+2000-10-15  Kenichi OKADA  <okada@opaopa.org>
+
 	* elmo-nntp.el (elmo-network-initialize-session):
 	Add starttls negotiation.
 
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 01792c1..afb4721 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -862,7 +862,8 @@ Don't cache if nil.")
       (if (null (elmo-nntp-read-response session t))
 	  (progn
 	    (with-current-buffer outbuf (erase-buffer))
-	    (error "Fetching message failed"))
+	    (message "Fetching message failed")
+	    nil)
 	(prog1 (elmo-nntp-read-body session outbuf)
 	  (with-current-buffer outbuf
 	    (goto-char (point-min))