;;; compiled by roland@geech.gnu.ai.mit.edu on Sun May 16 22:46:13 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/gnuspost.el ;;; emacs version 19.6.3. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (require (quote gnus)) (defvar gnus-organization-file "/usr/lib/news/organization" "\ *Local news organization file.") (byte-code "!!\"\"" [boundp gnus-post-news-buffer "*post-news*" gnus-winconf-post-news nil autoload news-reply-mode "rnewspost" timezone-make-date-arpa-standard "timezone"] 3) (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 "\ Post an article." nil]) (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 widen delete-other-windows gnus-post-news bury-buffer] 3 "\ Post an article." nil]) (defalias 'gnus-summary-followup #[(yank) "\" q &!\"& =!!& ! ώ !  !) !" [gnus-summary-select-article t nil gnus-article-buffer gnus-use-followup-to string-equal 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 widen delete-other-windows gnus-news-reply bury-buffer] 3 "\ Post a reply article. If prefix argument YANK is non-nil, original article is yanked automatically." "P"]) (defalias 'gnus-summary-followup-with-original #[nil "!" [gnus-summary-followup t] 2 "\ Post a reply article with original article." nil]) (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 "\ Cancel an article you posted." nil]) (byte-code "MM" [sendnews gnus-post-news postnews] 2) (defalias 'gnus-post-news #[nil "\n!p = @ \n *! !H \"H eeb!`\"!!)! x Vx!x # %& \n&\n%\n! -:-Ɖ%! \n %!c3!3c%dbeb ,!" [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 distribution subject newsgroups artbuf gnus-server-opened gnus-start-news-server t gnus-setup-news zerop buffer-size equal gnus-article-show-all-headers narrow-to-region 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 completing-read "Newsgroup: " require-match read-string "Subject: " gnus-distribution-list "Distribution: " news-setup mail-position-on-field "Distribution" "" gnus-author-copy "FCC" end-of-line 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]) (defalias 'gnus-news-reply #[(&optional yank) "\n!Ép \n    !K\"K eeb!`\"!! ! !\nw\n\"w\n\"z\n\n! !!!'))! V! /s   \"P \"66O Q)  %\n \nc!`>?@c' 'Ac . cB@`T\"+C!DcDUE!DcFppebGccHcdbI`JK!Jb). L!" [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 equal major-mode gnus-article-mode gnus-article-show-all-headers narrow-to-region search-forward "\n\n" mail-fetch-field "from" news-reply-yank-from "subject" "date" "followup-to" gnus-use-followup-to string-equal "" "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 "\ 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]) (defalias 'gnus-inews-news #[nil "  eb!eeb Q!`\"#1#)TI! !T !!! d!m \"!) y ! !!!!*" [nil case-fold-search gnus-server-opened server-running gnus-start-news-server widen run-hooks news-inews-hook narrow-to-region search-forward "\n" mail-header-separator mail-fetch-field "to" t "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] 6 "\ Send a news message." nil]) (defalias 'gnus-cancel-news #[nil "!‰ eb#e`\"!!!!)!! !!\"N !!qp! j#&! ! !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 narrow-to-region mail-fetch-field "from" "newsgroups" "message-id" "distribution" string-equal downcase mail-strip-quoted-names gnus-inews-user-name ding message "This article is not yours." get-buffer-create " *GNUS-canceling*" buffer-flush-undo erase-buffer insert "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] 15 "\ Cancel an article you posted." nil]) (defalias 'gnus-inews-article #[nil "p!\nqp! !eb Q!!dbhU0c!eb!e`\" )! p!+" [get-buffer-create " *GNUS-posting*" tmpbuf artbuf buffer-flush-undo erase-buffer insert-buffer-substring search-forward "\n" mail-header-separator replace-match "\n\n" 10 run-hooks gnus-prepare-article-hook narrow-to-region gnus-inews-insert-headers gnus-inews-article-hook gnus-request-post kill-buffer] 4 "\ Post an article in current buffer using NNTP protocol."]) (defalias 'gnus-inews-insert-headers #[nil " eb!! >! #!5 >5 #!E >Ec!U >Uc!o o >oc cc!  >c cc!  >`\"#$c cc$`\"+! >c! > #," [gnus-inews-date gnus-inews-message-id gnus-inews-organization organization message-id date mail-fetch-field "path" Path gnus-required-headers insert "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] 4 "\ Prepare article headers. Fields already prepared in the buffer are not modified. Fields in gnus-required-headers will be generated."]) (defalias 'gnus-inews-insert-signature #[nil "\n\"eb!e`\"! A Q!2 Q !Adbc !," [gnus-signature-file expand-file-name nil distribution signature search-forward "\n\n" narrow-to-region mail-fetch-field "distribution" widen file-exists-p "-" "--\n" insert-file-contents] 4 "\ 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-do-fcc #[nil "eb!e`\"eb#;` !`\" B!!`\" w @ A \"k !!Oed&)>q !>-" [nil t case-fold-search fcc-file fcc-list search-forward "\n\n" narrow-to-region re-search-forward "^FCC:[ ]*" buffer-substring end-of-line skip-chars-backward " " delete-region match-beginning 0 forward-line 1 widen string-match "^[ ]*|[ ]*\\(.*\\)[ ]*$" match-end program call-process-region shell-file-name "-c" gnus-author-copy-saver rmail-output] 9 "\ 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-path #[nil " \n Q\n;\n Q )" [gnus-inews-login-name login-name gnus-use-generic-path gnus-nntp-server "!"] 3 "\ Return uucp path."]) (defalias 'gnus-inews-user-name #[nil " !\n\"Ȃ)\n\"% Q)\nQR*" [gnus-inews-login-name gnus-inews-full-name full-name login-name "@" gnus-inews-domain-name gnus-use-generic-from string-equal "" "&" " (" ")"] 7 "\ Return user's network address as `NAME@DOMAIN (FULL NAME)'."]) (defalias 'gnus-inews-login-name #[nil "!! " [gnus-user-login-name getenv "USER" "LOGNAME" user-login-name] 2 "\ Return user login name. Got from the variable gnus-user-login-name, the environment variables USER and LOGNAME, and the function user-login-name."]) (defalias 'gnus-inews-full-name #[nil " ! " [gnus-user-full-name getenv "NAME" user-full-name] 2 "\ 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-domain-name #[(&optional genericfrom) " ! \n ; 4!44 \"1 !O4! \"F !OH O\"^Oe rQt*" [gnus-local-domain boundp gnus-your-domain genericfrom getenv "DOMAINNAME" string-match "\\." system-name match-end 0 nil read-string "Domain name (no host): " match-beginning host domain string-equal 1 "."] 5 "\ 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-message-id #[nil " %" [concat "<" gnus-inews-unique-id "@" gnus-inews-domain-name ">"] 6 "\ Generate unique Message-ID for user."]) (defalias 'gnus-inews-unique-id #[nil "  \"G\n! !!O !!O !!O !!O !!O !!O&K \"*" [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]\\)" concat upcase "." match-beginning 6 match-end 1 2 3 4 5 error "Cannot understand current-time-string: %s."] 12 "\ Generate unique ID from user name and current time."]) (defalias 'gnus-inews-date #[nil " " [gnus-local-timezone gnus-inews-valid-date gnus-inews-buggy-date] 1 "\ Date string of today. If the variable gnus-local-timezone is non-nil, valid date will be generated in terms of RFC822. Otherwise, buggy date in which time zone is ignored will be generated. If you are using with Cnews, you must use valid date."]) (defalias 'gnus-inews-valid-date #[nil " \n#" [timezone-make-date-arpa-standard current-time-string gnus-local-timezone "GMT"] 4 "\ Date string of today represented in GMT. Local timezone is specified by the variable gnus-local-timezone."]) (defalias 'gnus-inews-buggy-date #[nil "  \"3 !!O !!O !!O !!O&7 \")" [current-time-string date string-match "^[^ ]+ \\([^ ]+\\)[ ]+\\([0-9]+\\) \\([0-9:]+\\) [0-9][0-9]\\([0-9][0-9]\\)" concat match-beginning 2 match-end " " 1 4 3 error "Cannot understand current-time-string: %s."] 11 "\ Buggy date string of today. Time zone is ignored, but fast."]) (defalias 'gnus-inews-organization #[nil " ! \n\"! ;f O\"f! Q!I Qc !U c!ac  ) ;pł O\" !!q  ! !* \"ł *" [gnus-local-organization boundp gnus-your-organization expand-file-name "~/.organization" nil private-file getenv "ORGANIZATION" organization string-equal 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 "\ 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-lines #[nil " eb#`d\"!*" [widen search-forward "\n\n" nil move int-to-string count-lines] 4 "\ Count the number of lines and return numeric string."]) (provide (quote gnuspost))