Re: how to turn off fontification...

["Darren/Torin/Who Ever..." <torin@daft.com>]

-----BEGIN PGP SIGNED MESSAGE-----

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

Well, here's what I've done to grab the (mail|news)group that someone
has posted to:
(defun bbdb-add-gnus-group (record)
  "Put the current gnus group in this record's posted-to field if it's not there"
    (or bbdb-readonly-p
	(let* ((group gnus-newsgroup-name)
	      (field (bbdb-record-getprop record 'posted-to))
	      (pos (string-match ":" group)) 	     ; we don't want the nnm[hl]: part
	      )
	  (setq group (substring group (cond
					(pos (1+ pos))
					(t 0))))     ; we didn't match on ":"
	  (if (or
	       (not field)			     ; the field isn't there yet.
	       (not (string-match (concat (regexp-quote group) "\\(\n\\|$\\)") field)))
		(bbdb-annotate-notes record group 'posted-to)))))

As for X-Url and more typical things, you can just use
bbdb-auto-note-alist.  Here's what I use, adapted from the bbdb
info-page:
(setq bbdb-auto-notes-alist 
      (append
       (list
	'("Organization" ("\\s-*\\(.*\\)\\s-*" company 1 t))
	'("Organisation" ("\\s-*\\(.*\\)\\s-*" company 1 t))
	'("X-Organization" ("\\s-*\\(.*\\)\\s-*" company 1 t))
	'("X-Organisation" ("\\s-*\\(.*\\)\\s-*" company 1 t))
	'("Web" ("\\s-*\\(.*\\)\\s-*" url 1))
	'("X-Web" ("\\s-*\\(.*\\)\\s-*" url 1))
	'("X-WWW-Homepage" ("\\s-*\\(.*\\)\\s-*" url 1))
	'("X-WWW-page" ("\\s-*\\(.*\\)\\s-*" url 1))
	'("X-Homepage" ("\\s-*\\(.*\\)\\s-*" url 0))
	;; This is what Netscape puts in when sending a URL reference
	'("X-Url" ("\\s-*\\(.*\\)\\s-*" last-url 1))
	'("X-Mailer" ("\\s-*\\(.*\\)\\s-*" mailer 1 t))
	'("X-Newsreader" ("\\s-*\\(.*\\)\\s-*" mailer 1 t))
	'("X-Mua" ("\\s-*\\(.*\\)\\s-*" mailer 1 t))
	(list "X-Face"
	      (list (concat "[ \t\n]*\\([^ \t\n]*\\)"
			    "\\([ \t\n]+\\([^ \t\n]+\\)\\)?"
			    "\\([ \t\n]+\\([^ \t\n]+\\)\\)?"
			    "\\([ \t\n]+\\([^ \t\n]+\\)\\)?"
			    )
		    'x-face
		    "\\1\\3\\5\\7" t))

	)
       ))

(X?Emacs regexes are so ugly.)

And finally, to get bbdb to actually use these, you have it run the
appropriate function during notice:

(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
(add-hook 'bbdb-notice-hook 'bbdb-add-gnus-group)

Darren
- -- 
<torin@daft.com> <http://www.daft.com/~torin> <torin@debian.org> <torin@io.com>
Darren Stalder/2608 Second Ave, @282/Seattle, WA 98121-1212/USA/+1-800-921-4996
@ Do you have your clothes on? I probably don't. Take yours off. Feel better. @
@ Sysadmin, webweaver, postmaster for hire.  C/Perl/CGI programmer and tutor. @

-----BEGIN PGP SIGNATURE-----
Version: 2.6.3
Charset: noconv
Comment: Processed by Mailcrypt 3.4, an Emacs/PGP interface

iQCVAwUBM5PQBY4wrq++1Ls5AQEnmAP9EhGmNqnJl0ZZEifHGQD6ThM3L8ceozvK
Hg8vRM7Dc6K4Va4N7fCuRbT4WgnDGDMdV2a5D/l/alpAwwNJCp8yjAw0HnqsFuIO
39IeEZhHW/11mdyQfnEjtx32HqQqnyR5VGjCK/ElwAmGV+9qMwLQ4hgRnilMwcCf
RSjhvLEI5LY=
=3uAo
-----END PGP SIGNATURE-----