2000-11-04 09:53:42 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nntp.el (nntp-decode-text): Delete bogus status lines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47729b5..14b4056 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-04 09:53:42  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nntp.el (nntp-decode-text): Delete bogus status lines.
+
 2000-11-03  Stefan Monnier  <monnier@cs.yale.edu>
 
        * message.el (message-font-lock-keywords): Match a final newline

diff --git a/lisp/nntp.el b/lisp/nntp.el
index 6044c93..9b1bde5 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1082,7 +1082,9 @@ password contained in '~/.nntp-authinfo'."
       (delete-char 2))
     ;; Delete status line.
     (goto-char (point-min))
-    (delete-region (point) (progn (forward-line 1) (point)))
+    (while (looking-at "[1-5][0-9][0-9] .*\n")
+      ;; For some unknown reason, there are more than one status lines.
+      (delete-region (point) (progn (forward-line 1) (point))))
     ;; Remove "." -> ".." encoding.
     (while (search-forward "\n.." nil t)
       (delete-char -1))))