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:
6c2ee91
)
* nnheader.el (std11-field-value): Fix regexp.
author
yamaoka
<yamaoka>
Mon, 18 Feb 2002 06:01:36 +0000
(06:01 +0000)
committer
yamaoka
<yamaoka>
Mon, 18 Feb 2002 06:01:36 +0000
(06:01 +0000)
ChangeLog
patch
|
blob
|
history
lisp/nnheader.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
e35073c
..
7a3f55d
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,7
@@
+2002-02-18 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * lisp/nnheader.el (std11-field-value): Fix regexp.
+
2002-02-01 Katsumi Yamaoka <yamaoka@jpl.org>
Suggested by Kenichi OKADA <okada@opaopa.org>
2002-02-01 Katsumi Yamaoka <yamaoka@jpl.org>
Suggested by Kenichi OKADA <okada@opaopa.org>
diff --git
a/lisp/nnheader.el
b/lisp/nnheader.el
index
afa0959
..
140ab7b
100644
(file)
--- a/
lisp/nnheader.el
+++ b/
lisp/nnheader.el
@@
-1362,7
+1362,7
@@
given, the return value will not contain the last newline."
(unless (eobp)
(while (and (memq (char-after) '(?\t ?\ ))
(zerop (forward-line -1))))
(unless (eobp)
(while (and (memq (char-after) '(?\t ?\ ))
(zerop (forward-line -1))))
- (when (looking-at ".+:[\t\n ]+")
+ (when (looking-at "[^\t\n ]+:[\t\n ]+")
(goto-char (setq start (match-end 0)))
(forward-line 1)
(while (and (memq (char-after) '(?\t ?\ ))
(goto-char (setq start (match-end 0)))
(forward-line 1)
(while (and (memq (char-after) '(?\t ?\ ))