;;; lisp-mnt.el --- minor mode for Emacs Lisp maintainers
-;; Copyright (C) 1992 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1994 Free Software Foundation, Inc.
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com>
;; Created: 14 Jul 1992
-;; Version: $Id: lisp-mnt.el,v 1.5 1993/12/22 12:06:54 friedman Exp rms $
+;; Version: $Id: lisp-mnt.el,v 1.12 1996/01/14 07:34:30 erik Exp kwzh $
;; Keywords: docs
;; X-Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out!
;; 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 1, or (at your option)
+;; 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,
;; 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.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; author *is* one of the maintainers.)
;;
;; * Keywords line --- used by the finder code (now under construction)
-;; for finding elisp code related to a topic.
+;; for finding Emacs Lisp code related to a topic.
;;
;; * X-Bogus-Bureaucratic-Cruft line --- this is a joke and an example
;; of a comment header. Headers starting with `X-' should never be used
;; * Change log line --- optional, exists to terminate the commentary
;; section and start a change-log part, if one exists.
;;
-;; * Code line --- exists so elisp can know where commentary and/or
+;; * Code line --- exists so Lisp can know where commentary and/or
;; change-log sections end.
;;
;; * Footer line --- marks end-of-file so it can be distinguished from
(save-excursion
(let ((case-fold-search t))
(goto-char (point-min))
- (if (re-search-forward (concat "^;;; " hd ":$") nil t)
+ (if (re-search-forward (concat "^;;;;* " hd ":[ \t]*$") nil t)
(progn
(beginning-of-line)
(if after (forward-line 1))
(let ((package (buffer-name))
(addr (lm-maintainer))
(version (lm-version)))
- (mail nil (or addr bug-gnu-emacs) topic)
+ (mail nil
+ (if addr
+ (concat (car addr) " <" (cdr addr) ">")
+ bug-gnu-emacs)
+ topic)
(goto-char (point-max))
(insert "\nIn "
package
(if version (concat " version " version) "")
"\n\n")
- (message
+ (message "%s"
(substitute-command-keys "Type \\[mail-send] to send bug report."))))
(provide 'lisp-mnt)