From: Michaël Cadilhac <michael.cadilhac@lrde.org>
Date: Tue, 26 Dec 2006 20:29:26 +0000 (+0000)
Subject: (Footnote-insert-footnote): Fix the search of the last footnote when
X-Git-Tag: emacs-pretest-22.0.93~401
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df034a3f0cf6b48fe265a86b6702468ce80c12e2;p=emacs.git

(Footnote-insert-footnote): Fix the search of the last footnote when
`footnote-spaced-footnotes' is nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb34edb883e..68cc10cfd94 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-26  Micha,Ak(Bl Cadilhac  <michael.cadilhac@lrde.org>
+
+	* mail/footnote.el (Footnote-insert-footnote): Fix the search of the
+	last footnote when `footnote-spaced-footnotes' is nil.
+
 2006-12-26  Richard Stallman  <rms@gnu.org>
 
 	* image.el (image-type-header-regexps): Change element format
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index da7e5fcf579..b2374490026 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -501,7 +501,8 @@ styles."
 				 (regexp-quote footnote-end-tag)))
 		       nil t)
 		  (unless (beginning-of-line) t))
-		(goto-char (point-max)))))
+		(Footnote-goto-char-point-max)
+		(re-search-backward (concat "^" footnote-section-tag-regexp) nil t))))
     (unless (looking-at "^$")
       (insert "\n"))
     (when (eobp)