[Emacs-diffs] /srv/bzr/emacs/trunk r102326: * net/browse-url.el (browse-url-browser-function): Change the

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 102326
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-10 23:27:02 +0100
message:
  * net/browse-url.el (browse-url-browser-function): Change the
  default to use `browse-url-mail' on mailto: URLs.
modified:
  lisp/ChangeLog
  lisp/net/browse-url.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-10 21:35:06 +0000
+++ b/lisp/ChangeLog    2010-11-10 22:27:02 +0000
@@ -1,3 +1,8 @@
+2010-11-10  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/browse-url.el (browse-url-browser-function): Change the
+       default to use `browse-url-mail' on mailto: URLs.
+
 2010-11-10  Chong Yidong  <address@hidden>
 
        * emacs-lisp/package.el (package-read-all-archive-contents): Reset

=== modified file 'lisp/net/browse-url.el'
--- a/lisp/net/browse-url.el    2010-11-10 00:02:44 +0000
+++ b/lisp/net/browse-url.el    2010-11-10 22:27:02 +0000
@@ -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"