>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
_______________________________________________
[email protected]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
