From 4ddb4dbaced88a36ef2a0735c1b911cb60f4f597 Mon Sep 17 00:00:00 2001 From: Felix Dietrich Date: Thu, 10 Mar 2022 03:45:09 +0100 Subject: [PATCH 04/10] Add the negated condition of the second to the third alternative MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The negation of the absence of a cur-minor entry (null cur-minor) is simply cur-minor. The negation of (assq ’test info) is already there: (not (assq ’test cur-minor)). Also: ¬(a ∨ b) = ¬a ∧ ¬b --- lisp/net/mailcap.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el index bb34fb86c0..48701ddee8 100644 --- a/lisp/net/mailcap.el +++ b/lisp/net/mailcap.el @@ -730,7 +730,8 @@ to supply to the test." (assq 'test info)) ; Has a test, insert at beginning (setcdr old-major (cons (cons minor info) (cdr old-major)))) - ((and (not (assq 'test info)) ; No test info, replace completely + ((and cur-minor + (not (assq 'test info)) ; No test info, replace completely (not (assq 'test cur-minor)) (equal (assq 'viewer info) ; Keep alternative viewer (assq 'viewer cur-minor))) -- 2.35.1