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 055a38a76e3b4462ada1a6ea3dcd726a9b6f5987..726134874ff2881671c877f26c9755df3f1c1e2e 100644 (file)
--- 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))