diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-11-09 22:32:32 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-11-09 22:32:32 +0100 |
| commit | 7be2bdab8c32eabe82e83dcb43425f823d3a4da3 (patch) | |
| tree | 41301d8c204efda65f2c7274f7cd386ff977671c | |
| parent | 25a94ed8350400de5148fdac40bc3b37edf9a3d2 (diff) | |
mumi: Try harder to extract a display name.
* mumi/messages.scm (extract-name): Try to extract a name from the
email address.
| -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) |