home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / emacs-15.0.3 / lisp / emacsbug.el < prev    next >
Lisp/Scheme  |  1990-07-19  |  2KB  |  40 lines
  1. ;; Command to report Emacs bugs to appropriate mailing list.
  2. ;; Not fully installed because it can work only on Internet hosts.
  3. ;; Copyright (C) 1985 Free Software Foundation, Inc.
  4. ;; Principal author K. Shane Hartman
  5.  
  6. ;; This file is part of GNU Emacs.
  7.  
  8. ;; GNU Emacs is distributed in the hope that it will be useful,
  9. ;; but WITHOUT ANY WARRANTY.  No author or distributor
  10. ;; accepts responsibility to anyone for the consequences of using it
  11. ;; or for whether it serves any particular purpose or works at all,
  12. ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  13. ;; License for full details.
  14.  
  15. ;; Everyone is granted permission to copy, modify and redistribute
  16. ;; GNU Emacs, but only under the conditions described in the
  17. ;; GNU Emacs General Public License.   A copy of this license is
  18. ;; supposed to have been given to you along with GNU Emacs so you
  19. ;; can know your rights and responsibilities.  It should be in a
  20. ;; file named COPYING.  Among other things, the copyright notice
  21. ;; and this notice must be preserved on all copies.
  22.  
  23.  
  24. ;; >> This should be an address which is accessible to your machine,
  25. ;; >> otherwise you can't use this file.  It will only work on the
  26. ;; >> internet with this address.
  27.  
  28. (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu"
  29.   "Address of site maintaining mailing list for Gnu emacs bugs.")
  30.  
  31. (defun report-emacs-bug (topic)
  32.   "Report a bug in Gnu emacs.
  33. Prompts for bug subject.  Leaves you in a mail buffer."
  34.   (interactive "sBug Subject: ")
  35.   (mail nil bug-gnu-emacs topic)
  36.   (goto-char (point-max))
  37.   (insert "\nIn " (emacs-version) "\n\n")
  38.   (message (substitute-command-keys "Type \\[mail-send] to send bug report.")))
  39.  
  40.