                 org-clock-auto-clock-resolution 'when-no-clock-is-running
                 org-clock-mode-line-total 'auto
                 org-clock-report-include-clocking-task t
-                org-clock-in-switch-to-state (lambda (_)
-                                               (when (not
-                                                      (and (boundp 'org-capture-mode)
-                                                           org-capture-mode))
-                                                 (cond
-                                                  ((member (org-get-todo-state)
-                                                           (list "TODO" "READ"))
-                                                   "CONT")
-                                                  ((member (org-get-todo-state)
-                                                           (list "GOTO"))
-                                                   "ATTN"))))
+                org-clock-in-switch-to-state #'(lambda (_)
+                                                 (when (not
+                                                        (and (boundp 'org-capture-mode)
+                                                             org-capture-mode))
+                                                   (cond
+                                                    ((member (org-get-todo-state)
+                                                             (list "TODO" "READ"))
+                                                     "CONT")
+                                                    ((member (org-get-todo-state)
+                                                             (list "GOTO"))
+                                                     "ATTN"))))
                 org-clock-persist t
                 org-clock-persist-query-resume nil
                 org-time-stamp-rounding-minutes '(1 1))

                                         "User-Agent:"))

      message-citation-line-function
      (lambda ()
        (when message-reply-headers
          (insert "ghItlhpu' "
                  (mail-header-from message-reply-headers)
                  ":")
          (newline))))

;; Gnus Appearence


            ;; Visit group under point and immediately close it; this updates
            ;; gnus’ registry as a side-effect
            (bind-key "v u"
                      #'(lambda ()
                          (interactive)
                          (save-mark-and-excursion
                            (when (gnus-topic-select-group)
                              (gnus-summary-exit))))
                      gnus-group-mode-map)

            ;; Toggle visibility of News group
            (bind-key "v c"
                      #'(lambda ()
                          (interactive)
                          (save-mark-and-excursion
                            (gnus-topic-jump-to-topic "News")
                            (gnus-topic-read-group)))
                      gnus-group-mode-map)

            (bind-key "C-<return>" #'db/gnus-summary-open-Link gnus-summary-mode-map)
