projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update copyright.
[gnus]
/
lisp
/
score-mode.el
diff --git
a/lisp/score-mode.el
b/lisp/score-mode.el
index
e2160eb
..
ff67a9e
100644
(file)
--- a/
lisp/score-mode.el
+++ b/
lisp/score-mode.el
@@
-1,5
+1,6
@@
;;; score-mode.el --- mode for editing Gnus score files
;;; score-mode.el --- mode for editing Gnus score files
-;; Copyright (C) 1996 Free Software Foundation, Inc.
+
+;; Copyright (C) 1996, 2001 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news, mail
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news, mail
@@
-25,8
+26,8
@@
;;; Code:
;;; Code:
-(require 'easymenu)
(eval-when-compile (require 'cl))
(eval-when-compile (require 'cl))
+(require 'mm-util) ; for mm-universal-coding-system
(defvar gnus-score-mode-hook nil
"*Hook run in score mode buffers.")
(defvar gnus-score-mode-hook nil
"*Hook run in score mode buffers.")
@@
-51,7
+52,8
@@
table)
"Syntax table used in score-mode buffers.")
table)
"Syntax table used in score-mode buffers.")
-(defvar score-mode-coding-system 'binary)
+;; We need this to cope with non-ASCII scoring.
+(defvar score-mode-coding-system mm-universal-coding-system)
;;;###autoload
(defun gnus-score-mode ()
;;;###autoload
(defun gnus-score-mode ()
@@
-111,4
+113,5
@@
This mode is an extended emacs-lisp mode.
(provide 'score-mode)
(provide 'score-mode)
+;;; arch-tag: a74a416b-2505-4ad4-bc4e-a418c96b8845
;;; score-mode.el ends here
;;; score-mode.el ends here