From 745fc7f4824e44cd6f764eefa8a676cbe836dd4e Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 20 Mar 2002 07:57:55 +0000 Subject: [PATCH] Synch up with liece-2_0. --- lisp/gettext.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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. -- 1.7.10.4