Mercurial > emacs

comparison lisp/gnus/score-mode.el @ 90188:01137c1fdbe9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-57 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 324-352) - Merge from gnus--rel--5.10 - Update from CVS - etc/emacs-buffer.gdb: Remove RCS keywords * gnus--rel--5.10 (patch 70-79) - Update from CVS - Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Mon, 06 Jun 2005 02:39:45 +0000
parents cce1c0ee76ee a03b1bd1f66c
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90187:587ea1490d70 90188:01137c1fdbe9
1 ;;; score-mode.el --- mode for editing Gnus score files 1 ;;; score-mode.el --- mode for editing Gnus score files
2 2
3 ;; Copyright (C) 1996, 2001, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 1996, 2001, 2004, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: news, mail 6 ;; Keywords: news, mail
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
26 26
27 ;;; Code: 27 ;;; Code:
28 28
29 (eval-when-compile (require 'cl)) 29 (eval-when-compile (require 'cl))
30 (require 'mm-util) ; for mm-universal-coding-system 30 (require 'mm-util) ; for mm-universal-coding-system
31 (require 'gnus-util) ; for gnus-pp 31 (require 'gnus-util) ; for gnus-pp, gnus-run-mode-hooks
32 32
33 (defvar gnus-score-mode-hook nil 33 (defvar gnus-score-mode-hook nil
34 "*Hook run in score mode buffers.") 34 "*Hook run in score mode buffers.")
35 35
36 (defvar gnus-score-menu-hook nil 36 (defvar gnus-score-menu-hook nil
69 (set-syntax-table score-mode-syntax-table) 69 (set-syntax-table score-mode-syntax-table)
70 (setq major-mode 'gnus-score-mode) 70 (setq major-mode 'gnus-score-mode)
71 (setq mode-name "Score") 71 (setq mode-name "Score")
72 (lisp-mode-variables nil) 72 (lisp-mode-variables nil)
73 (make-local-variable 'gnus-score-edit-exit-function) 73 (make-local-variable 'gnus-score-edit-exit-function)
74 (run-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook)) 74 (gnus-run-mode-hooks 'emacs-lisp-mode-hook 'gnus-score-mode-hook))
75 75
76 (defun gnus-score-make-menu-bar () 76 (defun gnus-score-make-menu-bar ()
77 (unless (boundp 'gnus-score-menu) 77 (unless (boundp 'gnus-score-menu)
78 (easy-menu-define 78 (easy-menu-define
79 gnus-score-menu gnus-score-mode-map "" 79 gnus-score-menu gnus-score-mode-map ""