From: ueno <ueno>
Date: Wed, 20 Mar 2002 07:57:55 +0000 (+0000)
Subject: Synch up with liece-2_0.
X-Git-Tag: liece-1_4_7~4
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fliece.git;a=commitdiff_plain;h=745fc7f4824e44cd6f764eefa8a676cbe836dd4e

Synch up with liece-2_0.
---

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.