(otest test)
(viewer (cdr (assq 'viewer viewer-info)))
(default-directory (expand-file-name "~/"))
- status parsed-test cache result)
+ status cache result)
(cond ((not (or (stringp viewer) (fboundp viewer)))
nil) ; Non-existent Lisp function
((setq cache (assoc test mailcap-viewer-test-cache))
major ; Major encoding (text, etc)
minor ; Minor encoding (html, etc)
info ; Other info
- save-pos ; Misc. position during parse
+ ; save-pos ; Misc. position during parse (unused?)
major-info ; (assoc major mailcap-mime-data)
- minor-info ; (assoc minor major-info)
- test ; current test proc.
+ ; minor-info ; (assoc minor major-info) (unused?)
+ ; test ; current test proc. (unused?)
viewers ; Possible viewers
passed ; Viewers that passed the test
viewer ; The one and only viewer