diff options
| author | Juanma Barranquero | 2003-07-13 17:15:12 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-07-13 17:15:12 +0000 |
| commit | 1f4dbcd90f07dbcc9e016db49c99301dd33be30c (patch) | |
| tree | a89b8e657a7c60d231d194fefe1c220cc647b643 /lisp | |
| parent | 485fe977a0675ce3fad9b14ce187341d40d684f8 (diff) | |
| download | emacs-1f4dbcd90f07dbcc9e016db49c99301dd33be30c.tar.gz emacs-1f4dbcd90f07dbcc9e016db49c99301dd33be30c.zip | |
(po-find-charset): White space at the start of the Content-Type field body is
non-mandatory.
Diffstat (limited to 'lisp')
| -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.") | |||
| 42 | (defun po-find-charset (filename) | 42 | (defun po-find-charset (filename) |
| 43 | "Return PO charset value for FILENAME." | 43 | "Return PO charset value for FILENAME." |
| 44 | (let ((charset-regexp | 44 | (let ((charset-regexp |
| 45 | "^\"Content-Type: text/plain;[ \t]*charset=\\(.*\\)\\\\n\"") | 45 | "^\"Content-Type:[ \t]*text/plain;[ \t]*charset=\\(.*\\)\\\\n\"") |
| 46 | (short-read nil)) | 46 | (short-read nil)) |
| 47 | ;; Try the first 4096 bytes. In case we cannot find the charset value | 47 | ;; Try the first 4096 bytes. In case we cannot find the charset value |
| 48 | ;; within the first 4096 bytes (the PO file might start with a long | 48 | ;; within the first 4096 bytes (the PO file might start with a long |