1 |
;;; score-mode.el --- mode for editing Gnus score files |
;;; score-mode.el --- mode for editing Gnus score files |
2 |
;; Copyright (C) 1996 Free Software Foundation, Inc. |
|
3 |
|
;; Copyright (C) 1996, 2001, 2004 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 |
27 |
;;; Code: |
;;; Code: |
28 |
|
|
29 |
(eval-when-compile (require 'cl)) |
(eval-when-compile (require 'cl)) |
30 |
(require 'mm-util) ; for mm-auto-save-coding-system |
(require 'mm-util) ; for mm-universal-coding-system |
31 |
|
(require 'gnus-util) ; for gnus-pp |
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.") |
54 |
"Syntax table used in score-mode buffers.") |
"Syntax table used in score-mode buffers.") |
55 |
|
|
56 |
;; We need this to cope with non-ASCII scoring. |
;; We need this to cope with non-ASCII scoring. |
57 |
(defvar score-mode-coding-system mm-auto-save-coding-system) |
(defvar score-mode-coding-system mm-universal-coding-system) |
58 |
|
|
59 |
;;;###autoload |
;;;###autoload |
60 |
(defun gnus-score-mode () |
(defun gnus-score-mode () |
95 |
(let ((form (read (current-buffer)))) |
(let ((form (read (current-buffer)))) |
96 |
(erase-buffer) |
(erase-buffer) |
97 |
(let ((emacs-lisp-mode-syntax-table score-mode-syntax-table)) |
(let ((emacs-lisp-mode-syntax-table score-mode-syntax-table)) |
98 |
(pp form (current-buffer)))) |
(gnus-pp form))) |
99 |
(goto-char (point-min))) |
(goto-char (point-min))) |
100 |
|
|
101 |
(defun gnus-score-edit-exit () |
(defun gnus-score-edit-exit () |