- (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)))))