(gnus-fetch-field): Don't bind case-fold-search

here -- it's done in message-fetch-field.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34b4830..1a7acc6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-22  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-util.el (gnus-fetch-field): Don't bind case-fold-search
+       here -- it's done in message-fetch-field.
+
 2004-01-21  Kevin Greiner <kgreiner@xpediantsolutions.com>
 
        * gnus-agent.el (gnus-agent-queue-mail,

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index f7b6528..510b77e 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -188,8 +188,7 @@ is slower."
   "Return the value of the header FIELD of current article."
   (save-excursion
     (save-restriction
-      (let ((case-fold-search t)
-           (inhibit-point-motion-hooks t))
+      (let ((inhibit-point-motion-hooks t))
        (nnheader-narrow-to-headers)
        (message-fetch-field field)))))