On Sun, Jul 26 2020, Jonas Bernoulli wrote:
> ---
> emacs/coolj.el | 16 ++---
> emacs/notmuch-address.el | 18 +++---
> emacs/notmuch-compat.el| 86 -
> emacs/notmuch-draft.el | 18 +++---
> emacs/notmuch-hello.el | 24 +++
> emacs/notmuch-lib.el | 56 -
> emacs/notmuch-maildir-fcc.el | 58 -
> emacs/notmuch-mua.el | 34 +-
> emacs/notmuch-query.el | 6 +-
> emacs/notmuch-show.el | 111 +
> emacs/notmuch-tag.el | 4 +-
> emacs/notmuch-tree.el | 102 +++---
> emacs/notmuch-wash.el | 2 +-
> emacs/notmuch.el | 76 +++---
> test/emacs-address-cleaning.el | 2 +-
> 15 files changed, 307 insertions(+), 306 deletions(-)
>
> diff --git a/emacs/coolj.el b/emacs/coolj.el
> index 5d311170..961db606 100644
> --- a/emacs/coolj.el
> +++ b/emacs/coolj.el
> @@ -108,11 +108,11 @@ (defun coolj-set-breakpoint (prefix)
> line."
>(move-to-column fill-column)
>(if (and (re-search-forward "[^ ]" (line-end-position) 1)
> - (> (current-column) fill-column))
> +(> (current-column) fill-column))
>;; This line is too long. Can we break it?
>(or (coolj-find-break-backward prefix)
> - (progn (move-to-column fill-column)
> - (coolj-find-break-forward)
> + (progn (move-to-column fill-column)
> + (coolj-find-break-forward)
>
> (defun coolj-find-break-backward (prefix)
>"Move point backward to the first available breakpoint and return t.
> @@ -135,12 +135,12 @@ (defun coolj-find-break-forward ()
> If no break point is found, return nil."
>(and (search-forward " " (line-end-position) 1)
> (progn (skip-chars-forward " " (line-end-position))
> - (null (eolp)))
> + (null (eolp)))
> (if (and fill-nobreak-predicate
> -(run-hook-with-args-until-success
> - 'fill-nobreak-predicate))
> - (coolj-find-break-forward)
> - t)))
> + (run-hook-with-args-until-success
> + 'fill-nobreak-predicate))
> +(coolj-find-break-forward)
> + t)))
>
> (provide 'coolj)
>
> diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el
> index ca4da3f3..09dda247 100644
> --- a/emacs/notmuch-address.el
> +++ b/emacs/notmuch-address.el
> @@ -153,14 +153,14 @@ (defcustom notmuch-address-use-company t
>
> (defun notmuch-address-setup ()
>(let* ((setup-company (and notmuch-address-use-company
> -(require 'company nil t)))
> + (require 'company nil t)))
>(pair (cons notmuch-address-completion-headers-regexp
> -#'notmuch-address-expand-name)))
> - (when setup-company
> - (notmuch-company-setup))
> - (unless (member pair message-completion-alist)
> - (setq message-completion-alist
> - (push pair message-completion-alist)
> + #'notmuch-address-expand-name)))
> +(when setup-company
> + (notmuch-company-setup))
> +(unless (member pair message-completion-alist)
> + (setq message-completion-alist
> + (push pair message-completion-alist)
>
> (defun notmuch-address-toggle-internal-completion ()
>"Toggle use of internal completion for current buffer.
> @@ -323,7 +323,7 @@ (defun notmuch-address-harvest (&optional addr-prefix
> synchronous callback)
>,query)))
> (if synchronous
> (mapc #'notmuch-address-harvest-addr
> -(apply 'notmuch-call-notmuch-sexp args))
> + (apply 'notmuch-call-notmuch-sexp args))
>;; Asynchronous
>(let* ((current-proc (if addr-prefix
> (car notmuch-address-harvest-procs)
> @@ -390,7 +390,7 @@ (defun notmuch-address--load-address-hash ()
> (defun notmuch-address--save-address-hash ()
>(when notmuch-address-save-filename
> (if (or (not (file-exists-p notmuch-address-save-filename))
> - ;; The file exists, check it is a file we saved
> + ;; The file exists, check it is a file we saved
> (notmuch-address--get-address-hash))
> (with-temp-file notmuch-address-save-filename
> (let ((save-plist
> diff --git a/emacs/notmuch-compat.el b/emacs/notmuch-compat.el
> index 2cedd39d..388ef70f 100644
> --- a/emacs/notmuch-compat.el
> +++ b/emacs/notmuch-compat.el
> @@ -35,7 +35,7 @@ (if (fboundp 'setq-local)
> (if (fboundp 'read-char-choice)
> (defalias 'notmuch-read-char-choice 'read-char-choice)
>(defun notmuch-read-char-choice (prompt chars &optional
> inhibit-keyboard-quit)
> - "Read and return one of CHARS, prompting for PROMPT.
> +"Read and return one of CHARS, prompting for PROMPT.
> Any input that is not
