diff options
Diffstat (limited to 'lisp/mail/emacsbug.el')
-rw-r--r-- | lisp/mail/emacsbug.el | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el deleted file mode 100644 index 03ae176562e..00000000000 --- a/lisp/mail/emacsbug.el +++ /dev/null @@ -1,52 +0,0 @@ -;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list. - -;; Copyright (C) 1985 Free Software Foundation, Inc. - -;; Author: K. Shane Hartman -;; Maintainer: FSF -;; Keywords: maint - -;; Not fully installed because it can work only on Internet hosts. -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. - -;;; Commentary: - -;; `M-x report-emacs-bug ' starts an email note to the Emacs maintainers -;; describing a problem. Here's how it's done... - -;;; Code: - -;; >> This should be an address which is accessible to your machine, -;; >> otherwise you can't use this file. It will only work on the -;; >> internet with this address. - -(defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu" - "Address of site maintaining mailing list for GNU Emacs bugs.") - -;;;###autoload -(defun report-emacs-bug (topic) - "Report a bug in GNU Emacs. -Prompts for bug subject. Leaves you in a mail buffer." - (interactive "sBug Subject: ") - (mail nil bug-gnu-emacs topic) - (goto-char (point-max)) - (insert "\nIn " (emacs-version) "\n\n") - (message (substitute-command-keys "Type \\[mail-send] to send bug report."))) - -(provide 'emacsbug) - -;;; emacsbug.el ends here |