From 3d2d941576f5f1d6fdf30d5226cc6a5a52215e00 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 25 Oct 2023 23:26:37 +0200 Subject: [PATCH] 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)))) -- 2.39.2