debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Jonas Bernoulli 2021-01-10 19:47:20 +01:00 committed by David Bremner
parent 6cae6f32b1
commit 99bf983d8c
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-show.el
View file

@ -581,13 +581,13 @@ message at DEPTH in the current thread."
;; alternative (even if we can't render it). ;; alternative (even if we can't render it).
(push (list content-id msg part) notmuch-show--cids))) (push (list content-id msg part) notmuch-show--cids)))
;; Recurse on sub-parts ;; Recurse on sub-parts
(pcase-let ((`(,content ,type) (pcase-let ((`(,type ,subtype)
(split-string (downcase (plist-get part :content-type)) "/"))) (split-string (downcase (plist-get part :content-type)) "/")))
(cond ((equal content "multipart") (cond ((equal type "multipart")
(mapc (apply-partially #'notmuch-show--register-cids msg) (mapc (apply-partially #'notmuch-show--register-cids msg)
(plist-get part :content))) (plist-get part :content)))
((and (equal content "message") ((and (equal type "message")
(equal type "rfc822")) (equal subtype "rfc822"))
(notmuch-show--register-cids (notmuch-show--register-cids
msg msg
(car (plist-get (car (plist-get part :content)) :body))))))) (car (plist-get (car (plist-get part :content)) :body)))))))