debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: place complete first sentence on first doc-string line

Browse source
This commit is contained in:
Jonas Bernoulli 2020-11-16 22:28:29 +01:00 committed by David Bremner
parent a7ba52eb94
commit 3cdf105e0f
3 changed files with 7 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
emacs/notmuch-crypto.el
View file

@ -103,8 +103,7 @@ mode."
:supertype 'notmuch-button-type) :supertype 'notmuch-button-type)
(defun notmuch-crypto-insert-sigstatus-button (sigstatus from) (defun notmuch-crypto-insert-sigstatus-button (sigstatus from)
"Insert a button describing the signature status SIGSTATUS sent "Insert a button describing the signature status SIGSTATUS sent by user FROM."
by user FROM."
(let* ((status (plist-get sigstatus :status)) (let* ((status (plist-get sigstatus :status))
(show-button t) (show-button t)
(face 'notmuch-crypto-signature-unknown) (face 'notmuch-crypto-signature-unknown)

3
emacs/notmuch-hello.el
View file

@ -372,8 +372,7 @@ supported for \"Customized queries section\" items."
"List of sections titles whose contents are hidden.") "List of sections titles whose contents are hidden.")
(defvar notmuch-hello-first-run t (defvar notmuch-hello-first-run t
"True if `notmuch-hello' is run for the first time, set to nil "True if `notmuch-hello' is run for the first time, set to nil afterwards.")
afterwards.")
(defun notmuch-hello-nice-number (n) (defun notmuch-hello-nice-number (n)
(let (result) (let (result)

12
emacs/notmuch-mua.el
View file

@ -73,8 +73,7 @@ If this is `nil' then no `User-Agent:' will be generated."
:group 'notmuch-send) :group 'notmuch-send)
(defcustom notmuch-mua-hidden-headers nil (defcustom notmuch-mua-hidden-headers nil
"Headers that are added to the `message-mode' hidden headers "Headers that are added to the `message-mode' hidden headers list."
list."
:type '(repeat string) :type '(repeat string)
:group 'notmuch-send) :group 'notmuch-send)
@ -167,8 +166,7 @@ Typically this is added to `notmuch-mua-send-hook'."
(t (error "Invalid value for `notmuch-mua-compose-in'")))) (t (error "Invalid value for `notmuch-mua-compose-in'"))))
(defun notmuch-mua-maybe-set-window-dedicated () (defun notmuch-mua-maybe-set-window-dedicated ()
"Set the selected window as dedicated according to "Set the selected window as dedicated according to `notmuch-mua-compose-in'."
`notmuch-mua-compose-in'."
(when (or (eq notmuch-mua-compose-in 'new-frame) (when (or (eq notmuch-mua-compose-in 'new-frame)
(eq notmuch-mua-compose-in 'new-window)) (eq notmuch-mua-compose-in 'new-window))
(set-window-dedicated-p (selected-window) t))) (set-window-dedicated-p (selected-window) t)))
@ -335,9 +333,9 @@ Typically this is added to `notmuch-mua-send-hook'."
(put 'notmuch-message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify) (put 'notmuch-message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
(defun notmuch-mua-pop-to-buffer (name switch-function) (defun notmuch-mua-pop-to-buffer (name switch-function)
"Pop to buffer NAME, and warn if it already exists and is "Pop to buffer NAME, and warn if it already exists and is modified.
modified. This function is notmuch adaptation of Like `message-pop-to-buffer' but enable `notmuch-message-mode'
`message-pop-to-buffer'." instead of `message-mode' and SWITCH-FUNCTION is mandatory."
(let ((buffer (get-buffer name))) (let ((buffer (get-buffer name)))
(if (and buffer (if (and buffer
(buffer-name buffer)) (buffer-name buffer))