Permalink
Browse files

Fixing error when no email needs to be sent and changing addresses

  • Loading branch information...
1 parent cc162f3 commit 4349df5b6a7702b72c1b6404d71f444939e5ca21 @jeapostrophe jeapostrophe committed May 24, 2010
Showing with 10 additions and 7 deletions.
  1. +10 −7 collects/meta/drdr/analyze.ss
View
17 collects/meta/drdr/analyze.ss
@@ -150,15 +150,18 @@
; XXX But even then it can lead to problems
(not (path-random? (build-path (revision-trunk-dir cur-rev) (substring (path->string* p) 1)))))
(not (symbol=? id 'changes))))))
- (unless (andmap zero? nums)
- (send-mail-message "drdr@plt-scheme.org"
+ (define mail-recipients
+ (append (if include-committer?
+ (list committer)
+ empty)
+ responsibles))
+ (unless (or (andmap zero? nums)
+ (empty? mail-recipients))
+ (send-mail-message "drdr@racket-lang.org"
(format "[DrDr] R~a ~a"
cur-rev totals)
- (map (curry format "~a@plt-scheme.org")
- (append (if include-committer?
- (list committer)
- empty)
- responsibles))
+ (map (curry format "~a@racket-lang.org")
+ mail-recipients)
empty empty
(flatten
(list (format "DrDr has finished building push #~a after ~a."

0 comments on commit 4349df5

Please sign in to comment.