mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: Don't fail on missing message when selecting dictionary

master
Pierre Neidhardt 2018-08-12 16:16:06 +02:00
parent c9ad262776
commit a4f4ebe174
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
.emacs.d/lisp/init-mu4e.el
View File

@ -191,17 +191,18 @@ Duplicates are removed."
'("From" "To" "Cc" "Bcc"))))
(unless (buffer-live-p (mu4e-get-headers-buffer))
(mu4e-error "no headers buffer connected"))
(delq nil
(mapcar (lambda (field)
;; `mu4e-message-field' returns a list of (NAME . EMAIL).
(mapcar (lambda (addr) (list (car addr) (cdr addr)))
(mu4e-message-field
(with-current-buffer (mu4e-get-headers-buffer)
;; When loading messages, point might
;; not be over a message yet.
(mu4e-message-at-point))
field)))
'(:from :to :cc :bcc))))))))
(let ((msg (or (mu4e-message-at-point 'noerror)
(with-current-buffer (mu4e-get-headers-buffer)
;; When loading messages, point might
;; not be over a message yet.
(mu4e-message-at-point 'noerror)))))
(when msg
(delq nil
(mapcar (lambda (field)
;; `mu4e-message-field' returns a list of (NAME . EMAIL).
(mapcar (lambda (addr) (list (car addr) (cdr addr)))
(mu4e-message-field msg field)))
'(:from :to :cc :bcc))))))))))
(defun ambrevar/message-send-maybe-crypted ()
"Crypt message if all recipients have a trusted key.