Re: message-reply-to-function bug?

[Dmitry Yaitskov <dimas@home.com>]

Shenghuo ZHU <zsh@cs.rochester.edu> wrote:

> >>>>> "Dmitry" == Dmitry Yaitskov <dimas@home.com> writes:
> 
> Dmitry> Hi,
> 
> Dmitry> Info for message-reply-to-function says that it can return
> Dmitry> either a string which will be used as the To header, or a list
> Dmitry> of header-value pairs.
> 
> Info? Does Info tell message-reply-to-function?  
> 
> The docs say, "function that should return a list of headers.", which
> means the return value looks like ((Reply-To . "John Doe
> <doe@aa.com>") (From . "John Doe <john@bb.com>")), instead of a
> string.

Here's the info entry:

------------------- cut here -------------------
File: message,  Node: Reply,  Next: Wide Reply,  Prev: New News Message,  Up: Interface

Reply
=====

   The `message-reply' function pops up a message buffer that's a reply
to the message in the current buffer.

   Message uses the normal methods to determine where replies are to go
(*note Responses::.), but you can change the behavior to suit your needs
by fiddling with the `message-reply-to-function' variable.

   If you want the replies to go to the `Sender' instead of the `From',
you could do something like this:

     (setq message-reply-to-function
           (lambda ()
            (cond ((equal (mail-fetch-field "from") "somebody")
                    (mail-fetch-field "sender"))
                  (t
                   nil))))

   This function will be called narrowed to the head of the article
that is being replied to.

   As you can see, this function should return a string if it has an
opinion as to what the To header should be.  If it does not, it should
just return `nil', and the normal methods for determining the To header
will be used.

   This function can also return a list.  In that case, each list
element should be a cons, where the car should be the name of an header
(eg. `Cc') and the cdr should be the header value (eg.
`larsi@ifi.uio.no').  All these headers will be inserted into the head
of the outgoing mail.
------------------- cut here -------------------

Note the phrase "As you can see, this function should return a string
if it has an opinion as to what the To header should be." Where does
it say anything about a list?

(Perhaps my info entry is outdated... is it?)

> [...]
> 
> Dmitry> Which looks like a bug, at least in the docs. The following version
> Dmitry> works though:
> 
> Dmitry> (setq message-reply-to-function
> Dmitry>       (lambda ()
> Dmitry> 	(cond ((equal (mail-fetch-field "reply-to") "qq@aa.com")
> Dmitry> 	       (list (cons 'To (mail-fetch-field "from"))))
> Dmitry> 	      (t
> Dmitry> 	       nil))))
> 
> This function returns a list of headers.

-- 
Cheers,
-Dima.