From 48883f20e435f2e010628b5976ba19a09fcb64d7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 30 Apr 1994 20:15:08 +0000 Subject: (gnus-summary-mode-map): Bind # to gnus-uu-mark-article. (gnus-uu-mark-article): Autoload it from gnus-uu. --- lisp/gnus.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/gnus.el') diff --git a/lisp/gnus.el b/lisp/gnus.el index 9cd0025348..ba7a2b3c90 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA -;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.34 1994/03/12 00:22:13 kwzh Exp rms $ +;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.35 1994/04/30 04:22:22 rms Exp rms $ ;; Keywords: news ;; This file is part of GNU Emacs. @@ -824,6 +824,7 @@ the hash tables.") (put 'gnus-article-mode 'mode-class 'special) (autoload 'gnus-uu-ctl-map "gnus-uu" nil nil 'keymap) +(autoload 'gnus-uu-mark-article "gnus-uu" nil t) ;;(put 'gnus-eval-in-buffer-window 'lisp-indent-hook 1) @@ -1696,6 +1697,7 @@ The hook gnus-exit-gnus-hook is called before actually quitting." (setq gnus-summary-mode-map (make-keymap)) (suppress-keymap gnus-summary-mode-map) (define-key gnus-summary-mode-map "\C-c\C-v" 'gnus-uu-ctl-map) + (define-key gnus-summary-mode-map "#" 'gnus-uu-mark-article) (define-key gnus-summary-mode-map " " 'gnus-summary-next-page) (define-key gnus-summary-mode-map "\177" 'gnus-summary-prev-page) (define-key gnus-summary-mode-map "\r" 'gnus-summary-scroll-up) -- cgit v1.2.3