>From 2cee5c24542a8a353a910d0cf597fc5d69c92333 Mon Sep 17 00:00:00 2001 Date: Mon, 19 Sep 2011 17:37:38 +0800 Subject: [PATCH] Discriminate completion candidates in bbdb-add-mail-alias
--- lisp/bbdb-com.el | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/lisp/bbdb-com.el b/lisp/bbdb-com.el index ac8db5f8..58aed816 100644 --- a/lisp/bbdb-com.el +++ b/lisp/bbdb-com.el @@ -2373,7 +2373,10 @@ (defun bbdb-add-mail-alias (record &optional alias delete) (completing-read (format "%s mail alias: " (if current-prefix-arg "Remove" "Add")) - (bbdb-get-mail-aliases) nil nil + (if current-prefix-arg + (or (bbdb-record-note-split record bbdb-mail-alias-field) + (error "Record has no alias")) + (bbdb-get-mail-aliases)) nil nil init) current-prefix-arg))) (setq alias (bbdb-string-trim alias)) (unless (string= "" alias) -- 1.7.6 ------------------------------------------------------------------------------ BlackBerry® DevCon Americas, Oct. 18-20, San Francisco, CA Learn about the latest advances in developing for the BlackBerry® mobile platform with sessions, labs & more. See new tools and technologies. Register for BlackBerry® DevCon today! http://p.sf.net/sfu/rim-devcon-copy1 _______________________________________________ bbdb-info@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/