;ELC ;;; compiled by jwz@thalidomide on Tue Mar 1 00:31:15 1994 ;;; from file /th/jwz/emacs19/lisp/packages/rnewspost.el ;;; emacs version 19.10 Lucid (beta5). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 sendmail rnews] 2) (defvar news-reply-mode-map nil "\ Mode map used by news-reply.") (byte-code " ##############" [news-reply-mode-map make-keymap define-key "?" describe-mode "" news-reply-distribution " " news-reply-keywords "" news-reply-newsgroups "" news-reply-followup-to "" mail-subject "" news-reply-summary "" news-caesar-buffer-body "" news-reply-signature "" news-reply-yank-original "" mail-fill-yanked-message "" news-inews "" button3 news-reply-menu] 4) (fset 'news-reply-mode #[nil "!! ! ! !  !!RR\"" [fboundp mail-setup load "sendmail" kill-all-local-variables make-local-variable mail-reply-buffer nil set-syntax-table text-mode-syntax-table use-local-map news-reply-mode-map text-mode-abbrev-table local-abbrev-table news-reply-mode major-mode "News" mode-name paragraph-separate paragraph-start "^" mail-header-separator "$\\|" run-hooks text-mode-hook news-reply-mode-hook] 4 "\ Major mode for editing news to be posted on USENET. First-time posters are asked to please read the articles in newsgroup: news.announce.newusers . Like Text Mode but with these additional commands: C-c C-s news-inews (post the message) C-c C-c news-inews C-c C-f move to a header field (and create it if there isn't): C-c C-f C-n move to Newsgroups: C-c C-f C-s move to Subj: C-c C-f C-f move to Followup-To: C-c C-f C-k move to Keywords: C-c C-f C-d move to Distribution: C-c C-f C-a move to Summary: C-c C-y news-reply-yank-original (insert current message, in NEWS). C-c C-q mail-fill-yanked-message (fill what was yanked). C-c C-r caesar rotate all letters by 13 places in the article's body (rot13)." nil]) (defvar news-reply-yank-from "" "\ Save From: field for news-reply-yank-original.") (defvar news-reply-yank-message-id "" "\ Save Message-Id: field for news-reply-yank-original.") (fset 'news-reply-yank-original #[(arg) " ! !)" [nil zmacs-regions mail-yank-original arg exchange-point-and-mark run-hooks news-reply-header-hook] 2 "\ Insert the message being replied to, if any (in postnews). Puts point before the text and mark after. Indents each nonblank line ARG spaces (default 3). Just \\[universal-argument] as argument means don't indent and don't delete any header fields." "P"]) (defvar news-reply-header-hook '(lambda nil (insert "In article " news-reply-yank-message-id " " news-reply-yank-from " writes:\n\n")) "\ Hook for inserting a header at the top of a yanked message.") (fset 'news-reply-newsgroups #[nil " eb!" [expand-abbrev mail-position-on-field "Newsgroups"] 2 "\ Move point to end of Newsgroups: field. RFC 850 constrains the Newsgroups: field to be a comma separated list of valid newsgroups names at your site: Newsgroups: news.misc,comp.misc,rec.misc" nil]) (fset 'news-reply-followup-to #[nil " \"!c" [expand-abbrev mail-position-on-field "Followup-To" t "newsgroups" "\nFollowup-To: "] 3 "\ Move point to end of Followup-To: field. Create the field if none. One usually requests followups to only one newsgroup. RFC 850 constrains the Followup-To: field to be a comma separated list of valid newsgroups names at your site, that are also in the Newsgroups: field: Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc Followup-To: news.misc,comp.misc,rec.misc" nil]) (fset 'news-reply-distribution #[nil " !" [expand-abbrev mail-position-on-field "Distribution"] 2 "\ Move point to end of Distribution: optional field. Create the field if none. Without this field the posting goes to all of USENET. The field is used to restrict the posting to parts of USENET." nil]) (fset 'news-reply-keywords #[nil " !" [expand-abbrev mail-position-on-field "Keywords"] 2 "\ Move point to end of Keywords: optional field. Create the field if none. Used as an aid to the news reader, it can contain a few, well selected keywords identifying the message." nil]) (fset 'news-reply-summary #[nil " !" [expand-abbrev mail-position-on-field "Summary"] 2 "\ Move point to end of Summary: optional field. Create the field if none. Used as an aid to the news reader, it can contain a succinct summary (abstract) of the message." nil]) (fset 'news-reply-signature #[nil "!" [message "~/.signature will be appended automatically."] 2 "\ The inews program appends ~/.signature automatically." nil]) (fset 'news-setup #[(to subject in-reply-to newsgroups replybuffer) " ‰  &y`y`|db*  &db e#)yӱ!db!)" [replybuffer mail-reply-buffer nil mail-setup-hook to mail-archive-file-name mail-self-blind mail-setup subject in-reply-to 0 1 t case-fold-search re-search-backward "^Subject:" "Newsgroups: " newsgroups "" "\n" backward-char run-hooks news-setup-hook] 7 "\ Setup the news reply or posting buffer with the proper headers and in news-reply-mode."]) (fset 'news-inews #[nil "eb Q!e`})~eb!eb Q!!dbhUc!ed &!eb! Q!!)! )" [nil case-fold-search search-forward "\n" mail-header-separator run-hooks news-inews-hook replace-match "\n\n" 10 message "Posting to USENET..." call-process-region news-inews-program 0 "-h" "Posting to USENET... done" set-buffer-modified-p fboundp bury-buffer] 8 "\ Send a news message using inews." nil]) (defvar news-reply-subject-prefix nil "\ *The prefix to use when replying to a news message (such as \"Re:\").") (fset 'news-mail-reply #[nil "p~eeb!`Z}!!!!!!!Q\"Q! \"OQ) &! c \nc\n\nc). " [nil buffer message-id references reply-to to date subject from search-forward "\n\n" 1 mail-fetch-field "from" "subject" "reply-to" "date" "references" "message-id" news-reply-subject-prefix string-match "^[ ]*" regexp-quote "[ )t]*" " " pop-to-buffer "*mail*" mail " *at \\| *@ \\| *(\\| *<" stop-pos 0 "'s message of " mail-position-on-field "References"] 9 "\ Mail a reply to the author of the current article. While composing the reply, use \\[news-reply-yank-original] to yank the original message into it." nil]) (fset 'news-reply #[nil "!‰p \n  UК eeb!`Z}! ! !\n! !!!!! !??   \" \" O p P   \"+ +O \nQ)  %  c ! c!c c cdb. !" [y-or-n-p "Are you sure you want to followup to all of USENET? " nil buffer message-id distribution references message-of newsgroups followup-to date subject from 0 buffer-size major-mode news-mode news-show-all-headers search-forward "\n\n" 1 mail-fetch-field "from" news-reply-yank-from "subject" "date" "followup-to" "newsgroups" "references" "distribution" "message-id" news-reply-yank-message-id pop-to-buffer "*post-news*" news-reply-mode buffer-modified-p "Unsent article being composed; erase it? " erase-buffer string-match "\\`Re: " 4 "Re: " " *at \\| *@ \\| *(\\| *<" stop-pos "'s message of " news-setup news-reply-followup-to mail-position-on-field "Distribution" "References" " " message ""] 11 "\ Compose and post a reply (aka a followup) to the current article on USENET. While composing the followup, use \\[news-reply-yank-original] to yank the original message into it." nil]) (fset 'news-post-news #[nil "!p U ƚ eeb!`Z}! !)! !?? ׉\n%)!" [y-or-n-p "Are you sure you want to post to all of USENET? " buffer 0 buffer-size major-mode news-mode news-show-all-headers search-forward "\n\n" 1 mail-fetch-field "from" news-reply-yank-from "message-id" news-reply-yank-message-id pop-to-buffer "*post-news*" news-reply-mode buffer-modified-p "Unsent article being composed; erase it? " erase-buffer news-setup nil message ""] 6 "\ Begin editing a new USENET news article to be posted. Type \\[describe-mode] once editing the article to get a list of commands." nil]) (fset 'news-mail-other-window #[nil "p&" [mail-other-window nil] 7 "\ Send mail in another window. While composing the message, use \\[news-reply-yank-original] to yank the original message into it." nil]) (byte-code "M" [("Post News" "Go to Field:" "----" ["Subject:" mail-subject t] ["Summary:" news-reply-summary t] ["Keywords:" news-reply-keywords t] ["Newsgroups:" news-reply-newsgroups t] ["Followup-To:" news-reply-followup-to t] ["Distribution:" news-reply-distribution t] ["Text" (let ((mail-header-separator "")) (mail-text)) t] "----" "Miscellaneous Commands:" "----" ["Yank Original" news-reply-yank-original t] ["Fill Yanked Message" mail-fill-yanked-message t] ["Caesar (rot13) Message" news-caesar-buffer-body t] "----" ["Post Message" news-inews t]) news-reply-menu #[(event) "\n!!É  @! @H= @ @H= @ @H= @ @H= @ A>  ??I;!IebQ#!?)II.!)" [select-window event-window event nil news-reply-menu rest rot fill sig yank vectorp 1 news-reply-yank-original news-reply-signature mail-fill-yanked-message news-caesar-buffer-body 2 mail-reply-buffer mail-signature-file file-exists-p search-forward "\n" mail-header-separator t looking-at "[ \n]*\\'" body-p popup-menu-titles popup-menu] 6 nil "e"]] 2)