From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/8686
Path: news.gmane.org!not-for-mail
From: Kamen TOMOV <kamen@evrocom.net>
Newsgroups: gmane.emacs.gnus.user
Subject: `eval' in Posting Styles
Date: Thu, 08 Feb 2007 12:50:07 +0200
Organization: CYBUILD
Message-ID: <uhctwly8w.fsf@evrocom.net>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=windows-1251
Content-Transfer-Encoding: 8bit
X-Trace: sea.gmane.org 1170934884 4898 80.91.229.12 (8 Feb 2007 11:41:24 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Thu, 8 Feb 2007 11:41:24 +0000 (UTC)
To: info-gnus-english@gnu.org
Original-X-From: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org Thu Feb 08 12:41:17 2007
Return-path: <info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org>
Envelope-to: gegu-info-gnus-english@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1HF7eO-0002vE-Dz
	for gegu-info-gnus-english@m.gmane.org; Thu, 08 Feb 2007 12:41:16 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1HF7eO-0000Mq-1T
	for gegu-info-gnus-english@m.gmane.org; Thu, 08 Feb 2007 06:41:16 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!feed118.news.tele.dk!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
X-Home-Page: http://www.cybuild.com/~kat/
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (windows-nt)
Cancel-Lock: sha1:1iPWobL96lRsx5+7Ue0Ap9Pc5rc=
Original-Lines: 33
Original-NNTP-Posting-Host: 88.80.135.102
Original-X-Trace: news.sunsite.dk DXC=]]4o?9fFNA6XYXkC6[Mbh; YSB=nbEKnk;
	=EO><:f6NB04La5I_Zi\^>]Z1k]4VTiQ3IJ`JaB=N:a7loO[k44ViD8Y1HVn11j?V1
Original-X-Complaints-To: staff@sunsite.dk
Original-Xref: shelby.stanford.edu gnu.emacs.gnus:78869
X-BeenThere: info-gnus-english@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "Announcements and discussions for GNUS,
	the GNU Emacs Usenet newsreader \(in English\)"
	<info-gnus-english.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/info-gnus-english>,
	<mailto:info-gnus-english-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/info-gnus-english>
List-Post: <mailto:info-gnus-english@gnu.org>
List-Help: <mailto:info-gnus-english-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/info-gnus-english>,
	<mailto:info-gnus-english-request@gnu.org?subject=subscribe>
Original-Sender: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org
Errors-To: info-gnus-english-bounces+gegu-info-gnus-english=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.gnus.user:8686
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/8686>

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.

-- 
Камен