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: r4437
This commit is contained in:
Robby Findler 2006-09-26 13:44:48 +00:00
parent 13771a0075
commit 7694a014ee
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/sirmail/readr.ss
View File

@ -2517,8 +2517,8 @@
(when 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))
(not (path? base))))
(path->string (normalize-path (build-path "~/Desktop" fn)))
fn)])
(insert " " set-standard-style)
(insert "[save & open]"
@ -2527,7 +2527,7 @@
(lambda (a b c)
(to-file full-fn)
(parameterize ([current-input-port (open-input-string "")])
(system* "/usr/bin/open" (path->string full-fn))))
(system* "/usr/bin/open" full-fn)))
#f #f)
(send t change-style url-delta s e)))))))
(insert "\n" set-standard-style)