Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 20:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(mml-read-tag): Unquote values with `read' to reverse prin1 in mml-insert-tag

Browse source 
(just stripping the quotes gave wrong value if any backslash escapes).
 From Kevin Ryde <user42@zip.com.au>.
This commit is contained in:
Katsumi Yamaoka 2010-03-17 02:51:21 +00:00
parent ae84eb9775
commit 4a44ff5f13
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2010-03-17 Kevin Ryde <user42@zip.com.au>
* mml.el (mml-read-tag): Unquote values with `read' to reverse
prin1 in mml-insert-tag (just stripping the quotes gave wrong
value if any backslash escapes).
2010-03-15 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-util.el (mm-charset-to-coding-system): Use coding-system-from-name

4
lisp/gnus/mml.el
View file

@ -392,8 +392,8 @@ A message part needs to be split into %d charset parts. Really send? "
(skip-chars-forward "= \t\n")
(setq val (buffer-substring-no-properties
(point) (progn (forward-sexp 1) (point))))
(when (string-match "^\"\\(.*\\)\"$" val)
(setq val (match-string 1 val)))
(when (string-match "\\`\"" val)
(setq val (read val))) ;; inverse of prin1 in mml-insert-tag
(push (cons (intern elem) val) contents)
(skip-chars-forward " \t\n"))
(goto-char (match-end 0))