Fr. John Jenkins jsrjenkins
jsrjenkins
/ attach.el
Last active
May 17, 2017 07:18
— forked from philjackson/attach.el
From an mu4e view, without prompt, save all attachments to a directory and open dired.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defvar bulk-saved-attachments-dir (expand-file-name "~/Documents/Attachments")) | |
| (defun cleanse-subject (sub) | |
| (replace-regexp-in-string | |
| "[^A-Z0-9]+" | |
| "-" | |
| (downcase sub))) | |
| (defun view-attachments-dired (&optional msg) | |
| "Saves all of the attachments in `msg' to a directory under |