mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-18 03:40:47 -08:00
Code Issues Projects Releases Wiki Activity

(po-find-charset): White space at the start of the Content-Type field body is

Browse source 
non-mandatory.
This commit is contained in:
Juanma Barranquero 2003-07-13 17:15:12 +00:00
parent 485fe977a0
commit 1f4dbcd90f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/textmodes/po.el
View file

@ -42,7 +42,7 @@ Contains canonical charset names that don't correspond to coding systems.")
(defun po-find-charset (filename) (defun po-find-charset (filename)
"Return PO charset value for FILENAME." "Return PO charset value for FILENAME."
(let ((charset-regexp (let ((charset-regexp
"^\"Content-Type: text/plain;[ \t]*charset=\\(.*\\)\\\\n\"") "^\"Content-Type:[ \t]*text/plain;[ \t]*charset=\\(.*\\)\\\\n\"")
(short-read nil)) (short-read nil))
;; Try the first 4096 bytes. In case we cannot find the charset value ;; 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 ;; within the first 4096 bytes (the PO file might start with a long