diff options
author | jao <jao@gnu.org> | 2022-02-25 17:11:56 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-02-25 17:11:56 +0000 |
commit | 673a6ef63dcf0ef189b74ec6078806907c2d4d69 (patch) | |
tree | fd4d8beb2750ba6afbf6639b57074a4c9c019f09 /email.org | |
parent | 39ea94404da8d4eef52511052755f32be813e9b1 (diff) | |
download | elibs-673a6ef63dcf0ef189b74ec6078806907c2d4d69.tar.gz elibs-673a6ef63dcf0ef189b74ec6078806907c2d4d69.tar.bz2 |
clean-ups
Diffstat (limited to 'email.org')
-rw-r--r-- | email.org | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -335,14 +335,7 @@ (let ((dir (expand-file-name base "~/var/mail"))) (seq-difference (directory-files dir) (append '("." "..") excl)))) - (defun jao-mailbox-folders (&rest excl) - (seq-mapcat (lambda (base) - (mapcar `(lambda (d) (format "%s/%s" ,base d)) - (apply #'jao-list-mailboxes base excl))) - '("jao" "bigml" "feeds"))) - - (defvar jao-mailbox-folders (jao-mailbox-folders "trash" "spam")) - (defvar jao-mailbox-folders-rx (regexp-opt jao-mailbox-folders)) + #+end_src * consult narrowing #+begin_src emacs-lisp |