I use Emacs and Mu4e for managing email. Normally having all of my email as text files in Maildir format is fine. There are times, though, when I want to save a copy of an email and put it in DEVONthink with everything else. DEVONthink handles email very well, meaning it previews the headers separate from the messages and formats things nicely. The problem is that this only works with .eml files.
Both Maildir and .eml files are plain text, so I took a guess and added .eml to the end of a stock Maildir file and it worked. The file was easily preview-able in the Finder and DEVONthink thinks it’s a normal email message. The challenge then, was to figure out an easy way to copy whatever email I’m viewing in Mu4e to a .eml file somewhere.
I have no experience writing lisp so I asked on the mu mailing list and soon received a reply from Mu4e’s author, Dirk-Jan Binnema (‘djcb’). He sent this:
(defun djcb-mu4e-copy-message-at-point (&optional dir) "Copy message at point to somewhere else as <date>_<subject>.eml." (interactive) (let* ((msg (mu4e-message-at-point)) (target (format "%s_%s.eml" (format-time-string "%F" (mu4e-message-field msg :date)) (or (mu4e-message-field msg :subject) "No subject")))) (copy-file (mu4e-message-field msg :path) (format "%s/%s" (or dir (read-directory-name "Copy message to: ")) target) 1)))
I added that to my init file and assigned it to