1. xemacs
  2. ilisp

Source

ilisp / ilisp-bug.el

Diff from to

File ilisp-bug.el

 ;;; ilisp-bug.el --
 
 ;;; This file is part of ILISP.
-;;; Version: 5.8
+;;; Version: 5.10.1
 ;;;
 ;;; 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-2000 Marco Antoniotti and Rick Campbell
 ;;;
 ;;; Other authors' names for which this Copyright notice also holds
 ;;; may appear later in this file.
 ;;;
-;;; Send mail to 'ilisp-request@naggum.no' to be included in the
-;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
+;;; Send mail to 'majordomo@cons.org' to be included in the
+;;; ILISP mailing list. 'ilisp@cons.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? " 
 		      (buffer-name (current-buffer))))
 	     (current-buffer))))
-    (if (or (not buffer) (not (mail)))
+    (if (or (not buffer)
+	    ;; (not (mail))
+	    (not (ignore-errors
+		   (progn (compose-mail) t)))
+					; 19990615 Marco Antoniotti
+					; Somebody complained that
+					; MAIL does not use the mail
+					; agent chosen by the
+					; user. Here is an attempt to
+					; fix this.
+					;
+					; 19990912 Hannu Koivisto
+					; the IGNORE-ERRORS may
+					; alleviate some quirks in the
+					; COMPOSE-MAIL call.
+					; cf. <ilisp@cons.org> post of
+					; 19990908 for details.
+	    )
 	(progn
 	  (message 
 	   (if buffer 
       (forward-line 1)
       (insert (emacs-version))
       (insert 
-       (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))
 	    (match "popper-\\|completer-")
 	    (val-buffer buffer)
 	(end-of-line)
 	(message "Send with sendmail or your favorite mail program.")))))
 
+;;; end of file -- ilisp-bug.el --