jao-notmuch: old-school pagination

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index b9a9be9..77d0d13 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -32,6 +32,7 @@
 (require 'notmuch-tree)
 (require 'notmuch-show)
 
+
 ;;;; Targetting the displayed message from the tree view
 
 (defvar-local jao-notmuch--tree-buffer nil)
@@ -121,6 +122,7 @@
                (completing-read "Browse URL: " urls))
     (message "No URLs in this message")))
 
+
 ;;;; Navigating URLs
 
 (require 'ffap)
@@ -147,6 +149,7 @@
                      (thing-at-point-url-at-point)))
     (browse-url url)))
 
+
 ;;;; Toggling mime parts and images
 
 (defun jao-notmuch--toggle-mime ()
@@ -197,6 +200,7 @@
 
 (add-hook 'notmuch-show-mode-hook #'jao-notmuch--setup-w3m-images)
 
+
 ;;;; w3m renderer
 
 (defun jao-w3m-gnus-html-renderer (handle)
@@ -211,6 +215,7 @@
 
 (setq mm-text-html-renderer #'jao-w3m-gnus-html-renderer)
 
+
 ;;;; Keeping track of unread messages in current tree view
 
 (defvar-local jao-notmuch--query-name nil)
@@ -280,6 +285,7 @@
   (interactive)
   (message (jao-notmuch--tree-update-buffer-name)))
 
+
 ;;;; Outline mode for tree view
 
 (defun jao-notmuch-tree--msg-prefix (msg)
@@ -348,6 +354,7 @@
   (interactive "P")
   (jao-notmuch-tree--next t t exit))
 
+
 ;;;; Updating the tree window after insertion
 
 (defun jao-notmuch--tree-sentinel (proc &rest _)
@@ -360,6 +367,7 @@
   (jao-notmuch-tree-outline-setup prefix)
   (advice-add 'notmuch-tree-process-sentinel :after #'jao-notmuch--tree-sentinel))
 
+
 ;;;; Tagging
 
 (defun jao-notmuch-tag-jump-and-next (reverse)
@@ -398,6 +406,7 @@
   (let ((tags (if unmark '("-spam") '("-unread" "-new" "+spam"))))
     (jao-notmuch-tree--tag-and-next tags nil nil)))
 
+
 ;;;; Results formatters
 
 (defun jao-notmuch-format-tags (fmt msg)