Re: Face - problem!!

[Rebecca Ore]

Surendra Singhi <efuzzyone@netscape.net> writes:

>
> You also need to give me the code for the function
> my-message-header-setup-hook.

The sections in my .gnus.el that I've cobbled together
script-kitty-wise from other people's lisp suggestions are as follows:


  (defun my-message-header-setup-hook ()
            (let ((group (or gnus-newsgroup-name "")))
              (when (or (message-fetch-field "newsgroups")
                        (gnus-group-find-parameter group 'to-address)
                        (gnus-group-find-parameter group 'to-list))
                (insert "Mail-Copies-To: never\n"))))

(setq message-required-news-headers
  (append message-required-news-headers
    (list (cons 'Face (lambda ()
                        (gnus-face-from-file 
"~/Graphics/Photographs/smallberniesiguana.jpg"))))))

          
          (add-hook 'message-header-setup-hook
                    'my-message-header-setup-hook)



-- 
Rebecca Ore