COMMIT
Vin, this fixes my part of the problem you experienced processing your
21.4.19 announcement mail.
I'll send another patch for your announcement to demonstrate what was
wrong with it.
Best regards,
Adrian
xemacsweb ChangeLog patch:
Diff command: cvs -q diff -U 0
Files affected: ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/ChangeLog,v
retrieving revision 1.242
diff -u -U0 -r1.242 ChangeLog
--- ChangeLog 4 Jan 2006 21:13:13 -0000 1.242
+++ ChangeLog 2 Feb 2006 22:03:11 -0000
@@ -0,0 +1,9 @@
+2006-02-02 Adrian Aichner <adrian(a)xemacs.org>
+
+ * release-mail-to-html.el (release-mail-to-html): Don't delete
+ 'release-mail-to-html-summary-header-regexp match on first path,
+ when consistency with version and code-name in subject line is
+ checked. Match it a second time (previously looked for
+ 'release-mail-to-html-body-separator-regexp by accident) and
+ delete the match as part of processing summary items.
+
xemacsweb source patch:
Diff command: cvs -f -z3 -q diff -u -w -N
Files affected: release-mail-to-html.el
Index: release-mail-to-html.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacsweb/release-mail-to-html.el,v
retrieving revision 1.19
diff -u -w -r1.19 release-mail-to-html.el
--- release-mail-to-html.el 5 Dec 2005 22:15:39 -0000 1.19
+++ release-mail-to-html.el 2 Feb 2006 21:58:04 -0000
@@ -256,7 +256,7 @@
(release-mail-to-html-match
'release-mail-to-html-summary-header-regexp
nil
- 'delete
+ nil
(assoc type release-mail-to-html-regexp-alist)))
(setq xemacs-version-from-summary
(plist-get result :version-name 1))
@@ -290,9 +290,9 @@
(let (summary-name
summary-items)
(release-mail-to-html-match
- 'release-mail-to-html-body-separator-regexp
+ 'release-mail-to-html-summary-header-regexp
'point-min
- nil
+ 'delete
(assoc type release-mail-to-html-regexp-alist))
(while
(setq result
--
Adrian Aichner
mailto:adrian@xemacs.org
http://www.xemacs.org/