[elpa] externals/ebdb 7caa1b4 308/350: Fix bug in reading mail alias fields

[Eric Abrahamsen]

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

    Fix bug in reading mail alias fields
    
    * ebdb.el (ebdb-read): Why was there a "car" in there?
---
 ebdb.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ebdb.el b/ebdb.el
index 77fb157..583794d 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -1772,7 +1772,7 @@ record uuids.")
   mail address to use with that alias.")
 
 (cl-defmethod ebdb-read ((class (subclass ebdb-field-mail-alias)) &optional 
slots obj)
-  (let ((alias (ebdb-read-string "Alias: " (when obj (car (slot-value obj 
'alias)))
+  (let ((alias (ebdb-read-string "Alias: " (when obj (slot-value obj 'alias))
                                 (mapcar #'car ebdb-mail-alias-alist))))
     (cl-call-next-method class (plist-put slots :alias alias) obj)))