X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=emacstips.mdwn;h=a2c0b24c333a035e846f236cb7ec0183311e635a;hb=5fb01aa73c6e73e3e8ae33f2388f39a861c13d8e;hp=311de7101ad08597809bfe30e82ca8fe5b263f2a;hpb=5654fb7a450477fbbe562d55dca2de2c94ab6a41;p=obsolete%2Fnotmuch-wiki

diff --git a/emacstips.mdwn b/emacstips.mdwn
index 311de71..a2c0b24 100644
--- a/emacstips.mdwn
+++ b/emacstips.mdwn
@@ -551,3 +551,58 @@ show mode.
             (interactive "sBounce To: ")
             (notmuch-show-view-raw-message)
             (message-resend address)))
+
+## `notmuch-hello` refresh status message
+
+Add the following to your `.emacs` to get a status message about the change in
+the number of messages in the mail store when refreshing the `notmuch-hello`
+buffer.
+
+        (defvar notmuch-hello-refresh-count 0)
+
+        (defun notmuch-hello-refresh-status-message ()
+          (unless no-display
+            (let* ((new-count
+                    (string-to-number
+                     (car (process-lines notmuch-command "count"))))
+                   (diff-count (- new-count notmuch-hello-refresh-count)))
+              (cond
+               ((= notmuch-hello-refresh-count 0)
+                (message "You have %s messages."
+                         (notmuch-hello-nice-number new-count)))
+               ((> diff-count 0)
+                (message "You have %s more messages since last refresh."
+                         (notmuch-hello-nice-number diff-count)))
+               ((< diff-count 0)
+                (message "You have %s fewer messages since last refresh."
+                         (notmuch-hello-nice-number (- diff-count)))))
+              (setq notmuch-hello-refresh-count new-count))))
+
+        (add-hook 'notmuch-hello-refresh-hook 'notmuch-hello-refresh-status-message)
+
+## Replacing tabs with spaces in subject and header
+
+Mailman mailing list software rewrites and rewraps long message subjects in
+a way that causes TABs to appear in the middle of the subject and header
+lines. Add this to your `.emacs` to replace tabs with spaces in subject
+lines:
+
+	(defun notmuch-show-subject-tabs-to-spaces ()
+	  "Replace tabs with spaces in subject line."
+	  (goto-char (point-min))
+	  (when (re-search-forward "^Subject:" nil t)
+	    (while (re-search-forward "\t" (line-end-position) t)
+	      (replace-match " " nil nil))))
+
+	(add-hook 'notmuch-show-markup-headers-hook 'notmuch-show-subject-tabs-to-spaces)
+
+And in header lines (this will only work with the yet to be released
+notmuch version 0.15):
+
+	(defun notmuch-show-header-tabs-to-spaces ()
+	  "Replace tabs with spaces in header line."
+	  (setq header-line-format
+	        (notmuch-show-strip-re
+	         (replace-regexp-in-string "\t" " " (notmuch-show-get-subject)))))
+
+	(add-hook 'notmuch-show-hook 'notmuch-show-header-tabs-to-spaces)