From 5daeed23abc1fe381c469612b425a9b9646fc747 Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Sat, 25 Mar 2006 05:27:46 +0000
Subject: [PATCH] muse-journal: Make custom RSS heading regexps possible.

* lisp/muse-journal.el (muse-journal-rss-heading-regexp): New option that
  determines the regexp to use when searching for an RSS heading.
  (muse-journal-rss-munge-buffer): Use `muse-journal-rss-heading-regexp'.
git-archimport-id: mwolson@gnu.org--2006/muse--main--1.0--patch-71
---
 ChangeLog.2006       | 15 +++++++++++++++
 lisp/muse-journal.el | 10 +++++++++-
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/ChangeLog.2006 b/ChangeLog.2006
index 1dc68e0..fce62fa 100644
--- a/ChangeLog.2006
+++ b/ChangeLog.2006
@@ -2,6 +2,21 @@
 # arch-tag: automatic-ChangeLog--mwolson@gnu.org--2006/muse--main--1.0
 #
 
+2006-03-25 05:27:46 GMT	Michael Olson <mwolson@gnu.org>	patch-71
+
+    Summary:
+      muse-journal: Make custom RSS heading regexps possible.
+    Revision:
+      muse--main--1.0--patch-71
+
+    * lisp/muse-journal.el (muse-journal-rss-heading-regexp): New option that
+      determines the regexp to use when searching for an RSS heading.
+      (muse-journal-rss-munge-buffer): Use `muse-journal-rss-heading-regexp'.
+
+    modified files:
+     ChangeLog.2006 lisp/muse-journal.el
+
+
 2006-03-25 04:33:40 GMT	Michael Olson <mwolson@gnu.org>	patch-70
 
     Summary:
diff --git a/lisp/muse-journal.el b/lisp/muse-journal.el
index df6fef5..b7a0685 100644
--- a/lisp/muse-journal.el
+++ b/lisp/muse-journal.el
@@ -108,6 +108,14 @@ and group 3 is the optional heading for the entry."
   :type 'regexp
   :group 'muse-journal)
 
+(defcustom muse-journal-rss-heading-regexp
+  (concat "^\\* " muse-journal-heading-regexp "$")
+  "A regexp that matches a journal heading from an HTML document.
+Paren group 1 is the ISO date, group 2 is the optional category,
+and group 3 is the optional heading for the entry."
+  :type 'regexp
+  :group 'muse-journal)
+
 (defcustom muse-journal-html-entry-template
   "<div class=\"entry\">
   <a name=\"%anchor%\" style=\"text-decoration: none\">&nbsp;</a>
@@ -513,7 +521,7 @@ For more on the structure of this list, see
 
 (defun muse-journal-rss-munge-buffer ()
   (goto-char (point-min))
-  (let ((heading-regexp (concat "^\\* " muse-journal-heading-regexp "$"))
+  (let ((heading-regexp muse-journal-rss-heading-regexp)
         (inhibit-read-only t))
     (while (re-search-forward heading-regexp nil t)
       (let* ((date (match-string 1))
-- 
2.11.4.GIT