X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=vm;h=6b4b1fba9e18422160119e4364593b775a9298f0;hp=0f4a218b6f372e895646a8c3d8ac99f771b5cb6d;hb=a7e48c45060cc7f5a339818f8b1e29884d925182;hpb=6c3f9b69ee5f2417199393d35268cf8fc1f969d8

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))