andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix problem when ~/.mailcap had several entries for a MIME type

Browse source 
* lisp/net/mailcap.el (mailcap-mime-info): Use all the matching
entries from ~/.mailcap, not just the first (bug#46318).
This commit is contained in:
Lars Ingebrigtsen 2021-02-06 11:40:00 +01:00
parent f853f2d428
commit 2932646232
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/mailcap.el
View file

@ -842,11 +842,11 @@ If NO-DECODE is non-nil, don't decode STRING."
;; ~/.mailcap file, then we filter out the system entries
;; and see whether we have anything left.
(when mailcap-prefer-mailcap-viewers
(when-let ((user-entry
(seq-find (lambda (elem)
(eq (cdr (assq 'source elem)) 'user))
passed)))
(setq passed (list user-entry))))
(when-let ((user-entries
(seq-filter (lambda (elem)
(eq (cdr (assq 'source elem)) 'user))
passed)))
(setq passed user-entries)))
(setq viewer (car passed))))
(when (and (stringp (cdr (assq 'viewer viewer)))
passed)