master aa79a5fc0fb 1/2: Support HTTPS URLs in newsticker-add-url

[Stefan Kangas]

branch: master
commit aa79a5fc0fb7c33d5502fbb3e4ba98479323e06d
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

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