diff options
-rw-r--r-- | mumi/messages.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 7e88635..5104aa1 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -41,6 +41,9 @@ (define-public (extract-name address) (or (assoc-ref address 'name) + (and=> (assoc-ref address 'address) + (lambda (address) + (string-take address (string-index address #\@)))) "Somebody")) (define-public (extract-email address) |