From b921674f31aea56b0c56cf8b4fd8fccf63d19a79 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Tue, 4 Apr 2006 22:11:16 +0000 Subject: [PATCH] muse-journal: Fix dates in RSS feeds. MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * lisp/muse-journal.el (muse-journal-rss-munge-buffer): Make sure that date is in a format that RSS readers can handle. Thanks to René Stadler for the patch. git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-82 --- AUTHORS | 1 + ChangeLog.2006 | 15 +++++++++++++++ lisp/muse-journal.el | 11 +++++++++-- lisp/muse-mode.el | 5 +++-- 4 files changed, 28 insertions(+), 4 deletions(-) diff --git a/AUTHORS b/AUTHORS index bda885b..24cae5c 100644 --- a/AUTHORS +++ b/AUTHORS @@ -59,6 +59,7 @@ Per B. Sederberg: Contributor (assignment pending) René Stadler: Contributor: + - muse-journal.el: 1 line changed - muse-project.el: 1 line changed Dale P. Smith: Contributor diff --git a/ChangeLog.2006 b/ChangeLog.2006 index d576e45..a68a6a9 100644 --- a/ChangeLog.2006 +++ b/ChangeLog.2006 @@ -2,6 +2,21 @@ # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2006/muse--main--1.0 # +2006-04-04 22:11:16 GMT Michael Olson patch-82 + + Summary: + muse-journal: Fix dates in RSS feeds. + Revision: + muse--main--1.0--patch-82 + + * lisp/muse-journal.el (muse-journal-rss-munge-buffer): Make sure that + date is in a format that RSS readers can handle. Thanks to René + Stadler for the patch. + + modified files: + AUTHORS ChangeLog.2006 lisp/muse-journal.el lisp/muse-mode.el + + 2006-04-01 15:32:26 GMT Michael Olson patch-81 Summary: diff --git a/lisp/muse-journal.el b/lisp/muse-journal.el index b7a0685..0611927 100644 --- a/lisp/muse-journal.el +++ b/lisp/muse-journal.el @@ -70,6 +70,10 @@ ;;; Contributors: +;; René Stadler (mail AT renestadler DOT de) provided a patch that +;; causes dates in RSS feeds to be generated in a format that RSS +;; readers can parse. + ;;; Code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -544,8 +548,11 @@ For more on the structure of this list, see (string-to-number (match-string 2 date)) (string-to-number (match-string 1 date)) (current-time-zone)) - date (format-time-string - (muse-style-element :date-format) date)))) + ;; make sure that date is in a format that RSS + ;; readers can handle + date (let ((system-time-locale "C")) + (format-time-string + (muse-style-element :date-format) date))))) (save-restriction (narrow-to-region (match-beginning 0) diff --git a/lisp/muse-mode.el b/lisp/muse-mode.el index eabe54b..1b1180f 100644 --- a/lisp/muse-mode.el +++ b/lisp/muse-mode.el @@ -217,10 +217,11 @@ index at intervals." 'muse-mode-fill-nobreak-p))) ;; Make fill work nicely with item lists (set (make-local-variable 'adaptive-fill-regexp) - "\\s-+\\(-\\|[0-9]+\\.\\)\\s-+\\|\\[[0-9]+\\]\\s-*\\|\\s-*") + (concat "\\s-+\\(-\\|[0-9]+\\.\\)\\s-+\\|\\[[0-9]+\\]\\s-*" + "\\|\\s-*::\\s-*\\|\\s-*")) (set (make-local-variable 'paragraph-start) (concat paragraph-start "\\|\\s-+\\(-\\|[0-9]+\\.\\)\\s-+" - "\\|\\[[0-9]+\\]\\s-*")) + "\\|\\[[0-9]+\\]\\s-*\\|\\s-*::\\s-*")) ;; Comment syntax is `; comment' (set (make-local-variable 'comment-start) "; ") -- 2.11.4.GIT