From 2cfb0760c28e2afbb59ad01996b611d28cff47f9 Mon Sep 17 00:00:00 2001 From: Felix Dietrich Date: Thu, 10 Mar 2022 03:51:08 +0100 Subject: [PATCH 05/10] Remove the second condition MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit With the conjunction of the negation of the second alternativeʼs condition with the third alternativeʼs condition in the previous patch, the second alternative has become redundant, because the condition of the third alternative now ensure that it will not run in cases that were previously handled by the second alternative. Since the second alternative had the same body-form as the last, that is the default alternative, it can be correctly handled by the default alternative as well. --- lisp/net/mailcap.el | 4 ---- 1 file changed, 4 deletions(-) diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el index 48701ddee8..165945040d 100644 --- a/lisp/net/mailcap.el +++ b/lisp/net/mailcap.el @@ -726,10 +726,6 @@ to supply to the test." (set storage (cons (cons major (list (cons minor info))) (symbol-value storage)))) - ((or (null cur-minor) ; New minor area, or - (assq 'test info)) ; Has a test, insert at beginning - (setcdr old-major - (cons (cons minor info) (cdr old-major)))) ((and cur-minor (not (assq 'test info)) ; No test info, replace completely (not (assq 'test cur-minor)) -- 2.35.1