Commit 4a44ff5f authored by Katsumi Yamaoka's avatar Katsumi Yamaoka

(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).
 From Kevin Ryde <user42@zip.com.au>.
parent ae84eb97
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
......
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment