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

emacs: Fix indentation

Browse source
This commit is contained in:
Jonas Bernoulli 2020-08-08 13:49:38 +02:00 committed by David Bremner
parent 6fb7d35069
commit caaa108760
15 changed files with 312 additions and 309 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/notmuch-mua.el
View file

@ -472,10 +472,12 @@ the From: address."
(let* ((other-headers (let* ((other-headers
(when (or prompt-for-sender notmuch-always-prompt-for-sender) (when (or prompt-for-sender notmuch-always-prompt-for-sender)
(list (cons 'From (notmuch-mua-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. ;; Generate the template for the outgoing message.
(notmuch-mua-mail nil "" other-headers nil (notmuch-mua-get-switch-function)) (notmuch-mua-mail nil "" other-headers nil (notmuch-mua-get-switch-function))
(save-excursion (save-excursion

1
emacs/notmuch-show.el
View file

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