
(require (quote hmail))

(require (quote hsmail))

(autoload (quote news-reply-mode) "rnewspost")

(require (quote gnuspost))

(setq hnews:composer (quote news-reply-mode) hnews:lister (quote gnus-Subject-mode) hnews:reader (quote gnus-Article-mode))

(defun Gnus-init nil "\
Initializes Hyperbole support for Gnus Usenet news reading." (interactive) nil)

(defun lnews:to nil "\
Sets current buffer to the Usenet news article summary listing buffer." (and (eq major-mode hnews:reader) (set-buffer gnus-Subject-buffer)))

(defun rnews:to nil "\
Sets current buffer to the Usenet news article reader buffer." (and (eq major-mode hnews:lister) (set-buffer gnus-Article-buffer)))

(defun rnews:summ-msg-to nil "\
Displays news message associated with current summary header." (byte-code "Â 	?† Ã	\"… Ä!)‡" [article gnus-current-article gnus-Subject-article-number /= gnus-Subject-display-article] 4))

(byte-code "ÀÁÂÃ#ˆÄ … ÅÆ!ˆÇÈÉ\"ˆÇÊËÌ!ƒ  Í‚! Î\"ˆËÌ!…- ÇÏÐ\"ˆÇÑÒ\"ˆÇÓÔ\"ˆÕÖ!‡" [hypb:function-symbol-replace gnus-inews-article widen hmail:msg-narrow hypb:supercite-p eval (defun news-reply-yank-original (arg) "Supercite version of news-reply-yank-original.
Insert the message being replied to in the reply buffer. Puts point
before the mail headers and mark after body of the text.  Calls
mail-yank-original to actually yank the message into the buffer and
cite text.  

If mail-yank-original is not overloaded by supercite, each nonblank
line is indented ARG spaces (default 3).  Just \\[universal-argument]
as ARG means don't indent and don't delete any header fields." (interactive "P") (byte-code "Á!ˆÂ ˆÃÄ!‡" [arg mail-yank-original exchange-point-and-mark run-hooks news-reply-header-hook] 4)) var:append gnus-Inews-article-hook (widen) gnus-Article-prepare-hook fboundp ep:but-create (hmail:msg-narrow ep:but-create) (hmail:msg-narrow) gnus-Subject-prepare-hook (ep:but-create) news-setup-hook (smail:comment-add) news-reply-mode-hook (smail:comment-add) provide hgnus] 13)