From: yamaoka <yamaoka>
Date: Wed, 4 Feb 2004 00:43:30 +0000 (+0000)
Subject: Synch to No Gnus 200402040038.
X-Git-Tag: t-gnus-6_17_4-quimby-~1086
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=06413d0d46984f7fb4837d94b88221857c5f121a;hp=5a9837915df99e4ab4a01512626a52f6b1a31f20;p=elisp%2Fgnus.git-

Synch to No Gnus 200402040038.
---

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  <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 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)))