
(provide (quote gnus-user-sxa))

(defun gnus-user-sxa-show-server-name nil "\
Show NNTP server name in mode line." (byte-code "	P‰‡" [mode-name mode-line-process] 2))

(defun gnus-Subject-set-mode-line nil "\
Set Subject mode line string." (byte-code "ÄÅ	ƒ 	ÆH‚ 
\"‰ˆÇÃ!‡" [mode-line-format gnus-current-headers gnus-newsgroup-name t format "--- GNUS: %17s %%[(%%m)%%]----%%3p-%%-" 1 set-buffer-modified-p] 4))

(defun gnus-Article-set-mode-line nil "\
Set Article mode line string." (byte-code "	G
GZÇÈÉÈÊË!ƒ Ì‚ ÈÍ\"$\"ÎQ‰)ˆÏÆ!‡" [unmarked gnus-newsgroup-unreads gnus-newsgroup-marked mode-line-format gnus-newsgroup-name gnus-current-article t "--- GNUS:" format "%17s" " %s{%d} %s" zerop "      " "%d more" " %[(%m)%]----%3p-%-" set-buffer-modified-p] 11))

(defvar news-inews-program "inews" "\
Function to post news.")

(defvar news-path "/usr/spool/news/" "\
The root directory below which all news files are stored.")

(fset (quote load-library) (symbol-function (quote load)))

(fset (quote process-send-string) (symbol-function (quote send-string)))

(fset (quote process-send-region) (symbol-function (quote send-region)))

(or (fboundp (quote load-org)) (fset (quote load-org) (symbol-function (quote load))))

(or (fboundp (quote bury-buffer-org)) (fset (quote bury-buffer-org) (symbol-function (quote bury-buffer))))

(or (fboundp (quote apply-org)) (fset (quote apply-org) (symbol-function (quote apply))))

(load "backquote")

(defun one-window-p (&optional win) (byte-code "?† Á=… Â ‰ˆÂ Ã!=‡" [win t selected-window next-window] 5))

(defun bury-buffer (&optional buffer) (byte-code "	† pÃ!ˆ	† ÄÅ !ˆÂ)‡" [buf buffer nil bury-buffer-org switch-to-buffer other-buffer] 4))

(defun apply (func &rest args) (byte-code "Å	!@ÅÅ	!A!Æ
\"Ç\"+‡" [last args before org-arg func reverse append apply-org] 7))

(defun file-name-as-directory (filename &optional expand-filename) (byte-code "	ƒ
 Ä
!‚ 
GSÅV… HÆUƒ\" ‚% ÇP*‡" [expanded expand-filename filename tail-ix expand-file-name 0 47 "/"] 3))

(defun load (file &optional missing-ok nomessage dum) "\
Load FILE." (interactive "sLoad file: ") (byte-code "ÃˆÄ	
#‡" [file missing-ok nomessage nil load-org] 4))

(defun insert-char (chr count) "\
Insert COUNT (second arg) copies of CHAR (first arg).
Both arguments are required." (byte-code "ÂV… 	cˆS‰ˆ‚  ‡" [count chr 0] 3))

(defun current-window-configuration nil (byte-code "p‡" [] 1))

(defun set-window-configuration (window-config) (byte-code "Á!‡" [window-config switch-to-buffer] 2))