Mercurial > emacs
changeset 111478:3cd0a7a068d5
* net/browse-url.el (browse-url-browser-function): Change the
default to use `browse-url-mail' on mailto: URLs.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Wed, 10 Nov 2010 23:27:02 +0100 |
| parents | 59101ed2e4c6 |
| children | 244f248736b4 |
| files | lisp/ChangeLog lisp/net/browse-url.el |
| diffstat | 2 files changed, 13 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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"