(shr-browse-url): Fix the name of the `browse-url-mail' function call.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d246b04..04bd1e1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-01-27  Elias Pipping  <pipping@lavabit.com>  (tiny change)
+
+       * shr.el (shr-browse-url): Fix the name of the `browse-url-mail'
+       function call.
+
 2012-01-27  Vida Gábor  <vidagabor@gmail.com>  (tiny change)
 
        * gnus-demon.el (gnus-demon-run-callback, gnus-demon-init): Convert to

diff --git a/lisp/shr.el b/lisp/shr.el
index 969d893..acce766 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -480,7 +480,7 @@ the URL of the image to the kill buffer instead."
      ((not url)
       (message "No link under point"))
      ((string-match "^mailto:" url)
-      (browse-url-mailto url))
+      (browse-url-mail url))
      (t
       (browse-url url)))))
 
@@ -566,7 +566,7 @@ the URL of the image to the kill buffer instead."
 ;; url-cache-extract autoloads url-cache.
 (declare-function url-cache-create-filename "url-cache" (url))
 (autoload 'mm-disable-multibyte "mm-util")
-(autoload 'browse-url-mailto "browse-url")
+(autoload 'browse-url-mail "browse-url")
 
 (defun shr-get-image-data (url)
   "Get image data for URL.