diff --git a/collects/sirmail/pref.ss b/collects/sirmail/pref.ss
index 2052f76b45..df7c3bae51 100644
--- a/collects/sirmail/pref.ss
+++ b/collects/sirmail/pref.ss
@@ -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")
diff --git a/collects/sirmail/sendr.ss b/collects/sirmail/sendr.ss
index 7e45435629..a9f8d40b6a 100644
--- a/collects/sirmail/sendr.ss
+++ b/collects/sirmail/sendr.ss
@@ -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))