
(provide (quote gnusmail))

(require (quote gnus))

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

(autoload (quote news-mail-other-window) "rnewspost")

(autoload (quote mh-send) "mh-e")

(autoload (quote mh-send-other-window) "mh-e")

(autoload (quote mh-find-path) "mh-e")

(autoload (quote mh-yank-cur-msg) "mh-e")

(defun gnus-Subject-mail-reply (yank) "\
Reply mail to news author.
If prefix argument YANK is non-nil, original article is yanked automatically.
Customize the variable gnus-mail-reply-method to use another mailer." (interactive "P") (byte-code "ÃˆÄ ˆÅ!ˆÆ ˆÇ ˆÈ!ˆÉ	
\"‡" [gnus-Article-buffer gnus-mail-reply-method yank nil gnus-Subject-select-article switch-to-buffer widen delete-other-windows bury-buffer funcall] 8))

(defun gnus-Subject-mail-reply-with-original nil "\
Reply mail to news author with original article.
Customize the variable gnus-mail-reply-method to use another mailer." (interactive) (byte-code "ÁˆÂÀ!‡" [t nil gnus-Subject-mail-reply] 2))

(defun gnus-Subject-mail-forward nil "\
Forward the current message to another user.
Customize the variable gnus-mail-forward-method to use another mailer." (interactive) (byte-code "ÂˆÃ ˆÄ!ˆÅ ˆÆ ˆÇ!ˆÈ	!‡" [gnus-Article-buffer gnus-mail-forward-method nil gnus-Subject-select-article switch-to-buffer widen delete-other-windows bury-buffer funcall] 7))

(defun gnus-Subject-mail-other-window nil "\
Compose mail in other window.
Customize the variable gnus-mail-other-window-method to use another mailer." (interactive) (byte-code "ÂˆÃ ˆÄ!ˆÅ ˆÆ ˆÇ!ˆÈ	!‡" [gnus-Article-buffer gnus-mail-other-window-method nil gnus-Subject-select-article switch-to-buffer widen delete-other-windows bury-buffer funcall] 7))

(defun gnus-mail-reply-using-mail (&optional yank) "\
Compose reply mail using mail.
Optional argument YANK means yank original article." (byte-code "Ã ˆÄ ˆ… `dbˆÅÂ!ˆ	b)‡" [yank last nil news-mail-reply gnus-overload-functions mail-yank-original] 4))

(defun gnus-mail-forward-using-mail nil "\
Forward the current message to another user using mail." (byte-code "pÅ
ÆÇÈ!† ÉRÊÃ!ƒ ËÄÄ	#‚! ÌÄÄ	#…9 ŠdbˆÍcˆÎ!ˆdbˆÏcˆÐÑ!)*‡" [forward-buffer subject gnus-newsgroup-name t nil "[" "] " gnus-fetch-field "Subject" "" one-window-p mail mail-other-window "------- Start of forwarded message -------
" insert-buffer "------- End of forwarded message -------
" run-hooks gnus-mail-forward-hook] 7))

(defun gnus-mail-other-window-using-mail nil "\
Compose mail other window using mail." (byte-code "À ˆÁ ‡" [news-mail-other-window gnus-overload-functions] 3))

(defun gnus-mail-reply-using-mhe (&optional yank) "\
Compose reply mail using mh-e.
Optional argument YANK means yank original article.
The command \\[mh-yank-cur-msg] yank the original message into current buffer." (byte-code "ÌÌÌÌÌÌpŒÍ ˆÎÏ!ÎÐ!
…$ ÑÒ
\"?ƒ- Ó
P‚. 
)ÎÔ!ÎÕ!ÎÖ!‰ˆ‰ˆ†I ‰ˆ× ˆØ	†V Ù
#ˆŠÚÛÜÑÝ\"OÞQ\")ˆ‰ˆß‰	).ˆ
…† `à ˆb)‡" [from cc subject date to reply-to buffer mh-show-buffer mh-sent-from-folder mh-sent-from-msg yank last nil gnus-Article-show-all-headers gnus-fetch-field "from" "subject" string-match "^[Rr][Ee]:.+$" "Re: " "reply-to" "cc" "date" mh-find-path mh-send "" mh-insert-fields "In-reply-to:" 0 "  *at \\|  *@ \\| *(\\| *<" "'s message of " 1 mh-yank-cur-msg] 16))

(defun gnus-mail-other-window-using-mhe nil "\
Compose mail other window using mh-e." (byte-code "ÆÇ!ÆÈ!ÆÉÊË!\"Ì ˆp‰ˆÍ ˆÎ	
#ˆp‰ˆÏ‰+‡" [to cc subject mh-show-buffer mh-sent-from-folder mh-sent-from-msg read-string "To: " "Cc: " "Subject: " gnus-fetch-field "subject" gnus-Article-show-all-headers mh-find-path mh-send-other-window 1] 10))