diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-11-22 15:46:08 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-11-22 19:50:56 -0500 |
| commit | 27495eeb67515f8dac0e7449aa2165272e8ebe5a (patch) | |
| tree | 863fbc9989893da5d273054a4a7da8db458e22a6 /piem-notmuch.el | |
| parent | 72640c7b22f599369d799ce11d8bb55e10c78eeb (diff) | |
| download | piem-27495eeb67515f8dac0e7449aa2165272e8ebe5a.tar.gz | |
Use when-let in a few more spots
Message-Id: <20201122204609.12604-4-kyle@kyleam.com>
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 |