(email (car (elt record 6)))
(alias (downcase (replace-regexp-in-string
"\\([a-zA-Z]?\\)[^- ]*[- ]*" "\\1" name))))
(email (car (elt record 6)))
(alias (downcase (replace-regexp-in-string
"\\([a-zA-Z]?\\)[^- ]*[- ]*" "\\1" name))))
;; Do not overwrite an existing alias
(not (and mail-abbrevs (intern-soft alias mail-abbrevs))))
(define-mail-abbrev alias email))
;; Do not overwrite an existing alias
(not (and mail-abbrevs (intern-soft alias mail-abbrevs))))
(define-mail-abbrev alias email))