2001-08-30 13:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nndoc.el (nndoc-forward-type-p): It is not a digest.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8d0840..369ad63 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-30 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nndoc.el (nndoc-forward-type-p): It is not a digest.
+
 2001-08-30 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnml.el (nnml-check-directory-twice): Remove.

diff --git a/lisp/nndoc.el b/lisp/nndoc.el
index 66a9298..efea5b9 100644 (file)
--- a/lisp/nndoc.el
+++ b/lisp/nndoc.el
@@ -459,9 +459,7 @@ from the document.")
 (defun nndoc-forward-type-p ()
   (when (and (re-search-forward "^-+ \\(Start of \\)?forwarded message.*\n+"
                                nil t)
-            (not (re-search-forward "^Subject:.*digest" nil t))
-            (not (re-search-backward "^From:" nil t 2))
-            (not (re-search-forward "^From:" nil t 2)))
+            (looking-at "[\r\n]*[a-zA-Z][a-zA-Z0-9-]*:"))
     t))
 
 (defun nndoc-rfc934-type-p ()