From: ueno <ueno>
Date: Wed, 20 Mar 2002 07:55:58 +0000 (+0000)
Subject: * gettext.el (gettext-parse-Content-Type): Bind `case-fold-search'
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=31b884acff15edfe14d9449ca7b49b8c4fb75566;p=elisp%2Fliece.git

* gettext.el (gettext-parse-Content-Type): Bind `case-fold-search'
to t to extract Content-Type: field properly.
---

diff --git a/lisp/gettext.el b/lisp/gettext.el
index eae1a8b..5616eb5 100644
--- a/lisp/gettext.el
+++ b/lisp/gettext.el
@@ -122,12 +122,13 @@
     (if (require 'mime-parse nil 'noerror)
 	(mime-content-type-parameter (mime-read-Content-Type) "charset")
       (goto-char (point-min))
-      (if (re-search-forward
-	   "^\"Content-Type: *text/plain;[ \t]*charset=\\([^\\]+\\)"
-	   nil t)
-	  (find-mime-charset-by-charsets
-	   (list (buffer-substring (match-beginning 1) (match-end 1))))
-	gettext-default-mime-charset))))
+      (let ((case-fold-search t))
+	(if (re-search-forward
+	     "^\"Content-Type: *text/plain;[ \t]*charset=\\([^\\]+\\)"
+	     nil t)
+	    (find-mime-charset-by-charsets
+	     (list (buffer-substring (match-beginning 1) (match-end 1))))
+	  gettext-default-mime-charset)))))
 
 (defun gettext-mapcar* (function &rest args)
   "Apply FUNCTION to successive cars of all ARGS.