# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1252033784 0
# Node ID b255a4a2d4f54ac07324040f9ebbb79faa11276e
# Parent  6e7b745a5ee5b95c8ba38c2fa3bf8fcee0eb3ad5
(Footnote-text-under-cursor):
Check footnote-text-marker-alist before using it (bug#4324).

diff -r 6e7b745a5ee5 -r b255a4a2d4f5 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 04 03:00:31 2009 +0000
+++ b/lisp/ChangeLog	Fri Sep 04 03:09:44 2009 +0000
@@ -1,3 +1,8 @@
+2009-09-04  Leo  <sdl.web@gmail.com>  (tiny change)
+
+	* mail/footnote.el (Footnote-text-under-cursor):
+	Check footnote-text-marker-alist before using it (bug#4324).
+
 2009-09-04  Glenn Morris  <rgm@gnu.org>
 
 	* calendar/diary-lib.el (diary-fancy-display): Only switch modes if
diff -r 6e7b745a5ee5 -r b255a4a2d4f5 lisp/mail/footnote.el
--- a/lisp/mail/footnote.el	Fri Sep 04 03:00:31 2009 +0000
+++ b/lisp/mail/footnote.el	Fri Sep 04 03:09:44 2009 +0000
@@ -566,7 +566,8 @@
 		   (Footnote-narrow-to-footnotes)
 		   (and (>= old-point (point-min))
 			(<= old-point (point-max))))))
-	     (>= (point) (cdar footnote-text-marker-alist)))
+	     footnote-text-marker-alist
+             (>= (point) (cdar footnote-text-marker-alist)))
     (let ((i 1)
 	  alist-txt rc)
       (while (and (setq alist-txt (nth i footnote-text-marker-alist))