Path: utzoo!attcan!uunet!decwrl!shelby!eos!ptolemy!kthompso
From: kthompso@ptolemy.arc.nasa.gov (Kevin Thompson)
Newsgroups: comp.emacs
Subject: Re: Mail has the wrong originator
Message-ID: <8347@ptolemy.arc.nasa.gov>
Date: 3 Oct 90 00:03:03 GMT
References: <27420@bellcore.bellcore.com>
Sender: usenet@ptolemy.arc.nasa.gov
Organization: NASA-Ames Research Center, Moffett Field, CA
Lines: 52

In article <27420@bellcore.bellcore.com> ramiro@rrunner.ctt.bellcore.com (Ramiro Reinoso) writes:
>I recently compiled version 18.52 of GNU emacs on a Sparcstation 1
>that runs UNIX 4.0.3.  Everything works fine except the mailer.  All
>the messages that I send have the recipient as the originator of the
>message.  I don't want to impersonate other people, so does anybody
>have a fix for this problem ?

This has come up multiple times in this newsgroup recently (twice today),
and we wrestled with it for months.  Here is the change our local Sun guru
made, that fixed it but we weren't sure why.  The change is in,
unsurprisingly, sendmail-send-it in sendmail.el.  I frankly don't understand
why this works (or why it's lasted so long in the distribution), but it did
the trick for us, and I've not seen anyone else post a bug-fix.  We thought
we were the only people running into this :).

Kevin Thompson

*** sendmail.el.new	Tue Sep 11 10:20:54 1990
--- sendmail.el.old	Fri Dec 22 20:37:13 1989
***************
*** 230,246 ****
  		 (append (list (point-min) (point-max)
  			       (if (boundp 'sendmail-program)
  				   sendmail-program
  				 "/usr/lib/sendmail")
  			       nil errbuf nil
! 			       "-oi" "-t" "-f")
  			 ;; Don't say "from root" if running under su.
! 			 ;;  but always give '-f user' -- 9/6/90
! 			 (list (cond ((equal (user-real-login-name) "root") (user-login-name))
! 			       	     (t (user-real-login-name))))
! 			 ;(and (equal (user-real-login-name) "root")
! 			 ;     (list "-f" (user-login-name)))
  			 ;; These mean "report errors by mail"
  			 ;; and "deliver in background".
  			 (if (null mail-interactive) '("-oem" "-odb"))))
--- 240,253 ----
  		 (append (list (point-min) (point-max)
  			       (if (boundp 'sendmail-program)
  				   sendmail-program
  				 "/usr/lib/sendmail")
  			       nil errbuf nil
! 			       "-oi" "-t")
  			 ;; Don't say "from root" if running under su.
! 			 (and (equal (user-real-login-name) "root")
! 			      (list "-f" (user-login-name)))
  			 ;; These mean "report errors by mail"
  			 ;; and "deliver in background".
  			 (if (null mail-interactive) '("-oem" "-odb"))))

--
kthompso@ptolemy.arc.nasa.gov     NASA-Ames Research Center, Moffett Field, CA