From 79281256a63afc78443efed0989ae49ce5b90345 Mon Sep 17 00:00:00 2001
From: "Dirk-Jan C. Binnema" <djcb@djcbsoftware.nl>
Date: Wed, 1 Nov 2023 18:42:23 +0200
Subject: [PATCH] mu4e: make defvar mu4e-view-completion-minor-mode-map

So users can customize it.
---
 mu4e/mu4e-mime-parts.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/mu4e/mu4e-mime-parts.el b/mu4e/mu4e-mime-parts.el
index b0d269f4..c78ffe9a 100644
--- a/mu4e/mu4e-mime-parts.el
+++ b/mu4e/mu4e-mime-parts.el
@@ -160,18 +160,20 @@ Otherwise, return a file with a unique number appended to the base-name."
         (insert (string-join
                  (seq-map #'car mu4e--completions-table) ", ")))))
 
+(defvar mu4e-view-completion-minor-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "C-c C-a") #'mu4e-view-complete-all)
+    ;; XXX perhaps a binding for clearing all?
+    map)
+  "Keybindings for mu4e-view completion.")
+
 (define-minor-mode mu4e-view-completion-minor-mode
   "Minor-mode for completing mu4e mime parts."
   :global nil
   :init-value nil ;; disabled by default
   :group 'mu4e
   :lighter ""
-  :keymap
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "C-c C-a") #'mu4e-view-complete-all)
-    ;; XXX perhaps a binding for clearing all?
-    map))
-
+  :keymap mu4e-view-completion-minor-mode-map)
 
 (defun mu4e--part-annotation (candidate part type longest-filename)
   "Calculate the annotation candidates as per