From 06413d0d46984f7fb4837d94b88221857c5f121a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 4 Feb 2004 00:43:30 +0000 Subject: [PATCH 1/1] Synch to No Gnus 200402040038. --- lisp/ChangeLog | 6 ++++++ lisp/message.el | 5 +---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 04c67f2..d004b71 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-02-04 Jesper Harder + + * message.el (message-fetch-field): Remove redundant + case-fold-search binding. + (message-narrow-to-field): Simplify. + 2004-02-03 Reiner Steib * spam.el (spam-directory): Derive from `gnus-directory'. diff --git a/lisp/message.el b/lisp/message.el index 65c527f..6dba191 100644 --- 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) - (case-fold-search t) (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 - (beginning-of-line) - (point)) + (point-at-bol) (point-max)))) (goto-char (point-min))) -- 1.7.10.4