desorgification

1 files changed, 18 insertions, 18 deletions

diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index 05ec394..edffade 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -32,8 +32,8 @@
 (require 'notmuch-tree)
 (require 'notmuch-show)
 
-
-;;;; Targetting the displayed message from the tree view
+
+;;; Targetting the displayed message from the tree view
 
 (defvar-local jao-notmuch--tree-buffer nil)
 (declare eww--url-at-point "eww")
@@ -130,8 +130,8 @@
                (completing-read "Browse URL: " urls))
     (message "No URLs in this message")))
 
-
-;;;; Navigating URLs
+
+;;; Navigating URLs
 
 (require 'ffap)
 
@@ -157,8 +157,8 @@
                      (thing-at-point-url-at-point)))
     (browse-url url)))
 
-
-;;;; Toggling mime parts and images
+
+;;; Toggling mime parts and images
 
 (defun jao-notmuch--toggle-mime ()
   (save-excursion
@@ -220,8 +220,8 @@
            (with-current-buffer notmuch-tree-message-buffer
              (jao-notmuch--view-html))))))
 
-
-;;;; Keeping track of unread messages in current tree view
+
+;;; Keeping track of unread messages in current tree view
 
 (defun jao-notmuch--looking-at-new-p (&optional p)
   (when-let (ts (if p (plist-get p :tags) (notmuch-show-get-tags)))
@@ -278,8 +278,8 @@
       `((:eval (jao-notmuch--format-header-line ,(buffer-name tb) ,cb ,subject)))
     (concat " " subject)))
 
-
-;;;; Outline mode for tree view
+
+;;; Outline mode for tree view
 
 (defun jao-notmuch-tree--msg-prefix (msg)
   (insert (propertize (if (plist-get msg :first) "> " "  ") 'display " ")))
@@ -347,8 +347,8 @@
   (interactive "P")
   (jao-notmuch-tree--next t t exit))
 
-
-;;;; Updating the tree window after insertion
+
+;;; Updating the tree window after insertion
 
 (defun jao-notmuch--tree-sentinel (proc &rest _)
   (when (eq (process-status proc) 'exit)
@@ -359,8 +359,8 @@
   (jao-notmuch-tree-outline-setup prefix)
   (advice-add 'notmuch-tree-process-sentinel :after #'jao-notmuch--tree-sentinel))
 
-
-;;;; Tagging
+
+;;; Tagging
 
 (defsubst jao-notmuch--has-tag (tag)
   (member tag (notmuch-tree-get-tags)))
@@ -430,8 +430,8 @@
 
 (advice-add 'notmuch-mua-new-reply :around #'jao-notmuch-mua-new-reply)
 
-
-;;;; Results formatters
+
+;;; Results formatters
 
 (defun jao-notmuch-format-tags (fmt msg)
   (let ((ts (thread-last (notmuch-tree-format-field "tags" "%s" msg)
@@ -451,12 +451,12 @@
                  'notmuch-tree-no-match-author-face)))
     (propertize auth 'face face)))
 
-(defun jao-notmuch-tree-and-subject (fmt msg)
+(defun jao-notmuch-format-tree-and-subject (fmt msg)
   (let ((tr (notmuch-tree-format-field "tree" " %s" msg))
         (sb (notmuch-tree-format-field "subject" " %s" msg)))
     (format-spec fmt `((?s . ,(concat tr sb))))))
 
-(defun jao-notmuch-msg-ticks (mails-rx msg)
+(defun jao-notmuch-format-msg-ticks (mails-rx msg)
   (let ((headers (plist-get msg :headers)))
     (cond ((string-match-p mails-rx (or (plist-get headers :To) ""))
            (propertize " »" 'face 'notmuch-tree-match-tree-face))