From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 25 Oct 2023 12:34:15 +0000 (+0200)
Subject: Support HTTPS URLs in newsticker-add-url
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa79a5fc0fb7c33d5502fbb3e4ba98479323e06d;p=emacs.git

Support HTTPS URLs in newsticker-add-url

* lisp/net/newst-backend.el (newsticker-add-url): Support HTTPS.
---

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))