;ELC   
;;; compiled by larsi@ifi.uio.no on Sun Jun 30 14:28:25 1996
;;; from file /gd/gnu/emacs/19.0/lisp/score-mode.el
;;; emacs version 19.31.4.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`score-mode.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÀÁ!ˆÀÂ!‡" [require easymenu timezone] 2)
#@34 *Hook run in score mode buffers.
(defvar gnus-score-mode-hook nil (#$ . -522))
#@47 *Hook run after creating the score mode menu.
(defvar gnus-score-menu-hook nil (#$ . -607))
#@45 Function run on exit from the score buffer.
(defvar gnus-score-edit-exit-function nil (#$ . 705))
(byte-code "ÀÁ!„ ÂÁB	„& Ä!Æ	ÇÈ#ˆÆ	ÉÊ#ˆÆ	ËÌ#ˆÂ‡" [boundp gnus-score-mode-map nil current-load-list copy-keymap emacs-lisp-mode-map define-key "" gnus-score-edit-exit "" gnus-score-edit-insert-date "" gnus-score-pretty-print] 4)
#@102 Mode for editing Gnus score files.
This mode is an extended emacs-lisp mode.

\{gnus-score-mode-map}
(defalias 'gnus-score-mode #[nil "À ˆÁ\n!ˆƒ Ä ˆÅ!ˆÇÉ\nËÌ!ˆÍÎ!ˆÏÐÑ\"‡" [kill-all-local-variables use-local-map gnus-score-mode-map menu-bar-mode gnus-score-make-menu-bar set-syntax-table emacs-lisp-mode-syntax-table gnus-score-mode major-mode "Score" mode-name lisp-mode-variables nil make-local-variable gnus-score-edit-exit-function run-hooks emacs-lisp-mode-hook gnus-score-mode-hook] 3 (#$ . 1049) nil])
(defalias 'gnus-score-make-menu-bar #[nil "ÀÁ!?…$ ÀÁ!„ ÂÁBÄÁÅÆ#ˆÇÁÆÉ$ˆÊË!‡" [boundp gnus-score-menu nil current-load-list put variable-documentation "" easy-menu-do-define gnus-score-mode-map ("Score" ["Exit" gnus-score-edit-exit t] ["Insert date" gnus-score-edit-insert-date t] ["Format" gnus-score-pretty-print t]) run-hooks gnus-score-menu-hook] 5])
#@34 Insert date in numerical format.
(defalias 'gnus-score-edit-insert-date #[nil "ÀÁÂ !p\"‡" [princ gnus-score-day-number current-time] 3 (#$ . 1929) nil])
#@32 Format the current score file.
(defalias 'gnus-score-pretty-print #[nil "ebˆÀp!Â ˆÃ	p\"ˆ)eb‡" [read form erase-buffer pp] 3 (#$ . 2088) nil])
#@30 Stop editing the score file.
(defalias 'gnus-score-edit-exit #[nil "ÀÁÂ !!„ ÃÁÂ !Ä\"ˆÅ ˆÆp!ˆpƒ$  ˆp=…0 ÉÊp!!)‡" [file-exists-p file-name-directory buffer-file-name make-directory t save-buffer bury-buffer buf gnus-score-edit-exit-function switch-to-buffer other-buffer] 3 (#$ . 2237) nil])
(defalias 'gnus-score-day-number #[(time) "À	!ÃÄ\n8Å\n8Æ\n8#)‡" [decode-time time dat timezone-absolute-from-gregorian 4 3 5] 5])
(provide (quote score-mode))