[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb bbfdc70 04/15: Set mail priority on record creatio
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb bbfdc70 04/15: Set mail priority on record creation |
Date: |
Sun, 1 Apr 2018 06:02:44 -0400 (EDT) |
branch: externals/ebdb
commit bbfdc70297fabeaba060d1401bef92bdcd74cfa0
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
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))
- [elpa] externals/ebdb updated (9e7a96f -> d60338c), Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 261454d 03/15: Return results of ebdb-loop-with-exit in correct order, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb bbfdc70 04/15: Set mail priority on record creation,
Eric Abrahamsen <=
- [elpa] externals/ebdb 5b4d834 01/15: Organization/role delete method needs to be an :around, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 9ab7b56 07/15: Improvements to ebdb-edit-foo, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb a25e1eb 06/15: Use values from "slots" in role field ebdb-read, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 9bd965b 02/15: Simplify ebdb-with-record-edits, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 4bb77e3 11/15: Add mail deletion behavior, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 27a1fa5 05/15: Move field manipulation "convenience logic" into ebdb-com, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 70754b8 08/15: Fix unnecessary code in ebdb-follow-related, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb c3e06ee 12/15: Use quoted field class, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb a7e88d4 14/15: Update copyright dates, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 7a5ce18 13/15: Handle mail priority after customization edits, Eric Abrahamsen, 2018/04/01