branch: externals/ebdb
commit bbfdc70297fabeaba060d1401bef92bdcd74cfa0
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
Set mail priority on record creation
* ebdb.el (ebdb-read): Make the first mail address entered the
priority address.
---
ebdb.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/ebdb.el b/ebdb.el
index 41b93da..9977154 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2956,6 +2956,8 @@ If FIELD doesn't specify a year, use the current year."
(ebdb-read ebdb-default-phone-class)))
(address (ebdb-loop-with-exit
(ebdb-read ebdb-default-address-class))))
+ (when mail
+ (setf (slot-value (car mail) 'priority) 'primary))
(setq slots (plist-put slots :mail mail))
(setq slots (plist-put slots :phone phone))
(setq slots (plist-put slots :address address))
