From c7c7623566c9487771cc9dc812b1e9ba5019910f Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Tue, 5 Jun 2007 12:56:02 +0000 Subject: [PATCH] muse-journal: Fix double-escaping of qotd contents 2007-06-05 Michael Olson * lisp/muse-journal.el (muse-journal-html-munge-buffer): Add read-only properties to qotd contents, so that they don't get double-escaped. Thanks to Leo for the report. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-336 --- ChangeLog | 6 ++++++ lisp/muse-journal.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 581b9bb..08bce0d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2007-06-05 Michael Olson + + * lisp/muse-journal.el (muse-journal-html-munge-buffer): Add + read-only properties to qotd contents, so that they don't get + double-escaped. Thanks to Leo for the report. + 2007-06-04 Michael Olson * lisp/muse-colors.el (muse-link-face): If the link is to a remote diff --git a/lisp/muse-journal.el b/lisp/muse-journal.el index 1292110..569a413 100644 --- a/lisp/muse-journal.el +++ b/lisp/muse-journal.el @@ -437,7 +437,10 @@ For more on the structure of this list, see nil t)) (goto-char (point-min)) (while (search-forward "%qotd%" nil t) - (replace-match (or qotd "") nil t)) + (save-restriction + (narrow-to-region (match-beginning 0) (match-end 0)) + (delete-region (point-min) (point-max)) + (when qotd (muse-insert-markup qotd)))) (goto-char (point-min)) (while (search-forward "%text%" nil t) (replace-match text nil t)) -- 2.11.4.GIT