(Footnote-text-under-cursor):

Check footnote-text-marker-alist before using it (bug#4324).

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 155b4804ebd..7882d1b1b04 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el
index 16a6adc1007..81f215dd726 100644
--- a/lisp/mail/footnote.el
+++ b/lisp/mail/footnote.el
@@ -566,7 +566,8 @@ a footnote."
                    (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))