Automatically downscale large image attachments in mu4e.

Resize attached images to not exceed 1200x1200.

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 51f86f103bc88d7ba2e7343fc6a96a1ed1a08620..69a744a987dd16422612e30a4a2d0c1417f2cd2a 100644 (file)
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -147,6 +147,40 @@
                   (or (string-join (seq-take (split-string (mu4e-fetch-field msg "X-Spam-Status") " ") 2) " ") "")))))
 (add-to-list 'mu4e-view-fields :spam-status)
 b
                   (or (string-join (seq-take (split-string (mu4e-fetch-field msg "X-Spam-Status") " ") 2) " ") "")))))
 (add-to-list 'mu4e-view-fields :spam-status)
 b

+
+;; Resize image attachments when sending email
+(defvar mu4e-resize-image-types '("jpg" "png" "svg" "jpeg")
+  "List of attached image types to resize.")
+
+(defvar mu4e-inhibit-resize nil)
+
+(defun mu4e-resize-image-attachments ()
+  (unless mu4e-inhibit-resize
+    (let (cmds
+      (image-types
+       (mapconcat #'identity mu4e-resize-image-types "\\|")))
+      (save-excursion
+    (message-goto-body-1)
+    (while (re-search-forward 
+        (format "<#part.+\\(filename=\"\\)\\(.+\\(\\.%s\\)\\)\""
+            image-types)
+        nil t)
+      (let* ((infile (match-string-no-properties 2))
+         (outfile (concat (temporary-file-directory)
+                  (file-name-nondirectory infile))))
+        (push (format "convert %s -resize 1200x1200\\> %s"
+              (shell-quote-argument infile)
+              (shell-quote-argument outfile))
+          cmds)
+        (replace-match outfile t t nil 2)))
+    (mapcar #'shell-command cmds)))))
+
+(add-hook 'message-send-hook 'mu4e-resize-image-attachments)
+
+(defun mu4e-inhibit-resize()
+  (interactive)
+  (set (make-local-variable 'mu4e-inhibit-resize) t))
+

 ;; Load configuration for website
 ;(load "mustache-html")
 
 ;; Load configuration for website
 ;(load "mustache-html")