diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2021-01-10 19:47:21 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2021-01-15 07:30:14 -0400 |
| commit | f1ae9addc6ca974393062c764518895af5f295c4 (patch) | |
| tree | 568eab0f9d4c8181e8b50a8b4d0d66b713c3a993 | |
| parent | 99bf983d8c1eab623f8a3eec59b593645160f472 (diff) | |
emacs: notmuch-show--get-cid-content: cosmetics
| -rw-r--r-- | emacs/notmuch-show.el | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 21133611..8c846fb2 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -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 enclosing angle brackets, a cid: prefix, or URL encoding. This will return nil if the CID is unknown or cannot be retrieved." - (let ((descriptor (cdr (assoc cid notmuch-show--cids)))) - (when descriptor - (let* ((msg (car descriptor)) - (part (cadr descriptor)) - ;; Request caching for this content, as some messages - ;; reference the same cid: part many times (hundreds!). - (content (notmuch-get-bodypart-binary - msg part notmuch-show-process-crypto 'cache)) - (content-type (plist-get part :content-type))) - (list content content-type))))) + (when-let ((descriptor (cdr (assoc cid notmuch-show--cids)))) + (pcase-let ((`(,msg ,part) descriptor)) + ;; Request caching for this content, as some messages + ;; reference the same cid: part many times (hundreds!). + (list (notmuch-get-bodypart-binary + msg part notmuch-show-process-crypto 'cache) + (plist-get part :content-type))))) (defun notmuch-show-setup-w3m () "Instruct w3m how to retrieve content from a \"related\" part of a message." |