suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed the 'auto-open' link in emails with attachments

Browse Source 
svn: r4438
This commit is contained in:
Robby Findler 2006-09-26 13:48:39 +00:00
parent 7694a014ee
commit 79a6945f54
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/sirmail/readr.ss
View File

@ -2517,7 +2517,8 @@
(when fn (when fn
(let ([full-fn (if (and (path-string? fn) (let ([full-fn (if (and (path-string? fn)
(let-values ([(base name dir?) (split-path 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))) (path->string (normalize-path (build-path "~/Desktop" fn)))
fn)]) fn)])
(insert " " set-standard-style) (insert " " set-standard-style)