summaryrefslogtreecommitdiffhomepage
path: root/email.org
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-02-25 17:11:56 +0000
committerjao <jao@gnu.org>2022-02-25 17:11:56 +0000
commit673a6ef63dcf0ef189b74ec6078806907c2d4d69 (patch)
treefd4d8beb2750ba6afbf6639b57074a4c9c019f09 /email.org
parent39ea94404da8d4eef52511052755f32be813e9b1 (diff)
downloadelibs-673a6ef63dcf0ef189b74ec6078806907c2d4d69.tar.gz
elibs-673a6ef63dcf0ef189b74ec6078806907c2d4d69.tar.bz2
clean-ups
Diffstat (limited to 'email.org')
-rw-r--r--email.org9
1 files changed, 1 insertions, 8 deletions
diff --git a/email.org b/email.org
index cc28b73..6aa1c11 100644
--- a/email.org
+++ b/email.org
@@ -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