# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1058116512 0
# Node ID 9b78d0da1a286a176269f334ed6ec18799f9368b
# Parent  5b772e335afe94cbc911d42da0b179fcaea7ec26
(po-find-charset): White space at the start of the Content-Type field body is
non-mandatory.

diff -r 5b772e335afe -r 9b78d0da1a28 lisp/textmodes/po.el
--- a/lisp/textmodes/po.el	Sun Jul 13 00:20:39 2003 +0000
+++ b/lisp/textmodes/po.el	Sun Jul 13 17:15:12 2003 +0000
@@ -42,7 +42,7 @@
 (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