Switching my From: address...

Switching my From: address...

[Norman Walsh]

I hope this isn't RTFM, but I didn't see it.

Can I (how can I) adjust the From: header on outgoing messages?
For replies on some mailing lists I would like it to be one thing
and on others I would like it to be another. 

Seems like a hook at the right point could reach in and change
that, but maybe I'm mistaken.  Maybe SMTP adds that header or
something...

--norm

Re: Switching my From: address...

[Colin Rafferty]

Norman Walsh writes:

> I hope this isn't RTFM, but I didn't see it.
> Can I (how can I) adjust the From: header on outgoing messages?
> For replies on some mailing lists I would like it to be one thing
> and on others I would like it to be another. 

Short answer: `user-mail-address'.

> Seems like a hook at the right point could reach in and change
> that, but maybe I'm mistaken.  Maybe SMTP adds that header or
> something...

Long answer: this is the code that I use.

I wrap `message-send' to bind `user-mail-address' to the address that I
want to send.

The function `cor-generate-user-mail-address' returns my Merrill address
if one of the recipients is @ml.com.  Otherwise, it returns my home
address.  The goofy regexp is so that I don't match on the message-id.

(defadvice message-send (around change-my-name activate)
  "Change my name to the appropriate one."
  (let ((user-mail-address (cor-generate-user-mail-address)))
    ad-do-it))

(defun cor-generate-user-mail-address ()
  "Generate the appropriate user-mail-address"
  (save-excursion
    (widen)
    (goto-char (point-min))
    (let ((bound (and (re-search-forward (concat "^" mail-header-separator "$") nil t)
		      (point))))
      (goto-char (point-min))
      (if (or (not bound)
	      (re-search-forward "[^f][^s][^f]@ml\\.com[^-A-Za-z.0-9]" bound t))
	  "craffert@ml.com"
	"colin@rafferty.net"))))

-- 
Colin

Re: Switching my From: address...

[James Troup]

Colin Rafferty <craffert@ml.com> writes:

> Short answer: `user-mail-address'.

This doesn't work for me.

user-mail-address's value is "jjtroup@comp.brad.ac.uk"
mail-host-address's value is "comp.brad.ac.uk"

Yet I end up with a From: line of jjtroup@scm.brad.ac.uk.
 
Any ideas?  (Gnus v5.4.66; nntp 5.0; nnfolder 1.0)

-- 
James

Re: Switching my From: address...

[Colin Rafferty]

James Troup writes:
> Colin Rafferty <craffert@ml.com> writes:

>> Short answer: `user-mail-address'.

> This doesn't work for me.

> user-mail-address's value is "jjtroup@comp.brad.ac.uk"
> mail-host-address's value is "comp.brad.ac.uk"

> Yet I end up with a From: line of jjtroup@scm.brad.ac.uk.
 
Actually, this is the From line that I am getting from you:

> From: James Troup <J.J.Troup@scm.brad.ac.uk>

It looks as though one of the machines that is routing your mail is
adding it for you.  I don't see how Gnus could figure out that your
return machine is scm.brad.ac.uk, since your actual machine is
dcsun4.comp.brad.ac.uk .

-- 
Colin

Re: Switching my From: address...

[Manoj Srivastava]

Hi,

	Are you sure gnus is to blame? you could use feedmail.el to
 get a last look at your message just before it leaves emacs, or you
 could try sendmail -bt to seeif it is your machine which id the
 culprit. 

	manoj
-- 
 "Only a brave person is willing honestly to admit, and fearlessly to
 face, what a sincere and logical mind discovers." Rodan of Alexandria
Manoj Srivastava  <srivasta@acm.org> <http://www.datasync.com/%7Esrivasta/>
Key C7261095 fingerprint = CB D9 F4 12 68 07 E4 05  CC 2D 27 12 1D F5 E8 6E

Re: Switching my From: address...

[Mark Moll]

>>> On 24 Feb 1998 16:43:21 +0000, James Troup (JT) wrote:
JT> user-mail-address's value is "jjtroup@comp.brad.ac.uk"
JT> mail-host-address's value is "comp.brad.ac.uk"

JT> Yet I end up with a From: line of jjtroup@scm.brad.ac.uk.
 
Try

(setq message-sendmail-f-is-evil t)

-- 
Mark Moll    

Re: Switching my From: address...

[Justin Sheehy]

Norman Walsh <norm@berkshire.net> writes:

> I hope this isn't RTFM, but I didn't see it.

Did you look in the FAQ?

Question 2.16 has a familiar-sounding title...

-- 
Justin Sheehy

In a cloud bones of steel.