1 |
;;; gnus-kill.el --- kill commands for Gnus |
;;; gnus-kill.el --- kill commands for Gnus |
2 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005 |
3 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
161 |
(setq major-mode 'gnus-kill-file-mode) |
(setq major-mode 'gnus-kill-file-mode) |
162 |
(setq mode-name "Kill") |
(setq mode-name "Kill") |
163 |
(lisp-mode-variables nil) |
(lisp-mode-variables nil) |
164 |
(gnus-run-hooks 'emacs-lisp-mode-hook 'gnus-kill-file-mode-hook)) |
(gnus-run-mode-hooks 'emacs-lisp-mode-hook 'gnus-kill-file-mode-hook)) |
165 |
|
|
166 |
(defun gnus-kill-file-edit-file (newsgroup) |
(defun gnus-kill-file-edit-file (newsgroup) |
167 |
"Begin editing a kill file for NEWSGROUP. |
"Begin editing a kill file for NEWSGROUP. |