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

added auto bcc to sirmail

Browse Source 
svn: r1131
This commit is contained in:
Robby Findler 2005-10-22 23:15:59 +00:00
parent 8861cff087
commit c3c9dd7a02
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/sirmail/pref.ss
View File

@ -101,7 +101,8 @@
(lambda (x) (and (list? x) (andmap string? x))))
(preferences:set-default 'sirmail:fields-to-show '("From" "To" "CC" "Subject" "Date" "X-Mailer" "X-Uptime")
(lambda (x) (and (list? x) (andmap string? x))))
(preferences:set-default 'sirmail:bcc #f
(λ (x) (or (not x) (string? x))))
(let ([fw 560]
[fh 600])
@ -479,6 +480,7 @@
(make-text-field "Default \"To\" domain" p 20 'sirmail:default-to-domain #f check-host-address (lambda (x) x) (lambda (x) x))
(make-text-field "BCC line" p 20 'sirmail:bcc #t void (lambda (x) x) (lambda (x) x))
(make-file/directory-button #f #f p
'sirmail:aliases-file
"Aliases File")

5
collects/sirmail/sendr.ss
View File

@ -626,6 +626,11 @@
(send message-editor insert "Subject: ")
(send message-editor insert (string-crlf->lf subject))
(send message-editor insert #\newline)
(let ([bcc-header (get-pref 'sirmail:bcc)])
(when bcc-header
(send message-editor insert "bcc: ")
(send message-editor insert bcc-header)
(send message-editor insert #\newline)))
(send message-editor insert (string-crlf->lf other-headers))
(send message-editor insert "X-Mailer: SirMail under MrEd ")
(send message-editor insert (version))