projects
/
postoffice.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3042: *** empty log message ***
[postoffice.git]
/
smtp.lisp
diff --git
a/smtp.lisp
b/smtp.lisp
index 458ca2743d79f11a4a5744aed50cd49b68f8e946..88dc4942f1332950a0238cb5be4e8199b11c32ec 100644
(file)
--- a/
smtp.lisp
+++ b/
smtp.lisp
@@
-23,7
+23,7
@@
;; Suite 330, Boston, MA 02111-1307 USA
;;
;;
;; Suite 330, Boston, MA 02111-1307 USA
;;
;;
-;; $Id: smtp.lisp,v 1.
3 2002/10/16 01:35:48
kevin Exp $
+;; $Id: smtp.lisp,v 1.
4 2002/10/16 02:10:56
kevin Exp $
;; Description:
;; send mail to an smtp server. See rfc821 for the spec.
;; Description:
;; send mail to an smtp server. See rfc821 for the spec.
@@
-251,9
+251,9
@@
(if* (null ipaddr)
then (error "Can't determine ip addres for mail server ~s" server))
(if* (null ipaddr)
then (error "Can't determine ip addres for mail server ~s" server))
- (setq sock (make-socket :remote-host
ipadd
r
-
:remote-port 25 ; smtp
-
))
+ (setq sock (make-socket :remote-host
#+allegro ipaddr #-allegro serve
r
+ :remote-port 25 ; smtp
+ ))
(unwind-protect
(progn
(response-case (sock msg)
(unwind-protect
(progn
(response-case (sock msg)