`eval' in Posting Styles

`eval' in Posting Styles

[Kamen TOMOV]

Hi,

I needed to have a function executed depending on the Posting Style,
e.g. to have a things like that:

(setq gnus-posting-styles
      '(("foo"
	 (eval 'bar))
        ....))

(defun bar ()
       ....)

It looks like the base was laid some time ago and I wonder why wasn't
it implemented fully.

In gnus-msg.el I changed gnus-configure-posting-styles:

      (dolist (result results)
	(add-hook 'message-setup-hook
		  (cond
		   ((eq 'eval (car result))
-		    'ignore)
+		    (cdr result))
		   ((eq 'body (car result))

This way I managed to have the functionality I needed. Do you see any
reason why not to put it into the main branch?

Any suggestions, improvements, etc. are welcome.

-- 
Камен

Re: `eval' in Posting Styles

[Reiner Steib]

On Thu, Feb 08 2007, Kamen TOMOV wrote:

> I needed to have a function executed depending on the Posting Style,
> e.g. to have a things like that:
>
> (setq gnus-posting-styles
>       '(("foo"
> 	 (eval 'bar))
>         ....))
>
> (defun bar ()
>        ....)
>
> It looks like the base was laid some time ago and I wonder why wasn't
> it implemented fully.

It works for me.  I have some
  (eval (message "applying posting style for whatever"))
expressions in my posting styles and I see the message in *Messages*.

Does the following work?

(setq gnus-posting-styles
      '(("foo"
	 (eval (bar)))
        ....))

Maybe we should add an example in the manual near this:

,----[ (info "(gnus)Posting Styles") ]
| If the attribute name is `eval', the form is evaluated, and the
| result is thrown away.
`----

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: `eval' in Posting Styles

[Kamen TOMOV]

On неделя, Февруари 11 2007, Reiner Steib wrote:

> It works for me.  I have some
>   (eval (message "applying posting style for whatever"))
> expressions in my posting styles and I see the message in *Messages*.
>
> Does the following work?
>
> (setq gnus-posting-styles
>       '(("foo"
> 	 (eval (bar)))
>         ....))

Yes, that one works. I thought it needed a function symbol so was my
change.

> Maybe we should add an example in the manual near this:
>
> ,----[ (info "(gnus)Posting Styles") ]
> | If the attribute name is `eval', the form is evaluated, and the
> | result is thrown away.
> `----

An example would had been great for me.


Regards,

-- 
Камен