[elpa] externals/ebdb b2fdb42 064/350: Include record name when prompting for mail

[Eric Abrahamsen]

branch: externals/ebdb
commit b2fdb42db9f86e8342b51a3288da579c9b42cd9f
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Include record name when prompting for mail
    
    * ebdb.el: Slightly easier to use this way.
---
 ebdb.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ebdb.el b/ebdb.el
index a226368..d41a32f 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -3268,7 +3268,9 @@ Returns a list of (\"label\" slot . field-class)."
                     (ebdb-record-mail record t))))
     (cdr (if (= 1 (length mail-alist))
             (car mail-alist)
-          (assoc (ebdb-read-string "Mail address: " nil mail-alist t)
+          (assoc (ebdb-read-string
+                  (format "Mail address for %s: " (ebdb-string record))
+                  nil mail-alist t)
                  mail-alist)))))
 
 (defun ebdb-dirty-records (&optional records)