|
|
|
@ -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) |
|
|
|
|
