brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Do not load mailman if nothing to load.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 22:30:22 +02:00
parent 46480625db
commit b868f939a5
1 changed files with 14 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/bbstool.scm
View file

@ -168,18 +168,20 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; Load ML(s) and merge them ;; Load ML(s) and merge them
(define-values (MB internal-ml) (define-values (MB internal-ml)
(if (-ml-all-) (if MB0
(let () (if (-ml-all-)
(define mls (load-mailman-lists)) (let ()
(values (foldl (lambda (mb ml) (define mls (load-mailman-lists))
(members-base-merge-mailman mb ml)) (values (foldl (lambda (mb ml)
MB0 (members-base-merge-mailman mb ml))
mls) MB0
(find-mailman-list mls "internal"))) mls)
(let () (find-mailman-list mls "internal")))
(define internal-ml (load-mailman-list "internal")) (let ()
(values (members-base-merge-mailman MB0 internal-ml) (define internal-ml (load-mailman-list "internal"))
internal-ml)))) (values (members-base-merge-mailman MB0 internal-ml)
internal-ml)))
#f))
;; If a member is specified by either id or nick, get its record ;; If a member is specified by either id or nick, get its record
(define mr (define mr