[Emacs-diffs] /srv/bzr/emacs/trunk r99669: (mml-read-tag): Unquote values with `read' to reverse prin1 in mml-insert-tag

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 99669 [merge]
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-03-17 02:53:43 +0000
message:
  (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 <address@hidden>.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mml.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-03-15 01:38:28 +0000
+++ b/lisp/gnus/ChangeLog       2010-03-17 02:51:21 +0000
@@ -1,3 +1,9 @@
+2010-03-17  Kevin Ryde  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mm-util.el (mm-charset-to-coding-system): Use coding-system-from-name

=== modified file 'lisp/gnus/mml.el'
--- a/lisp/gnus/mml.el  2010-01-13 08:35:10 +0000
+++ b/lisp/gnus/mml.el  2010-03-17 02:51:21 +0000
@@ -392,8 +392,8 @@
       (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))