projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5a98379
)
Synch to No Gnus 200402040038.
author
yamaoka
<yamaoka>
Wed, 4 Feb 2004 00:43:30 +0000
(
00:43
+0000)
committer
yamaoka
<yamaoka>
Wed, 4 Feb 2004 00:43:30 +0000
(
00:43
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/message.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
04c67f2
..
d004b71
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,9
@@
+2004-02-04 Jesper Harder <harder@ifa.au.dk>
+
+ * message.el (message-fetch-field): Remove redundant
+ case-fold-search binding.
+ (message-narrow-to-field): Simplify.
+
2004-02-03 Reiner Steib <Reiner.Steib@gmx.de>
* spam.el (spam-directory): Derive from `gnus-directory'.
2004-02-03 Reiner Steib <Reiner.Steib@gmx.de>
* spam.el (spam-directory): Derive from `gnus-directory'.
diff --git
a/lisp/message.el
b/lisp/message.el
index
65c527f
..
6dba191
100644
(file)
--- a/
lisp/message.el
+++ b/
lisp/message.el
@@
-1856,7
+1856,6
@@
is used by default."
The buffer is expected to be narrowed to just the header of the message;
see `message-narrow-to-headers-or-head'."
(let* ((inhibit-point-motion-hooks t)
The buffer is expected to be narrowed to just the header of the message;
see `message-narrow-to-headers-or-head'."
(let* ((inhibit-point-motion-hooks t)
- (case-fold-search t)
(value (mail-fetch-field header nil (not not-all))))
(when value
(while (string-match "\n[\t ]+" value)
(value (mail-fetch-field header nil (not not-all))))
(when value
(while (string-match "\n[\t ]+" value)
@@
-1879,9
+1878,7
@@
see `message-narrow-to-headers-or-head'."
(progn
(forward-line 1)
(if (re-search-forward "^[^ \n\t]" nil t)
(progn
(forward-line 1)
(if (re-search-forward "^[^ \n\t]" nil t)
- (progn
- (beginning-of-line)
- (point))
+ (point-at-bol)
(point-max))))
(goto-char (point-min)))
(point-max))))
(goto-char (point-min)))