[elpa] externals/ebdb f0b0a32 093/350: Fix organization name matching in migration

[Eric Abrahamsen]

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

    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