From fc867c90652ab2d276429c4c40f9e1eb01cf9d67 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Mon, 9 Jan 2023 23:56:34 +0200 Subject: [PATCH] mu4e-folders: fix whitespace --- mu4e/mu4e-folders.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/mu4e/mu4e-folders.el b/mu4e/mu4e-folders.el index 032e0cf0..2d6e7eac 100644 --- a/mu4e/mu4e-folders.el +++ b/mu4e/mu4e-folders.el @@ -1,6 +1,6 @@ ;;; 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 ;; Maintainer: Dirk-Jan C. Binnema @@ -165,9 +165,9 @@ This is compatibile with `mu4e-bookmarks'." (seq-map (lambda (item) (let* ((maildir (plist-get item :maildir)) - (name (or (plist-get item :name) maildir)) - (item (plist-put item :name name)) - (item (plist-put item :query (format "maildir:\"%s\"" maildir)))) + (name (or (plist-get item :name) maildir)) + (item (plist-put item :name name)) + (item (plist-put item :query (format "maildir:\"%s\"" maildir)))) item)) ;; we don't need ":maildir", but it's harmless. (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))) (unless (member (car dentry) '("cur" "new" "tmp")) (setq dirs - (append dirs - (mu4e~get-maildirs-1 path + (append dirs + (mu4e~get-maildirs-1 path (concat mdir - (car dentry) "/"))))))) + (car dentry) "/"))))))) dirs)) (defvar mu4e-cache-maildir-list nil