michael.cadilhac@lrde.org (Michaël Cadilhac) writes:

> 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.
>

  I haven't seen the following (minor) patch installed.

  Andrew M. Scott sent me a complete study of this package, I'll have
  a look at it in some week.

  Regards.


> 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 --'                                   -  --'