mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

Make ‘mailcap-viewer-passes-test’ return t for viewers without tests

Browse source 
* lisp/net/mailcap.el (mailcap-viewer-passes-test):
Make ‘mailcap-viewer-passes-test’ follow its docstring and return t
for viewers without a test.  (Bug#65224)
* test/lisp/net/mailcap-tests.el
(mailcap-viewer-passes-test-w/o-test-returns-t): New test.
This commit is contained in:
Felix Dietrich 2023-08-06 06:01:24 +02:00 • committed by Stefan Kangas
parent a26f399843
commit 4101464b47
2 changed files with 25 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/net/mailcap.el
View file

@ -689,9 +689,9 @@ to supply to the test."
status cache result)
(cond ((not (or (stringp viewer) (fboundp viewer)))
nil) ; Non-existent Lisp function
((null test-info) t) ; No test clause
((setq cache (assoc test mailcap-viewer-test-cache))
(cadr cache))
((not test-info) t) ; No test clause
(t
(setq
result