Fix the last change.
authorueno <ueno>
Tue, 30 Apr 2002 04:09:47 +0000 (04:09 +0000)
committerueno <ueno>
Tue, 30 Apr 2002 04:09:47 +0000 (04:09 +0000)
bbdb-to-lsdb.el

index e13f61a..12a89cb 100644 (file)
   (while bbdb-records
     (when (setq value (bbdb-record-net (car bbdb-records)))
       (lsdb-update-record
+       (list (bbdb-record-name (car bbdb-records))
+            (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)))