diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2021-01-10 19:47:20 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2021-01-15 07:30:00 -0400 |
| commit | 99bf983d8c1eab623f8a3eec59b593645160f472 (patch) | |
| tree | ca0f40c1c40c808bc9293bec43cc7cbf684a5f1b | |
| parent | 6cae6f32b197f863c2e53a8fc28d888998a4fb7c (diff) | |
emacs: notmuch-show--register-cids: fix names of bindings
| -rw-r--r-- | emacs/notmuch-show.el | 8 |
1 files 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))))))) |