(nndoc-forward-type-p): Recognize envelope From_.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 61ec3e5..b5a76d5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-03-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nndoc.el (nndoc-forward-type-p): Recognize envelope From_.
+
 2004-03-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-mime-recompute-hierarchical-structure): Remove.

diff --git a/lisp/nndoc.el b/lisp/nndoc.el
index 169ea63..a76065d 100644 (file)
--- a/lisp/nndoc.el
+++ b/lisp/nndoc.el
@@ -469,7 +469,7 @@ from the document.")
 (defun nndoc-forward-type-p ()
   (when (and (re-search-forward "^-+ \\(Start of \\)?forwarded message.*\n+"
                                nil t)
-            (looking-at "[\r\n]*[a-zA-Z][a-zA-Z0-9-]*:"))
+            (looking-at "[\r\n]*[a-zA-Z][a-zA-Z0-9-]*:\\|^>?From "))
     t))
 
 (defun nndoc-rfc934-type-p ()