diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-09-22 17:55:51 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-09-22 17:55:58 -0700 |
commit | e33aa0283c8f69696df972d5c39a25716de0aa3f (patch) | |
tree | e6a6b22c202fb4a15445081c1ecaa67df2938ff7 | |
parent | 57d0c16c8e2d847ade225881209ec35534a160b5 (diff) | |
download | dotfiles-e33aa0283c8f69696df972d5c39a25716de0aa3f.tar.gz |
add gnus/summary-save-all-parts
-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) |