;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Fri May 12 12:26:56 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/rnewspost.el ;;; emacs version 19.28.91.1. ;;; 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/rnewspost.el' was compiled for Emacs 19")) (byte-code "ÀÁ!ˆÀÂ!‡" [require sendmail rnews] 2) #@30 Mode map used by news-reply. (defvar news-reply-mode-map nil (#$ . 542)) (byte-code "„¸Á ÂÃÄ#ˆÂÅÆ#ˆÂÇÈ#ˆÂÉÊ#ˆÂËÌ#ˆÂÍÎ#ˆÂÏÐ#ˆÂÑÒ#ˆÂÓÔ#ˆÂÕÖ#ˆÂ×Ø#ˆÂÙÚ#ˆÂÛÚ#ˆÂÜÝ #ˆÂÞßÝß!B#ˆÂàá#ˆÂâã#ˆÂäå#ˆÂæç#ˆÂèé#ˆÂêë#ˆÂìí#ˆÂîïÝï!B#ˆÂðñ#ˆÂòó#ˆÂôõ#ˆÂö÷#ˆÂøù#ˆÁ‡" [news-reply-mode-map make-keymap define-key "" news-reply-distribution " " news-reply-keywords "" news-reply-newsgroups "" news-reply-followup-to "" mail-subject "" news-reply-summary "" mail-text "" news-caesar-buffer-body "" news-reply-signature "" news-reply-yank-original "" mail-fill-yanked-message "" news-inews "" [menu-bar] make-sparse-keymap [menu-bar fields] "Fields" [menu-bar fields news-reply-distribution] ("Distribution" . news-reply-distribution) [menu-bar fields news-reply-keywords] ("Keywords" . news-reply-keywords) [menu-bar fields news-reply-newsgroups] ("Newsgroups" . news-reply-newsgroups) [menu-bar fields news-reply-followup-to] ("Followup-to" . news-reply-followup-to) [menu-bar fields mail-subject] ("Subject" . mail-subject) [menu-bar fields news-reply-summary] ("Summary" . news-reply-summary) [menu-bar fields mail-text] ("Text" . mail-text) [menu-bar news] "News" [menu-bar news news-caesar-buffer-body] ("Rot13" . news-caesar-buffer-body) [menu-bar news news-reply-signature] ("Signature" . news-reply-signature) [menu-bar news news-reply-yank-original] ("Yank Original" . news-reply-yank-original) [menu-bar news mail-fill-yanked-message] ("Fill Yanked Messages" . mail-fill-yanked-message) [menu-bar news news-inews] ("Send" . news-inews)] 6) #@787 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). (defalias 'news-reply-mode #[nil "ÀÁ!„\nÂÃ!ˆÄ ˆÅÆ!ˆÇÈ !ˆÊ !ˆ\f ÎÐÅÒ!ˆÅÓ!ˆÔÕ!×RÔÕ!×RØÙÚ\"‡" [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 Reply" mode-name paragraph-separate paragraph-start "^" regexp-quote mail-header-separator "$\\|" run-hooks text-mode-hook news-reply-mode-hook] 4 (#$ . 2132) nil]) #@2  (defvar news-reply-yank-from "Save `From:' field for `news-reply-yank-original'." (#$ . 3454)) #@2  (defvar news-reply-yank-message-id "Save `Message-Id:' field for `news-reply-yank-original'." (#$ . 3555)) #@249 Insert the message being replied to, if any (in Mail mode). 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. (defalias 'news-reply-yank-original #[(arg) "À !ˆÂ ˆÃÄ!‡" [mail-yank-original arg exchange-point-and-mark run-hooks news-reply-header-hook] 2 (#$ . 3670) "P"]) #@61 Hook for inserting a header at the top of a yanked message. (defvar news-reply-header-hook (quote (lambda nil (insert "In article " news-reply-yank-message-id " " news-reply-yank-from " writes:\n\n"))) (#$ . 4084)) #@212 Move point to end of `Newsgroups:' field. RFC 850 constrains the `Newsgroups:' field to be a comma-separated list of valid newsgroup names at your site. For example, Newsgroups: news.misc,comp.misc,rec.misc (defalias 'news-reply-newsgroups #[nil "À ˆebˆÁÂ!‡" [expand-abbrev mail-position-on-field "Newsgroups"] 2 (#$ . 4306) nil]) #@412 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, and it must be a subset of the `Newsgroups:' field. For example: Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc Followup-To: news.misc,comp.misc,rec.misc (defalias 'news-reply-followup-to #[nil "À ˆÁÂÃ\"†ÁÄ!ˆÅc‡" [expand-abbrev mail-position-on-field "Followup-To" t "newsgroups" "\nFollowup-To: "] 3 (#$ . 4648) nil]) #@198 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. (defalias 'news-reply-distribution #[nil "À ˆÁÂ!‡" [expand-abbrev mail-position-on-field "Distribution"] 2 (#$ . 5233) nil]) #@182 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. (defalias 'news-reply-keywords #[nil "À ˆÁÂ!‡" [expand-abbrev mail-position-on-field "Keywords"] 2 (#$ . 5562) nil]) #@172 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. (defalias 'news-reply-summary #[nil "À ˆÁÂ!‡" [expand-abbrev mail-position-on-field "Summary"] 2 (#$ . 5867) nil]) #@57 The inews program appends `~/.signature' automatically. (defalias 'news-reply-signature #[nil "ÀÁ!‡" [message "`~/.signature' will be appended automatically."] 2 (#$ . 6159) nil]) #@75 Set up the news reply or posting buffer with the proper headers and mode. (defalias 'news-setup #[(to subject in-reply-to newsgroups replybuffer) "‰ „-‰È  \nÂÂ&ˆËyˆ`Ìyˆ`|ˆdbˆ*‚9È  \nÂÂ&ˆdbˆÍÏÐeÍ#)ƒeËyˆÑ†RÓÔ±ˆ„bÕÌ!ˆ‚edbˆÖ×!*‡" [replybuffer mail-reply-buffer nil mail-signature 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 (#$ . 6345)]) #@34 Send a news message using inews. (defalias 'news-inews #[nil "ÀÀÀŠŒebˆÄÅÅQ!ˆe`}ˆÇÈ!ÇÉ!)~ˆebˆÊË!ˆebˆÄÅÅQ!ˆÌÍ!ˆdbˆhÎU„DÎcˆÏÐ!ˆÑedÀÓÀÔ&ˆÏÕ!ˆebˆÄÍ!ˆÌÅÅQ!ˆÖÀ!ˆ)×Ø!…tØ +‡" [nil newsgroups subject case-fold-search search-forward "\n" mail-header-separator mail-fetch-field "newsgroups" "subject" 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 (#$ . 6892) nil]) #@149 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. (defalias 'news-mail-reply #[nil "À‰‰‰‰‰pŒeÈe!ˆÉÊ!ˆ`ËZ}ˆÌÍ!ÌÎ!ÌÏ!ÌÐ!)ÑÒ!ˆÓÀ\nƒB\n‚C ÔÕ\"‰ƒX×O‚ZØ\fQ)À &.‡" [nil buffer reply-to to date subject cc from goto-line search-forward "\n\n" 1 mail-fetch-field "from" "subject" "reply-to" "date" pop-to-buffer "*mail*" mail string-match " *at \\| *@ \\| *(\\| *<" stop-pos 0 "'s message of "] 8 (#$ . 7422) nil]) #@177 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. (defalias 'news-reply #[nil "ÀÁ!ƒ‰‰‰‰‰‰‰‰‰‰p \n \f ŒÏÐ U„FÒšƒFÓ ˆeebˆÔÕ!ˆ`ÖZ}ˆ×Ø!‰×Ú!\f×Û! ×Ü!‰ †d×Ý!×Þ!×ß!×à!‰!âã!ˆä ˆå …†Àæ!??…ç ˆ\fƒ²èé\f\"ƒ¬èé\f\"ƒ¬\fêÂO\f‚šë\fP\fƒÔèì\"‰-ƒËÏ-O‚Íî Q)ïÂ\f %ˆ ƒëð ˆ cˆ ƒöñò!ˆ cˆñó!ˆƒcˆƒ\fƒôcˆ\fƒ\fcˆdb. ‡õö!‡" [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 to date subject cc 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 ""] 13 (#$ . 7968) nil]) #@129 Begin editing a new USENET news article to be posted. Type \[describe-mode] once editing the article to get a list of commands. (defalias 'news-post-news #[nil "ÀÁ!ƒQpŒÃÄ U„& Æšƒ&Ç ˆeebˆÈÉ!ˆ`ÊZ}ˆËÌ! ËÎ!)ÐÑ!ˆÒ ˆÓ …AÀÔ!??…OÕ ˆÖ׉‰‰\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 (#$ . 9221) nil]) #@129 Send mail in another window. While composing the message, use \[news-reply-yank-original] to yank the original message into it. (defalias 'news-mail-other-window #[nil "ÀÁ‰‰‰‰p&‡" [mail-other-window nil] 7 (#$ . 9877) nil])