From: Jonas Bernoulli <jonas@bernoul.li>
Date: Sun, 10 Jan 2021 18:47:20 +0000 (+0100)
Subject: emacs: notmuch-show--register-cids: fix names of bindings
X-Git-Tag: 0.32_rc0~125
X-Git-Url: https://git.cworth.org/git?a=commitdiff_plain;h=99bf983d8c1eab623f8a3eec59b593645160f472;p=notmuch

emacs: notmuch-show--register-cids: fix names of bindings
---

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)))))))