debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48: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

13
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))
(part (cadr descriptor))
;; Request caching for this content, as some messages ;; Request caching for this content, as some messages
;; reference the same cid: part many times (hundreds!). ;; reference the same cid: part many times (hundreds!).
(content (notmuch-get-bodypart-binary (list (notmuch-get-bodypart-binary
msg part notmuch-show-process-crypto 'cache)) msg part notmuch-show-process-crypto 'cache)
(content-type (plist-get part :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."