Mercurial > hg > xemacs-beta
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=\""