[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master aa79a5fc0fb 1/2: Support HTTPS URLs in newsticker-add-url
From: |
Stefan Kangas |
Subject: |
master aa79a5fc0fb 1/2: Support HTTPS URLs in newsticker-add-url |
Date: |
Wed, 25 Oct 2023 10:28:05 -0400 (EDT) |
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))