This has worked pretty much forever but I've apparently got a problem
entry in my bbdb that breaks both this and the
gnus-user-format-function-b provided in bbdb-gnus.el. I think it's an
issue with duplicate entries but maybe someone wiser than I can look
at the attached backtrace and figure out if there's really a problem
with the entry itself that I could fix. I have two entries for my
good friend Dr. Koenigsberg. One is his home address, the other
business. The home address entry contains a couple of net addresses,
the business one does not. I don't recall whether I explicitly
created the two entries of if they were built that way by SyncBBDB.
For the time being, I've taken %ub out of gnus-summary-line-format so
at least I'm working but I'd like to know how to fix this problem.
Thanks,
--
Dave Goldberg
[EMAIL PROTECTED]
Signaling: (wrong-type-argument listp ["Adam" "Koenigsberg" nil "Florida Eye
Associates" (["Work" "(321) 727-2020"] ["Fax" "(321) 726-4061"]) (["Main" ("502 East
New Haven Ave.") "Melbourne" "FL" "32901" "USA"]) nil ((creation-date . "2000-11-07")
(pilot-id . "13982388 \"Friends\" \"Main\"
\"Field1:2\" \"phone:Fax\"
\"Field2:0\" \"phone:Work\"
BBDB-Unused: \"note:creation-date\",\"note:timestamp\"") (timestamp . "2000-12-12"))
["Adam Koenigsberg" nil #<marker at 20660 in .bbdb 0x9b10ac> nil]])
bbdb-annotate-message-sender("Adam Koenigsberg <[EMAIL PROTECTED]>" t t t)
(if from (bbdb-annotate-message-sender from t (or ... offer-to-create) (or ...
offer-to-create)))
)
(let ((from ...) name net) (if (or ... ...) (setq from ...)) (if from
(bbdb-annotate-message-sender from t ... ...)))
)
(save-restriction (widen) (narrow-to-region (point-min) (progn ... ...)) (let (...
name net) (if ... ...) (if from ...)))
)
bbdb/gnus-update-record(t)
(let ((bbdb-gag-messages t) (record ...) (bbdb-electric-p nil)) (when
bbdb-use-pop-up (let ... ... ...)) (if record (bbdb-display-records ...)) record)
)
bbdb/gnus-pop-up-bbdb-buffer(t)
(or (bbdb/gnus-pop-up-bbdb-buffer t) (error "unperson"))
)
(lambda nil "Display the contents of the BBDB for the sender of this message.\nThis
buffer will be in `bbdb-mode', with associated keybindings." (interactive)
(gnus-summary-select-article) (or (bbdb/gnus-pop-up-bbdb-buffer t) (error
"unperson")))()
call-interactively(bbdb/gnus-show-sender)
