emacs: various comment improvements

diff --git a/emacs/notmuch-address.el b/emacs/notmuch-address.el
index 2f0ec9b354bd2c9edc8dd7f2b54feeddda2d698d..1f22e37710d303ecf8febd7a2a1ebfe5c0fe0fdf 100644 (file)
--- a/emacs/notmuch-address.el
+++ b/emacs/notmuch-address.el
@@ -381,7 +381,7 @@ to be a saved 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
@@ -404,8 +404,7 @@ appear to be an address savefile.  Not overwriting."
        nil nil
        (lambda (_proc event)
         ;; If harvest fails, we want to try
-        ;; again when the trigger is next
-        ;; called
+        ;; again when the trigger is next called.
         (if (string= event "finished\n")
             (progn
               (notmuch-address--save-address-hash)

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index ffd3d799c08b9ff21818a3baddf76a6ab2c1f3a7..186ac172c3f21175ca14b14d79edec0e1a03cd39 100644 (file)
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -731,9 +731,7 @@ The screen may be customized via `\\[customize]'.
 Complete list of currently available key bindings:
 
 \\{notmuch-hello-mode-map}"
-  (setq notmuch-buffer-refresh-function #'notmuch-hello-update)
-  ;;(setq buffer-read-only t)
-  )
+  (setq notmuch-buffer-refresh-function #'notmuch-hello-update))
 
 ;;; Inserters
 

diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el
index 3add992b46f1dbe4479f48576a77297b8d322da1..72549a986f61e884a2e5adb35aa187d2887d21af 100644 (file)
--- a/emacs/notmuch-lib.el
+++ b/emacs/notmuch-lib.el
@@ -247,7 +247,7 @@ displays both values separately."
   (let* ((val (notmuch-command-to-string "config" "get" item))
         (len (length val)))
     ;; Trim off the trailing newline (if the value is empty or not
-    ;; configured, there will be no newline)
+    ;; configured, there will be no newline).
     (if (and (> len 0)
             (= (aref val (- len 1)) ?\n))
        (substring val 0 -1)
@@ -483,8 +483,8 @@ be displayed."
 ;;; String Utilities
 
 (defun notmuch-prettify-subject (subject)
-  ;; This function is used by `notmuch-search-process-filter' which
-  ;; requires that we not disrupt its' matching state.
+  ;; This function is used by `notmuch-search-process-filter',
+  ;; which requires that we not disrupt its matching state.
   (save-match-data
     (if (and subject
             (string-match "^[ \t]*$" subject))