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

emacs: notmuch-show--get-cid-content: cosmetics

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

17
emacs/notmuch-show.el
View file

@ -599,16 +599,13 @@ This will only find parts from messages that have been inserted
into the current buffer. CID must be a raw content ID, without into the current buffer. CID must be a raw content ID, without
enclosing angle brackets, a cid: prefix, or URL encoding. This enclosing angle brackets, a cid: prefix, or URL encoding. This
will return nil if the CID is unknown or cannot be retrieved." will return nil if the CID is unknown or cannot be retrieved."
(let ((descriptor (cdr (assoc cid notmuch-show--cids)))) (when-let ((descriptor (cdr (assoc cid notmuch-show--cids))))
(when descriptor (pcase-let ((`(,msg ,part) descriptor))
(let* ((msg (car descriptor)) ;; Request caching for this content, as some messages
(part (cadr descriptor)) ;; reference the same cid: part many times (hundreds!).
;; Request caching for this content, as some messages (list (notmuch-get-bodypart-binary
;; reference the same cid: part many times (hundreds!). msg part notmuch-show-process-crypto 'cache)
(content (notmuch-get-bodypart-binary (plist-get part :content-type)))))
msg part notmuch-show-process-crypto 'cache))
(content-type (plist-get part :content-type)))
(list content content-type)))))
(defun notmuch-show-setup-w3m () (defun notmuch-show-setup-w3m ()
"Instruct w3m how to retrieve content from a \"related\" part of a message." "Instruct w3m how to retrieve content from a \"related\" part of a message."