diff options
| -rw-r--r-- | .emacs.d/init.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 25f2495d..3f5b149d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -3199,6 +3199,11 @@ mutt's review view, after exiting EDITOR." (with-eval-after-load 'gnus-sum (define-key gnus-summary-mode-map "vf" #'spw/gnus-summary-limit-to-patches)) +(defun spw/gnus-summary-save-all-parts () + "Save all parts to ~/tmp/." + (interactive) + (gnus-summary-save-parts "" (expand-file-name "~/tmp/") current-prefix-arg)) + (defun spw/gnus-summary-save-all-attachments () "Save all attachments to ~/tmp/." (interactive) @@ -3208,10 +3213,12 @@ mutt's review view, after exiting EDITOR." (let ((handles gnus-article-mime-handles)) (when (stringp (car handles)) (pop handles)) (mapc #'mm-save-part (cl-remove-if-not #'mm-handle-filename handles))))) + (with-eval-after-load 'gnus-sum ;; Like `X m' binding. (define-key gnus-summary-mode-map - "vm" #'spw/gnus-summary-save-all-attachments)) + "vm" #'spw/gnus-summary-save-all-attachments) + (define-key gnus-summary-mode-map "vM" #'spw/gnus-summary-save-all-parts)) (defun spw/gnus-warp-to-article () (interactive) |