(Footnote-text-under-cursor):

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 155b4804ebd00657a720e80b720d63a925f279a4..7882d1b1b04eec0fc8b2dc757464c47a6d510cbf 100644 (file)
--- 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 16a6adc10073e0d706ebdbd1b856d57dcb85fe86..81f215dd72661d6753568f7421e2ae42d5f8e9b2 100644 (file)
--- 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))