* net/browse-url.el (browse-url-browser-function): Change the

default to use `browse-url-mail' on mailto: URLs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7c3cb148ef8c41a7e447d365d9a0f971c3a6682..eaae82a892d08e7420adc72cd6491377aaf61975 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-11-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * net/browse-url.el (browse-url-browser-function): Change the
+       default to use `browse-url-mail' on mailto: URLs.
+
 2010-11-10  Chong Yidong  <cyd@stupidchicken.com>
 
        * emacs-lisp/package.el (package-read-all-archive-contents): Reset

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index c89d27fbf0c18075fd5ebe9b8d305bb94c575779..1e653f6708da8dfbd437950d51ad566702a99443 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -216,11 +216,13 @@
 
 ;;;###autoload
 (defcustom browse-url-browser-function
-  (cond
-   ((memq system-type '(windows-nt ms-dos cygwin))
-    'browse-url-default-windows-browser)
-   ((memq system-type '(darwin)) 'browse-url-default-macosx-browser)
-   (t 'browse-url-default-browser))
+  `(("\\`mailto:" . browse-url-mail)
+    ("." .
+     ,(cond
+       ((memq system-type '(windows-nt ms-dos cygwin))
+       'browse-url-default-windows-browser)
+       ((memq system-type '(darwin)) 'browse-url-default-macosx-browser)
+       (t 'browse-url-default-browser))))
   "Function to display the current buffer in a WWW browser.
 This is used by the `browse-url-at-point', `browse-url-at-mouse', and
 `browse-url-of-file' commands.
@@ -260,7 +262,7 @@ regexp should probably be \".\" to specify a default browser."
          (function :tag "Your own function")
          (alist :tag "Regexp/function association list"
                 :key-type regexp :value-type function))
-  :version "21.1"
+  :version "24.1"
   :group 'browse-url)
 
 (defcustom browse-url-netscape-program "netscape"