Mercurial > emacs
comparison lisp/gnus/mml.el @ 107402:e003508e60b1
(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>.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 17 Mar 2010 02:51:21 +0000 |
| parents | 1d1d5d9bd884 |
| children | ecbe0edc4f69 |
comparison
equal
deleted
inserted
replaced
| 107401:f5130b7f5581 | 107402:e003508e60b1 |
|---|---|
| 390 (setq elem (buffer-substring-no-properties | 390 (setq elem (buffer-substring-no-properties |
| 391 (point) (progn (forward-sexp 1) (point)))) | 391 (point) (progn (forward-sexp 1) (point)))) |
| 392 (skip-chars-forward "= \t\n") | 392 (skip-chars-forward "= \t\n") |
| 393 (setq val (buffer-substring-no-properties | 393 (setq val (buffer-substring-no-properties |
| 394 (point) (progn (forward-sexp 1) (point)))) | 394 (point) (progn (forward-sexp 1) (point)))) |
| 395 (when (string-match "^\"\\(.*\\)\"$" val) | 395 (when (string-match "\\`\"" val) |
| 396 (setq val (match-string 1 val))) | 396 (setq val (read val))) ;; inverse of prin1 in mml-insert-tag |
| 397 (push (cons (intern elem) val) contents) | 397 (push (cons (intern elem) val) contents) |
| 398 (skip-chars-forward " \t\n")) | 398 (skip-chars-forward " \t\n")) |
| 399 (goto-char (match-end 0)) | 399 (goto-char (match-end 0)) |
| 400 ;; Don't skip the leading space. | 400 ;; Don't skip the leading space. |
| 401 ;;(skip-chars-forward " \t\n") | 401 ;;(skip-chars-forward " \t\n") |