projects
/
software
/
mumi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7d9336f
)
Defend against empty headers.
author
Ricardo Wurmus
<rekado@elephly.net>
Sat, 1 Sep 2018 20:14:29 +0000
(22:14 +0200)
committer
Ricardo Wurmus
<rekado@elephly.net>
Sat, 1 Sep 2018 20:14:29 +0000
(22:14 +0200)
mumi/messages.scm
patch
|
blob
|
history
diff --git
a/mumi/messages.scm
b/mumi/messages.scm
index e6edfe0cf09a02389c931c21c73ebc5754df1517..2e0f8ca35ccc2ee9b6e5dd2bc0da406d4773c8e5 100644
(file)
--- a/
mumi/messages.scm
+++ b/
mumi/messages.scm
@@
-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"))