summaryrefslogtreecommitdiffhomepage
path: root/lib/net
diff options
context:
space:
mode:
Diffstat (limited to 'lib/net')
-rw-r--r--lib/net/jao-notmuch.el9
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)