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

Load all lists if requested.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 19:57:18 +02:00
parent 56e1a70068
commit ae2ad7390d
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/bbstool.scm
View file

@ -166,11 +166,16 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; Load ML(s) and merge them ;; Load ML(s) and merge them
(define MB (define MB
(cond ((-ml-all-) (if (-ml-all-)
(let ()
(define internal-ml (load-mailman-list "internal")) (define internal-ml (load-mailman-list "internal"))
(members-base-merge-mailman MB0 internal-ml)) (members-base-merge-mailman MB0 internal-ml))
(else (let ()
MB0))) (define mls (load-mailman-lists))
(foldl (lambda (mb ml)
(members-base-merge-mailman mb ml))
MB0
mls))))
;; 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