Mercurial > emacs
changeset 7228:14df71736eae
(gnus-summary-mode-map): Bind # to gnus-uu-mark-article.
(gnus-uu-mark-article): Autoload it from gnus-uu.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 30 Apr 1994 20:15:08 +0000 |
| parents | 6fa038c33a0f |
| children | 520d3d20651f |
| files | lisp/=gnus.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=gnus.el Sat Apr 30 19:34:26 1994 +0000 +++ b/lisp/=gnus.el Sat Apr 30 20:15:08 1994 +0000 @@ -2,7 +2,7 @@ ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; 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 @@ (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 @@ (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)