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

Merge pull request #178 from nicolasavru/recursive_maildirs

Browse Source 
* improved recursive maildir support
This commit is contained in:
Dirk-Jan C. Binnema
2013-04-02 09:10:08 -07:00
parent bde5f78091 97a67c7ac8
commit e11dd3765a
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-utils.el
View File

@ -245,7 +245,6 @@ Function will return the cdr of the list element."
(cdr chosen) (cdr chosen)
(mu4e-warn "Unknown shortcut '%c'" response)))) (mu4e-warn "Unknown shortcut '%c'" response))))
(defun mu4e~get-maildirs-1 (path mdir) (defun mu4e~get-maildirs-1 (path mdir)
"Get maildirs under path, recursively, as a list of relative paths." "Get maildirs under path, recursively, as a list of relative paths."
(let ((dirs) (let ((dirs)
@ -258,8 +257,11 @@ Function will return the cdr of the list element."
(when (and (booleanp (cadr dentry)) (cadr dentry)) (when (and (booleanp (cadr dentry)) (cadr dentry))
(if (file-accessible-directory-p (if (file-accessible-directory-p
(concat mu4e-maildir "/" mdir "/" (car dentry) "/cur")) (concat mu4e-maildir "/" mdir "/" (car dentry) "/cur"))
(setq dirs (cons (concat mdir (car dentry)) dirs)) (setq dirs (cons (concat mdir (car dentry)) dirs)))
(setq dirs (append dirs (mu4e~get-maildirs-1 path (if (not (or (string-equal "cur" (car dentry))
(string-equal "new" (car dentry))
(string-equal "tmp" (car dentry))))
(setq dirs (append dirs (mu4e~get-maildirs-1 path
(concat mdir (car dentry) "/"))))))) (concat mdir (car dentry) "/")))))))
dirs)) dirs))