@lisp
(setq message-reply-to-function
(lambda ()
- (cond ((equal (mail-fecth-field "from") "somebody")
- (mail-fetch-field "sender"))
+ (cond ((equal (mail-fetch-field "from") "somebody")
+ (list (cons 'To (mail-fetch-field "sender"))))
(t
nil))))
@end lisp