/[emacs]/emacs/lisp/gnus/score-mode.el
ViewVC logotype

Diff of /emacs/lisp/gnus/score-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by lute, Thu May 26 13:32:44 2005 UTC revision 1.7 by miles, Fri May 27 04:08:12 2005 UTC
# Line 1  Line 1 
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
# Line 28  Line 28 
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.")
# Line 71  This mode is an extended emacs-lisp mode Line 71  This mode is an extended emacs-lisp mode
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)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26