mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-24 20:08:10 +01:00
emacs: various comment improvements
This commit is contained in:
parent
16b2db0986
commit
65fc5ea758
3 changed files with 6 additions and 9 deletions
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue