Re: Articles enhancings

["Robin S. Socha" <robin@socha.net>]

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