From 992b5b8a33eab5ea0afa020030408f76dcfd4330 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Thu, 19 Oct 2017 20:07:05 -0400 Subject: [PATCH v2] 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. --- lisp/gnus/gnus-group.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 985efe6272..4a41c49590 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -2467,9 +2467,7 @@ gnus-read-ephemeral-bug-group ;; 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) -- 2.11.0