Articles enhancings

Articles enhancings

[Pieter Wenk]

Hello to all,

I am using now since roughly a week gnus as NR. Nice
tool. 

I guess their is a way to improve somwhat the presentation
of the articles:

This is what I have in .gnus:

;;* Involving articles
;;=============================================================================
(setq gnus-article-display-hook	
	'(
	      ;; Header-Teile verstecken, wenn `gnus-have-all-headers' is nil
		gnus-article-hide-headers-if-wanted
	      ;; Alle leeren Zeilen vom Artikel-Anfang an werden gelöscht
		gnus-article-strip-leading-blank-lines
	      ;; Und restliche leere Zeilen ebenso
		gnus-article-remove-trailing-blank-lines
	      ;; Hebt den gerade gewählten Artikel hervor
		gnus-article-highlight
	      ;; Sucht im Header nach einem xface
		gnus-article-display-x-face
	      ;; Zeigt smileys :-) ;-) als kleine icons an
		gnus-smiley-display
	      ;; Fügt Buttons in den Header ein
		gnus-article-add-buttons-to-head
	      ;; Blendet den PGP-Kram im Header und Artikel aus
		gnus-article-hide-pgp

;;* highlighting quotes
;;  Quotes (citations) sollen farblich hervorgehoben werden
(add-hook 'gnus-article-display-hook 'gnus-article-highlight-citation t)
(add-hook 'message-mode-hook 'gnus-article-highlight-citation t)
(add-hook 'mail-mode-hook 'gnus-article-highlight-citation t)

	  ))

What I should like to obtain is:

-Different colors in relation to the texts ie. "authors"

Hilglighting is working on specific request. I should however
be pleased, that I do not have to ask this specifically for
each article.

-Clicking on an url, should fire automatically Netscape.
 What would be the workable entry in .gnus for this effect ?

Wearing glasses for reading, I would realy find it a nice
thing, that:

-Certain header-texts
-Quotes

would have a slightly larger font. Were can I change this ?

X-Face

How to install. Is there an already compiled version
available ?


Many thanks for your help.

Regards
-- 
         
                           / /  (_)____ __ ____  __
      Pieter Wenk         / /__/ / _ \/ // /\ \/ /  Vevey/Switzerland
                         /____/_/_//_/\_,_/ /_/\_\

Re: Articles enhancings

[Kai Großjohann]

Pieter Wenk <pwenk@urbanet.ch> writes:

> (setq gnus-article-display-hook	
> 	'(

This is not appropriate for newer Gnusae.  There, you have
gnus-treat-* variables, instead.

kai
-- 
This gubblick contains many nonsklarkish English flutzpahs,
but the overall pluggandisp can be glorked from context. -- David Moser

Re: Articles enhancings

[Robin S. Socha]

* Pieter Wenk <pwenk@urbanet.ch> writes:
> What I should like to obtain is:

> -Different colors in relation to the texts ie. "authors"
(setq
 ;; Highlight cited text
 gnus-treat-highlight-citation 'last
 ;; Highlight the signature
 gnus-treat-highlight-signature 'last)

> -Clicking on an url, should fire automatically Netscape.
>  What would be the workable entry in .gnus for this effect ?

:*======================= 
;:* make netscape use a new window when clicking a URL
;   by Karl Kleinpaste
(setq browse-url-new-window-p t)
(defun karl-browse (a)
  "Wrapper, for new window use."
  (browse-url-netscape a t))
(setq browse-url-browser-function (function karl-browse))

> Wearing glasses for reading, I would realy find it a nice thing, that:
> -Certain header-texts -Quotes
> would have a slightly larger font. Were can I change this ?

;:*======================
;:* describe-face-at-point, a function to find out which face is which
(defun describe-face-at-point ()
  "Return face used at point."
  (interactive)
  (hyper-describe-face (get-char-property (point) 'face)))

And then do something like:
(FAQ) Q3.2.2: How do I set the text, menu and modeline fonts?
or
M-x customize RET faces RET

> X-Face How to install. Is there an already compiled version available?

;;*------------
;;* displaying XFaces (needs 48x48 xbm (use eg xv) and compface (from
;;* the aux dir of ftp.xemacs.org - cf. man compface
(defun xface-insert ()
  (nnheader-temp-write nil
    (insert-file-contents "~/.xface")
    (buffer-string)))
(require 'message)
(setq message-required-news-headers
      (nconc message-required-news-headers
             (list '(X-Face . xface-insert))))
(setq message-required-mail-headers
      (nconc message-required-mail-headers
             (list '(X-Face . xface-insert))))
-- 
Robin S. Socha  <http://socha.net/Gnus/>