lisp/ffap.el: Fix reference to variable thing-at-point-default-mail-uri-scheme.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7cbf733b45f..39018853285 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-08-09  Juanma Barranquero  <lekktu@gmail.com>
+
+        * ffap.el (ffap-url-at-point): Fix reference to variable
+        thing-at-point-default-mail-uri-scheme.
+
 2013-08-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * subr.el (define-error): New function.
diff --git a/lisp/ffap.el b/lisp/ffap.el
index ee0b87e8f87..737de8b5991 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1073,7 +1073,7 @@ Assumes the buffer has not changed."
     (or (and (eq major-mode 'w3-mode) ; In a w3 buffer button?
              (w3-view-this-url t))
         (let ((thing-at-point-beginning-of-url-regexp ffap-url-regexp)
-              (thing-at-point-default-mail-scheme ffap-foo-at-bar-prefix))
+              (thing-at-point-default-mail-uri-scheme ffap-foo-at-bar-prefix))
           (thing-at-point-url-at-point t
                                        (if (use-region-p)
                                            (cons (region-beginning)