chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fixing mu4e

Browse source
This commit is contained in:
Chris Cochrun 2023-07-05 09:29:29 -05:00
parent 0f5b575d66
commit 36712be141
2 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
README.org
View file

@ -3350,8 +3350,15 @@ Ledger mode
:END: :END:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package mu4e (use-package mu4e
;; :load-path "/usr/share/emacs/site-lisp/mu4e/" :load-path "~/.guix-home/profile/share/emacs/site-lisp/mu4e/"
:init :init
(defun mu4e--main-action-str (name func)
"This seems to be needed until evil-collection supports the latest
version of mu4e."
"mu4e--main-action")
(remove-hook 'mu4e-main-mode-hook 'evil-collection-mu4e-update-main-view)
(setq mu4e-maildir "~/mail" (setq mu4e-maildir "~/mail"
user-full-name "Chris Cochrun" user-full-name "Chris Cochrun"
mu4e-change-filenames-when-moving t mu4e-change-filenames-when-moving t
@ -3518,7 +3525,8 @@ Ledger mode
:keymaps 'override :keymaps 'override
"om" 'mu4e) "om" 'mu4e)
(general-def 'normal mu4e-view-mode-map (general-def 'normal mu4e-view-mode-map
"ga" 'mu4e-view-save-attachments)) "ga" 'mu4e-view-save-attachments
"q" 'mu4e-view-quit))
#+end_src #+end_src
# (use-package org-mime # (use-package org-mime

12
init.el
View file

@ -2384,8 +2384,15 @@ targets."
(use-package ledger-mode) (use-package ledger-mode)
(use-package mu4e (use-package mu4e
;; :load-path "/usr/share/emacs/site-lisp/mu4e/" :load-path "~/.guix-home/profile/share/emacs/site-lisp/mu4e/"
:init :init
(defun mu4e--main-action-str (name func)
"This seems to be needed until evil-collection supports the latest
version of mu4e."
"mu4e--main-action")
(remove-hook 'mu4e-main-mode-hook 'evil-collection-mu4e-update-main-view)
(setq mu4e-maildir "~/mail" (setq mu4e-maildir "~/mail"
user-full-name "Chris Cochrun" user-full-name "Chris Cochrun"
mu4e-change-filenames-when-moving t mu4e-change-filenames-when-moving t
@ -2552,7 +2559,8 @@ targets."
:keymaps 'override :keymaps 'override
"om" 'mu4e) "om" 'mu4e)
(general-def 'normal mu4e-view-mode-map (general-def 'normal mu4e-view-mode-map
"ga" 'mu4e-view-save-attachments)) "ga" 'mu4e-view-save-attachments
"q" 'mu4e-view-quit))
(use-package org-msg (use-package org-msg
:hook (mu4e-compose-mode . org-msg-edit-mode) :hook (mu4e-compose-mode . org-msg-edit-mode)