(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))