From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 13 Jul 2003 17:15:12 +0000 (+0000)
Subject: (po-find-charset): White space at the start of the Content-Type field body is
X-Git-Tag: ttn-vms-21-2-B4~9368
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f4dbcd90f07dbcc9e016db49c99301dd33be30c;p=emacs.git

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