emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master e3b43f6cd8 3/3: Fix mailcap setup when no mailcap files exist


From: Lars Ingebrigtsen
Subject: master e3b43f6cd8 3/3: Fix mailcap setup when no mailcap files exist
Date: Fri, 14 Jan 2022 03:26:14 -0500 (EST)

branch: master
commit e3b43f6cd8a12926206c9a72baf156e5b5c90cef
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix mailcap setup when no mailcap files exist
    
    * lisp/net/mailcap.el (mailcap-parse-mailcaps): Ensure that we
    populate mailcap--computed-mime-data even if none of the files
    exist (bug#53009).
---
 lisp/net/mailcap.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el
index bf3c8edd1e..daa2d5a3fb 100644
--- a/lisp/net/mailcap.el
+++ b/lisp/net/mailcap.el
@@ -439,9 +439,10 @@ MAILCAPS if set; otherwise (on Unix) use the path from RFC 
1524, plus
              ("/usr/local/etc/mailcap" system)))))
     (when (stringp path)
       (setq path (mapcar #'list (split-string path path-separator t))))
-    (when (seq-some (lambda (f)
-                      (file-has-changed-p (car f) 'mail-parse-mailcaps))
-                    path)
+    (when (or (null mailcap--computed-mime-data)
+              (seq-some (lambda (f)
+                          (file-has-changed-p (car f) 'mail-parse-mailcaps))
+                        path))
       ;; Clear out all old data.
       (setq mailcap--computed-mime-data nil)
       ;; Add the Emacs-distributed defaults (which will be used as



reply via email to

[Prev in Thread] Current Thread [Next in Thread]