procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix report-emacs-bug via mailclient on MS-Windows

Browse source 
* lisp/net/browse-url.el (browse-url-default-windows-browser):
On MS-Windows, call url-unhex-string only for file:// URLs.
(Bug#31351)
This commit is contained in:
Eli Zaretskii 2018-05-03 21:04:17 +03:00
parent f4b5ff20a6
commit 91de88bfeb
1 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/net/browse-url.el
View file

@ -878,7 +878,21 @@ The optional NEW-WINDOW argument is not used."
(error "Browsing URLs is not supported on this system"))) (error "Browsing URLs is not supported on this system")))
((eq system-type 'cygwin) ((eq system-type 'cygwin)
(call-process "cygstart" nil nil nil url)) (call-process "cygstart" nil nil nil url))
(t (w32-shell-execute "open" (url-unhex-string url))))) (t
(w32-shell-execute "open"
;; w32-shell-execute passes file:// URLs
;; to APIs that expect file names, so we
;; need to unhex any %nn encoded
;; characters in the URL. We don't do
;; that for other URLs; in particular,
;; default Windows mail client barfs on
;; quotes in the MAILTO URLs, so we prefer
;; to leave the URL with its embedded %nn
;; encoding intact.
(if (eq t (compare-strings url nil 7
"file://" nil nil))
(url-unhex-string url)
url)))))
(defun browse-url-default-macosx-browser (url &optional _new-window) (defun browse-url-default-macosx-browser (url &optional _new-window)
"Invoke the macOS system's default Web browser. "Invoke the macOS system's default Web browser.