Re: Troubles with footnote-mode

[Michaël Cadilhac]

Tassilo Horn <heimdall@uni-koblenz.de> writes:

> Hi,
>
> I often use footnote-mode when writing postings. The only configurations
> I made are these:
>
> ,----[ from ~/.emacs ]
> | (add-hook 'message-mode-hook 'footnote-mode)
> | (setq footnote-spaced-footnotes nil)
> `----
>
> The problem with that is, that all footnotes after the first one appear
> below the signature.
>
> So here's a test (see footnotes below): [1], this one is ok. [2], below
> sig. [3], below sig. After the second footnote, jumping back to the text
> (C-c ! b, `Footnote-back-to-message') doesn't work, too.

  Does the following fix your bug?

Index: lisp/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.9434
diff -b -c -w -r1.9434 ChangeLog
*** lisp/ChangeLog      22 Apr 2006 23:39:47 -0000      1.9434
--- lisp/ChangeLog      23 Apr 2006 19:04:13 -0000
***************
*** 1,3 ****
--- 1,8 ----
+ 2006-04-23  Michaël Cadilhac  <michael.cadilhac@lrde.org> (tiny change)
+ 
+       * mail/footnote.el (Footnote-insert-footnote): Fix the search of the
+       last footnote when `footnote-spaced-footnotes' is nil.
+ 
  2006-04-23  Romain Francoise  <romain@orebokech.com>
  
        * comint.el (comint-match-partial-filename): Doc fix.
Index: lisp/mail/footnote.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/footnote.el,v
retrieving revision 1.12
diff -b -c -w -r1.12 footnote.el
*** lisp/mail/footnote.el       6 Feb 2006 12:31:40 -0000       1.12
--- lisp/mail/footnote.el       23 Apr 2006 19:04:13 -0000
***************
*** 501,507 ****
                                 (regexp-quote footnote-end-tag)))
                       nil t)
                  (unless (beginning-of-line) t))
!               (goto-char (point-max)))))
      (unless (looking-at "^$")
        (insert "\n"))
      (when (eobp)
--- 501,508 ----
                                 (regexp-quote footnote-end-tag)))
                       nil t)
                  (unless (beginning-of-line) t))
!               (Footnote-goto-char-point-max)
!               (re-search-backward (concat "^" footnote-section-tag-regexp) 
nil t))))
      (unless (looking-at "^$")
        (insert "\n"))
      (when (eobp)

-- 
 |      Michaël `Micha' Cadilhac   |   Would someone please DTRT with this  |
 |         Epita/LRDE Promo 2007   |         then ACK?                      |
 | http://www.lrde.org/~cadilh_m   |           -- Richard Stallman          |
 `--  -   JID: micha@amessage.be --'                                   -  --'

pgpGvhs5JQMHf.pgp
Description: PGP signature