alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

scm: add convenience methods root-maildir, personal-addresses

Browse Source 
For a store, so to avoid assoc-ref.
This commit is contained in:
Dirk-Jan C. Binnema
2025-11-29 12:43:38 +02:00
committed by Seth Ladygo
parent 52f44653b0
commit 8afef75b30
4 changed files with 30 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
scm/mu-scm-test.scm
View File

@ -13,6 +13,9 @@
(test-assert (personal? "user@example.com"))
(test-assert (not (personal? "user@anotherexample.com")))
(test-equal (root-maildir) (string-append (getenv "MU_TESTDATADIR") "/testdir"))
(test-equal (personal-addresses) '("user@example.com"))
(let ((info (store->alist)))
(test-equal 50000 (assoc-ref info 'batch-size))
(test-equal 100000000 (assoc-ref info 'max-message-size)))