;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:14:40 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/gnus/gnus-undo.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!\210\303\304\305\306\307\302%\207" [require gnus-util gnus custom-declare-group gnus-undo nil "Undoing in Gnus buffers." :group] 6)
#@42 The number of undoable actions recorded.
(custom-declare-variable 'gnus-undo-limit '2000 '(#$ . 714) :type 'integer :group 'gnus-undo)
#@41 Minor mode for undoing in Gnus buffers.
(custom-declare-variable 'gnus-undo-mode 'nil '(#$ . 855) :type 'boolean :group 'gnus-undo)
#@46 Hook called in all `gnus-undo-mode' buffers.
(custom-declare-variable 'gnus-undo-mode-hook 'nil '(#$ . 993) :type 'hook :group 'gnus-undo)
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\305\"\210\312B\303\312!\204T\304\312\313 \314\301\315\"\210	)\"\210\305\207" [current-load-list map gnus-undo-actions default-boundp set-default nil gnus-undo-boundary t gnus-undo-last gnus-undo-boundary-inhibit gnus-undo-mode-map make-sparse-keymap gnus-define-keys-1 ("\237" gnus-undo "" gnus-undo "u" gnus-undo [(control /)] gnus-undo)] 5)
(defalias 'gnus-undo-make-menu-bar #[nil "\300\207" [nil] 1])
#@97 Non-nil if Gnus-Undo mode is enabled.
Use the command `gnus-undo-mode' to change this variable.
(defvar gnus-undo-mode nil (#$ . 1712))
(make-variable-buffer-local 'gnus-undo-mode)
#@73 Minor mode for providing `undo' in Gnus buffers.

\{gnus-undo-mode-map}
(defalias 'gnus-undo-mode #[(&optional arg) "\305 	\306=\203\n?\202\307	!\310V\311\303!\210\312\311\304!\210\313\n\2039\314\315\316\"\203.\317 \210\320\321!\210\322\321\304\312\313$\210\323\324\n\203C\325\202D\326\"\210\327\330!\203e\305 \203X\305 \232\203e\331\332\n\203b\333\202c\334\"\210)\335 \210\n\207" [#1=#:last-message arg gnus-undo-mode gnus-undo-actions gnus-undo-boundary current-message toggle prefix-numeric-value 0 make-local-variable nil t gnus-visual-p undo-menu menu gnus-undo-make-menu-bar gnus-make-local-hook post-command-hook add-hook run-hooks gnus-undo-mode-hook gnus-undo-mode-on-hook gnus-undo-mode-off-hook called-interactively-p any message "Gnus-Undo mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 1899) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\303\211%\207" [gnus-undo-mode-map add-minor-mode gnus-undo-mode nil] 6)
#@40 Disable undoing in the current buffer.
(defalias 'gnus-disable-undo #[(&optional buffer) "\212\203q\210\301\302!)\207" [buffer gnus-undo-mode -1] 2 (#$ . 2877) nil])
#@25 Set Gnus undo boundary.
(defalias 'gnus-undo-boundary #[nil "\203\302\211\207\303\211\207" [gnus-undo-boundary-inhibit gnus-undo-boundary nil t] 2 (#$ . 3053)])
#@25 Set Gnus undo boundary.
(defalias 'gnus-undo-force-boundary #[nil "\302\303\211\207" [gnus-undo-boundary-inhibit gnus-undo-boundary nil t] 2 (#$ . 3225)])
#@100 Register FORMS as something to be performed to undo a change.
FORMS may use backtick quote syntax.
(defalias 'gnus-undo-register #[(form) "\205\n\302\303\304	E!\207" [gnus-undo-mode form gnus-undo-register-1 lambda nil] 4 (#$ . 3389)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put gnus-undo-register lisp-indent-function 0 edebug-form-spec (body)] 4)
#@66 Register FUNCTION as something to be performed to undo a change.
(defalias 'gnus-undo-register-1 #[(function) "\2055	\203\nCB\306\202$\203 \n@B\240\210\202$\nCC\f\233\211\2030
\306\241\210)\307\211\207" [gnus-undo-mode gnus-undo-boundary function gnus-undo-actions gnus-undo-limit next nil t gnus-undo-boundary-inhibit] 4 (#$ . 3764)])
#@132 Undo some previous changes in Gnus buffers.
Repeat this command to undo more changes.
A numeric argument serves as a repeat count.
(defalias 'gnus-undo #[(n) "\204\306\307!\210\310\311	\"\210	\312=\203\n\204\n\211A@\211\204'\306\313!\210\314\f\"\315\316\317\f\")\207" [gnus-undo-mode last-command gnus-undo-last gnus-undo-actions action gnus-undo-boundary error "Undoing is not enabled in this buffer" message "%s" gnus-undo "Nothing further to undo" delq t mapc funcall] 4 (#$ . 4126) "p"])
(provide 'gnus-undo)
