;ELC ;;; compiled by jwz@thalidomide on Thu Feb 24 17:34:04 1994 ;;; from file /th/jwz/emacs19/lisp/gnus/gnuspost.el ;;; emacs version 19.10 Lucid (beta4). ;;; 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.")) (require '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) (fset '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]) (fset '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 "\ Post an article." nil]) (fset 'gnus-summary-followup #[(yank) "\" q !ǘ =! !  Ύ !~  !) !" [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 "\ Post a reply article. If prefix argument YANK is non-nil, original article is yanked automatically." "P"]) (fset 'gnus-summary-followup-with-original #[nil "!" [gnus-summary-followup t] 2 "\ Post a reply article with original article." nil]) (fset 'gnus-summary-cancel-article #[nil "\" Ŏ! *" [gnus-summary-select-article t nil selected-window GNUSStartBufferWindow ((select-window GNUSStartBufferWindow)) gnus-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) (fset 'gnus-post-news #[nil "!p = @ \n ! ! Ě eeb!`}!!)! V! ! #$ \n$\n%\n! +:+Ɖ%!- \n %)!c2!2c#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 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 completing-read "Newsgroup: " require-match read-string "Subject: " gnus-distribution-list "Distribution: " news-setup-hook news-setup mail-position-on-field "Distribution" "" gnus-author-copy "FCC" run-hooks 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 'gnus-news-reply #[(&optional yank) "!vÉp \n   !њ eeb!`}! ! ! !\n\nܘ\nݘ\n\n! !!!\")$! V! *\\   \"P   \"   \"3 3O  Q)5  %)\n \nc!`<=>c c c@>`T\"+A!cBC!BcD ebE FdbG`HI!Hb)J!.\nK!" [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 date subject from zerop buffer-size major-mode gnus-article-mode gnus-article-show-all-headers search-forward "\n\n" mail-fetch-field "from" 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 read-from-minibuffer "Subject: " string-match " *at \\| *@ \\| *(\\| *<" stop-pos "'s message of " news-setup-hook 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 run-hooks 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 'gnus-clean-newsgroups-field #[nil " eb#! gUw!͕b͔͕|f!!Еbєѕ|͔͕|J!D ! ĉb)" [point-marker p re-search-forward "^Newsgroups: *" nil t error "No `Newsgroups' field." just-one-space 10 "^ \n," looking-at "\\([ ]*\\)\n[^ ]" 1 "\\([ ]*\\),\\([, ]*\n[ ]+\\)" "\\([ ]*\\),\\([, ]*\\)" 0 2 "illegal characters in `Newsgroups' field" marker-position] 4]) (fset 'gnus-inews-news #[nil "  ~eb! eeb\nQ!`}##)! ! !!! ! \"!) !   ! *" [nil case-fold-search gnus-server-opened server-running gnus-start-news-server run-hooks news-inews-hook gnus-clean-newsgroups-field 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] 5 "\ Send a news message." nil]) (fset 'gnus-cancel-news #[nil "!‰ eb#e`}!!!!)! ! !!qp! ڱ! ! !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-flush-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 "\ Cancel an article you posted." nil]) (fset 'gnus-inews-article #[nil "p!\nqp! !eb Q!!dbhUc!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 gnus-inews-insert-headers gnus-inews-article-hook gnus-request-post kill-buffer] 4 "\ Post an article in current buffer using NNTP protocol."]) (fset 'gnus-inews-insert-headers #[nil " eb! > ̱! > ̱! >c! >c!  > ̱!  > ̱!  >`!\"# ̱#`\"+! >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 "\ Prepare article headers. Fields already prepared in the buffer are not modified. Fields in gnus-required-headers will be generated."]) (fset 'gnus-inews-insert-signature #[nil "\"eb!e`}!~ Q! Q !dbc !," [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 "\ 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."]) (fset 'gnus-inews-do-fcc #[nil "eb!e`}eb#`x`{ Bʔy`|b~ @ A \" ˔˕Oed&)X= !G ! ! !7 $.-" [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 "\ 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."]) (fset '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."]) (fset '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 "" "&" " (" ")"] 7 "\ Return user's network address as `NAME@DOMAIN (FULL NAME)'."]) (fset '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."]) (fset '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."]) (fset 'gnus-inews-domain-name #[(&optional genericfrom) "!\n ; ! \" ɕO! \" ɉO  OИO  Q*" [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 "."] 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."]) (fset 'gnus-inews-message-id #[nil " İ" ["<" gnus-inews-unique-id "@" gnus-inews-domain-name ">"] 5 "\ Generate unique Message-ID for user."]) (fset 'gnus-inews-unique-id #[nil "  \"\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 "\ Generate unique ID from user name and current time."]) (fset 'gnus-current-time-zone #[(time) "!\n! @ )" [fboundp current-time-zone time z gnus-local-timezone] 3 "\ The local time zone in effect at TIME, or nil if not known."]) (fset 'gnus-inews-date #[nil "! \n!\n \"\n!*" [fboundp current-time now gnus-current-time-zone zone gnus-inews-valid-date gnus-inews-buggy-date] 4 "\ 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."]) (fset 'gnus-inews-valid-date #[(&optional time zone) "! ! #" [timezone-make-date-arpa-standard fboundp current-time current-time-string time zone "GMT"] 4 "\ 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)."]) (fset 'gnus-inews-buggy-date #[(&optional time) "! !  \" ǔǕO ɔɕO ʔʕO ˔˕O \")" [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 "\ 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."]) (fset 'gnus-inews-organization #[nil "!\n\"! ; GV O̘! Q! Q ! !  ) ;Ū 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 "\ 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."]) (fset 'gnus-inews-lines #[nil "~eb#`d\"!*" [search-forward "\n\n" nil move int-to-string count-lines] 4 "\ Count the number of lines and return numeric string."]) (provide 'gnuspost)