;ELC   
;;; compiled by amu@mit.edu on Sat Sep 13 16:19:58 1997
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/gnus-undo.el
;;; emacs version 19.30.1.
;;; 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 "`gnus-undo.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÀÁ!ˆÀÂ!‡" [require gnus-util gnus] 2)
#@41 Minor mode for undoing in Gnus buffers.
(defvar gnus-undo-mode nil (#$ . 546))
#@46 Hook called in all `gnus-undo-mode' buffers.
(defvar gnus-undo-mode-hook nil (#$ . 631))
(byte-code "ÀÁ!„ ÂÁBÀÄ!„ ÅÄBÀÆ!„! ÂÆBÀÇ!„. ÂÇBÀÈ!„; ÂÈB„M É ÊÈË\"ˆÂ‡" [boundp gnus-undo-actions nil current-load-list gnus-undo-boundary t gnus-undo-last gnus-undo-boundary-inhibit gnus-undo-mode-map make-sparse-keymap gnus-define-keys-1 ("Ÿ" gnus-undo "" gnus-undo "u" gnus-undo [(control /)] gnus-undo)] 3)
(defalias 'gnus-undo-make-menu-bar #[nil "À‡" [nil] 1])
#@73 Minor mode for providing `undo' in Gnus buffers.

\{gnus-undo-mode-map}
(defalias 'gnus-undo-mode #[(&optional arg) "ÀÁ!\n„\f 	?‚ Ã\n!ÄVLˆÀÅ!ÆLˆÀÇ!ÈLˆ	…B ÉÊË\"ƒ- Ì ˆÍÁÎ#ˆÐÑ!ˆÒÑÇÆÈ$ˆÓÔ!‡" [make-local-variable gnus-undo-mode arg prefix-numeric-value 0 gnus-undo-actions nil gnus-undo-boundary t gnus-visual-p undo-menu menu gnus-undo-make-menu-bar gnus-add-minor-mode "" gnus-undo-mode-map make-local-hook post-command-hook add-hook run-hooks gnus-undo-mode-hook] 5 (#$ . 1117) "P"])
#@40 Disable undoing in the current buffer.
(defalias 'gnus-disable-undo #[(&optional buffer) "Šƒ qˆÁÂ!)‡" [buffer gnus-undo-mode -1] 2 (#$ . 1608) nil])
#@25 Set Gnus undo boundary.
(defalias 'gnus-undo-boundary #[nil "ƒ Á‰‡Â‰‡" [gnus-undo-boundary-inhibit nil t gnus-undo-boundary] 2 (#$ . 1766)])
#@25 Set Gnus undo boundary.
(defalias 'gnus-undo-force-boundary #[nil "ÀÂ‰‡" [nil gnus-undo-boundary-inhibit t gnus-undo-boundary] 2 (#$ . 1917)])
#@100 Register FORMS as something to be performed to undo a change.
FORMS may use backtick quote syntax.
(defalias 'gnus-undo-register #[(form) "…\n ÁÂÃ\fE!‡" [gnus-undo-mode gnus-undo-register-1 lambda nil form] 4 (#$ . 2069)])
(byte-code "ÀÁÂÃ#ˆÀÁÄÅ#‡" [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) "…( 	ƒ \nCBÄ‚$ ƒ  \n@B ˆ‚$ \nCCÅ‰‡" [gnus-undo-mode gnus-undo-boundary function gnus-undo-actions nil t gnus-undo-boundary-inhibit] 3 (#$ . 2400)])
#@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) "„ ÁÂ!ˆÃÄ\"ˆÆ=ƒ „ ‰A@‰	„- ÁÊ!ˆË	\"Ì	…I 	‰A	@ ˆ‚8 )‡" [gnus-undo-mode error "Undoing is not enabled in this buffer" message "%s" last-command gnus-undo gnus-undo-last gnus-undo-actions action "Nothing further to undo" delq t gnus-undo-boundary] 4 (#$ . 2676) "p"])
(provide (quote gnus-undo))