From a7e48c45060cc7f5a339818f8b1e29884d925182 Mon Sep 17 00:00:00 2001
From: Francois Fleuret <francois@fleuret.org>
Date: Mon, 10 Mar 2014 12:20:46 +0100
Subject: [PATCH] Update.
---
vm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/vm b/vm
index 0f4a218..6b4b1fb 100644
--- a/vm
+++ b/vm
@@ -662,7 +662,8 @@ instance, someone in bbdb named \"Paul Smith\" would generate an alias
(email (car (elt record 6)))
(alias (downcase (replace-regexp-in-string
"\\([a-zA-Z]?\\)[^- ]*[- ]*" "\\1" name))))
- (if (and (> (length alias) 1)
+ (if (and email
+ (> (length alias) 1)
;; Do not overwrite an existing alias
(not (and mail-abbrevs (intern-soft alias mail-abbrevs))))
(define-mail-abbrev alias email))
--
2.39.5