From 27495eeb67515f8dac0e7449aa2165272e8ebe5a Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 22 Nov 2020 15:46:08 -0500
Subject: Use when-let in a few more spots

Message-Id: <20201122204609.12604-4-kyle@kyleam.com>
---
 piem-notmuch.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'piem-notmuch.el')

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
-- 
cgit v1.2.3