emacs: Fix indentation

emacs/notmuch-hello.el

@@ -147,9 +147,9 @@ a plist. Supported properties are
 
 Other accepted forms are a cons cell of the form (NAME . QUERY)
 or a list of the form (NAME QUERY COUNT-QUERY)."
-;; The saved-search format is also used by the all-tags notmuch-hello
+  ;; The saved-search format is also used by the all-tags notmuch-hello
-;; section. This section generates its own saved-search list in one of
+  ;; section. This section generates its own saved-search list in one of
-;; the latter two forms.
+  ;; the latter two forms.
   :get 'notmuch-hello--saved-searches-to-plist
   :type '(repeat notmuch-saved-search-plist)
   :tag "List of Saved Searches"
@@ -722,7 +722,7 @@ Complete list of currently available key bindings:
 \\{notmuch-hello-mode-map}"
   (setq notmuch-buffer-refresh-function #'notmuch-hello-update)
   ;;(setq buffer-read-only t)
-)
+  )
 
 (defun notmuch-hello-generate-tag-alist (&optional hide-tags)
   "Return an alist from tags to queries to display in the all-tags section."

emacs/notmuch-lib.el

@@ -211,7 +211,7 @@ Otherwise the output will be returned."
   (unless (notmuch-cli-sane-p)
     (notmuch-logged-error
      "notmuch cli seems misconfigured or unconfigured."
-"Perhaps you haven't run \"notmuch setup\" yet? Try running this
+     "Perhaps you haven't run \"notmuch setup\" yet? Try running this
 on the command line, and then retry your notmuch command")))
 
 (defun notmuch-cli-version ()

emacs/notmuch-mua.el

@@ -472,10 +472,12 @@ the From: address."
   (let* ((other-headers
 	  (when (or prompt-for-sender notmuch-always-prompt-for-sender)
 	    (list (cons 'From (notmuch-mua-prompt-for-sender)))))
-	 forward-subject  ;; Comes from the first message and is
+	 ;; Comes from the first message and is applied later.
-			  ;; applied later.
+	 forward-subject
-	 forward-references ;; List of accumulated message-references of forwarded messages
+	 ;; List of accumulated message-references of forwarded messages.
-	 forward-queries) ;; List of corresponding message-query
+	 forward-references
+	 ;; List of corresponding message-query.
+	 forward-queries)
     ;; Generate the template for the outgoing message.
     (notmuch-mua-mail nil "" other-headers nil (notmuch-mua-get-switch-function))
     (save-excursion
@@ -529,17 +531,17 @@ the From: address."
 If PROMPT-FOR-SENDER is non-nil, the user will be prompted for
 the From: address first.  If REPLY-ALL is non-nil, the message
 will be addressed to all recipients of the source message."
-;; In current emacs (24.3) select-active-regions is set to t by
+  ;; In current emacs (24.3) select-active-regions is set to t by
-;; default. The reply insertion code sets the region to the quoted
+  ;; default. The reply insertion code sets the region to the quoted
-;; message to make it easy to delete (kill-region or C-w). These two
+  ;; message to make it easy to delete (kill-region or C-w). These two
-;; things combine to put the quoted message in the primary selection.
+  ;; things combine to put the quoted message in the primary selection.
-;;
+  ;;
-;; This is not what the user wanted and is a privacy risk (accidental
+  ;; This is not what the user wanted and is a privacy risk (accidental
-;; pasting of the quoted message). We can avoid some of the problems
+  ;; pasting of the quoted message). We can avoid some of the problems
-;; by let-binding select-active-regions to nil. This fixes if the
+  ;; by let-binding select-active-regions to nil. This fixes if the
-;; primary selection was previously in a non-emacs window but not if
+  ;; primary selection was previously in a non-emacs window but not if
-;; it was in an emacs window. To avoid the problem in the latter case
+  ;; it was in an emacs window. To avoid the problem in the latter case
-;; we deactivate mark.
+  ;; we deactivate mark.
   (let ((sender
 	 (when prompt-for-sender
 	   (notmuch-mua-prompt-for-sender)))

emacs/notmuch-show.el

@@ -418,6 +418,7 @@ parsing fails."
 	 ((string-match "\\(.*\\) <\\(.*\\)>" address)
 	  (setq p-name (match-string 1 address)
 		p-address (match-string 2 address)))
+
 	 ;; "<user@dom.ain>" style.
 	 ((string-match "<\\(.*\\)>" address)
 	  (setq p-address (match-string 1 address)))

emacs/notmuch-tag.el

@@ -236,7 +236,7 @@ DATA is the content of an SVG picture (e.g., as returned by
 (defun notmuch-tag-star-icon ()
   "Return SVG data representing a star icon.
 This can be used with `notmuch-tag-format-image-data'."
-"<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>
+  "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>
 <svg version=\"1.1\" width=\"16\" height=\"16\">
   <g transform=\"translate(-242.81601,-315.59635)\">
     <path