Face - problem!!

Face - problem!!

[Surendra Singhi]

I want to insert face into my news posts and I have the following lines in my
.gnus file

(setq message-required-news-headers
   (nconc message-required-news-headers
	  (list '(Face . (lambda ()
		   (gnus-face-from-file "~/.xemacs/face.jpg"))))))

The value of the variable is also set accordingly to

(From Newsgroups Subject Date Message-ID (optional . Organization)
 (optional . User-Agent) (Face lambda nil 
(gnus-face-from-file "~/.xemacs/face.jpg")))

But it doesn't seems to have the intended effect.

Am I doing anything wrong, or do I need to set some other variable?

Thanks in advance.
-- 
Surendra Singhi
www.public.asu.edu/~sksinghi/

"O thou my friend! The prosperity of Crime is like unto the lightning,
whose traitorous brilliancies embellish the atmosphere but for an
instant, in order to hurl into death's very depths the luckless one
they have dazzled." -- Marquis de Sade

Re: Face - problem!!

[David Z Maze]

Surendra Singhi <efuzzyone@netscape.net> writes:

> I want to insert face into my news posts and I have the following lines in my
> .gnus file
>
> (setq message-required-news-headers
>    (nconc message-required-news-headers
> 	  (list '(Face . (lambda ()
> 		   (gnus-face-from-file "~/.xemacs/face.jpg"))))))
>
> The value of the variable is also set accordingly to
>
> (From Newsgroups Subject Date Message-ID (optional . Organization)
>  (optional . User-Agent) (Face lambda nil 
> (gnus-face-from-file "~/.xemacs/face.jpg")))
>
> But it doesn't seems to have the intended effect.
>
> Am I doing anything wrong, or do I need to set some other variable?

I don't think you're actually getting the lambda (code) into the list;
instead, you're getting the symbol 'lambda and such into it.  Maybe
you mean something more like

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

Or, even,

(defun acquire-gnus-face () (gnus-face-from-file "face.jpg"))
(setq message-required-news-headers
  (append message-required-news-headers
    '((Face . acquire-gnus-face))))

(It's not obvious to me that "~/.xemacs/face.jpg" will do what you
want as an argument to gnus-face-from-file; you might need to pass
that through expand-file-name on the way.)

  --dzm

Re: Face - problem!!

[Surendra Singhi]

David Z Maze <dmaze@mit.edu> writes:

> Surendra Singhi <efuzzyone@netscape.net> writes:
>
>> I want to insert face into my news posts and I have the following lines in my
>> .gnus file
>>
>> (setq message-required-news-headers
>>    (nconc message-required-news-headers
>> 	  (list '(Face . (lambda ()
>> 		   (gnus-face-from-file "~/.xemacs/face.jpg"))))))
>>
>> The value of the variable is also set accordingly to
>>
>> (From Newsgroups Subject Date Message-ID (optional . Organization)
>>  (optional . User-Agent) (Face lambda nil 
>> (gnus-face-from-file "~/.xemacs/face.jpg")))
>>
>> But it doesn't seems to have the intended effect.
>>
>> Am I doing anything wrong, or do I need to set some other variable?
>
> I don't think you're actually getting the lambda (code) into the list;
> instead, you're getting the symbol 'lambda and such into it.  Maybe
> you mean something more like
>
> (setq message-required-news-headers
>   (append message-required-news-headers
>     (list (cons 'Face (lambda ()
>                         (gnus-face-from-file "face.jpg"))))))
>
> Or, even,
>
> (defun acquire-gnus-face () (gnus-face-from-file "face.jpg"))
> (setq message-required-news-headers
>   (append message-required-news-headers
>     '((Face . acquire-gnus-face))))
>
Both your method and my method gives the same result
i.e., ((Face lambda nil
       (gnus-face-from-file "face.jpg")))

> (It's not obvious to me that "~/.xemacs/face.jpg" will do what you
> want as an argument to gnus-face-from-file; you might need to pass
> that through expand-file-name on the way.)

Even after using expand-file-name on the way I don't get face field in my
messages.
The value of the variable is now:

(From Newsgroups Subject Date Message-ID (optional . Organization) 
(optional . User-Agent) (Face lambda nil (gnus-face-from-file 
(expand-file-name "~/.xemacs/face.jpg"))))

Thanks in advance.
-- 
Surendra Singhi
www.public.asu.edu/~sksinghi/

"O thou my friend! The prosperity of Crime is like unto the lightning,
whose traitorous brilliancies embellish the atmosphere but for an
instant, in order to hurl into death's very depths the luckless one
they have dazzled." -- Marquis de Sade

Re: Face - problem!!

[Rebecca Ore]

Surendra Singhi <efuzzyone@netscape.net> writes:

> David Z Maze <dmaze@mit.edu> writes:
>

>> I don't think you're actually getting the lambda (code) into the list;
>> instead, you're getting the symbol 'lambda and such into it.  Maybe
>> you mean something more like
>>
>> (setq message-required-news-headers
>>   (append message-required-news-headers
>>     (list (cons 'Face (lambda ()
>>                         (gnus-face-from-file "face.jpg"))))))

This worked for me on XDarwin running over Mac OS 10.2.8.  I'd also
been trying to figure out how to do this. 

This follows those lines

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

Not sure if those are necessary or not, but if you don't have them,
try adding the.

Also, you need to make sure you've compiled png support into your
(X)Emacs/Gnus.


> Even after using expand-file-name on the way I don't get face field in my
> messages.
> The value of the variable is now:
>
> (From Newsgroups Subject Date Message-ID (optional . Organization) 
> (optional . User-Agent) (Face lambda nil (gnus-face-from-file 
> (expand-file-name "~/.xemacs/face.jpg"))))
>
> Thanks in advance.

-- 
Rebecca Ore

Re: Face - problem!!

[Surendra Singhi]

Rebecca Ore <ogoense.net@verizon.net> writes:

> Surendra Singhi <efuzzyone@netscape.net> writes:
>
>> David Z Maze <dmaze@mit.edu> writes:
>>
>
>>> I don't think you're actually getting the lambda (code) into the list;
>>> instead, you're getting the symbol 'lambda and such into it.  Maybe
>>> you mean something more like
>>>
>>> (setq message-required-news-headers
>>>   (append message-required-news-headers
>>>     (list (cons 'Face (lambda ()
>>>                         (gnus-face-from-file "face.jpg"))))))
>
> This worked for me on XDarwin running over Mac OS 10.2.8.  I'd also
> been trying to figure out how to do this. 
>
> This follows those lines
>
>         (add-hook 'message-header-setup-hook
>                     'my-message-header-setup-hook)
>
It seems in my case gnus is not using the variable message-required-news-headers
anywhere.

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

Thanks.
-- 
Surendra Singhi
www.public.asu.edu/~sksinghi/

"O thou my friend! The prosperity of Crime is like unto the lightning,
whose traitorous brilliancies embellish the atmosphere but for an
instant, in order to hurl into death's very depths the luckless one
they have dazzled." -- Marquis de Sade

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

Re: Face - problem!!

[Surendra Singhi]

Rebecca Ore <ogoense.net@verizon.net> writes:

> 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)
>
Thanks for your help, but "my-message-header-setup-hook" is not the reason 
because of which message-required-news-headers works, there must be some other
setting or something else which makes it tick.
Anyway, I got was able to use some other workaround to make FACE work.

Cheers.
-- 
Surendra Singhi
www.public.asu.edu/~sksinghi/

"O thou my friend! The prosperity of Crime is like unto the lightning,
whose traitorous brilliancies embellish the atmosphere but for an
instant, in order to hurl into death's very depths the luckless one
they have dazzled." -- Marquis de Sade

Re: Face - problem!!

[Surendra Singhi]

Surendra Singhi <efuzzyone@netscape.net> writes:

> I want to insert face into my news posts and I have the following lines in my
> .gnus file
>
> (setq message-required-news-headers
>    (nconc message-required-news-headers
> 	  (list '(Face . (lambda ()
> 		   (gnus-face-from-file "~/.xemacs/face.jpg"))))))
>
> The value of the variable is also set accordingly to
>
> But it doesn't seems to have the intended effect.
>
I was finally able to do this by setting the  gnus-posting-styles variable.
     (Face (lambda()(gnus-face-from-file "~/.xemacs/face.jpg"))

Doc: http://www.gnus.org/manual/gnus_139.html#SEC139

What I was doing earlier was also from documentation: 
http://www.gnus.org/manual/gnus_286.html#SEC286

If it is something which has changed with the newer version of gnus and is no
longer supported then the documentation should be modified to reflect this change.

Anyway, thanks for all the suggestions.

-- 
Surendra Singhi
www.public.asu.edu/~sksinghi/

"O thou my friend! The prosperity of Crime is like unto the lightning,
whose traitorous brilliancies embellish the atmosphere but for an
instant, in order to hurl into death's very depths the luckless one
they have dazzled." -- Marquis de Sade