[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
a patch for DNA FROM: addresses
Date: Fri, 13 Oct 89 11:33 EDT
From: Len Moskowitz <Len@HEART-OF-GOLD>
Subject: a patch for DNA FROM: addresses
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:
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:
The following hack does the job.
email@example.com (CSnet) Test Systems Division
firstname.lastname@example.org (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:
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)