Mercurial > emacs
diff lisp/gnus/score-mode.el @ 56927:55fd4f77387a after-merge-gnus-5_10
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Merge from emacs--gnus--5.10, gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0
tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1
Import from CVS branch gnus-5_10-branch
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2
Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19
Remove autoconf-generated files from archive
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 04 Sep 2004 13:13:48 +0000 |
parents | 695cf19ef79e |
children | a96e31f51315 cce1c0ee76ee |
line wrap: on
line diff
--- a/lisp/gnus/score-mode.el Sat Sep 04 13:06:38 2004 +0000 +++ b/lisp/gnus/score-mode.el Sat Sep 04 13:13:48 2004 +0000 @@ -1,5 +1,6 @@ ;;; score-mode.el --- mode for editing Gnus score files -;; Copyright (C) 1996 Free Software Foundation, Inc. + +;; Copyright (C) 1996, 2001, 2004 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail @@ -26,7 +27,8 @@ ;;; Code: (eval-when-compile (require 'cl)) -(require 'mm-util) ; for mm-auto-save-coding-system +(require 'mm-util) ; for mm-universal-coding-system +(require 'gnus-util) ; for gnus-pp (defvar gnus-score-mode-hook nil "*Hook run in score mode buffers.") @@ -52,7 +54,7 @@ "Syntax table used in score-mode buffers.") ;; We need this to cope with non-ASCII scoring. -(defvar score-mode-coding-system mm-auto-save-coding-system) +(defvar score-mode-coding-system mm-universal-coding-system) ;;;###autoload (defun gnus-score-mode () @@ -93,7 +95,7 @@ (let ((form (read (current-buffer)))) (erase-buffer) (let ((emacs-lisp-mode-syntax-table score-mode-syntax-table)) - (pp form (current-buffer)))) + (gnus-pp form))) (goto-char (point-min))) (defun gnus-score-edit-exit ()