| Newsgroups |
gmane.emacs.xemacs.cvs |
| Message-ID |
<[email protected]> |
User: adrian
Date: 09/04/15 01:25:50
Modified: xemacsweb release-mail-to-html.el
Log:
* release-mail-to-html.el (release-mail-to-html-regexp-alist):
Downcase release type key strings. Make subject regexp even more
vague.
* release-mail-to-html.el (release-mail-to-html): Add warning when
no release type is matched by `release-mail-to-html-regexp-alist'.
Downcase release type key before lookup.
Revision Changes Path
1.22 +17 -11 XEmacs/xemacsweb/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.21
retrieving revision 1.22
diff -u -p -r1.21 -r1.22
--- release-mail-to-html.el 2007/06/12 15:24:01 1.21
+++ release-mail-to-html.el 2009/04/14 23:25:49 1.22
@@ -1,13 +1,13 @@
;;; release-mail-to-html.el --- Convert release mail to HTML for XEmacs
;;;
-;;; $Id: release-mail-to-html.el,v 1.21 2007/06/12 15:24:01 adrian Exp $
+;;; $Id: release-mail-to-html.el,v 1.22 2009/04/14 23:25:49 adrian Exp $
;;;
;;; Copyright (C) 2000 Adrian Aichner
;; Author: Adrian Aichner <[email protected]>
;; Maintainer: XEmacs Development Team <[email protected]>
-;; Date: $Date: 2007/06/12 15:24:01 $
-;; Version: $Revision: 1.21 $
+;; Date: $Date: 2009/04/14 23:25:49 $
+;; Version: $Revision: 1.22 $
;; Keywords: xemacsweb
;; This file is part of XEmacs.
@@ -54,7 +54,8 @@ announcement mails as formatted by XEmac
(setq release-mail-to-html-regexp-alist
(list
(list
- "XEmacs"
+ ;; lower-case for down-cased type lookup
+ "xemacs"
'release-mail-to-html-preformatted-regexp
(list
"<pre xml:space=\"preserve\">\\(.*?\\(\n.*?\\)*\\)</pre>" :body 1)
@@ -107,7 +108,8 @@ announcement mails as formatted by XEmac
:from 1 :subject 2 :reference 3)
)
(list
- "XEmacs Packages"
+ ;; lower-case for down-cased type lookup
+ "xemacs packages"
'release-mail-to-html-preformatted-regexp
(list
"<pre xml:space=\"preserve\">\\(.*?\\(\n.*?\\)*\\)</pre>" :body 1)
@@ -134,7 +136,7 @@ announcement mails as formatted by XEmac
"\n\\(--text follows this line--\\)?\n")
'release-mail-to-html-subject-regexp
(list
- "^subject[ \t]*:[ \t]*\\(?:\\[ANNOUNCE\\][ \t]*\\)?\\(XEmacs Packages\\) have been \\(?:pre-\\)?released (\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\(?:-[0-9]\\{2\\}\\)?\\))"
+ "^subject[ \t]*:[ \t]*\\(?:\\[ANNOUNCE\\][ \t]*\\|.*\\)?\\(XEmacs Packages\\)\\(?: have been \\(?:pre-\\)?released\\|.+\\)?(\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\(?:-[0-9]\\{2\\}\\)?\\))"
:type 1 :code-name 2)
'release-mail-to-html-summary-header-regexp
(list
@@ -219,9 +221,13 @@ The relevant sections are matches accord
subject (let ((raw-subject (match-string 0)))
(when (string-match "^subject: " raw-subject)
(replace-match "" t nil raw-subject))))
- (setq type (plist-get result :type)))))
+ ;; lower-case for down-cased type lookup
+ (setq type (downcase (plist-get result :type))))))
release-mail-to-html-regexp-alist))
- (when type
+ (if (null type)
+ (warn
+ "release-mail-to-html: None of the defined release types matched by %S."
+ 'release-mail-to-html-subject-regexp)
(save-excursion
(with-temp-buffer
(insert-buffer buffer)
@@ -418,9 +424,9 @@ The relevant sections are matches accord
(point-min)
(point-max)))
;; Generate list of index items
- ;; APA: Make sure to keep this order the reverse of the actual
- ;; document sections (because I cons here, adding to the head
- ;; of the list).
+ ;; FIXME: Make sure to keep this order the reverse of the
+ ;; actual document sections (because I cons here, adding
+ ;; to the head of the list).
(when release-mail-to-html-patch-list
(setq
release-mail-index