Browse Source

Tweak email settings

master
Nicolas Petton 11 months ago
parent
commit
2bc5a867cd
No known key found for this signature in database GPG Key ID: E8BCD7866AFCF978
1 changed files with 8 additions and 17 deletions
  1. +8
    -17
      hosts/blueberry/init-notmuch.el

+ 8
- 17
hosts/blueberry/init-notmuch.el View File

@ -48,7 +48,7 @@ I.e., the keyring has a public key for each recipient."
'("To" "CC" "BCC"))))
(context (epg-make-context epa-protocol)))
(and (not (my/has-no-encrypt-header))
(string= from "nicolas@petton.fr")
(string= from "nico@petton.fr")
(seq-every-p (lambda (recipient)
(not (seq-empty-p (epg-list-keys context recipient))))
recipients))))
@ -134,21 +134,15 @@ I.e., the keyring has a public key for each recipient."
starttls-use-gnutls t)
(defvar nico-notmuch-account-alist
'(("nicolas@petton.fr"
(user-mail-address "nicolas@petton.fr")
'(("nico@petton.fr"
(user-mail-address "nico@petton.fr")
(message-signature nil))
("Nicolas.Petton@wolterskluwer.com"
(user-mail-address "Nicolas.Petton@wolterskluwer.com")
(message-signature "Nicolas Petton
CTO
Företagsplatsen a part of Wolters Kluwer Group
www.foretagslpatsen.se"))
("nicolas@foretagsplatsen.se"
(user-mail-address "nicolas@foretagsplatsen.se")
(message-signature "Nicolas Petton
CTO
Företagsplatsen a part of Wolters Kluwer Group
www.foretagslpatsen.se"))
finsit a part of Wolters Kluwer Group
www.finsit.net"))
("president@lacantine-brest.net"
(user-mail-address "president@lacantine-brest.net")
(message-signature "Nicolas Petton
@ -156,12 +150,9 @@ Président
La Cantine brestoise
09 72 58 83 13
president@lacantine-brest.net
AnDaolVras"))
("nico@emacs.world"
(user-mail-address "nico@emacs.world")
(message-signature nil))))
AnDaolVras"))))
(setq notmuch-fcc-dirs '(("nicolas@petton.fr" . "petton/Sent -unread")
(setq notmuch-fcc-dirs '(("nico@petton.fr" . "petton/Sent -unread")
("nicolas@foretagsplatsen.se" . "foretagsplatsen/Sent -unread")
("Nicolas.Petton@wolterskluwer.com" . "wolterskluwer/Sent -unread")))
@ -195,7 +186,7 @@ AnDaolVras"))
(delete-region (point) (point-at-eol))
(insert (format "%s <%s>" user-full-name user-mail-address)))
(nico-setup-mail-account "nicolas@petton.fr")
(nico-setup-mail-account "nico@petton.fr")
;; opening attachments within emacs & xwidgets
(define-key notmuch-show-part-map "e" #'nico-notmuch-view-part-in-emacs)


Loading…
Cancel
Save