From: Elias Pipping <pipping@lavabit.com>
Date: Fri, 27 Jan 2012 18:57:44 +0000 (+0100)
Subject: (shr-browse-url): Fix the name of the `browse-url-mail' function call.
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=0ecef6b19247b6b55014a8fd84030d75236252d8

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d246b04dd..04bd1e133 100644
--- 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 969d893c2..acce76602 100644
--- 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.