diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-07-13 17:15:12 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-07-13 17:15:12 +0000 |
| commit | 1f4dbcd90f07dbcc9e016db49c99301dd33be30c (patch) | |
| tree | a89b8e657a7c60d231d194fefe1c220cc647b643 | |
| parent | 485fe977a0675ce3fad9b14ce187341d40d684f8 (diff) | |
| download | emacs-1f4dbcd90f07dbcc9e016db49c99301dd33be30c.tar.gz emacs-1f4dbcd90f07dbcc9e016db49c99301dd33be30c.tar.bz2 emacs-1f4dbcd90f07dbcc9e016db49c99301dd33be30c.zip | |
(po-find-charset): White space at the start of the Content-Type field body is
non-mandatory.
| -rw-r--r-- | lisp/textmodes/po.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |