Currently bbdb-parse-phone-number converts
;; 1234 -> (0 0 0 1234)
I believe it should be
;; 1234 -> ("x1234")
The extra 0's causes syncBBDB to send them over to the palm, when only the
extension should be sent. I don't know if bbdb is the best place to fix
it, so I'm currently using a defadvice..
(defadvice bbdb-parse-phone-number (after fix-ext (string) activate)
"if a user just defines an extension, make it a string and remove the
miscellaneous 0's. In other words, change (0 0 0 NNNN) to (\"NNNN\")"
(let ((lst ad-return-value))
(when (and (= (length lst) 4)
(zerop (car lst))
(zerop (cadr lst))
(zerop (caddr lst)))
(if (numberp (cadddr lst))
(setq ad-return-value
(list (concat "x" (number-to-string (cadddr lst)))))
(setq ad-return-value (cdddr lst)))
)))
_______________________________________________
bbdb-info mailing list
[EMAIL PROTECTED]
http://lists.sourceforge.net/lists/listinfo/bbdb-info
