Remove -ml-all.

src/hackerbase.scm

@@ -58,7 +58,6 @@
 (define -run-tests?- (make-parameter #f))
 (define -web-dir- (make-parameter #f))
 (define -normal-month- (make-parameter #t))
-(define -ml-all- (make-parameter #f))
 (define -show-destroyed- (make-parameter #f))
 (define -notify-months- (make-parameter 1))
 (define -send-emails- (make-parameter #f))
@@ -135,8 +134,6 @@
  "Misc options:"
  (-destroyed () "Show destroyed members in -fees"
 	     (-show-destroyed- #t))
- (-ml-all () "Load all mailman lists"
-	  (-ml-all- #t))
  ""
  "Base Actions:"
  (-info () "Print information"
@@ -231,18 +228,13 @@
 ;; Load ML(s) and merge them
 (define-values (MB1 internal-ml)
   (if MB0
-      (if (-ml-all-)
-	  (let ()
-	    (define mls (load-mailman-lists))
-	    (values (foldl (lambda (mb ml)
-			     (mbase-merge-mailman mb ml))
-			   MB0
-			   mls)
-		    (find-mailman-list mls "internal")))
-	  (let ()
-	    (define internal-ml (load-mailman-list "internal"))
-	    (values (mbase-merge-mailman MB0 internal-ml)
-		    internal-ml)))
+      (let ()
+	(define mls (load-mailman-lists))
+	(values (foldl (lambda (mb ml)
+			 (mbase-merge-mailman mb ml))
+		       MB0
+		       mls)
+		(find-mailman-list mls "internal")))
       (values #f #f)))
 
 ;; Load DokuWiki users