;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Sat Jun 10 19:34:04 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/gnuspost.el ;;; emacs version 19.28.92.3. ;;; 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.28.90"))) (error "`gnuspost.el' was compiled for Emacs 19.29 or later")) (require (quote gnus)) #@32 *Local news organization file. (defvar gnus-organization-file "/usr/lib/news/organization" (#$ . -507)) (byte-code "! B! B\"\"" [boundp gnus-post-news-buffer "*post-news*" current-load-list gnus-winconf-post-news nil autoload news-reply-mode "rnewspost" timezone-make-date-arpa-standard "timezone"] 3) #@18 Post an article. (defalias 'gnus-group-post-news #[nil " Ž ) ! !!!" [current-window-configuration gnus-winconf-post-news ((byte-code "p != ! !" [get-buffer gnus-post-news-buffer zerop buffer-size set-window-configuration gnus-winconf-post-news] 3)) gnus-post-news get-buffer gnus-summary-buffer bury-buffer gnus-article-buffer] 2 (#$ . 841) nil]) #@18 Post an article. (defalias 'gnus-summary-post-news #[nil "\" Ŏ!~ )!" [gnus-summary-select-article t nil current-window-configuration gnus-winconf-post-news ((byte-code "p != ! !" [get-buffer gnus-post-news-buffer zerop buffer-size set-window-configuration gnus-winconf-post-news] 3)) switch-to-buffer gnus-article-buffer delete-other-windows gnus-post-news bury-buffer] 3 (#$ . 1228) nil]) #@101 Post a reply article. If prefix argument YANK is non-nil, original article is yanked automatically. (defalias 'gnus-summary-followup #[(yank) "\" q\f%!ǘ%\f= !% !  Ύ !~  !) !" [gnus-summary-select-article t nil gnus-article-buffer gnus-use-followup-to gnus-fetch-field "followup-to" "poster" y-or-n-p "Do you want to ignore `Followup-To: poster'? " gnus-summary-reply yank current-window-configuration gnus-winconf-post-news ((byte-code "p != ! !" [get-buffer gnus-post-news-buffer zerop buffer-size set-window-configuration gnus-winconf-post-news] 3)) switch-to-buffer delete-other-windows gnus-news-reply bury-buffer] 3 (#$ . 1659) "P"]) #@45 Post a reply article with original article. (defalias 'gnus-summary-followup-with-original #[nil "!" [gnus-summary-followup t] 2 (#$ . 2352) nil]) #@31 Cancel an article you posted. (defalias 'gnus-summary-cancel-article #[nil "\" Ŏ! *" [gnus-summary-select-article t nil selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) pop-to-buffer gnus-article-buffer gnus-cancel-news] 3 (#$ . 2508) nil]) (byte-code "\"\"" [defalias sendnews gnus-post-news postnews] 3) #@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 'gnus-post-news #[nil "\n!\"p = @ \n \f -! !I ĚI eeb!`}!!)! y Vy!y\f\"  $%  '%$'똄'  'Q ' )!\n 0:0Ɖ %! \n \f%! c!c6!6c$db eb-!" [gnus-novice-user y-or-n-p "Are you sure you want to post to all of USENET? " major-mode gnus-article-mode gnus-newsgroup-name nil gnus-local-distributions followup-to distribution subject newsgroups artbuf gnus-server-opened gnus-start-news-server t gnus-setup-news zerop buffer-size gnus-article-show-all-headers search-forward "\n\n" mail-fetch-field "from" news-reply-yank-from "message-id" news-reply-yank-message-id pop-to-buffer gnus-post-news-buffer news-reply-mode gnus-overload-functions buffer-modified-p 0 "Unsent article being composed; erase it? " mail-reply-buffer erase-buffer gnus-interactive-post gnus-newsrc-assoc gnus-read-newsrc-file group completing-read "Newsgroup: " require-match "" "," read-string "Subject: " gnus-read-distributions-file gnus-distribution-list "Distribution: " news-setup mail-position-on-field "Distribution" "Followup-To" gnus-author-copy "FCC" message] 6 (#$ . 2871) 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 'gnus-news-reply #[(&optional yank) "\n!Ép \n \f  !IӚI eeb!`}!!! !\f!\ny\ny\nᘃ|\n\n! !!!&)(! V!\f.|   \"P \"55O\fQ)  \f%\n \nc!`=>?c) )@c 0 cA?`T\"+B!FcCWD!CcEyfyebFsGdbH`IJ!Ib).\fK!" [gnus-novice-user y-or-n-p "Are you sure you want to followup to all of USENET? " nil artbuf message-id distribution references message-of newsgroups followup-to to date subject cc from zerop buffer-size major-mode gnus-article-mode gnus-article-show-all-headers search-forward "\n\n" mail-fetch-field "from" "reply-to" reply-to news-reply-yank-from "subject" "date" "followup-to" gnus-use-followup-to "" "poster" "newsgroups" "references" "distribution" "message-id" news-reply-yank-message-id pop-to-buffer gnus-post-news-buffer news-reply-mode gnus-overload-functions buffer-modified-p 0 "Unsent article being composed; erase it? " mail-reply-buffer erase-buffer "Re: " gnus-simplify-subject re-only string-match " *at \\| *@ \\| *(\\| *<" stop-pos "'s message of " news-setup news-reply-followup-to mail-position-on-field "References" 79 " " fill-prefix fill-column begin " " fill-region-as-paragraph "Distribution" gnus-author-copy "FCC" gnus-auto-mail-to-author "To: " "\n" yank last news-reply-yank-original message] 13 (#$ . 4264) nil]) #@22 Send a news message. (defalias 'gnus-inews-news #[nil "  ~eb!eeb Q!`}eb#P`#<Д=d}eb\"eb\")#`#v!~ ! !!)! ! \"!) ! **!**" [nil case-fold-search gnus-server-opened server-running gnus-start-news-server run-hooks news-inews-hook search-forward "\n" mail-header-separator search-forward-regexp "^Newsgroups: +" t re-search-forward "^[^ ]" end 0 replace-regexp "\n[ ]+" " " "[ \n]*,[ \n]*\\|[ ]+" "," mail-fetch-field "to" "cc" gnus-mail-send-method message "Sending via mail..." "Sending via mail... done" ding "No mailer defined. To: and/or Cc: fields ignored." sit-for 1 "Posting to USENET..." gnus-inews-article "Posting to USENET... done" "Article rejected: %s" gnus-status-message set-buffer-modified-p gnus-close-server fboundp bury-buffer gnus-winconf-post-news set-window-configuration] 5 (#$ . 5967) nil]) #@31 Cancel an article you posted. (defalias 'gnus-cancel-news #[nil "!‰ eb#e`}!!!!)! !J !!qp! \f\f eڱ! |! !p!-" [yes-or-no-p "Do you really want to cancel this article? " nil distribution message-id newsgroups from gnus-article-show-all-headers search-forward "\n\n" move mail-fetch-field "from" "newsgroups" "message-id" "distribution" mail-strip-quoted-names gnus-inews-user-name ding message "This article is not yours." get-buffer-create " *GNUS-canceling*" buffer-disable-undo erase-buffer "Newsgroups: " "\n" "Subject: cancel " "Control: cancel " "Distribution: " "" mail-header-separator "Canceling your article..." gnus-inews-article "Canceling your article... done" "Failed to cancel your article" kill-buffer] 14 (#$ . 6921) nil]) #@56 Post an article in current buffer using NNTP protocol. (defalias 'gnus-inews-article #[nil "p!\nqp! !eb Q!!dbhU0c!eb!e`} )! p!+" [get-buffer-create " *GNUS-posting*" tmpbuf artbuf buffer-disable-undo erase-buffer insert-buffer-substring search-forward "\n" mail-header-separator replace-match "\n\n" 10 run-hooks gnus-prepare-article-hook gnus-inews-insert-headers gnus-inews-article-hook gnus-request-post kill-buffer] 4 (#$ . 7761)]) #@133 Prepare article headers. Fields already prepared in the buffer are not modified. Fields in gnus-required-headers will be generated. (defalias 'gnus-inews-insert-headers #[nil " eb!! >! ̱!5 >5 ̱!E >Ec!U >Uc!l\fl >l\f̱!  > ̱!  >`!\"# ̱#`\"+! >c! > ̱," [gnus-inews-date gnus-inews-message-id gnus-inews-organization organization message-id date mail-fetch-field "path" Path gnus-required-headers "Path: " gnus-inews-path "\n" "from" From "From: " gnus-inews-user-name "subject" Subject "Subject: \n" "newsgroups" Newsgroups "Newsgroups: \n" "message-id" Message-ID "Message-ID: " "date" Date "Date: " "organization" Organization 79 " " fill-prefix fill-column begin "Organization: " fill-region-as-paragraph "distribution" Distribution "Distribution: \n" "lines" Lines "Lines: " gnus-inews-lines] 3 (#$ . 8250)]) #@338 Insert signature file in current article buffer. If there is a file named .signature-DISTRIBUTION, it is used instead of usual .signature when the distribution of the article is DISTRIBUTION. Set the variable to nil to prevent appending the signature file automatically. Signature file is specified by the variable gnus-signature-file. (defalias 'gnus-inews-insert-signature #[nil "\n\"eb!e`}!~\f?\f Q!0\f Q\f!?dbc\f!," [gnus-signature-file expand-file-name nil distribution signature search-forward "\n\n" mail-fetch-field "distribution" file-exists-p "-" "-- \n" insert-file-contents] 4 (#$ . 9206)]) #@389 Process FCC: fields in current article buffer. Unless the first character of the field is `|', the article is saved to the specified file using the function specified by the variable gnus-author-copy-saver. The default function rmail-output saves in Unix mailbox format. If the first character is `|', the contents of the article is send to a program specified by the rest of the value. (defalias 'gnus-inews-do-fcc #[nil "eb!e`}eb#6`x`{\fBʔy`|~\f\f@\fA \"c ˔˕Oed&)8w=w !8 ! ! !8 $8-" [nil t case-fold-search fcc-file fcc-list search-forward "\n\n" re-search-forward "^FCC:[ ]*" " " 0 1 string-match "^[ ]*|[ ]*\\(.*\\)[ ]*$" program call-process-region shell-file-name "-c" gnus-author-copy-saver rmail-output file-readable-p rmail-file-p gnus-output-to-rmail] 9 (#$ . 9853)]) #@19 Return uucp path. (defalias 'gnus-inews-path #[nil " \n Q\n;\n Q )" [gnus-inews-login-name login-name gnus-use-generic-path gnus-nntp-server "!"] 3 (#$ . 10738)]) #@60 Return user's network address as `NAME@DOMAIN (FULLNAME)'. (defalias 'gnus-inews-user-name #[nil " \n \f! !Q!\n ˘+˂= ̘9Q= QP)" [gnus-inews-full-name full-name gnus-user-login-name gnus-use-generic-from gnus-local-domain getenv "DOMAINNAME" gnus-inews-login-name "@" gnus-inews-domain-name user-mail-address "" "&" " (" login-name ")"] 4 (#$ . 10925)]) #@106 Return user login name. Got from the variable `gnus-user-login-name' and the function `user-login-name'. (defalias 'gnus-inews-login-name #[nil " " [gnus-user-login-name user-login-name] 1 (#$ . 11324)]) #@135 Return user full name. Got from the variable `gnus-user-full-name', the environment variable NAME, and the function `user-full-name'. (defalias 'gnus-inews-full-name #[nil "\f!\f " [gnus-user-full-name getenv "NAME" user-full-name] 2 (#$ . 11541)]) #@284 Return user's domain name. If optional argument GENERICFROM is a string, use it as the domain name; if it is non-nil, strip of local host name from the domain name. If the function `system-name' returns full internet name and the domain is undefined, the domain name is got from it. (defalias 'gnus-inews-domain-name #[(&optional genericfrom) "\f!\f\n !y ;# A!AA \"> ɕOA! \"R ɉOT  OИhO u Qw*\"TO" [gnus-local-domain boundp gnus-your-domain genericfrom getenv "DOMAINNAME" string-match "\\." system-name 0 nil read-string "Domain name (no host): " host domain 1 "." user-mail-address "@"] 5 (#$ . 11806)]) #@38 Generate unique Message-ID for user. (defalias 'gnus-inews-message-id #[nil " İ" ["<" gnus-inews-unique-id "@" gnus-inews-domain-name ">"] 5 (#$ . 12504)]) #@53 Generate unique ID from user name and current time. (defalias 'gnus-inews-unique-id #[nil "  \"9\n ǔǕO ȔȕO ɔɕO ʔʕO ˔˕O ̔̕O= \"*" [current-time-string gnus-inews-login-name name date string-match "^[^ ]+ \\([^ ]+\\)[ ]+\\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) [0-9][0-9]\\([0-9][0-9]\\)" "." 6 1 2 3 4 5 error "Cannot understand current-time-string: %s."] 10 (#$ . 12674)]) #@61 The local time zone in effect at TIME, or nil if not known. (defalias 'gnus-current-time-zone #[(time) "! \n! @ \f)" [fboundp current-time-zone time z gnus-local-timezone] 3 (#$ . 13094)]) #@233 Date string of today. If `current-time-zone' works, or if `gnus-local-timezone' is set correctly, this yields a date that conforms to RFC 822. Otherwise a buggy date will be generated; this might work with some older news servers. (defalias 'gnus-inews-date #[nil "! \n!\n\f\"\n!*" [fboundp current-time now gnus-current-time-zone zone gnus-inews-valid-date gnus-inews-buggy-date] 4 (#$ . 13307)]) #@255 A date string that represents TIME and conforms to the Usenet standard. TIME is optional and defaults to the current time. Some older versions of Emacs always act as if TIME is nil. The optional argument ZONE specifies the local time zone (default GMT). (defalias 'gnus-inews-valid-date #[(&optional time zone) "! \f! #" [timezone-make-date-arpa-standard fboundp current-time current-time-string time zone "GMT"] 4 (#$ . 13732)]) #@153 A buggy date string that represents TIME. TIME is optional and defaults to the current time. Some older versions of Emacs always act as if TIME is nil. (defalias 'gnus-inews-buggy-date #[(&optional time) "!\f ! \f\"6\fǔǕO\fɔɕO\fʔʕO\f˔˕O:\f\")" [fboundp current-time current-time-string time date string-match "^[^ ]+ \\([^ ]+\\)[ ]+\\([0-9]+\\) \\([0-9:]+\\) [0-9][0-9]\\([0-9][0-9]\\)" 2 " " 1 4 3 error "Cannot understand current-time-string: %s."] 9 (#$ . 14182)]) #@246 Return user's organization. The ORGANIZATION environment variable is used if defined. If not, the variable gnus-local-organization is used instead. If the value begins with a slash, it is taken as the name of a file containing the organization. (defalias 'gnus-inews-organization #[nil "\f!\f\n\"! ;m GVm O̘m! Q!P Qj !\\ j!hj  ) ;wł O̘ !!q  ! !* ł *" [gnus-local-organization boundp gnus-your-organization expand-file-name "~/.organization" nil private-file getenv "ORGANIZATION" organization 0 1 "/" mail-fetch-field "distribution" dist file-exists-p "-" gnus-organization-file get-buffer-create " *GNUS organization*" tmpbuf erase-buffer insert-file-contents buffer-string kill-buffer] 5 (#$ . 14689)]) #@54 Count the number of lines and return numeric string. (defalias 'gnus-inews-lines #[nil "~eb#`d\"!*" [search-forward "\n\n" nil move int-to-string count-lines] 4 (#$ . 15523)]) (provide (quote gnuspost))