Skip to content

Commit

Permalink
tweak(mu4e): minor tweaks
Browse files Browse the repository at this point in the history
  • Loading branch information
abougouffa committed Nov 11, 2024
1 parent a27c957 commit d9da42b
Showing 1 changed file with 3 additions and 6 deletions.
9 changes: 3 additions & 6 deletions modules/me-email.el
Original file line number Diff line number Diff line change
Expand Up @@ -72,19 +72,17 @@
"Open the HTML mail in EAF Browser."
(interactive)
(if-let* ((msg (mu4e-message-at-point t))
;; Bind browse-url-browser-function locally, so it works
;; even if EAF Browser is not set as a default browser.
(browse-url-browser-function
(cond
((featurep 'me-eaf) #'eaf-open-browser)
((featurep 'xwidget-webkit) #'xwidget-webkit-browse-url)
(t #'browse-url-xdg-open))))
(mu4e-action-view-in-browser msg)
(message "No message at point.")))

;; Force running update and index in background
(advice-add
'mu4e-update-mail-and-index :around
(satch-defun +mu4e--update-mail-quitely:around-a (origfn run-in-background)
(satch-defun +mu4e--update-mail-quitely:around-a (origfn _run-in-background)
(+info! "Getting new emails")
(apply origfn '(t)))))

Expand Down Expand Up @@ -149,7 +147,6 @@
:straight t
:when +mu4e-available-p
:after mu4e
:demand
:custom
(org-msg-options "html-postamble:nil H:5 num:nil ^:{} toc:nil author:nil email:nil tex:dvipng")
(org-msg-startup "hidestars indent inlineimages")
Expand All @@ -165,7 +162,7 @@
(seq "ci" (or " " "-") "joint" (? "e")) ;; ci-joint
(seq (or (seq "pi" (any ?e) "ce") "fichier" "document") (? "s") (+ (or " " eol)) "joint" (? "e") (? "s")) ;; pièce jointe
(seq (or (seq space "p" (zero-or-one (any ?- ?.)) "j" (any space ?: ?\; ?, ?.))))))) ;; p.j
:config
:init
(org-msg-mode 1)

;; HACK: When adding multiple attachments, I likely need it to remember the directory of the last added attachment.
Expand Down

0 comments on commit d9da42b

Please sign in to comment.