init.el

@@ -980,11 +980,12 @@ If DESCRIPTION, match it in the description.  If TARGET, match it
 in the target.  If both DESCRIPTION and TARGET, match both,
 respectively."
               (cl-labels
-                  ((no-desc (match)
-                     (rx-to-string `(seq (or bol (1+ blank))
+                  ((no-desc
+                    (match) (rx-to-string `(seq (or bol (1+ blank))
                                                 "[[" (0+ (not (any "]"))) (regexp ,match) (0+ (not (any "]")))
                                                 "]]")))
-                   (match-both (description target)
+                   (match-both
+                    (description target)
                     (rx-to-string `(seq (or bol (1+ blank))
                                         "[[" (0+ (not (any "]"))) (regexp ,target) (0+ (not (any "]")))
                                         ;; Added .* wildcards
@@ -992,14 +993,14 @@ respectively."
                                         "]]")))
                    ;; Note that these actually allow empty descriptions
                    ;; or targets, depending on what they are matching.
-                   (match-desc (match)
-                     (rx-to-string `(seq (or bol (1+ blank))
+                   (match-desc
+                    (match) (rx-to-string `(seq (or bol (1+ blank))
                                                 "[[" (0+ (not (any "]")))
                                                 ;; Added .* wildcards
                                                 "][" (regexp ".*") (regexp ,match) (regexp ".*")
                                                 "]]")))
-                   (match-target (match)
-                     (rx-to-string `(seq (or bol (1+ blank))
+                   (match-target
+                    (match) (rx-to-string `(seq (or bol (1+ blank))
                                                 "[[" (0+ (not (any "]"))) (regexp ,match) (0+ (not (any "]")))
                                                 ;; Removed pattern for description
                                                 "][" ))))
@@ -1507,7 +1508,6 @@ respectively."
       gnus-startup-file (expand-file-name "private/gnus-newsrc" emacs-d)
       gnus-cache-directory (expand-file-name "cache/" gnus-directory)
       gnus-verbose 6
-      gnus-dbus-close-on-sleep t
 
       message-directory (expand-file-name "mail/" gnus-directory)
       nnmail-message-id-cache-file (expand-file-name ".nnmail-cache" gnus-directory)
@@ -1768,9 +1768,8 @@ respectively."
 
 ;; Searching
 
-(use-package gnus-search
-  :init (setq gnus-search-default-engines '((nnimap . gnus-search-imap))
-              gnus-search-use-parsed-queries t))
+(setq gnus-search-default-engines '((nnimap . gnus-search-imap))
+      gnus-search-use-parsed-queries t)
 
 ;; Agents
 
@@ -2657,7 +2656,7 @@ With given ARG, display files in `db/important-document-path’."
 ;; General Stuff first
 
 (use-package lisp-mode
-  :init (setq lisp-indent-function #'common-lisp-indent-function))
+  :init (setq lisp-indent-function #'lisp-indent-function))
 
 (use-package lispy
   :ensure t