CVS update by viteno packages/xemacs-packages/net-utils ...

[xemacs-cvs at xemacs.org]

  User: viteno  
  Date: 07/11/29 09:45:15

  Modified:    packages/xemacs-packages/net-utils ChangeLog xemacsbug.el
Log:
Commit Aidan Kehoe's changes with Steve Young's approval.

Revision  Changes    Path
1.85      +17 -0     XEmacs/packages/xemacs-packages/net-utils/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/ChangeLog,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -p -r1.84 -r1.85
--- ChangeLog	2007/06/22 05:44:51	1.84
+++ ChangeLog	2007/11/29 08:45:14	1.85
@@ -1,3 +1,20 @@
+2007-11-28  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* xemacsbug.el:
+	Document that we speak most of the major Western languages plus
+	Japanese, but that English is the working language of the project
+	and reports in it are preferred.
+	* xemacsbug.el (report-xemacs-bug-help):
+	Don't quote the lambda expression as a list. 
+	* xemacsbug.el (xemacs-default-composefunc-dont-nag): New.
+	defvar it here (it's been added to the core of 21.5) to avoid
+	compile errors on 21.4. 
+	* xemacsbug.el (report-xemacs-bug):
+	Bind xemacs-default-composefunc-dont-nag to avoid warnings about
+	the crapness of the default email client when reporting bugs. 
+	* xemacsbug.el (report-xemacs-bug-hook):
+	Don't quote the lambda expression as a list. 
+
 2007-06-22  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.53 released.



1.14      +15 -8     XEmacs/packages/xemacs-packages/net-utils/xemacsbug.el

Index: xemacsbug.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/xemacsbug.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- xemacsbug.el	2007/06/21 15:22:57	1.13
+++ xemacsbug.el	2007/11/29 08:45:15	1.14
@@ -105,8 +105,11 @@ strings. See `compose-mail'."
 "\nThis bug report will be sent to the XEmacs Development Team,
 not to your local site managers!!
 
-Please write in English, because the XEmacs maintainers do not have
-translators to read other languages for them.
+The working language of XEmacs development is English.  Bug reports in
+English will be dealt with most promptly and most effectively.  However, the
+XEmacs maintainers as a group speak most of the major Western languages and
+Japanese, so if communicating in English is a problem for you, please feel
+free to report your bug using one of those other languages.
 
 Please describe as succinctly as possible:
 \t- What happened.
@@ -137,9 +140,10 @@ To your ~/.xemacs/init.el")
 (defun report-xemacs-bug-help ()
   "Display the help buffer for `report-xemacs-bug'."
   (with-electric-help
-   '(lambda () 
-      (define-key (current-local-map) "\C-c\C-i" 'report-xemacs-bug-info)
-      (princ (substitute-command-keys report-xemacs-bug-help)) nil) "*Bug Help*"))
+   (lambda () 
+     (define-key (current-local-map) "\C-c\C-i" 'report-xemacs-bug-info)
+     (princ (substitute-command-keys report-xemacs-bug-help)) nil)
+   "*Bug Help*"))
 
 (defun report-xemacs-bug-packages-list ()
   "Insert into the current buffer a list of installed packages."
@@ -152,6 +156,8 @@ To your ~/.xemacs/init.el")
 	       (nth 4 (car pkgs))))
       (setq pkgs (cdr pkgs)))))
 
+(defvar xemacs-default-composefunc-dont-nag nil)
+
 ;;;###autoload
 (defun report-xemacs-bug (topic &optional recent-keys)
   "Report a bug in XEmacs.
@@ -159,7 +165,8 @@ Prompts for bug subject.  Leaves you in 
   ;; This strange form ensures that (recent-keys) is the value before
   ;; the bug subject string is read.
   (interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
-  (let (user-point)
+  (let ((xemacs-default-composefunc-dont-nag t)
+        user-point)
     (setq topic (concat "[Bug: " emacs-program-version "] " topic))
     (if xemacs-betaname
 	  (compose-mail report-xemacs-bug-beta-address
@@ -394,8 +401,8 @@ System Info to help track down your bug:
 	(kill-local-variable 'mail-send-hook)))
       (unless report-xemacs-bug-no-explanations
 	(with-electric-help
-	 '(lambda ()
-	    (insert "\n
+	 (lambda ()
+           (insert "\n
 You invoked the command M-x report-xemacs-bug,
 but you decided not to mail the bug report to the XEmacs maintainers.