;ELC ;;; compiled by jwz@thalidomide on Fri May 13 00:31:44 1994 ;;; from file /u/jwz/emacs19/lisp/gnus/gnusmail.el ;;; emacs version 19.10 Lucid (beta22). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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 "This file 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) (fset '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 "\ 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"]) (fset '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]) (fset '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 "\ Forward the current message to another user. Customize the variable gnus-mail-forward-method to use another mailer." nil]) (fset '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 "\ Compose mail in other window. Customize the variable gnus-mail-other-window-method to use another mailer." nil]) (fset '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."]) (byte-code "!" [boundp gnus-forward-header-function #[nil " !R" ["[" gnus-newsgroup-name "] " gnus-fetch-field "Subject" ""] 5]] 2) (fset 'gnus-mail-forward-using-mail #[nil "p !Ɖ #Ɖ #dbncc`\n\n!\nb#ct)dbc!)*" [gnus-forward-header-function subject forward-buffer one-window-p t mail nil mail-other-window "\n" "------- Start of forwarded message -------\n" p insert-buffer re-search-forward "^-" " -" "\n------- End of forwarded message -------\n" run-hooks gnus-mail-forward-hook] 4 "\ Forward the current message to another user using mail, RFC944 style."]) (fset 'gnus-mail-other-window-using-mail #[nil " " [news-mail-other-window gnus-overload-functions] 1 "\ Compose mail other window using mail."]) (fset 'gnus-mail-reply-using-mhe #[(&optional yank) "p !! \" P )!!! \n  #\"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."]) (fset 'gnus-mail-forward-using-mhe #[nil "!!p    #dbc` !b#ct)dbc !-" [read-string "To: " "Cc: " nil subject buffer cc to gnus-forward-header-function mh-show-buffer mh-find-path mh-send "" "\n------- Forwarded Message\n\n" p insert-buffer re-search-forward "^-" t " -" "\n------- End of Forwarded Message\n" mh-sent-from-folder 1 mh-sent-from-msg run-hooks gnus-mail-forward-hook] 4 "\ Forward the current message to another user using mh-e."]) (fset '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 'gnusmail)