# HG changeset patch
# User Lars Magne Ingebrigtsen <larsi@gnus.org>
# Date 1289428022 -3600
# Node ID 3cd0a7a068d5c85558cf8006c6d42d75c785cd9d
# Parent  59101ed2e4c61006ec915bc3754aeb65afe85ce9
* net/browse-url.el (browse-url-browser-function): Change the
default to use `browse-url-mail' on mailto: URLs.

diff -r 59101ed2e4c6 -r 3cd0a7a068d5 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 10 16:35:06 2010 -0500
+++ b/lisp/ChangeLog	Wed Nov 10 23:27:02 2010 +0100
@@ -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 -r 59101ed2e4c6 -r 3cd0a7a068d5 lisp/net/browse-url.el
--- a/lisp/net/browse-url.el	Wed Nov 10 16:35:06 2010 -0500
+++ b/lisp/net/browse-url.el	Wed Nov 10 23:27:02 2010 +0100
@@ -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 @@
 	  (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"