🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: gnu.emacs.bug
Article #99513

rmail.el: rmail-reply enhancement

#99513
From: Wolfgang S. Rupprecht
Date: Mon, 06 Aug 1990 23:01
47 lines
2449 bytes
It appears that current sendmail setups use "Return-Path:" to indicate
a viable return path for the mail.  

Perhaps I have a bug or two on my sendmail setup here, but the "To" and 
"From" fields in uucp msgs are not re-written to reflect the current
path.  Perhaps this is a bug.  Any mail hacker care to comment?

In any case this is a path that will cause rmail-reply to try to 
find and use the "Return-Path:" feild.

diff -c /u/local/emacs/lisp/rmail.el rmail.el
*** /u/local/emacs/lisp/rmail.el	Sun Jun 25 12:50:22 1989
--- rmail.el	Mon Aug  6 18:52:13 1990
***************
*** 1,3 ****
--- 1,6 ----
+ ;; hacked rmail-reply to look for "return-path" and use it if it exists.
+ ;; this is really important for (gag) uucp mail.  -wsr
+ 
  ;; "RMAIL" mail reader for Emacs.
  ;; Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  
***************
*** 1187,1193 ****
  			    (progn (search-forward "\n*** EOOH ***\n")
  				   (beginning-of-line) (point))))
  	(setq resent-reply-to (mail-fetch-field "resent-reply-to" t)
! 	      from (mail-fetch-field "from")
  	      reply-to (or resent-reply-to
  			   (mail-fetch-field "reply-to" nil t)
  			   from)
--- 1190,1197 ----
  			    (progn (search-forward "\n*** EOOH ***\n")
  				   (beginning-of-line) (point))))
  	(setq resent-reply-to (mail-fetch-field "resent-reply-to" t)
! 	      from (or (mail-fetch-field "return-path")
! 		       (mail-fetch-field "from"))
  	      reply-to (or resent-reply-to
  			   (mail-fetch-field "reply-to" nil t)
  			   from)

---
Wolfgang Rupprecht      uunet!nancy!wsrcc!wolfgang 
Internet:		nancy!wsrcc!wolfgang@uunet.uu.net
Snail Mail Address: 	Box 6524, Alexandria, VA 22306-0524
(if all else fails:     wolfgang@mgm.mit.edu)
Technical Details
Message-ID: <9008062301.AA00269@wsrcc>
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!snorkelwacker!tut.cis.ohio-state.edu!UUNET.UU.NET!nancy!wsrcc!wolfgang

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fb2f1,e8c1ae533d1abd87,start
X-Google-Attributes: gidfb2f1,public
X-Google-ArrivalTime: 1990-08-06 20:33:45 PST
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!snorkelwacker!tut.cis.ohio-state.edu!UUNET.UU.NET!nancy!wsrcc!wolfgang
From: nancy!wsrcc!wolfgang@UUNET.UU.NET (Wolfgang S. Rupprecht)
Newsgroups: gnu.emacs.bug
Subject: rmail.el: rmail-reply enhancement
Message-ID: <9008062301.AA00269@wsrcc>
Date: 6 Aug 90 23:01:45 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: Wolfgang S Rupprecht Computer Consulting, Washington DC.
Lines: 47
Posted: Tue Aug  7 00:01:45 1990