From 1f4dbcd90f07dbcc9e016db49c99301dd33be30c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 13 Jul 2003 17:15:12 +0000 Subject: [PATCH] (po-find-charset): White space at the start of the Content-Type field body is non-mandatory. --- lisp/textmodes/po.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el index 6793d4171b4..46e37311ab9 100644 --- a/lisp/textmodes/po.el +++ b/lisp/textmodes/po.el @@ -42,7 +42,7 @@ Contains canonical charset names that don't correspond to coding systems.") (defun po-find-charset (filename) "Return PO charset value for FILENAME." (let ((charset-regexp - "^\"Content-Type: text/plain;[ \t]*charset=\\(.*\\)\\\\n\"") + "^\"Content-Type:[ \t]*text/plain;[ \t]*charset=\\(.*\\)\\\\n\"") (short-read nil)) ;; Try the first 4096 bytes. In case we cannot find the charset value ;; within the first 4096 bytes (the PO file might start with a long -- 2.39.2