branch: externals/ebdb
commit f0b0a32e1100a222f6f5ee409183d875017c7b3f
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Fix organization name matching in migration
* ebdb-migrate.el (ebdb-migrate-from-bbdb): Organization name slots
are no longer plain strings.
---
ebdb-migrate.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/ebdb-migrate.el b/ebdb-migrate.el
index 751d70f..dbabffa 100644
--- a/ebdb-migrate.el
+++ b/ebdb-migrate.el
@@ -393,7 +393,10 @@ holding valid contacts in a previous BBDB format."
(dolist (o orgs)
;; Make all the orgs into real records.
(unless (string= o "") ; There are many of these.
- (setq org (or (object-assoc o 'name c-records)
+ (setq org (or (seq-find
+ (lambda (r)
+ (string= o (ebdb-record-name r)))
+ c-records)
(let ((time (current-time)))
(ebdb-db-add-record
target-db
