From 342fbef3f6688b8ef252ac99b7117662c84d9b22 Mon Sep 17 00:00:00 2001 From: Frederik Vanrenterghem Date: Sun, 19 May 2024 21:49:34 +0800 Subject: [PATCH] Use mu4e to send marked dired files as attachments. --- emacs/.emacs.d/init.el | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index a26675a..86c6c5b 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -82,10 +82,10 @@ '(browse-url-browser-function 'browse-url-firefox) '(custom-safe-themes '("0cf95236abcf59e05b1ea69b4edd53d293a5baec4fe4c3484543fee99bfd2204" "80b00f3bf7cdbdca6c80aadfbbb03145f3d0aacf6bf2a559301e61109954e30a" default)) - '(denote-directory "/home/frederik/Nextcloud/notes/" t) + '(denote-directory "/home/frederik/Nextcloud/notes/") '(org-export-backends '(ascii html icalendar latex md odt)) '(package-selected-packages - '(ftable flx nerd-icons-dired nerd-icons all-the-icons-dired marginalia vertico denote ox-rss org-ql org-contrib mustache org-static-blog haskell-mode julia-mode elfeed-protocol ack company magit auctex lsp-mode elpy ## org htmlize leuven-theme lua-mode ess-smart-underscore ess-R-data-view ess))) + '(dired-preview ftable flx nerd-icons-dired nerd-icons all-the-icons-dired marginalia vertico denote ox-rss org-ql org-contrib mustache org-static-blog haskell-mode julia-mode elfeed-protocol ack company magit auctex lsp-mode elpy ## org htmlize leuven-theme lua-mode ess-smart-underscore ess-R-data-view ess))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. @@ -102,6 +102,7 @@ (setq user-full-name "Frederik Vanrenterghem" smtpmail-local-domain "vanrenterghem.io" user-mail-address (concat "frederik@" smtpmail-local-domain)) +;; Ignored in mu4e as it sets user-agent (setq mail-default-headers (concat "X-Mailer: GNU Emacs " (symbol-value 'emacs-version))) (setq w3m-pop-up-frames t) @@ -125,9 +126,11 @@ (define-key elfeed-search-mode-map (kbd "*") (lambda () (interactive) (apply 'elfeed-search-toggle-all '(star)))) (define-key elfeed-show-mode-map (kbd "*") (lambda () (interactive) (apply 'elfeed-show-tag '(star)))) -;; Read email using mu4e +;; Read and write email using mu4e (require 'mu4e) (setq mail-user-agent 'mu4e-user-agent) +;; Also use mu4e when called from gnus-dired-attach +(setq gnus-dired-mail-mode 'mu4e-user-agent) (setq mu4e-get-mail-command "mbsync io") (setq mu4e-update-interval 600) (setq mu4e-use-fancy-chars t) @@ -135,6 +138,16 @@ (setq mu4e-sent-folder "/Sent" mu4e-drafts-folder "/Drafts" mu4e-trash-folder "/Trash") +;; attach files to mu4e messages by marking the file(s) in dired and pressing C-c RET C-a +(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) +;; Define favourite query used in mailcount modeline +(add-to-list 'mu4e-bookmarks + ;; add favourite. + '( :name "Last 24h's messages" + :key ?l + :favorite y + :query "date:24h..now")) + ;; Create custom spam status header and show in message view (add-to-list 'mu4e-header-info-custom '(:spam-status . -- 2.39.2