;;; This file is part of ILISP.
;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
;;; 1993, 1994 Ivan Vasquez
;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
-;;; 1996 Marco Antoniotti and Rick Campbell
+;;; 1996- Marco Antoniotti and Rick Campbell
;;; Other authors' names for which this Copyright notice also holds
;;; may appear later in this file.
-;;; Send mail to 'email@example.com' to be included in the
-;;; ILISP mailing list. 'firstname.lastname@example.org' is the general ILISP
+;;; Send mail to 'email@example.com' to be included in the
+;;; ILISP mailing list. 'firstname.lastname@example.org' is the general ILISP
;;; mailing list were bugs and improvements are discussed.
;;; ILISP is freely redistributable under the terms found in the file
(format "Is %s the buffer where the error occurred? "
- (if (or (not buffer) (not (mail)))
+ (progn (compose-mail) t)))
+ ; 19990615 Marco Antoniotti
+ ; Somebody complained that
+ ; MAIL does not use the mail
+ ; user. Here is an attempt to
+ ; 19990912 Hannu Koivisto
+ ; the IGNORE-ERRORS may
+ ; alleviate some quirks in the
+ ; cf. <email@example.com> post of
+ ; 19990908 for details.
- (format "\nWindow System: %s %s" window-system window-system-version))
+ (if (string-match "XEmacs" emacs-version)
+ (format "\nWindow System: %s" (console-type) ) ;; XEmacs has no window-system-version
+ (format "\nWindow System: %s %s" window-system window-system-version) ) )
(let ((mode (save-excursion (set-buffer buffer) major-mode))
(message "Send with sendmail or your favorite mail program.")))))
+;;; end of file -- ilisp-bug.el --