>>>>> "Jon" == Jon Konrath <[EMAIL PROTECTED]> writes:
Jon> I got this patch for adding records to bbdb inside w3 but it freaks
Jon> out when there is already a record in place. Is there a better way to
Jon> simply add a www field to an existing record?
Ok, this was code I created (and sent to Boris Goldowsky
<[EMAIL PROTECTED]> some time ago). The problem is that the function
w3-view-url/w3-view-this-url was replaced with the newest version of w3. Here
is a fixed piece of code:
;;; From Josef Schneeberger <[EMAIL PROTECTED]>
(defun bbdb-grab-www-homepage (record)
"Grab the current URL and store it in the bbdb database"
(interactive (list (bbdb-completing-read-record "Add WWW homepage for: ")))
;; if there is no database record for this person, create one
(cond ((null record)
(setq record (bbdb-read-new-record))
(bbdb-invoke-hook 'bbdb-create-hook record))
;; .. ok, it already exists ..
(t nil))
;; ... now add a www slot to the record
(bbdb-record-putprop record 'www (url-view-url t))
(bbdb-change-record record t)
(bbdb-display-records (list record)))
