From befca96cd7ea332c9bec4136d23dfbc58d0ba805 Mon Sep 17 00:00:00 2001 From: Felix Dietrich Date: Thu, 10 Mar 2022 04:20:27 +0100 Subject: [PATCH 07/10] Add extra variables to make things clearer --- lisp/net/mailcap.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el index 2d93720a56..e7575e8097 100644 --- a/lisp/net/mailcap.el +++ b/lisp/net/mailcap.el @@ -720,12 +720,14 @@ to supply to the test." (defun mailcap-add-mailcap-entry (major minor info &optional storage) (let* ((storage (or storage 'mailcap--computed-mime-data)) (old-major (assoc major (symbol-value storage))) - (cur-minor (assoc minor old-major))) + (cur-minor (assoc minor old-major)) + (new-minor-entry (cons minor info)) + new-major) (cond ((null old-major) ; New major area + (setq new-major (list major new-minor-entry)) (set storage - (cons (list major (cons minor info)) - (symbol-value storage)))) + (cons new-major (symbol-value storage)))) ((and cur-minor (not (assq 'test info)) ; No test info, replace completely (not (assq 'test cur-minor)) @@ -734,7 +736,7 @@ to supply to the test." (setcdr cur-minor info)) (t (setcdr old-major - (cons (cons minor info) (cdr old-major))))))) + (cons new-minor-entry (cdr old-major))))))) (defun mailcap-add (type viewer &optional test) "Add VIEWER as a handler for TYPE. -- 2.35.1