(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 fb34edb883effc4d1852b2867775b92af0c4742f..68cc10cfd94c8732c7c4e66441ce0539219cccf7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-26  Micha\e,Ak\e(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 da7e5fcf579942b8c4d393eb149fbc99b459cac6..b237449002646723b3dd5948528dc598278f5505 100644 (file)
--- 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)