1 |
;;; score-mode.el --- mode for editing Gnus score files |
;;; score-mode.el --- mode for editing Gnus score files |
2 |
|
|
3 |
;; Copyright (C) 1996, 2001, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 1996, 2001, 2004, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
6 |
;; Keywords: news, mail |
;; Keywords: news, mail |
28 |
|
|
29 |
(eval-when-compile (require 'cl)) |
(eval-when-compile (require 'cl)) |
30 |
(require 'mm-util) ; for mm-universal-coding-system |
(require 'mm-util) ; for mm-universal-coding-system |
31 |
(require 'gnus-util) ; for gnus-pp |
(require 'gnus-util) ; for gnus-pp, gnus-run-mode-hooks |
32 |
|
|
33 |
(defvar gnus-score-mode-hook nil |
(defvar gnus-score-mode-hook nil |
34 |
"*Hook run in score mode buffers.") |
"*Hook run in score mode buffers.") |
71 |
(setq mode-name "Score") |
(setq mode-name "Score") |
72 |
(lisp-mode-variables nil) |
(lisp-mode-variables nil) |
73 |
(make-local-variable 'gnus-score-edit-exit-function) |
(make-local-variable 'gnus-score-edit-exit-function) |
74 |
(run-mode-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook)) |
(gnus-run-mode-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook)) |
75 |
|
|
76 |
(defun gnus-score-make-menu-bar () |
(defun gnus-score-make-menu-bar () |
77 |
(unless (boundp 'gnus-score-menu) |
(unless (boundp 'gnus-score-menu) |