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 Free Software Foundation, Inc. |
;; 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 |
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 |
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.") |
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 () |