Synch up with liece-2_0.

[elisp/liece.git] / lisp / gettext.el

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