From 99bf983d8c1eab623f8a3eec59b593645160f472 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sun, 10 Jan 2021 19:47:20 +0100 Subject: [PATCH] emacs: notmuch-show--register-cids: fix names of bindings --- emacs/notmuch-show.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index fdf4ab3c..21133611 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -581,13 +581,13 @@ message at DEPTH in the current thread." ;; alternative (even if we can't render it). (push (list content-id msg part) notmuch-show--cids))) ;; Recurse on sub-parts - (pcase-let ((`(,content ,type) + (pcase-let ((`(,type ,subtype) (split-string (downcase (plist-get part :content-type)) "/"))) - (cond ((equal content "multipart") + (cond ((equal type "multipart") (mapc (apply-partially #'notmuch-show--register-cids msg) (plist-get part :content))) - ((and (equal content "message") - (equal type "rfc822")) + ((and (equal type "message") + (equal subtype "rfc822")) (notmuch-show--register-cids msg (car (plist-get (car (plist-get part :content)) :body))))))) -- 2.43.0