Re: Binding keys for summary mode

[Peter Münster]

Jim Burton <jim@sdf-eu.org> writes:

> That lists the bindings but not the keymaps in which they are made. So,
> presuming that modeX defines the keymap modeX-map, I tried the following
> but it doesn't work:
>
> (add-hook 'gnus-agent-summary-mode '(lambda ()
>                 (define-key gnus-agent-summary-mode-map 
>                   (kbd "d") 'gnus-summary-delete-article)))

>From my .gnus.el:

(defun my-alter-summary-map ()
  (local-set-key (kbd "RET") '(lambda () (interactive)
                             (gnus-summary-show-article)
                             (gnus-summary-select-article-buffer)
                             (delete-other-windows)))
  (local-set-key "s" '(lambda () (interactive)
                        (gnus-summary-move-article)
                        (next-line)))
  (local-set-key "d" [?M ?M ?e ?e down]))

(defun my-alter-article-map ()
  (local-set-key "1" 'delete-other-windows)
  (local-set-key "q" '(lambda () (interactive)
                        (gnus-article-show-summary)
                        (delete-other-windows)))
  (local-set-key "n" "hnh1")
  (local-set-key "N" "hNh1")
  (local-set-key "d" "hMMeenh1")
  (local-set-key "s" '(lambda () (interactive)
                        (gnus-summary-move-article)
                        (gnus-summary-next-unread-article)
                        (gnus-summary-show-article)
                        (gnus-summary-select-article-buffer)
                        (delete-other-windows))))

(add-hook 'gnus-summary-mode-hook 'my-alter-summary-map)
(add-hook 'gnus-article-mode-hook 'my-alter-article-map)


HTH,
-- 
           Peter