message-reply-to-function bug?

[Dmitry Yaitskov <dimas@home.com>]

Hi,

Info for message-reply-to-function says that it can return either a
string which will be used as the To header, or a list of header-value
pairs.

I tried to use From instead of Reply-to for certain addresses, like
this:

(setq message-reply-to-function
      (lambda ()
	(cond ((equal (mail-fetch-field "reply-to") "qq@aa.com")
                    (mail-fetch-field "from"))
	      (t
	       nil))))

In gnus 5.8.7, this generates an error:

Signaling: (wrong-type-argument listp ?D)
  message-setup(((Subject . "Re: printing") ?J ?o ?h ?n ?\  ?D ?o ?e ?\  ?< ?d ?o ?e ?@ ?a ?a ?\. ?c ?o ?m ?> (References . "<39254725.4CB646D3@aa.com>")) #<buffer " *gnus article copy*">)
  message-reply(nil nil)
  gnus-summary-reply((2498) nil)
  gnus-summary-reply-with-original(nil)
  call-interactively(gnus-summary-reply-with-original)

Which looks like a bug, at least in the docs. The following version
works though:

(setq message-reply-to-function
      (lambda ()
	(cond ((equal (mail-fetch-field "reply-to") "qq@aa.com")
	       (list (cons 'To (mail-fetch-field "from"))))
	      (t
	       nil))))

-- 
Cheers,
-Dima.