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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e5e0b84..8f0d191 100644 (file)
--- 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 (file)
--- 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))