procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix thinko in textsec-url-suspicious-p

Browse source 
* lisp/international/textsec.el (textsec-url-suspicious-p): Don't
bug out on non-HTTP URLs.
This commit is contained in:
Lars Ingebrigtsen 2022-01-19 16:39:13 +01:00
parent 1bfc086391
commit 1e5e85f3ce
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/international/textsec.el
View file

@ -372,7 +372,9 @@ and `textsec-name-suspicious-p'."
If it isn't, return nil. If it is, return a string explaining the
potential problem."
(let ((parsed (url-generic-parse-url url)))
(textsec-domain-suspicious-p (url-host parsed))))
;; The URL may not have a domain.
(and (url-host parsed)
(textsec-domain-suspicious-p (url-host parsed)))))
(provide 'textsec)