(message-fetch-field): Remove redundant

case-fold-search binding.
(message-narrow-to-field): Simplify.

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'.

diff --git a/lisp/message.el b/lisp/message.el
index 0162a94..7f60480 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1628,7 +1628,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)
@@ -1651,9 +1650,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)))