;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:42:11 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/gnusmail.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/gnusmail.el' was compiled for Emacs 19")) (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) #@175 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. (defalias 'gnus-summary-reply #[(yank) "ÀÁ‰\"ˆÂ !ˆ~ˆÄ ˆÅ !ˆ!‡" [gnus-summary-select-article t switch-to-buffer gnus-article-buffer delete-other-windows bury-buffer gnus-mail-reply-method yank] 3 (#$ . 683) "P"]) #@119 Reply mail to news author with original article. Customize the variable gnus-mail-reply-method to use another mailer. (defalias 'gnus-summary-reply-with-original #[nil "ÀÁ!‡" [gnus-summary-reply t] 2 (#$ . 1080) nil]) #@117 Forward the current message to another user. Customize the variable gnus-mail-forward-method to use another mailer. (defalias 'gnus-summary-mail-forward #[nil "À ˆÁ\n!ˆ~ˆÃ ˆÄ\n!ˆ ‡" [gnus-summary-select-article switch-to-buffer gnus-article-buffer delete-other-windows bury-buffer gnus-mail-forward-method] 2 (#$ . 1305) nil]) #@107 Compose mail in other window. Customize the variable gnus-mail-other-window-method to use another mailer. (defalias 'gnus-summary-mail-other-window #[nil "À ˆÁ\n!ˆ~ˆÃ ˆÄ\n!ˆ ‡" [gnus-summary-select-article switch-to-buffer gnus-article-buffer delete-other-windows bury-buffer gnus-mail-other-window-method] 2 (#$ . 1640) nil]) #@84 Compose reply mail using mail. Optional argument YANK means yank original article. (defalias 'gnus-mail-reply-using-mail #[(&optional yank) "À ˆÁ ˆ\n… ÃÄ!‡" [news-mail-reply gnus-overload-functions yank mail-yank-original nil] 2 (#$ . 1974)]) #@57 Forward the current message to another user using mail. (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 (#$ . 2224)]) #@39 Compose mail other window using mail. (defalias 'gnus-mail-other-window-using-mail #[nil "À ˆÁ ‡" [news-mail-other-window gnus-overload-functions] 1 (#$ . 2680)]) #@162 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-reply-using-mhe #[(&optional yank) "À‰‰‰‰‰pŒÈ ˆÉÊ!ÉË!† ̉ƒ2ÍÎ \"„2Ï P‚3 )ÉÐ!ÉÑ!ÉÒ! \n†KÔ ˆÕ †WÖ #ˆŠ×ØÙÍÚ\"OÛ\fQ\"ˆ) Ý.…ƒ` á ˆ b)‡" [nil buffer reply-to to date subject cc from gnus-article-show-all-headers gnus-fetch-field "from" "subject" "(None)" 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 (#$ . 2850)]) #@57 Forward the current message to another user using mh-e. (defalias 'gnus-mail-forward-using-mhe #[nil "ÀÁ!ÀÂ!pÃÈ ÊËÌ!†ÍR Ï ˆÐ†*Í\f#ˆŠ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 (#$ . 3591)]) #@39 Compose mail other window 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 (#$ . 4063)]) (provide (quote gnusmail))