mu4e: cosmetics

mu4e/mu4e-headers.el

@@ -320,13 +320,13 @@ headers."
 	  (when (mu4e-mark-docid-marked-p docid)
 	    (mu4e-mark-set 'unmark))
 
- 	  ;; re-use the thread info from the old one; this is needed because
- 	  ;; *update* messages don't have thread info by themselves (unlike
- 	  ;; search results)
+	  ;; re-use the thread info from the old one; this is needed because
+	  ;; *update* messages don't have thread info by themselves (unlike
+	  ;; search results)
 	  ;; since we still have the search results, re-use
- 	  ;; those
- 	  (plist-put msg :thread
- 	    (mu4e~headers-field-for-docid docid :thread))
+	  ;; those
+	  (plist-put msg :thread
+	    (mu4e~headers-field-for-docid docid :thread))
 
 	  ;; first, remove the old one (otherwise, we'd have two headers with
 	  ;; the same docid...
@@ -340,8 +340,8 @@ headers."
 
 	  ;; now, if this update was about *moving* a message, we don't show it
 	  ;; anymore (of course, we cannot be sure if the message really no
-	  ;; longer matches the query, but this seem a good heuristic.
-	  ;; if it was only a flag-change, show the message with its updated flags.
+	  ;; longer matches the query, but this seem a good heuristic.  if it
+	  ;; was only a flag-change, show the message with its updated flags.
 	  (unless is-move
 	    (mu4e~headers-header-handler msg point))
 
@@ -382,7 +382,7 @@ into a string."
       (let ((name (car ct)) (email (cdr ct)))
 	(or name email "?"))) contacts ", "))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defsubst mu4e~headers-thread-prefix (thread)
   "Calculate the thread prefix based on thread info THREAD."
   (when thread
@@ -430,7 +430,7 @@ while our display may be different)."
               ('signed    (funcall get-prefix mu4e-headers-signed-mark))
               ('unread    (funcall get-prefix mu4e-headers-unread-mark)))))))
     str))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
 (defconst mu4e-headers-from-or-to-prefix '("" . "To ")
@@ -493,7 +493,8 @@ found."
   (let* ((item (or (assoc field mu4e-header-info-custom)
 		 (mu4e-error "field %S not found" field)))
 	  (func (or (plist-get (cdr-safe item) :function)
-		  (mu4e-error "no :function defined for field %S %S" field (cdr item)))))
+		  (mu4e-error "no :function defined for field %S %S"
+		    field (cdr item)))))
     (funcall func msg)))
 
 (defun mu4e~headers-field-apply-basic-properties (msg field val width)
@@ -749,20 +750,24 @@ after the end of the search results."
 	(define-key menumap [sepa0] '("--"))
 
 	(define-key menumap [toggle-include-related]
-	  '(menu-item "Toggle related messages" mu4e-headers-toggle-include-related
-		      :button (:toggle . (and (boundp 'mu4e-headers-include-related)
-					      mu4e-headers-include-related))))
+	  '(menu-item "Toggle related messages"
+	     mu4e-headers-toggle-include-related
+	     :button (:toggle .
+		       (and (boundp 'mu4e-headers-include-related)
+			 mu4e-headers-include-related))))
 	(define-key menumap [toggle-threading]
 	  '(menu-item "Toggle threading" mu4e-headers-toggle-threading
-		      :button (:toggle . (and (boundp 'mu4e-headers-show-threads)
-																				mu4e-headers-show-threads))))
+	     :button (:toggle .
+		       (and (boundp 'mu4e-headers-show-threads)
+			 mu4e-headers-show-threads))))
 
 	(define-key menumap [sepa1] '("--"))
 
 	(define-key menumap [execute-marks]  '("Execute marks"
 						. mu4e-mark-execute-all))
 	(define-key menumap [unmark-all]  '("Unmark all" . mu4e-mark-unmark-all))
-	(define-key menumap [unmark]      '("Unmark" . mu4e-headers-mark-for-unmark))
+	(define-key menumap [unmark]
+	  '("Unmark" . mu4e-headers-mark-for-unmark))
 
 	(define-key menumap [mark-pattern]  '("Mark pattern" .
 					       mu4e-headers-mark-pattern))
@@ -788,7 +793,8 @@ after the end of the search results."
 
 	(define-key menumap [sepa3] '("--"))
 
-	(define-key menumap [query-next]  '("Next query" . mu4e-headers-query-next))
+	(define-key menumap [query-next]
+	  '("Next query" . mu4e-headers-query-next))
 	(define-key menumap [query-prev]  '("Previous query" .
 					     mu4e-headers-query-prev))
 	(define-key menumap [narrow-search] '("Narrow search" .
@@ -1230,7 +1236,7 @@ descendants."
 	 (last-marked-point))
     (mu4e-headers-for-each
       (lambda (mymsg)
- 	(let ((my-thread-id (mu4e~headers-get-thread-info mymsg 'thread-id)))
+	(let ((my-thread-id (mu4e~headers-get-thread-info mymsg 'thread-id)))
 	  (if subthread
 	    ;; subthread matching; mymsg's thread path should have path as its
 	    ;; prefix
@@ -1376,8 +1382,8 @@ the last search expression. Note that you can go back to previous
 query (effectively, 'widen' it), with `mu4e-headers-query-prev'."
   (interactive
     (let ((filter
-  	    (read-string (mu4e-format "Narrow down to: ")
-  	      nil 'mu4e~headers-search-hist nil t)))
+	    (read-string (mu4e-format "Narrow down to: ")
+	      nil 'mu4e~headers-search-hist nil t)))
       (list filter)))
   (unless mu4e~headers-last-query
     (mu4e-warn "There's nothing to filter"))

mu4e/mu4e-proc.el

@@ -27,7 +27,6 @@
 (require 'mu4e-utils)
 (require 'mu4e-meta)
 
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; internal vars
 

mu4e/mu4e-utils.el

@@ -834,7 +834,8 @@ successful, call FUNC (if non-nil) afterwards."
 		(setq mu4e~update-timer
 		  (run-at-time
 		    0 mu4e-update-interval
-		    (lambda () (mu4e-update-mail-and-index mu4e-index-update-in-background)))))
+		    (lambda () (mu4e-update-mail-and-index
+				 mu4e-index-update-in-background)))))
 	      (mu4e-message "Started mu4e with %d message%s in store"
 		doccount (if (= doccount 1) "" "s"))))))
       ;; wake up server