;;; compiled by roland@geech.gnu.ai.mit.edu on Sun May 16 22:45:20 1993
;;; from file /gd/gnu/emacs/19.0/lisp/gnusmail.el
;;; emacs version 19.6.3.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(byte-code "ÀÁ!ˆÂÃÄ\"ˆÂÅÄ\"ˆÂÆÇ\"ˆÂÈÇ\"ˆÂÉÇ\"ˆÂÊÇ\"‡" [require gnus autoload news-mail-reply "rnewspost" news-mail-other-window mh-send "mh-e" mh-send-other-window mh-find-path mh-yank-cur-msg] 3)
(defalias 'gnus-summary-reply #[(yank) "ÀÁ‰\"ˆÂ!ˆÄ ˆÅ ˆÆ!ˆ!‡" [gnus-summary-select-article t switch-to-buffer gnus-article-buffer widen delete-other-windows bury-buffer gnus-mail-reply-method yank] 3 "\
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." "P"])
(defalias 'gnus-summary-reply-with-original #[nil "ÀÁ!‡" [gnus-summary-reply t] 2 "\
Reply mail to news author with original article.
Customize the variable gnus-mail-reply-method to use another mailer." nil])
(defalias 'gnus-summary-mail-forward #[nil "À ˆÁ\n!ˆÃ ˆÄ ˆÅ\n!ˆ ‡" [gnus-summary-select-article switch-to-buffer gnus-article-buffer widen delete-other-windows bury-buffer gnus-mail-forward-method] 2 "\
Forward the current message to another user.
Customize the variable gnus-mail-forward-method to use another mailer." nil])
(defalias 'gnus-summary-mail-other-window #[nil "À ˆÁ\n!ˆÃ ˆÄ ˆÅ\n!ˆ ‡" [gnus-summary-select-article switch-to-buffer gnus-article-buffer widen delete-other-windows bury-buffer gnus-mail-other-window-method] 2 "\
Compose mail in other window.
Customize the variable gnus-mail-other-window-method to use another mailer." nil])
(defalias 'gnus-mail-reply-using-mail #[(&optional yank) "À ˆÁ ˆ\n… `dbˆÄÅ!ˆb)‡" [news-mail-reply gnus-overload-functions yank last mail-yank-original nil] 2 "\
Compose reply mail using mail.
Optional argument YANK means yank original article."])
(defalias 'gnus-mail-forward-using-mail #[nil "pÀ	ÂÃÄ!† ÅRÈÉ!ƒ ÊË‰#‚% ÌË‰#…> ŠdbˆÍcˆÎ!ˆdbˆÏcˆÐÑ!)*‡" ["[" gnus-newsgroup-name "] " gnus-fetch-field "Subject" "" subject forward-buffer one-window-p t mail nil mail-other-window "------- Start of forwarded message -------\n" insert-buffer "------- End of forwarded message -------\n" run-hooks gnus-mail-forward-hook] 6 "\
Forward the current message to another user using mail."])
(defalias 'gnus-mail-other-window-using-mail #[nil "À ˆÁ ‡" [news-mail-other-window gnus-overload-functions] 1 "\
Compose mail other window using mail."])
(defalias 'gnus-mail-reply-using-mhe #[(&optional yank) "À‰‰‰‰‰pŒÈ ˆÉÊ!ÉË!‰ƒ. ÌÍ\"„. ÎP‚/ )ÉÏ!ÉÐ!ÉÑ!	\n†G Ó ˆÔ†S Õ#ˆŠÖ×ØÌÙ\"OÚQ\"ˆ)	Ü.… `à ˆb)‡" [nil buffer reply-to to date subject cc from gnus-article-show-all-headers gnus-fetch-field "from" "subject" string-match "^[Rr][Ee]:.+$" "Re: " "reply-to" "cc" "date" mh-show-buffer mh-find-path mh-send "" mh-insert-fields "In-reply-to:" 0 "  *at \\|  *@ \\| *(\\| *<" "'s message of " mh-sent-from-folder 1 mh-sent-from-msg yank last mh-yank-cur-msg] 8 "\
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."])
(defalias 'gnus-mail-forward-using-mhe #[nil "ÀÁ!ÀÂ!pÃÈ	ÊËÌ!† ÍRÏ ˆÐ†* Í#ˆŠdbˆÑcˆÒ!ˆdbˆÓcˆÕ‰-‡" [read-string "To: " "Cc: " nil subject buffer cc to "[" gnus-newsgroup-name "] " gnus-fetch-field "subject" "" mh-show-buffer mh-find-path mh-send "\n------- Forwarded Message\n\n" insert-buffer "\n------- End of Forwarded Message\n" mh-sent-from-folder 1 mh-sent-from-msg] 5 "\
Forward the current message to another user using mh-e."])
(defalias 'gnus-mail-other-window-using-mhe #[nil "ÀÁ!ÀÂ!ÀÃÄÅ!\"É ˆp\nË ˆÌ#ˆpÎ‰+‡" [read-string "To: " "Cc: " "Subject: " gnus-fetch-field "subject" subject cc to gnus-article-show-all-headers mh-show-buffer mh-find-path mh-send-other-window mh-sent-from-folder 1 mh-sent-from-msg] 6 "\
Compose mail other window using mh-e."])
(provide (quote gnusmail))