Re: Troubles with footnote-mode

[michael.cadilhac@lrde.org (Michaël Cadilhac)]

[-- Attachment #1.1.1: Type: text/plain, Size: 622 bytes --]

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?


[-- Attachment #1.1.2: footnote.patch --]
[-- Type: text/x-patch, Size: 1560 bytes --]

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)

[-- Attachment #1.1.3: Type: text/plain, Size: 323 bytes --]


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

[-- Attachment #1.2: Type: application/pgp-signature, Size: 188 bytes --]

[-- Attachment #2: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel