From 28fa8e45a96eb5a11bb9c7fe301de683e60c0df5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 16 Nov 2023 18:04:10 +0100 Subject: [PATCH] Remove -ml-all. --- src/hackerbase.scm | 22 +++++++--------------- 1 file changed, 7 insertions(+), 15 deletions(-) diff --git a/src/hackerbase.scm b/src/hackerbase.scm index 70f36da..2e5b95c 100644 --- a/src/hackerbase.scm +++ b/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