From 4349df5b6a7702b72c1b6404d71f444939e5ca21 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 24 May 2010 09:37:07 -0600 Subject: [PATCH] Fixing error when no email needs to be sent and changing addresses --- collects/meta/drdr/analyze.ss | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/collects/meta/drdr/analyze.ss b/collects/meta/drdr/analyze.ss index 826d63abcb..778aa04174 100644 --- a/collects/meta/drdr/analyze.ss +++ b/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."