(po-find-charset): White space at the start of the Content-Type field body is

non-mandatory.

diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el
index 6793d4171b4e206178a7848a605e4d753824a163..46e37311ab9634741c871d3b9c18ee134c2e51c8 100644 (file)
--- 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