Continuing the quest to degooglefy my life

This commit is contained in:
Howard Abrams 2026-08-06 08:27:02 -07:00
parent 1ccef620bc
commit 263140e101

View file

@ -36,7 +36,7 @@ Next type ~s~ to view and organize mail I've never seen before. We need to focus
- ~P~ :: receipts go to this *Paper Trail*, which takes a *tag* as the name of the store - ~P~ :: receipts go to this *Paper Trail*, which takes a *tag* as the name of the store
- ~f~ :: mailing lists and other email that might be nice to read go to *The Feed* - ~f~ :: mailing lists and other email that might be nice to read go to *The Feed*
** Email Addresses * Email Addresses
The configuration files below expect email addresses (I store passwords and other encrypted information elsewhere). These email addresses are /not/ private, but I figured I would annoy any screenscraping spam-inducing crawlers out there, while still allowing others to follow my lead on configuring Emacs and Email. The configuration files below expect email addresses (I store passwords and other encrypted information elsewhere). These email addresses are /not/ private, but I figured I would annoy any screenscraping spam-inducing crawlers out there, while still allowing others to follow my lead on configuring Emacs and Email.
#+name: email-address-1 #+name: email-address-1
@ -54,15 +54,14 @@ The configuration files below expect email addresses (I store passwords and othe
(rot13-string "ubjneq@shmmlgbnfg.pbz") (rot13-string "ubjneq@shmmlgbnfg.pbz")
#+end_src #+end_src
To use these, we set the =:noweb yes= (to pull in the /name/ of the code block) but put a pair of parens after the name to have it evaluated. For instance, the configuration for sending mail through the MUA in Emacs: To use these, we set the =:noweb yes= (to pull in the /name/ of the code block) but put a pair of parens after the name to have it evaluated. For instance, the configuration for sending mail through the MUA in Emacs. Note that port 465 requires implicit SSL/TLS (not STARTTLS), so we set =smtpmail-stream-type= to ~ssl~ and let =auth-source= (e.g. =~/.authinfo.gpg=) supply the credentials for =<<email-address-1>>=:
#+begin_src emacs-lisp :noweb yes #+begin_src emacs-lisp :noweb yes
(setq send-mail-function 'smtpmail-send-it (setq send-mail-function 'smtpmail-send-it
message-send-mail-function 'smtpmail-send-it message-send-mail-function 'smtpmail-send-it
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil)) smtpmail-smtp-server "smtp.mailbox.org"
smtpmail-auth-credentials `(("smtp.gmail.com" 587 ,<<email-address-1>> nil)) smtpmail-smtp-service 465
smtpmail-default-smtp-server "smtp.gmail.com" smtpmail-stream-type 'ssl)
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-smtp-service 587)
#+end_src #+end_src
* Sending Mail * Sending Mail
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -173,6 +172,7 @@ There are global settings:
#+begin_src conf :tangle ~/.mbsyncrc :noweb yes #+begin_src conf :tangle ~/.mbsyncrc :noweb yes
# Note: We now tangle this file from ~/src/hamacs/ha-email.org # Note: We now tangle this file from ~/src/hamacs/ha-email.org
Create Both Create Both
Expunge Both
SyncState * SyncState *
MaxMessages 100 MaxMessages 100
Sync All # New ReNew Flags Sync All # New ReNew Flags
@ -184,37 +184,41 @@ The file generally can have a =Pass= entry for the encrypted passcode, but to sh
#+begin_src conf :tangle ~/.mbsyncrc :noweb yes #+begin_src conf :tangle ~/.mbsyncrc :noweb yes
# PERSONAL ACCOUNT # PERSONAL ACCOUNT
IMAPAccount personal IMAPAccount personal
Host imap.gmail.com
User <<email-address-1()>> # Substitute your own email address here
PassCmd "gpg --quiet --for-your-eyes-only --no-tty --decrypt ~/.mailpass-personal.gpg"
SSLType IMAPS
AuthMechs LOGIN
IMAPStore personal-remote IMAPStore personal-remote
Account personal Account personal
Host imap.mailbox.org
User <<email-address-1()>> # Substitute your own email address here
PassCmd "gpg --quiet --for-your-eyes-only --no-tty --decrypt ~/.mailpass-personal.gpg"
SSLType STARTTLS
MaildirStore personal-local MaildirStore personal-local
Path ~/.mail/personal/ Path ~/.mail/personal/
Inbox ~/.mail/personal/INBOX Inbox ~/.mail/personal/INBOX
Flatten . SubFolders Verbatim
Channel personal-inbox Channel mailbox
Far :personal-remote: Master :mailbox-remote:
Near :personal-local: Slave :mailbox-local:
Patterns * !"[Gmail]/Drafts" !"[Gmail]/Spam" Patterns * !Archives
Expunge Both
# Patterns "inbox"
# ExpireUnread no
Channel personal-sent ## Channel personal-inbox
Far :personal-remote:"[Gmail]/Sent Mail" ## Far :personal-remote:
Near :personal-local:sent ## Near :personal-local:
ExpireUnread yes ## # Patterns * !"[Gmail]/Drafts" !"[Gmail]/Spam"
## Expunge Both
Channel personal-trash ## # Patterns "inbox"
Far :personal-remote:"[Gmail]/Trash" ## # ExpireUnread no
Near :personal-local:trash ##
ExpireUnread yes ## Channel personal-sent
## # Far :personal-remote:"[Gmail]/Sent Mail"
## Near :personal-local:sent
## ExpireUnread yes
##
## Channel personal-trash
## # Far :personal-remote:"[Gmail]/Trash"
## Near :personal-local:trash
## ExpireUnread yes
#+end_src #+end_src
I have other email accounts that could use or ignore. I have other email accounts that could use or ignore.