X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=bbdb-to-lsdb.el;h=d2e9a0caca7a2c6d9f51f2a2c2b40da4c54b57b6;hb=aa4ed778cdcc215bfea871267ee39b896b034ba2;hp=e13f61acaa0bd2c88611140ff4c1322bab591fd8;hpb=6d34a5533deec0ac3cd9605a202ee36dcdd4098e;p=elisp%2Flsdb.git

diff --git a/bbdb-to-lsdb.el b/bbdb-to-lsdb.el
index e13f61a..d2e9a0c 100644
--- a/bbdb-to-lsdb.el
+++ b/bbdb-to-lsdb.el
@@ -38,14 +38,17 @@
   (while bbdb-records
     (when (setq value (bbdb-record-net (car bbdb-records)))
       (lsdb-update-record
+       (list (or (bbdb-record-name (car bbdb-records))
+		 (car value))
+	     (car value))
        (nconc
-	(list (bbdb-record-name (car bbdb-records))
-	      (cons 'net value))
+	(if (cdr value)
+	    (list (cons 'net (cdr value))))
 	(if (setq value (bbdb-record-aka (car bbdb-records)))
 	    (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))