;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:15:21 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/gnus/score-mode.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require mm-util gnus-util] 2)
#@51 *Hook run at the end of closing the score buffer.
(defvar gnus-score-edit-done-hook nil (#$ . -620))
#@34 *Hook run in score mode buffers.
(defvar gnus-score-mode-hook nil (#$ . -727))
#@47 *Hook run after creating the score mode menu.
(defvar gnus-score-menu-hook nil (#$ . -812))
#@45 Function run on exit from the score buffer.
(defvar gnus-score-edit-exit-function nil (#$ . 910))
(byte-code "\301B\303\301!\204\304\301\305\"\210	\204-\306 \307	\n\"\210\310	\311\312#\210\310	\313\314#\210\310	\315\316#\210\305\207" [current-load-list gnus-score-mode-map emacs-lisp-mode-map default-boundp set-default nil make-sparse-keymap set-keymap-parent define-key "" gnus-score-edit-exit "" gnus-score-edit-insert-date "" gnus-score-pretty-print] 4)
#@42 Syntax table used in score-mode buffers.
(defvar score-mode-syntax-table (byte-code "\302!\303\304\305	#\210	)\207" [lisp-mode-syntax-table table copy-syntax-table modify-syntax-entry 124 "w"] 4) (#$ . 1386))
(byte-code "\302B\303\302!\204\304\302	\"\210\302\207" [current-load-list mm-universal-coding-system score-mode-coding-system default-boundp set-default] 3)
#@102 Mode for editing Gnus score files.
This mode is an extended emacs-lisp mode.

\{gnus-score-mode-map}
(defalias 'gnus-score-mode #[nil "\304 \210\305!\210\306 \210\307	!\210\310\311\312\313!\210\314\315!\210\316\317\320\"\207" [gnus-score-mode-map score-mode-syntax-table major-mode mode-name kill-all-local-variables use-local-map gnus-score-make-menu-bar set-syntax-table gnus-score-mode "Score" lisp-mode-variables nil make-local-variable gnus-score-edit-exit-function gnus-run-mode-hooks emacs-lisp-mode-hook gnus-score-mode-hook] 3 (#$ . 1765) nil])
(defalias 'gnus-score-make-menu-bar #[nil "\301\302!?\205\"\303\302\304\305#\210\306\302!\204\307\302\310\"\210\311\302\305\312$\210\313\314!\207" [gnus-score-mode-map boundp gnus-score-menu put variable-documentation "" default-boundp set-default nil easy-menu-do-define ("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 "\300\301\302 !p\"\207" [princ time-to-days current-time] 3 (#$ . 2765) nil])
#@32 Format the current score file.
(defalias 'gnus-score-pretty-print #[nil "eb\210\303p!\304 \210	\305!\210*eb\207" [form score-mode-syntax-table emacs-lisp-mode-syntax-table read erase-buffer gnus-pp] 2 (#$ . 2927) nil])
#@30 Stop editing the score file.
(defalias 'gnus-score-edit-exit #[nil "\304\305\306 !!\204\307\305\306 !\310\"\210\311 \210)\312p!\210p\203$ \210\np=\205/\313\314p!!)\207" [score-mode-coding-system coding-system-for-write buf gnus-score-edit-exit-function file-exists-p file-name-directory buffer-file-name make-directory t save-buffer bury-buffer switch-to-buffer other-buffer] 3 (#$ . 3155) nil])
(provide 'score-mode)
