From: Francois Fleuret Date: Mon, 10 Mar 2014 11:20:46 +0000 (+0100) Subject: Update. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=a7e48c45060cc7f5a339818f8b1e29884d925182;p=elisp.git Update. --- 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))