a patch for DNA FROM: addresses

[Len%AIP1%TSD%atc.bendix.com@RELAY.CS.NET]

Date: Fri, 13 Oct 89 11:33 EDT
From: Len Moskowitz <Len@HEART-OF-GOLD>
Subject: a patch for DNA FROM: addresses
To: "3077::IN%\"slug@warbucks.ai.sri.com\""@TSD1
Message-ID: <19891013153347.1.LEN@HEART-OF-GOLD>
 
This is for those of you who use the DNA product.
 
Let's say you send mail from your Symbolics ("Symbolics" in your namespace,
"SYM" in the VAX's network database) to a Vax.   The address that gets into the
FROM: field over at the VAX is:
 
	SYM::"user@Symbolics"
 
Since "Symbolics" is a machine that's unknown to the VAX's network
database, all attempts to reply to the FROM: address will fail.  What we
really need is an address that looks like this:
 
	SYM::user
 
The following hack does the job.
 
Len Moskowitz
                                                   Allied-Signal Aerospace
moskowitz@bendix.com (CSnet)                       Test Systems Division
moskowitz%bendix.com@relay.cs.net (ARPAnet)        Mail code 4/8
arpa!relay.cs.net!bendix.com!moskowitz (uucp)      Teterboro, NJ 07608
 
------
In the defmethod (:START-MESSAGE DNA-MAIL-USER) found in rel-7>dna>dna-mail.lisp.1517, after the line:
 
	(ZWEI:RFC822-QUOTE-IF-NECESSARY
 
delete the line:
 
	(ZWEI:STRING-FROM-HEADER SENDER :LONG))))) 
 
and add instead:
 
				  ;; This next line returns "user@Symbolics" and then the RFC822 routine (above) 
				  ;; adds backslashes in front of the quotes.  I need to modify this so that it
				  ;; returns a simple "user".  The source code isn't provided.
				  ;(ZWEI:STRING-FROM-HEADER SENDER :LONG)))))
				  ;; So simply trim off everything from the "@" and on. The RFC822 routine (above) 
				  ;; leaves the "user" alone and doesn't add backslashes.
				  (let* ((full-name (ZWEI:STRING-FROM-HEADER SENDER :LONG))
					(ampersand-position (string-search "@" full-name)))
				    (if (numberp ampersand-position)
					(substring full-name 0 ampersand-position)
					full-name))))))