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  <address@hidden>

        * 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    :      address@hidden
Karl Eichwalder                              home    : address@hidden