projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b7fb079
)
Synch to No Gnus 200403240529.
author
yamaoka
<yamaoka>
Wed, 24 Mar 2004 05:30:21 +0000
(
05:30
+0000)
committer
yamaoka
<yamaoka>
Wed, 24 Mar 2004 05:30:21 +0000
(
05:30
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/nndoc.el
patch
|
blob
|
history
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.
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
2c008f3
..
6a09175
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)
(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 ()
t))
(defun nndoc-rfc934-type-p ()