* shr.el (shr-browse-url): Call browse-url-mailto for mailto: links.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cfccb7..7dee8cd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-11-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * shr.el (shr-browse-url): Call browse-url-mailto for mailto: links.
+
        * message.el (message-mailto): New function.
        (message-mailto): Should accept other parameters.
        (message-mailto): Remove since it duplicates browse-url-mailto

diff --git a/lisp/shr.el b/lisp/shr.el
index c828d19..a567f20 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -344,7 +344,7 @@ redirects somewhere else."
      ((not url)
       (message "No link under point"))
      ((string-match "^mailto:" url)
-      (gnus-url-mailto url))
+      (browse-url-mailto url))
      (t
       (browse-url url)))))