;; Copyright (C) 1997 Adrian Aichner
-;; Author: Adrian Aichner, Teradyne GmbH Munich <aichner@ecf.teradyne.com>
-;; Date: Sun., Apr. 20, 1997.
+;; Author: Adrian Aichner <adrian@xemacs.org>
+;; Date: Sun., Apr. 20, 1997, 1998, 1999.
;; Version: 1.35
;; Keywords: internal
;; Bandaid
(when (featurep 'mime-setup)
;; No (defvaralias ...) so far. Thanks to "Didier Verna"
- ;; <verna@inf.enst.fr> for reporting my incorrect defvaraliasing of
+ ;; <didier@xemacs.org> 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
(prompts build-report-prompts))
(progn
(while prompts
+ (defvar hist)
(setq prompt (caar prompts))
(setq hist (cdar prompts))
(setq prompts (cdr prompts))
(progn
(mime-edit-insert-tag
"text"
- "plain"
+ "plain"
(concat
"\nContent-Disposition: attachment;"
" filename=\""
(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)
(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."
(progn
(mime-edit-insert-tag
"text"
- "plain"
+ "plain"
(concat
"\nContent-Disposition: attachment;"
" filename=\""
(defun build-report-keep ()
"build-report-internal function of no general value."
- (mapconcat '(lambda (item) item)
+ (mapconcat #'identity
(cons "^--\\[\\[\\|\\]\\]$" build-report-keep-regexp) "\\|"))
(defun build-report-delete ()
"build-report-internal function of no general value."
- (mapconcat '(lambda (item) item)
+ (mapconcat #'identity
build-report-delete-regexp "\\|"))
;;; build-report.el ends here