Defend against empty headers.
authorRicardo Wurmus <rekado@elephly.net>
Sat, 1 Sep 2018 20:14:29 +0000 (22:14 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sat, 1 Sep 2018 20:14:29 +0000 (22:14 +0200)
mumi/messages.scm

index e6edfe0..2e0f8ca 100644 (file)
@@ -47,7 +47,7 @@
 (define-public extract-email mu-address-get-email)
 
 (define (header message key)
-  (first (assoc-ref (email-headers message) key)))
+  (and=> (assoc-ref (email-headers message) key) first))
 
 (define-public (sender message)
   (header message "from"))