textmodes/po.el: allow white space after :

textmodes/po.el: allow white space after :

[Karl Eichwalder]

White space inside the body of the header field must not be mandatory.
Please apply the following patch.

Maybe, we should also allow quotes around the charset value?

2003-06-25  Karl Eichwalder  <ke@suse.de>

	* textmodes/po.el (po-find-charset): White space at the start of
	the Content-Type field body is non-mandatory.

Index: textmodes/po.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/po.el,v
retrieving revision 1.7
diff -c -r1.7 po.el
*** textmodes/po.el	30 Oct 2002 19:47:53 -0000	1.7
--- textmodes/po.el	25 Jun 2003 11:58:51 -0000
***************
*** 42,48 ****
  (defun po-find-charset (filename)
    "Return PO charset value for FILENAME."
    (let ((charset-regexp
! 	 "^\"Content-Type: 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
--- 42,48 ----
  (defun po-find-charset (filename)
    "Return PO charset value for FILENAME."
    (let ((charset-regexp
! 	 "^\"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

-- 
Linux frechet 2.4.20-4GB #1 Tue Apr 8 13:00:26 UTC 2003 i686  GNU/Linux
  2:00pm  up 58 days  5:35,  17 users,  load average: 0.01, 0.07, 0.15
                                             work    :      ke@suse.de
Karl Eichwalder                              home    : keichwa@gmx.net