From b820b18d7814c5291236d3aed26d34c6fc9c4d8d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 27 Aug 2022 03:29:34 +0100
Subject: nits

---
 lib/net/jao-notmuch.el | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

(limited to 'lib/net')

diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index 5c0ba25..fa4fee5 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -1,4 +1,4 @@
-;;; jao-notmuch.el --- Extensions for notmuch        -*- lexical-binding: t; -*-
+;; jao-notmuch.el --- Extensions for notmuch     -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2021, 2022  jao
 
@@ -18,11 +18,9 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
-;;; Commentary:
+;; Extensions to vanilla notmuch, mostly for tree view
 
-;;  Extensions to vanilla notmuch, mostly for tree view
-
-;;; Code:
+;;; require:
 
 (require 'outline)
 (require 'mm-decode)
@@ -33,7 +31,7 @@
 (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")
@@ -125,7 +123,7 @@
     (message "No URLs in this message")))
 
 
-;;; Navigating URLs
+;;; navigating URLs
 
 (require 'ffap)
 
@@ -152,7 +150,7 @@
     (browse-url url)))
 
 
-;;; Toggling mime parts and images
+;;; toggling mime parts and images
 
 (defun jao-notmuch--toggle-mime ()
   (save-excursion
@@ -214,7 +212,7 @@
            (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)))
@@ -272,7 +270,7 @@
     (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 " ")))
@@ -369,7 +367,7 @@
   (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)))
@@ -439,7 +437,7 @@
 (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)
-- 
cgit v1.2.3