From 31b884acff15edfe14d9449ca7b49b8c4fb75566 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 20 Mar 2002 07:55:58 +0000 Subject: [PATCH] * gettext.el (gettext-parse-Content-Type): Bind `case-fold-search' to t to extract Content-Type: field properly. --- lisp/gettext.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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. -- 1.7.10.4