diff options
Diffstat (limited to 'piem-notmuch.el')
| -rw-r--r-- | piem-notmuch.el | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/piem-notmuch.el b/piem-notmuch.el index ccfae75..8f5ef77 100644 --- a/piem-notmuch.el +++ b/piem-notmuch.el @@ -88,18 +88,17 @@ message itself if it looks like a patch." (call-process notmuch-command nil t nil "show" "--format=mbox" id)))) ("multipart/mixed" - (let ((patches - (delq nil - (mapcar (lambda (part) - (and (piem-am-patch-attachment-p - (plist-get part :content-type)) - (plist-get part :content))) - (plist-get body :content))))) - (when patches - (cons (lambda () - (dolist (patch patches) - (insert patch))) - "mbox")))))))) + (when-let ((patches + (delq nil + (mapcar (lambda (part) + (and (piem-am-patch-attachment-p + (plist-get part :content-type)) + (plist-get part :content))) + (plist-get body :content))))) + (cons (lambda () + (dolist (patch patches) + (insert patch))) + "mbox"))))))) ;;;###autoload (define-minor-mode piem-notmuch-mode |