(defun maybe-bind (args)
(mapcar (lambda (var) (unless (boundp var) (set var nil))) args))
-(maybe-fbind '(bbdb-records
- bbdb-search bbdb-create-internal
+(maybe-fbind '(bbdb-create-internal bbdb-records
create-image display-graphic-p
display-time-event-handler find-image image-size
image-type-available-p insert-image