byteio/nixos-config
1
0
Fork 0
mirror of https://github.com/librephoenix/nixos-config synced 2025-01-19 07:05:51 +05:30
Code Issues Packages Projects Releases Wiki Activity

Better mail refiling for pm in mu4e

Browse source
This commit is contained in:
Emmet 2024-03-09 11:04:17 -06:00
parent 6b66128539
commit 9b96819686
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
user/app/doom-emacs/config.el
View file

@ -1246,7 +1246,7 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
"q" 'helpful-kill-buffers) "q" 'helpful-kill-buffers)
;;;------ helpful configuration ------;;; ;;;------ helpful configuration ------;;;
(add-load-path! "~/.nix-profile/share/emacs/site-lisp/elpa/mu4e-1.12.0") (add-load-path! "~/.nix-profile/share/emacs/site-lisp/elpa/mu4e-1.12.1")
(require 'mu4e) (require 'mu4e)
(require 'mu4e-contrib) (require 'mu4e-contrib)
(require 'mu4e-actions) (require 'mu4e-actions)
@ -1255,7 +1255,7 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
(setq mu4e-sent-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Sent"))) (setq mu4e-sent-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Sent")))
(setq mu4e-drafts-folder (lambda (msg) (concat "/" user-mail-address "/Drafts"))) (setq mu4e-drafts-folder (lambda (msg) (concat "/" user-mail-address "/Drafts")))
(setq mu4e-trash-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Trash"))) (setq mu4e-trash-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Trash")))
(setq mu4e-refile-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Archive"))) (setq mu4e-refile-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Folders/" (completing-read "Refile msg to: " (directory-files (concat "~/.mail/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Folders"))))))
(setq mu4e-index-lazy-check t) (setq mu4e-index-lazy-check t)
(setq mu4e-index-cleanup t) (setq mu4e-index-cleanup t)
@ -1343,6 +1343,7 @@ https://github.com/magit/magit/issues/460 (@cpitclaudel)."
(add-hook 'mu4e-compose-mode-hook #'no-auto-fill) (add-hook 'mu4e-compose-mode-hook #'no-auto-fill)
(add-hook 'mu4e-compose-pre-hook #'no-org-msg-mode) (add-hook 'mu4e-compose-pre-hook #'no-org-msg-mode)
) )
;;;-- Load emacs direnv;;;-- ;;;-- Load emacs direnv;;;--

5
user/app/doom-emacs/doom.org
View file

@ -1469,7 +1469,7 @@ I don't have this active right now since it's kinda weird with pgtk...
** mu4e Configuration ** mu4e Configuration
#+BEGIN_SRC emacs-lisp :tangle config.el #+BEGIN_SRC emacs-lisp :tangle config.el
;;;------ helpful configuration ------;;; ;;;------ helpful configuration ------;;;
(add-load-path! "~/.nix-profile/share/emacs/site-lisp/elpa/mu4e-1.12.0") (add-load-path! "~/.nix-profile/share/emacs/site-lisp/elpa/mu4e-1.12.1")
(require 'mu4e) (require 'mu4e)
(require 'mu4e-contrib) (require 'mu4e-contrib)
(require 'mu4e-actions) (require 'mu4e-actions)
@ -1478,7 +1478,7 @@ I don't have this active right now since it's kinda weird with pgtk...
(setq mu4e-sent-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Sent"))) (setq mu4e-sent-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Sent")))
(setq mu4e-drafts-folder (lambda (msg) (concat "/" user-mail-address "/Drafts"))) (setq mu4e-drafts-folder (lambda (msg) (concat "/" user-mail-address "/Drafts")))
(setq mu4e-trash-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Trash"))) (setq mu4e-trash-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Trash")))
(setq mu4e-refile-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Archive"))) (setq mu4e-refile-folder (lambda (msg) (concat "/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Folders/" (completing-read "Refile msg to: " (directory-files (concat "~/.mail/" (nth 1 (split-string (mu4e-message-field msg :maildir) "/" )) "/Folders"))))))
(setq mu4e-index-lazy-check t) (setq mu4e-index-lazy-check t)
(setq mu4e-index-cleanup t) (setq mu4e-index-cleanup t)
@ -1566,6 +1566,7 @@ I don't have this active right now since it's kinda weird with pgtk...
(add-hook 'mu4e-compose-mode-hook #'no-auto-fill) (add-hook 'mu4e-compose-mode-hook #'no-auto-fill)
(add-hook 'mu4e-compose-pre-hook #'no-org-msg-mode) (add-hook 'mu4e-compose-pre-hook #'no-org-msg-mode)
) )
#+END_SRC #+END_SRC