--- gnus-art.el~ 2017-01-25 22:07:29.825734200 +0000 +++ gnus-art.el 2017-01-26 08:10:00.743177500 +0000 @@ -6846,16 +6846,20 @@ (let ((keymap (copy-keymap gnus-article-mode-map)) (map (copy-keymap gnus-article-send-map)) (sumkeys (where-is-internal 'gnus-article-read-summary-keys)) + (summap (make-sparse-keymap)) parent agent draft) (define-key keymap "S" map) (define-key map [t] nil) + (define-key summap [t] 'undefined) (with-current-buffer gnus-article-current-summary + (dolist (key sumkeys) + (define-key summap key (key-binding key (current-local-map)))) (set-keymap-parent keymap (if (setq parent (keymap-parent gnus-article-mode-map)) (prog1 (setq parent (copy-keymap parent)) - (set-keymap-parent parent (current-local-map))) + (set-keymap-parent parent summap)) (current-local-map))) (set-keymap-parent map (key-binding "S")) (let (key def gnus-pick-mode)