From ed8eef79a917cf2e0b363420bbe9dbe16d247c67 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 20 Sep 2006 08:28:24 +0000 Subject: [PATCH] enclosure filename might have path separators svn: r4395 --- collects/sirmail/readr.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/sirmail/readr.ss b/collects/sirmail/readr.ss index ae915f817d..f025b60438 100644 --- a/collects/sirmail/readr.ss +++ b/collects/sirmail/readr.ss @@ -2515,7 +2515,11 @@ (send t change-style url-delta s e))) (when (eq? (system-type) 'macosx) (when fn - (let ([full-fn (normalize-path (build-path "~/Desktop" fn))]) + (let ([full-fn (if (and (path-string? fn) + (let-values ([(base name dir?) (split-path fn)]) + (not base))) + (normalize-path (build-path "~/Desktop" fn)) + fn)]) (insert " " set-standard-style) (insert "[save & open]" (lambda (t s e)