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

Actually merge the emails into base.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 19:46:33 +02:00
parent 43aea708f9
commit 0f76514a46
3 changed files with 23 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/bbstool.scm
View file

@ -153,7 +153,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(newline))
;; Load the members database (required for everything anyway)
(define MB
(define MB0
(if (-action-)
(let ((mb (load-members (*members-directory*) #t)))
(if (-needs-bank-)
@ -161,6 +161,12 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
mb))
#f))
;; Load ML(s)
(define internal-ml (load-mailman-list "internal"))
;; Merge
(define MB (members-base-merge-mailman MB0 internal-ml))
;; If a member is specified by either id or nick, get its record
(define mr
(if (-member-id-)