Jim Burton <j...@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
_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
http://lists.gnu.org/mailman/listinfo/info-gnus-english
