From aa79a5fc0fb7c33d5502fbb3e4ba98479323e06d Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 25 Oct 2023 14:34:15 +0200 Subject: [PATCH] Support HTTPS URLs in newsticker-add-url * lisp/net/newst-backend.el (newsticker-add-url): Support HTTPS. --- lisp/net/newst-backend.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 055a38a76e3..726134874ff 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el @@ -618,13 +618,13 @@ If URL is nil it is searched at point." (end-of-line) (and (re-search-backward - "http://" + (rx "http" (? "s") "://") (if (> (point) (+ (point-min) 100)) (- (point) 100) (point-min)) t) (re-search-forward - "http://[-a-zA-Z0-9&/_.]*" + (rx "http" (? "s") "://" (zero-or-more (any "-a-zA-Z0-9&/_."))) (if (< (point) (- (point-max) 200)) (+ (point) 200) (point-max)) -- 2.39.2