
(provide (quote gnus-user-tale))

(setq gnus-Article-mode-hook (quote (lambda nil (make-local-variable (quote gnus-Article-head-to-window-bottom)) (kill-local-variable (quote global-mode-string)) (setq mode-line-format (list (purecopy "") (quote mode-line-modified) (quote mode-line-buffer-identification) (purecopy "  ") (quote global-mode-string) (purecopy "  %[(") (quote mode-name) (quote minor-mode-alist) "%n" (purecopy ")%]--") (quote gnus-Article-head-to-window-bottom) (purecopy "-%-"))))))

(defun gnus-Article-set-percent (&optional new-article) "\
Set gnus-Article-head-to-window-bottom as a string which represents the
percentage of total Article lines that are before the bottom of the window.
Also forces mode-line update.  Optional NEW-ARTICLE is necessary when a new
article is selected." (byte-code "ŠŒ	ƒB ÄÅÆ Š
qˆÇ )È#!ˆÉÊ ÈZ!ˆm?…$ ËÌ!ˆÍ ˆmƒ0 Î‚? ÏÐÑÒe`\"\"Òed\"\"ÓP‚s ÔÇ ÕZ!ˆÉÖ ÈZ!ˆm?…X ËÌ!ˆÍ ˆmƒd ×‚s ÏÐÑÒe`\"\"Òed\"\"ÓP‰))ˆØÃ!‡" [gnus-Article-head-to-window-bottom new-article gnus-Subject-buffer t vertical-motion - screen-height window-height 3 move-to-column screen-width forward-char 1 widen "All" / * 100 count-lines "%" move-to-window-line 2 window-width "Bot" set-buffer-modified-p] 25))

(defun gnus-Article-set-mode-line nil "\
Set Article mode line string." (byte-code "ÆÇÈ	É\"GÊ
Uƒ Ë‚ 
ÌP)#D‰ˆÍÎ!ˆÏÅ!‡" [mode-line-buffer-identification gnus-newsgroup-name unmarked gnus-newsgroup-unreads gnus-newsgroup-marked t 17 format "GNUS: %s  %s" gnus-set-difference 0 "      " " more" gnus-Article-set-percent 1 set-buffer-modified-p] 7))

(defun gnus-Article-next-page (lines) "\
Show next page of current article.
If end of article, return non-nil. Otherwise return nil.
Argument LINES specifies lines to be scrolled up." (interactive "P") (byte-code "ÃˆÅÆ!ˆmƒ+ ?† ÇÈ	\"† ŒÉ ˆm)ƒ# Â‚( ÊË!ˆÃ‚3 Ì!ˆÍ ˆÃ‡" [gnus-break-pages gnus-Article-head-to-window-bottom t nil lines move-to-window-line -1 string-match "All\\|Bot" widen gnus-narrow-to-page 1 scroll-up gnus-Article-set-percent] 7))

(defun gnus-Article-prev-page (lines) "\
Show previous page of current article.
Argument LINES specifies lines to be scrolled down." (interactive "P") (byte-code "ÂˆÃÄ!ˆ… o… ŒÅ ˆo)?ƒ% ÆÇ!ˆdbˆÈÇ!‚+ É	!ˆÊ ‡" [gnus-break-pages lines nil move-to-window-line 0 widen gnus-narrow-to-page -1 recenter scroll-down gnus-Article-set-percent] 7))

(or (fboundp (quote original-gnus-narrow-to-page)) (fset (quote original-gnus-narrow-to-page) (symbol-function (quote gnus-narrow-to-page))))

(defun gnus-narrow-to-page (&optional arg) "\
Make text outside current page invisible except for page delimiter.
A numeric arg specifies to move forward or backward by that many pages,
thus showing a page other than the one point was originally in.
NOTE: This function has been modified to also update the Article buffer
mode-line after narrowing." (interactive "P") (byte-code "Áˆƒ Â!‚ Ã‰ˆÄ!ˆÅ ‡" [arg nil prefix-numeric-value 0 original-gnus-narrow-to-page gnus-Article-set-percent] 4))

(defun gnus-reorder-newsrc-file (&optional nosort nocompress) (byte-code "ÃÃŠÌ
!qˆdbˆÍÎÃÄ#?ƒ Ã‚ÏÐÃÄ#ˆÑÒ`ÓZÔ ˆ`\"\">‰ˆÍÐÃÄ#…t `ÃÑÒ`ÕÖ!ˆ`\"\"BÒÔ ˆ×Ø!ˆ`\"Ä‰ˆÙ`\"ˆdbˆcˆb*ˆ‚1 ˆ†| 	?ƒƒ Ã‚˜ ÚÃÏÛÃÄ#ˆÔ ˆ`d#ˆÜÝ\"‰ˆ	ƒ¢ Ã‚÷ ebˆÏÛÃÄ#ˆÏÞÃÄ#…÷ ÑÒÔ ˆ`ÕÖ!ˆ`\"\"Ã
ÙÕß!ˆ`à ˆáß!ˆ`\"ˆâcˆãÓ
8
GS
8A\"ˆãÓ
8
>Ã\"*ˆ‚« ˆäå\"\"‰)*‡" [gnus-unsub-assoc reordered gnus-current-startup-file nil t gnus-newsrc-assoc position unsub-line nosort nocompress compress-group first-unread get-file-buffer re-search-backward "^.*:" re-search-forward "^.*! " assoc buffer-substring 2 beginning-of-line skip-chars-forward "^!" next-line 1 delete-region sort-lines "! " sort gnus-assoc-lessp "," "^-," end-of-line skip-chars-backward "-" setcdr append gnus-set-difference] 34))

(defun gnus-assoc-lessp (list1 list2) "\
Returns t if the car of LIST1 (a string) is less than the car of
LIST2 by doing comparison with string-lessp." (byte-code "Â@	@\"‡" [list1 list2 string-lessp] 3))