Revert handling Date: field.

[elisp/lsdb.git] / bbdb-to-lsdb.el

diff --git a/bbdb-to-lsdb.el b/bbdb-to-lsdb.el
index 12a89cb..d2e9a0c 100644 (file)
--- a/bbdb-to-lsdb.el
+++ b/bbdb-to-lsdb.el
@@ -38,7 +38,8 @@
   (while bbdb-records
     (when (setq value (bbdb-record-net (car bbdb-records)))
       (lsdb-update-record
-       (list (bbdb-record-name (car bbdb-records))
+       (list (or (bbdb-record-name (car bbdb-records))
+                (car value))
             (car value))
        (nconc
        (if (cdr value)
@@ -47,7 +48,7 @@
            (list (cons 'aka value)))
        (if (setq value (bbdb-record-company (car bbdb-records)))
            (list (cons 'company value)))
-       (bbdb-record-notes (car bbdb-records)))))
+       (bbdb-record-raw-notes (car bbdb-records)))))
     (setq bbdb-records (cdr bbdb-records)))
   (lsdb-mode-save t))