# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1198710094 0
# Node ID 145a45ea4769e49c4960b153aa9b4d5de336aed7
# Parent  f83a4361c7e22c6d111a5830b4a01df1287fa212
Whitespace change.

diff -r f83a4361c7e2 -r 145a45ea4769 lisp/mail/footnote.el
--- a/lisp/mail/footnote.el	Wed Dec 26 18:12:37 2007 +0000
+++ b/lisp/mail/footnote.el	Wed Dec 26 23:01:34 2007 +0000
@@ -327,7 +327,8 @@
 (defun Footnote-current-regexp ()
   "Return the regexp of the index of the current style."
   (concat (nth 2 (or (assq footnote-style footnote-style-alist)
-		     (nth 0 footnote-style-alist))) "*"))
+		     (nth 0 footnote-style-alist)))
+	  "*"))
 
 (defun Footnote-refresh-footnotes (&optional index-regexp)
   "Redraw all footnotes.
@@ -345,7 +346,7 @@
 	  (search-backward footnote-start-tag nil t)
 	  (when (looking-at (concat
 			     (regexp-quote footnote-start-tag)
-			     "\\(" index-regexp "\\)"
+			     "\\(" index-regexp "+\\)"
 			     (regexp-quote footnote-end-tag)))
 	    (replace-match (concat
 			    footnote-start-tag
@@ -361,7 +362,7 @@
 	(goto-char (cdr alist))
 	(when (looking-at (concat
 			   (regexp-quote footnote-start-tag)
-			   "\\(" index-regexp "\\)"
+			   "\\(" index-regexp "+\\)"
 			   (regexp-quote footnote-end-tag)))
 	  (replace-match (concat
 			  footnote-start-tag