* message.el (message-expand-group): Pass the common

[bpt/emacs.git] / lisp / mail / footnote.el

diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 8cf12b8..58b6be4 100644 (file)
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -1,6 +1,7 @@
 ;;; footnote.el --- footnote support for message mode  -*- coding: iso-latin-1;-*-
 
-;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2000, 2002, 2003, 2004,
+;;   2005 Free Software Foundation, Inc.
 
 ;; Author: Steven L Baur <steve@xemacs.org>
 ;; Keywords: mail, news
@@ -20,8 +21,8 @@
 
 ;; 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, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
+;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+;; MA 02110-1301, USA.
 
 ;;; Commentary:
 
@@ -87,8 +88,11 @@ If nil, no blank line will be inserted."
 
 ;;; Interface variables that probably shouldn't be changed
 
-(defconst footnote-section-tag "Footnotes: "
-  "*Tag inserted at beginning of footnote section.")
+(defcustom footnote-section-tag "Footnotes: "
+  "*Tag inserted at beginning of footnote section."
+  :version "22.1"
+  :type 'string
+  :group 'footnote)
 
 (defcustom footnote-section-tag-regexp "Footnotes\\(\\[.\\]\\)?: "
   "*Regexp which indicates the start of a footnote section.
@@ -161,7 +165,7 @@ Wrapping around the alphabet implies successive repetitions of letters."
       (setq rc (concat rc chr))
       (setq rep (1- rep)))
     rc))
-  
+
 ;;; ENGLISH LOWER
 (defconst footnote-english-lower "abcdefghijklmnopqrstuvwxyz"
   "Lower case English alphabet.")
@@ -482,7 +486,7 @@ styles."
   (Footnote-goto-char-point-max)
   (if (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)
       (save-restriction
-       (when footnote-narrow-to-footnotes-when-editing 
+       (when footnote-narrow-to-footnotes-when-editing
          (Footnote-narrow-to-footnotes))
        (Footnote-goto-footnote (1- arg)) ; evil, FIXME (less evil now)
        ;; (message "Inserting footnote %d" arg)
@@ -554,9 +558,9 @@ Return nil if the cursor is not over a footnote."
          (unless rc
            (setq rc (car alist-ptr)))
          (save-excursion
-           (message "Renumbering from %s to %s" 
+           (message "Renumbering from %s to %s"
                     (Footnote-index-to-string (car alist-ptr))
-                    (Footnote-index-to-string 
+                    (Footnote-index-to-string
                      (1+ (car alist-ptr))))
            (Footnote-renumber (car alist-ptr)
                               (1+ (car alist-ptr))
@@ -752,4 +756,5 @@ key         binding
 
 (provide 'footnote)
 
+;;; arch-tag: 9bcfb6d7-2161-4caf-8793-700f62400398
 ;;; footnote.el ends here