Changes committed gnus/lisp (ChangeLog mml.el)

Modified: ChangeLog 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).
 From Kevin Ryde <[email protected]>.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2062 gnus/lisp/ChangeLog:7.2063
--- ChangeLog:7.2062	Mon Mar 15 03:37:02 2010
+++ ChangeLog	Wed Mar 17 04:52:56 2010
@@ -1,3 +1,9 @@
+2010-03-17  Kevin Ryde  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* mm-util.el (mm-charset-to-coding-system): Use coding-system-from-name
Index: mml.el
diff -u gnus/lisp/mml.el:7.80 gnus/lisp/mml.el:7.81
--- mml.el:7.80	Wed Jan 13 11:59:44 2010
+++ mml.el	Wed Mar 17 04:52:56 2010
@@ -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))