X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgettext.el;h=00514373514d9545152c90333f1d04fab473bff4;hb=745fc7f4824e44cd6f764eefa8a676cbe836dd4e;hp=063c4cd661ea61483bc458790efd52f34f7b5083;hpb=2b3e524f9874d0c7ff8de24a696d52471cb7e3bd;p=elisp%2Fliece.git

diff --git a/lisp/gettext.el b/lisp/gettext.el
index 063c4cd..0051437 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.