emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e-folders: fix whitespace

This commit is contained in:
Dirk-Jan C. Binnema 2023-01-09 23:56:34 +02:00
parent f5f03e8f91
commit fc867c9065
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-folders.el
View File

@ -1,6 +1,6 @@
;;; mu4e-folders.el -- part of mu4e -*- lexical-binding: t -*- ;;; mu4e-folders.el -- part of mu4e -*- lexical-binding: t -*-
;; Copyright (C) 2021-2022 Dirk-Jan C. Binnema ;; Copyright (C) 2021-2023 Dirk-Jan C. Binnema
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
@ -165,9 +165,9 @@ This is compatibile with `mu4e-bookmarks'."
(seq-map (seq-map
(lambda (item) (lambda (item)
(let* ((maildir (plist-get item :maildir)) (let* ((maildir (plist-get item :maildir))
(name (or (plist-get item :name) maildir)) (name (or (plist-get item :name) maildir))
(item (plist-put item :name name)) (item (plist-put item :name name))
(item (plist-put item :query (format "maildir:\"%s\"" maildir)))) (item (plist-put item :query (format "maildir:\"%s\"" maildir))))
item)) ;; we don't need ":maildir", but it's harmless. item)) ;; we don't need ":maildir", but it's harmless.
(mu4e-maildir-shortcuts))) (mu4e-maildir-shortcuts)))
@ -249,10 +249,10 @@ Do so recursively and produce a list of relative paths."
(setq dirs (cons (concat mdir (car dentry)) dirs))) (setq dirs (cons (concat mdir (car dentry)) dirs)))
(unless (member (car dentry) '("cur" "new" "tmp")) (unless (member (car dentry) '("cur" "new" "tmp"))
(setq dirs (setq dirs
(append dirs (append dirs
(mu4e~get-maildirs-1 path (mu4e~get-maildirs-1 path
(concat mdir (concat mdir
(car dentry) "/"))))))) (car dentry) "/")))))))
dirs)) dirs))
(defvar mu4e-cache-maildir-list nil (defvar mu4e-cache-maildir-list nil