branch: externals/ebdb
commit b2fdb42db9f86e8342b51a3288da579c9b42cd9f
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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)
