diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-10-19 20:07:05 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-10-21 15:19:14 -0400 |
| commit | b060e091c35e8482e0e091a214cf5afe5039bd0e (patch) | |
| tree | c3d2e4627835a8e1b8f36fdd6bd689f11ad87fe2 | |
| parent | 9e4265ef91bd659a5fac49fbe7dc34b91f89d4ed (diff) | |
| download | emacs-b060e091c35e8482e0e091a214cf5afe5039bd0e.tar.gz | |
Handle https url for debbugs mbox (Bug#28831)
In 2017-09-13 "Prefer HTTPS to FTP and HTTP in documentation",
gnus-bug-group-download-format-alist was updated to use https for the
debbugs.gnu.org mbox links, but gnus-read-ephemeral-bug-group assumed
http links.
* lisp/gnus/gnus-group.el (gnus-read-ephemeral-bug-group): Use
url-parse functions to get the host name, instead of ad-hoc regexps.
| -rw-r--r-- | lisp/gnus/gnus-group.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 985efe6272f..4a41c495900 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -2467,9 +2467,7 @@ the bug number, and browsing the URL must return mbox output." ;; Add the debbugs address so that we can respond to reports easily. (let ((address (format "%s@%s" (car ids) - (replace-regexp-in-string - "/.*$" "" - (replace-regexp-in-string "^http://" "" mbox-url))))) + (url-host (url-generic-parse-url mbox-url))))) (goto-char (point-min)) (while (re-search-forward (concat "^" message-unix-mail-delimiter) nil t) |