Re: how to turn off fontification...

[Andrew J Cosgriff <Andrew.Cosgriff@cc.monash.edu.au>]

"David" == David Hedbor <david@hedbor.org> writes:

David> To make this post a bit more on topic - have anyone made hacks
David> for BBDB, which automatically includes the newsgroups a person
David> has posted in or perhaps a hack that extracts X-Url?

You want to fiddle with bbdb-auto-notes-alist.
Here's what I'm doing, which mostly came from the bbdb addons page at
http://www.forwiss.uni-erlangen.de/~jws/bbdb/

(setq bbdb-auto-notes-alist
      (append
       (list
        (append '("From")
                '(
                  ("@cc.monash.edu.au" company "Monash University, Computer Centre")
                  ("@comtech.com.au" company "ComTech Communications")
                  ("@.*\\.sun.com" company "Sun Microsystems")
                  ;; <other, literal From-related notes go here>
                  )
                ;; Recognize the country names implicit in the address
                (mapcar (function
                         (lambda (x)
                           (list (concat "@[^<>, ()]*\\." (car x) "\\([<>, ()].*\\)?$")
                                 'country
                                 (nth 1 x))))
                        domain-country-list)
                )
        )
       '(
         ("To"
          ("ding@" seen-on "lists.ding")
          ("zsh-workers@" seen-on "lists.zsh.workers")
          ("zsh-users@" seen-on "lists.zsh.users")
          ("xemacs-\\(beta\\|discuss\\|webmaint\\)@" seen-on "lists.xemacs")
          ("fvwm@" seen-on "lists.fvwm")
          ("squid-users@" seen-on "lists.squid.users")
          ("ausproxy@" seen-on "lists.ausproxy")
          ("nmh-workers@" seen-on "lists.nmh-workers")
          ("\\(sevheads\\|severed-heads\\)@" seen-on "lists.sevheads")
          ("flat-earth@" seen-on "lists.flat")
          ("melblinux@luv.asn.au" seen-on "lists.luv")
          )
         ("Newsgroups" (".*" seen-on 0))
         ("Organization" (".*" company 0))
         ("Organisation" (".*" company 0))
         ("X-Organization" (".*" company 0))
         ("X-Organisation" (".*" company 0))
         ("Web" (".*" www 0))
         ("X-Web" (".*" www 0))
         ("X-WWW-Homepage" (".*" www 0))
         ("X-URI" (".*" www 0))
         ;; This is what Netscape puts in when sending a URL reference
         ("X-Url" (".*" last-url 0))
         )
       ))
(setq bbdb-notice-hook 'bbdb-auto-notes-hook)

Enjoy,
 Andrew
-- 
 - Andrew J. Cosgriff -  (read X-headers for more info)  ajc@bing.wattle.id.au
 
    "I wrote a poem on a dog biscuit, but your dog refused to look at it."
                         (Galaxie 500, Fourth of July)