(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>.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 02a8513643f49548bd9acf406eb77baadbcde4cf..f71c7a4300b236bc3984d49fb2718cf1e4011e7d 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 091a0ed90bd7b5e0cfa5f4c285835ab981f16f35..87fcdf5b09c555a029d9798aafc8f015aa31a38f 100644 (file)
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -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))