mu4e: Add action to delete attachments.

1 files changed, 41 insertions, 0 deletions

diff --git a/init.org b/init.org
index 92beecf..2df6fb8 100644
--- a/init.org
+++ b/init.org
@@ -1092,6 +1092,47 @@ Integrate mu4e with Org mode.
     erc-mode) . typo-mode))
 #+end_src
 
+Add action to delete attachments (https://emacs.stackexchange.com/a/70992)
+#+begin_src elisp
+(defun my-mime-part-filename (num)
+  "Filename of MIME part numbered num in gnus-article-mode."
+  ;; Check whether the specified part exists.
+  (when (> num (length gnus-article-mime-handle-alist))
+    (error "No such part"))
+  ;; Move point to MIME part
+  (when (gnus-article-goto-part num)
+    ;; Get handle for MIME part at point
+    (let ((handle (get-text-property (point) 'gnus-data)))
+      (when handle
+        ;; Return file name of handle
+        (mm-handle-filename handle)))))
+(defun my-delete-attachment (num)
+  "Remove email attachment from mu4e using altermime."
+  (let* ((path (mu4e-message-field (mu4e-message-at-point) :path))
+         (filename (my-mime-part-filename num))
+         (cmd (format "altermime --input='%s' --remove='%s'"  path filename)))
+    (when (and filename
+               (yes-or-no-p
+                (format "Remove '%s'?" filename)))
+      (shell-command cmd)
+      (mu4e-message cmd))))
+(defun my-delete-all-attachments (msg)
+  "Remove all email attachments in mu4e using altermime."
+  (let* ((path (mu4e-message-field msg :path))
+         (subject (mu4e-message-field msg :subject))
+         (cmd (format "altermime --input='%s' --removeall"  path)))
+    (when (yes-or-no-p
+           (format "Remove all attachments from '%s'?" subject))
+      (shell-command cmd)
+      (mu4e-message cmd))))
+(add-to-list 'mu4e-view-mime-part-actions
+             '(:name "delete-attachment"
+               :handler my-delete-attachment
+               :receives index))
+(add-to-list 'mu4e-headers-actions
+             '("Delete-all-attachments" . my-delete-all-attachments))
+#+end_src
+
 * TODO More stuff
 
 This is even more stuff to be done after initialising packages.  I still need to process all of this and clean it up.