From 79a6945f54da454158f11eb0735eb39ea915c399 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 26 Sep 2006 13:48:39 +0000
Subject: [PATCH] changed the 'auto-open' link in emails with attachments

svn: r4438
---
 collects/sirmail/readr.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/sirmail/readr.ss b/collects/sirmail/readr.ss
index dd774edc9c..bdef3defbf 100644
--- a/collects/sirmail/readr.ss
+++ b/collects/sirmail/readr.ss
@@ -2517,7 +2517,8 @@
                                       (when fn
                                         (let ([full-fn (if (and (path-string? fn)
 								(let-values ([(base name dir?) (split-path fn)])
-								  (not (path? base))))
+								  (or (eq? base 'relative)
+                                                                      (path? base))))
 							   (path->string (normalize-path (build-path "~/Desktop" fn)))
 							   fn)])
 					  (insert " " set-standard-style)