how to turn off fontification...

how to turn off fontification...

[andreas]

I sent an email a little while ago asking how to turn off ALL
fontification in gnus...

I am using XEmacs 20.3...

Could someone help me out with this...  I would like to do it via a
.gnus entry...

thanks in advance...
andreas
-- 
Steller Computer Consultants 	    Andreas Kaempf
       P.O. BOX 3873	             603-595-7461
   Nashua, NH 03062  USA	   andreas@sccon.com
.....................................................
Fragen Sie nicht, was Ihr Computer fuer Sie tun kann.
Fragen Sie, was Sie fuer Ihren Computer tun koennen.

Re: how to turn off fontification...

[Hrvoje Niksic]

andreas@sccon.com writes:

> I sent an email a little while ago asking how to turn off ALL
> fontification in gnus...

Gnus doesn't fontify it's buffers.

Have you tried setting `gnus-visual' to nil?  If that doesn't work,
set `gnus-article-display-hook' to nil and sing happily.

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Contrary to popular belief, Unix is user friendly.  
It just happens to be selective about who it makes friends with.

Re: how to turn off fontification...

[David Hedbor]

Hrvoje Niksic <hniksic@srce.hr> writes:

> andreas@sccon.com writes:
> 
> > I sent an email a little while ago asking how to turn off ALL
> > fontification in gnus...
> 
> Gnus doesn't fontify it's buffers.
> 
> Have you tried setting `gnus-visual' to nil?  If that doesn't work,
> set `gnus-article-display-hook' to nil and sing happily.

I have a similar question - when BBDB is loaded, it fontifies .bbdb,
which with 2.8k posts takes quite a while. Is there a way to disable
fontification for a specific file?

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?

-- 
"Absolutely nothing should be concluded from these figures except that
no conclusion can be drawn from them."
(By Joseph L. Brothers, Linux/PowerPC Project)

Re: how to turn off fontification...

[Andrew J Cosgriff]

"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)

Re: how to turn off fontification...

[Darren/Torin/Who Ever...]

-----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-----

Re: how to turn off fontification...

[David Hedbor]

Thanks! This is totally great!
-- 
And now for something completely the same.

Re: how to turn off fontification...

[Michael Lamoureux]

 "ajc" == Andrew J Cosgriff <Andrew.Cosgriff@cc.monash.edu.au> writes:

ajc>         ("Newsgroups" (".*" seen-on 0))
ajc>         ("Organization" (".*" company 0))
ajc>         ("Organisation" (".*" company 0))
ajc>         ("X-Organization" (".*" company 0))
ajc>         ("X-Organisation" (".*" company 0))
ajc>         ("Web" (".*" www 0))
ajc>         ("X-Web" (".*" www 0))
ajc>         ("X-WWW-Homepage" (".*" www 0))
ajc>         ("X-URI" (".*" www 0))
ajc>         ("X-Url" (".*" last-url 0))

Ah, but the real question is, does anyone else have one of these:

        ("X-Windows" (".*" x 0))       ;-)


I'm kinda bummed he stopped,
Michael

BTW> On a related note, how do I go back to the pre-19.15 behaviour of
     the BBDB popup window only being about 5 lines high instead of
     virtually the whole frame for certain entries that have lots of
     lines in them?  It's starting to piss me off.