Setting Return-Path to From address

Setting Return-Path to From address

[Mark Nyqvist Hjarding]

Hello,

Here is a glance of my posting styles:
  (".*"
    (name "Mark Nyqvist Hjarding")
  )
  ("^[a-z]+\\+hjarding\\.dk"
    (address "spam@hjarding.dk")
    ("X-Homepage" "http://www.hjarding.dk")
    (eval (setq message-sendmail-extra-arguments '("-a" "hjarding")))
    (message-mail-p)
  )

Sometimes I would like to change the from address when sending an email
and this works by just changing it in the Message buffer before sending
it. The problem is that the Return-Path is still set to the value of
address. Is there a way to force Return-Path to be the same as From? 

/Mark

Re: Setting Return-Path to From address

[David Engster]

Mark Nyqvist Hjarding <spam@hjarding.dk> writes:
> Sometimes I would like to change the from address when sending an email
> and this works by just changing it in the Message buffer before sending
> it. The problem is that the Return-Path is still set to the value of
> address. Is there a way to force Return-Path to be the same as From? 

This depends on how you actually send the mail on your system, but the
following snippet might do what you want:

--8<---------------cut here---------------start------------->8---
(defun DE-set-envelope ()
  (let ((from (cadr
		(mail-extract-address-components
		 (message-field-value "from")))))
    (when mail-specify-envelope-from
      (setq mail-envelope-from from))))

(setq mail-specify-envelope-from t)
(add-hook 'message-send-hook 'DE-set-envelope)
--8<---------------cut here---------------end--------------->8---

See also the documentation for mail-specify-envelope-from.

-David