From beffb8072b024bfe55590d56f32f59037a029709 Mon Sep 17 00:00:00 2001
From: djcb <djcb@djcbsoftware.nl>
Date: Sun, 11 Aug 2013 14:37:19 +0300
Subject: [PATCH] * mu4e: add variable mu4e-hide-index-messages

---
 mu4e/mu4e-utils.el | 24 +++++++++++++++---------
 mu4e/mu4e-vars.el  |  6 ++++--
 mu4e/mu4e.texi     |  3 +++
 3 files changed, 22 insertions(+), 11 deletions(-)

diff --git a/mu4e/mu4e-utils.el b/mu4e/mu4e-utils.el
index 4b004302..23bec4ec 100644
--- a/mu4e/mu4e-utils.el
+++ b/mu4e/mu4e-utils.el
@@ -193,6 +193,13 @@ echo area, don't show anything."
   (unless (or (active-minibuffer-window))
     (message "%s" (apply 'mu4e-format frm args))))
 
+(defun mu4e-index-message (frm &rest args)
+  "Like `mu4e-message', but specifically for
+index-messages. Doesn't display anything if
+`mu4e-hide-index-messages' is non-nil. "
+  (unless mu4e-hide-index-messages
+    (apply 'mu4e-message frm args))) 
+
 (defun mu4e-error (frm &rest args)
   "Create [mu4e]-prefixed error based on format FRM and ARGS.
 Does a local-exit and does not return, and raises a
@@ -538,21 +545,21 @@ process."
       ((eq type 'add) t) ;; do nothing
       ((eq type 'index)
 	(if (eq (plist-get info :status) 'running)
-	  (mu4e-message "Indexing... processed %d, updated %d"
+	  (mu4e-index-message "Indexing... processed %d, updated %d"
 	    (plist-get info :processed) (plist-get info :updated))
 	  (progn
-	    (mu4e-message
+	    (mu4e-index-message
 	      "Indexing completed; processed %d, updated %d, cleaned-up %d"
 	      (plist-get info :processed) (plist-get info :updated)
 	      (plist-get info :cleaned-up))
 	    (unless (zerop (plist-get info :updated))
 	      (run-hooks 'mu4e-index-updated-hook)))))
       ((plist-get info :message)
-	(mu4e-message "%s" (plist-get info :message))))))
+	(mu4e-index-message "%s" (plist-get info :message))))))
 
 (defun mu4e-error-handler (errcode errmsg)
   "Handler function for showing an error."
-  ;; don't use mu4e-error here; it's running in the process filter ctx
+  ;; don't use mu4e-error here; it's running in the process filter context
   (case errcode
     (4 (user-error "No matches for this search query."))
     (t (error "Error %d: %s" errcode errmsg))))
@@ -630,7 +637,7 @@ This is used by the completion function in mu4e-compose."
 	  (add-to-list 'lst
 	    (if name (format "%s <%s>" (mu4e~rfc822-quoteit name) mail) mail))))))
     (setq mu4e~contacts-for-completion lst)
-    (mu4e-message "Contacts received: %d"
+    (mu4e-index-message "Contacts received: %d"
       (length mu4e~contacts-for-completion))))
 
 
@@ -792,9 +799,8 @@ The messages are inserted into the process buffer."
 ;;   - (optionally) check password requests
 (defun mu4e-update-mail-and-index (run-in-background)
   "Get a new mail by running `mu4e-get-mail-command'. If
-run-in-background is non-nil (or functional called with
-prefix-argument), run in the background; otherwise, pop up a
-window."
+run-in-background is non-nil (or called with prefix-argument), run
+in the background; otherwise, pop up a window."
   (interactive "P")
   (unless mu4e-get-mail-command
     (mu4e-error "`mu4e-get-mail-command' is not defined"))
@@ -805,7 +811,7 @@ window."
 	  (process-connection-type t)
 	  (proc (start-process-shell-command
 		  mu4e~update-name buf mu4e-get-mail-command)))
-    (mu4e-message "Retrieving mail...")
+    (mu4e-index-message "Retrieving mail...")
     (when (window-live-p win)
       (with-selected-window win
 	(switch-to-buffer buf)
diff --git a/mu4e/mu4e-vars.el b/mu4e/mu4e-vars.el
index b9a15ebe..d200830c 100644
--- a/mu4e/mu4e-vars.el
+++ b/mu4e/mu4e-vars.el
@@ -78,6 +78,9 @@ mu4e."
   :group 'mu4e
   :safe 'integerp)
 
+(defvar mu4e-hide-index-messages nil
+  "If non-nil, mu4e does not show the \"Indexing...\" messages, or
+  any messages relating to updated contacts.")
 
 (defcustom mu4e-change-filenames-when-moving nil
   "When moving messages to different folders, normally mu/mu4e keep
@@ -125,8 +128,7 @@ personal message. This is used when indexing messages."
   `format-time-string'."
   :type 'string
   :group 'mu4e)
-
-
+  
 (defvar mu4e-debug nil
   "When set to non-nil, log debug information to the *mu4e-log* buffer.")
 
diff --git a/mu4e/mu4e.texi b/mu4e/mu4e.texi
index 55ed6fd8..b443c1ce 100644
--- a/mu4e/mu4e.texi
+++ b/mu4e/mu4e.texi
@@ -2910,6 +2910,9 @@ another @command{mu} instance that is holding the lock, you can ask it to
 @end verbatim
 @t{mu4e} automatically restarts @t{mu} when it needs it. In practice, this
 seems to work quite well.
+@item @emph{I don't like the @t{Indexing...} messages that the indexing process
+gives me. Can I turn them off?}. Yes: set the variable
+@code{mu4e-hide-index-messages} to non-@t{nil}.
 @item @emph{Can I automatically apply the marks on messages when
 leaving the headers buffer?} Yes you can -- see the documentation for the
 variable @t{mu4e-headers-leave-behavior}.