diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 20ad07a..6a64884 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -238,9 +238,6 @@
 		       mls)
 		mls))
       (values #f #f)))
-(define internal-ml (if MLS (find-mailman-list MLS "internal") #f))
-(define council-ml (if MLS (find-mailman-list MLS "rada") #f))
-(define revision-ml (if MLS (find-mailman-list MLS "rk") #f))
 
 ;; Load DokuWiki users
 (define MB (if MB1
@@ -324,7 +321,11 @@
 	 (print-members-base-table MB)
 	 (newline)
 	 (check-mailing-list MLS "internal")
-	 (check-mailing-list MLS "rada" #:pred? brmember-council?)
+	 (check-mailing-list MLS "rada"
+			     #:pred? (lambda (mr)
+				       (or (brmember-council? mr)
+					   (brmember-chair? mr)
+					   (brmember-revision? mr))))
 	 (check-mailing-list MLS "rk" #:pred? brmember-revision?)
 	 (print-git-status)))
    (newline))
@@ -393,7 +394,8 @@
    (print-unpaired-table MB))
   ((mlsync)
    (cond ((-normal-month-)
-	  (mailman-sync-members internal-ml (mbase-active-emails MB #:suspended #t)))
+	  (mailman-sync-members (find-mailman-list MLS "internal")
+				(mbase-active-emails MB #:suspended #t)))
 	 (else
 	  (print "Mailman synchronization disabled with manually specified current month."))))
   ((notify)