|
|
1.1 ! root 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 "[email protected]" ! 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:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.