From 283a8108b769329a25c4e4ce54d2482ba562a8bb Mon Sep 17 00:00:00 2001 From: "Michael W. Olson" Date: Sun, 16 Mar 2008 21:35:54 -0700 Subject: [PATCH] muse-journal: Fix bug where dates in entries could be published incorrectly. --- ChangeLog | 7 +++++++ lisp/muse-journal.el | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index a5f5c3d..8cdde64 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,12 @@ 2008-03-16 Michael Olson + * lisp/muse-journal.el (muse-journal-html-munge-buffer) + (muse-journal-latex-munge-buffer, muse-journal-rss-munge-buffer): + Use nil instead of current-time-zone to fix a bug where dates + could be interpreted incorrectly. We don't allow the user to + specify the hour or minute, so it does not make sense to take the + current time zone into account. Thanks to Xin Shi for the report. + * lisp/muse-publish.el (muse-publish-markup): When point is on a read-only character, skip to the next non-read-only character. This works around a weird edge case with the table-el rule, and diff --git a/lisp/muse-journal.el b/lisp/muse-journal.el index 802b42b..996e1e3 100644 --- a/lisp/muse-journal.el +++ b/lisp/muse-journal.el @@ -428,7 +428,7 @@ and escapes any remaining non-alphanumeric characters." (string-to-number (match-string 3 date)) (string-to-number (match-string 2 date)) (string-to-number (match-string 1 date)) - (current-time-zone)) + nil) date (concat (format-time-string muse-journal-date-format datestamp) (substring date (match-end 0)))))) @@ -543,7 +543,7 @@ and escapes any remaining non-alphanumeric characters." (string-to-number (match-string 3 date)) (string-to-number (match-string 2 date)) (string-to-number (match-string 1 date)) - (current-time-zone)) + nil) date (format-time-string muse-journal-date-format date)))) (save-restriction @@ -598,7 +598,7 @@ and escapes any remaining non-alphanumeric characters." (string-to-number (match-string 3 date)) (string-to-number (match-string 2 date)) (string-to-number (match-string 1 date)) - (current-time-zone)) + nil) ;; make sure that date is in a format that RSS ;; readers can handle date (let ((system-time-locale "C")) -- 2.11.4.GIT