fix the mail

This commit is contained in:
Howard Abrams 2023-10-12 20:59:53 -07:00
parent 6946f5ef92
commit 0bda2f1dab
2 changed files with 13 additions and 9 deletions

View file

@ -281,7 +281,7 @@ Define /interactive/ functions to quickly adjusting the font size based on my co
(defun ha-linux-laptop-fontsize () (defun ha-linux-laptop-fontsize ()
"Quickly set reset my font size when I disconnect my laptop to a monitor from Linux." "Quickly set reset my font size when I disconnect my laptop to a monitor from Linux."
(interactive) (interactive)
(ha-set-favorite-font-size 14)) (ha-set-favorite-font-size 10))
(defun ha-imac-fontsize () (defun ha-imac-fontsize ()
"Quickly set reset my font size when I am on my iMac." "Quickly set reset my font size when I am on my iMac."

View file

@ -94,8 +94,11 @@ Next, we need some basic configuration settings and some global keybindings:
("U" . notmuch-retrieve-messages) ("U" . notmuch-retrieve-messages)
("C" . notmuch-mua-new-mail) ("C" . notmuch-mua-new-mail)
:map notmuch-tree-mode-map :map notmuch-tree-mode-map
("C" . notmuch-mua-new-mail)) ("C" . notmuch-mua-new-mail)))
#+end_src
And some leader-based keybindings:
#+begin_src emacs-lisp :noweb yes
(use-package notmuch
:config :config
(ha-leader ; Should I put these under an "m" heading? (ha-leader ; Should I put these under an "m" heading?
"a n" '("new mail" . notmuch-retrieve-messages) "a n" '("new mail" . notmuch-retrieve-messages)
@ -110,6 +113,7 @@ Next, we need some basic configuration settings and some global keybindings:
<<hey-show-keybindings>> <<hey-show-keybindings>>
<<hey-search-keybindings>>) <<hey-search-keybindings>>)
#+end_src #+end_src
Also, let's do some basic configuration of Emacs' mail system: Also, let's do some basic configuration of Emacs' mail system:
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -191,21 +195,21 @@ The file generally can have a =Pass= entry for the encrypted passcode, but to sh
Flatten . Flatten .
Channel personal-inbox Channel personal-inbox
Master :personal-remote: Far :personal-remote:
Slave :personal-local: Near :personal-local:
Patterns * !"[Gmail]/Drafts" !"[Gmail]/Spam" Patterns * !"[Gmail]/Drafts" !"[Gmail]/Spam"
Expunge Both Expunge Both
# Patterns "inbox" # Patterns "inbox"
# ExpireUnread no # ExpireUnread no
Channel personal-sent Channel personal-sent
Master :personal-remote:"[Gmail]/Sent Mail" Far :personal-remote:"[Gmail]/Sent Mail"
Slave :personal-local:sent Near :personal-local:sent
ExpireUnread yes ExpireUnread yes
Channel personal-trash Channel personal-trash
Master :personal-remote:"[Gmail]/Trash" Far :personal-remote:"[Gmail]/Trash"
Slave :personal-local:trash Near :personal-local:trash
ExpireUnread yes ExpireUnread yes
#+end_src #+end_src