diff lisp/build-report.el @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents de805c49cfc1
children
line wrap: on
line diff
--- a/lisp/build-report.el	Mon Aug 13 11:19:22 2007 +0200
+++ b/lisp/build-report.el	Mon Aug 13 11:20:41 2007 +0200
@@ -2,8 +2,8 @@
 
 ;; Copyright (C) 1997 Adrian Aichner
 
-;; Author: Adrian Aichner <adrian@xemacs.org>
-;; Date: Sun., Apr. 20, 1997, 1998, 1999.
+;; Author: Adrian Aichner, Teradyne GmbH Munich <aichner@ecf.teradyne.com>
+;; Date: Sun., Apr. 20, 1997.
 ;; Version: 1.35
 ;; Keywords: internal
 
@@ -138,7 +138,7 @@
 ;; Bandaid
 (when (featurep 'mime-setup)
   ;; No (defvaralias ...) so far. Thanks to "Didier Verna"
-  ;; <didier@xemacs.org> for reporting my incorrect defvaraliasing of
+  ;; <verna@inf.enst.fr> for reporting my incorrect defvaraliasing of
   ;; `mime-editor/insert-tag'.
   ;; Thanks to Jens-Ulrik Holger Petersen
   ;; <petersen@kurims.kyoto-u.ac.jp> for suggesting the conditional
@@ -151,7 +151,6 @@
     (defalias 'mime-edit-insert-binary-file
       'mime-editor/insert-binary-file)))
 
-;;;###autoload
 (defun build-report (&rest args)
   "Initializes a fresh mail composition buffer using `compose-mail'
 with the contents of XEmacs Installation file and excerpts from XEmacs
@@ -214,7 +213,7 @@
 	      (progn
 		(mime-edit-insert-tag
 		 "text"
-		 "plain"
+		 "plain" 
 		 (concat
 		  "\nContent-Disposition: attachment;"
 		  " filename=\""
@@ -230,7 +229,7 @@
 	  (goto-char (point-min))
 	  (delete-matching-lines (build-report-delete))
 	  (goto-char (point-min))
-	  (insert "> Contents of "
+	  (insert "> Contents of " 
 		  build-report-make-output-file
 		  "\n> keeping lines matching\n> \""
 		  (build-report-keep)
@@ -240,7 +239,7 @@
       (insert "> " build-report-make-output-file
 	      " does not exist!\n\n"))
     (buffer-string)))
-
+      
 (defun build-report-insert-installation-file (where all)
   "Inserts the contents of the `build-report-installation-file'
 created by the XEmacs Beta configure process."
@@ -259,7 +258,7 @@
 	      (progn
 		(mime-edit-insert-tag
 		 "text"
-		 "plain"
+		 "plain" 
 		 (concat
 		  "\nContent-Disposition: attachment;"
 		  " filename=\""