master 3d2d941576f 3/3: Support HTTPS links in newsticker extra elements

[Stefan Kangas]

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

    Support HTTPS links in newsticker extra elements
    
    * lisp/net/newst-reader.el (newsticker--do-print-extra-element):
    Support HTTPS links.
---
 lisp/net/newst-reader.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/net/newst-reader.el b/lisp/net/newst-reader.el
index 9ec0b395675..3c79304d8dd 100644
--- a/lisp/net/newst-reader.el
+++ b/lisp/net/newst-reader.el
@@ -237,7 +237,8 @@ for formatting."
     (cond ((listp contents)
            (mapc (lambda (i)
                    (if (and (stringp i)
-                            (string-match "^http://.*"; i))
+                            (string-match
+                             (rx bol "http" (? "s") "://" (* nonl)) i))
                        (let ((pos (point)))
                          (insert i " ") ; avoid self-reference from the
                                         ; nt-link thing
@@ -248,7 +249,7 @@ for formatting."
                                 'help-echo
                                 (format "mouse-2: visit (%s)" i)
                                 'keymap keymap)))
-                         (insert (format "%s" i))))
+                     (insert (format "%s" i))))
                  contents))
           (t
            (insert (format "%s" contents))))