APPROVE COMMIT
Hi Folks!
I've seen quite a few bug reports for 21.5 that really should be Cc'd
to Ben seeing as though he's doing practically all of the work on core
CVS HEAD. So this patches 'report-xemacs-bug' to include Ben in the
Cc header for reports on 21.5 versions of XEmacs.
I've spoken to Ben about this and he is quite happy about it. I don't
see this as being a permanent situation and once things have calmed
down in 21.5 and more people are working on it again, I'll remove
Ben's address.
The new feature is of course customizable and there is an equivalent
setting for bug reports to non beta XEmacsen.
Steve T: If you'd like to receive carbon copies of bug reports to non
beta XEmacsen, just let me know and I'll set it up.
I'll put a new net-utils package in Pre-Release ASAP. Can I please
urge anyone using XEmacs 21.5 to upgrade to the latest net-utils as
soon as I've uploaded the package.
NOTE: This patch has been committed.
net-utils patch:
ChangeLog files diff command: cvs -q diff -U 0
Files affected: ChangeLog
Source files diff command: cvs -q diff -uN
Files affected: xemacsbug.el
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/ChangeLog,v
retrieving revision 1.21
diff -u -U0 -r1.21 ChangeLog
--- ChangeLog 2002/02/23 05:09:45 1.21
+++ ChangeLog 2002/06/04 01:05:50
@@ -0,0 +1,7 @@
+2002-06-04 Steve Youngs <youngs(a)xemacs.org>
+
+ * xemacsbug.el (report-xemacs-bug-extra-headers): New.
+ (report-xemacs-bug-beta-extra-headers): New.
+ (report-xemacs-bug): Use them.
+ Test whether using a beta XEmacs with 'xemacs-betaname'.
+
Index: xemacsbug.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/xemacsbug.el,v
retrieving revision 1.5
diff -u -u -r1.5 xemacsbug.el
--- xemacsbug.el 2001/09/28 21:42:04 1.5
+++ xemacsbug.el 2002/06/04 01:05:39
@@ -53,11 +53,32 @@
:group 'xemacsbug
:type 'string)
+(defcustom report-xemacs-bug-extra-headers nil
+ "*An alist of mail-header value pairs for XEamcs bugs.
+
+It takes the format (HEADER . VALUE) where both HEADER and VALUE are
+strings. See `compose-mail'."
+:group 'xemacsbug
+:type '(repeat
+ (cons (string :tag "Header")
+ (string :tag "Value"))))
+
(defcustom report-xemacs-bug-beta-address "xemacs-beta(a)xemacs.org"
"*Address of mailing list for XEmacs beta bugs."
:group 'xemacsbug
:type 'string)
+(defcustom report-xemacs-bug-beta-extra-headers
+ '(("cc" . "ben(a)xemacs.org"))
+ "*An alist of mail-header value pairs for XEmacs beta bugs.
+
+It takes the format (HEADER . VALUE) where both HEADER and VALUE are
+strings. See `compose-mail'."
+:group 'xemacsbug
+:type '(repeat
+ (cons (string :tag "Header")
+ (string :tag "Value"))))
+
(defvar report-xemacs-bug-orig-text nil
"The automatically-created initial text of bug report.")
@@ -84,10 +105,13 @@
;; the bug subject string is read.
(interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
(let (user-point)
- (compose-mail (if (string-match "(beta[0-9]+)" emacs-version)
- report-xemacs-bug-beta-address
- report-xemacs-bug-address)
- topic)
+ (if xemacs-betaname
+ (compose-mail report-xemacs-bug-beta-address
+ topic
+ report-xemacs-bug-beta-extra-headers)
+ (compose-mail report-xemacs-bug-address
+ topic
+ report-xemacs-bug-extra-headers))
;; The rest of this does not execute
;; if the user was asked to confirm and said no.
(goto-char (point-min))
--
|---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---|
| XEmacs - It's not just an editor. |
| It's a way of life. |
|------------------------------------<youngs(a)xemacs.org>---|