Re: Troubles with footnote-mode

[Michaël Cadilhac]

address@hidden (Michaël Cadilhac) writes:

> Tassilo Horn <address@hidden> 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  <address@hidden> (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  <address@hidden>
>
>       * 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: address@hidden --'                                   -  --'

pgpxWGON8wjHh.pgp
Description: PGP signature