Posting Styles: message-fetch-reply-field always returns nil

[nospam2159@daimi.au.dk (Peter von der Ahé)]

Hi!

I have set up a posting style, which needs to look at the headers of
the mail being replied to:

(defun reply-to-ahedk-p ()
  "Return nil if not replying to a mail sent to ahe.dk"
  (save-excursion
    (and gnus-article-buffer
	 (set-buffer (get-buffer-create gnus-article-buffer))
	 (let ((to (gnus-fetch-field "to")))
	   (and to
		(string-match "@hatespam.ahe.dk" to))))))

(setq gnus-posting-styles
      '((reply-to-ahedk-p
	 (address "peter@hatespam.ahe.dk"))))

I think the reply-to-ahedk-p is kind of an ugly solution, it would
have been nicer to just write:

(defun reply-to-ahedk-p ()
  "Return nil if not replying to a mail sent to ahe.dk"
  (let ((to (message-fetch-reply-field "to")))
    (and to
	 (string-match "@hatespam.ahe.dk" to))))

Would it be possible to setup the posting styles when
message-fetch-reply-field can return something interesting?

Kind Regards
Peter