;ELC ;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:41:58 1998 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/gnus-int.el ;;; emacs version 19.34.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.29"))) (error "`gnus-int.el' was compiled for Emacs 19.29 or later")) (byte-code "!&" [require gnus custom-declare-variable gnus-open-server-hook nil "Hook called just before opening connection to the news server." :group gnus-start :type hook] 8) #@99 Open a method for getting news. If CONFIRM is non-nil, the user will be asked for an NNTP server. (defalias 'gnus-start-news-server #[(&optional confirm) "\n?  \fC\nB\"\f%\fc\f;c\f˘c\f˘;\f̘B Da\f\"^\f\fOP!!DDFa\fD@=y!\" =!\"!!!!@A@!$!A@#)" [nil how gnus-current-select-method gnus-nntp-service gnus-nntp-server confirm completing-read "NNTP server: " mapcar #[(server) "C" [server] 1] gnus-secondary-servers "" "::" nnspool system-name string-match "^:" nnmh nnmh-directory file-name-as-directory expand-file-name "~/" 1 nnmh-get-new-mail nntp gnus-select-method require gnus-message 5 "Looking up local news spool..." "Looking up mh spool..." gnus-run-hooks gnus-open-server-hook gnus-server-opened gnus-open-server gnus-y-or-n-p format "%s (%s) open error: '%s'. Continue? " gnus-status-message gnus-error "Couldn't open server on %s"] 10 (#$ . 691)]) #@63 Try to make sure that the server where GROUP exists is alive. (defalias 'gnus-check-group #[(group) " !\n! \n!)" [gnus-find-method-for-group group method gnus-server-opened gnus-open-server] 2 (#$ . 1681)]) #@129 Check whether the connection to METHOD is down. If METHOD is nil, use `gnus-select-method'. If it is down, start it up (again). (defalias 'gnus-check-server #[(&optional method silent) " ;!!ĂE 6@A@ɚ.ɂ4A@\"$!! E!)" [method gnus-select-method gnus-server-to-method gnus-server-opened t silent gnus-message 5 "Opening %s server%s..." "" format " on %s" gnus-run-hooks gnus-open-server-hook gnus-open-server message] 8 (#$ . 1902)]) #@56 Return a function symbol based on METHOD and FUNCTION. (defalias 'gnus-get-function #[(method function &optional noerror) "!;!\f!@N \nH  #!B\n\nB#\nA)!{@^!@!!{u{\"+" [method error "Attempted use of a nil select method" gnus-server-to-method gnus-agent gnus-agent-get-function method-sym gnus-method-functions method-fns function method-fnlist-elt intern format "%s-%s" put func fboundp "Trying to require a method that doesn't exist" require noerror nil "No such function: %s"] 7 (#$ . 2383)]) #@43 Open a connection to GNUS-COMMAND-METHOD. (defalias 'gnus-open-server #[(gnus-command-method) "; ! \"A@=\"ɂI\"A@AA\"\f\f8D B\fA\fC͂DŠ\f))" [gnus-command-method gnus-server-to-method assoc gnus-opened-servers elem denied gnus-message 1 "Denied server" nil gnus-get-function open-server result ok] 4 (#$ . 2975)]) #@46 Close the connection to GNUS-COMMAND-METHOD. (defalias 'gnus-close-server #[(gnus-command-method) "; !\"A@!" [gnus-command-method gnus-server-to-method gnus-get-function close-server] 3 (#$ . 3335)]) #@51 Request the active file from GNUS-COMMAND-METHOD. (defalias 'gnus-request-list #[(gnus-command-method) "; !\"A@!" [gnus-command-method gnus-server-to-method gnus-get-function request-list] 3 (#$ . 3552)]) #@55 Request the newsgroups file from GNUS-COMMAND-METHOD. (defalias 'gnus-request-list-newsgroups #[(gnus-command-method) "; !\"A@!" [gnus-command-method gnus-server-to-method gnus-get-function request-list-newsgroups] 3 (#$ . 3774)]) #@61 Request all new groups since DATE from GNUS-COMMAND-METHOD. (defalias 'gnus-request-newgroups #[(date gnus-command-method) "; !# A@\")" [gnus-command-method gnus-server-to-method gnus-get-function request-newgroups t func date] 5 (#$ . 4022)]) #@68 Check whether a connection to GNUS-COMMAND-METHOD has been opened. (defalias 'gnus-server-opened #[(gnus-command-method) "; !!;$! 0!3@ N  [  #!B  B#A)!@r!@!!\f\".A@!" [gnus-command-method gnus-server-to-method server-opened nil noerror function method error "Attempted use of a nil select method" gnus-agent gnus-agent-get-function method-sym gnus-method-functions method-fns method-fnlist-elt intern format "%s-%s" put func fboundp "Trying to require a method that doesn't exist" require "No such function: %s"] 8 (#$ . 4291)]) #@170 Return the status message from GNUS-COMMAND-METHOD. If GNUS-COMMAND-METHOD is a string, it is interpreted as a group name. The method this group uses will be queried. (defalias 'gnus-status-message #[(gnus-command-method) "; !\f\"A@!)" [gnus-command-method gnus-find-method-for-group gnus-get-function status-message] 3 (#$ . 4938)]) #@53 Request a data generation from GNUS-COMMAND-METHOD. (defalias 'gnus-request-regenerate #[(gnus-command-method) "; !\"A@!" [gnus-command-method gnus-server-to-method gnus-get-function request-regenerate] 3 (#$ . 5294)]) #@60 Request GROUP. If DONT-CHECK, no information is required. (defalias 'gnus-request-group #[(group &optional dont-check gnus-command-method) " \f   \"J8 8 8 8 ˚<  ; \fU\f}P! } @>} P! A@DC\" ***;\f\f<\f\f˚ \f\"A\f\"A\f@@@@@A@#A@@)) ! ! ; ! % ! @'N)!)*>!'!#!B*'*)B#*A)--!s @U! @!-!s m-s-\"-. 22\"2O2)A@6#)" [gnus-command-method group nil info gnus-override-method gnus-select-method 2 intern-soft gnus-newsrc-hashtb method 4 "native" server assoc gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s" "+" intern "%s-address" "" symbol-name method-name address gnus-valid-select-methods "-address" physical-address append request-group noerror function error "Attempted use of a nil select method" gnus-server-to-method gnus-agent gnus-agent-get-function method-sym gnus-method-functions method-fns method-fnlist-elt "%s-%s" put func fboundp "Trying to require a method that doesn't exist" require "No such function: %s" gname string-match "^[^:]+:" 0 dont-check] 8 (#$ . 5530)]) #@38 Request active information on GROUP. (defalias 'gnus-list-active-group #[(group) " ! Ǐ*1\f \"   \"* ̕O, )\fA@\"*" [gnus-find-method-for-group group list-active-group func gnus-command-method G99151 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-get-function gname string-match "^[^:]+:" 0 nil] 4 (#$ . 7073)]) #@33 Request a description of GROUP. (defalias 'gnus-request-group-description #[(group) " ! Ǐ*1\f \"   \"* ̕O, )\fA@\"*" [gnus-find-method-for-group group request-group-description func gnus-command-method G99152 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-get-function gname string-match "^[^:]+:" 0 nil] 4 (#$ . 7534)]) #@30 Request the GROUP be closed. (defalias 'gnus-close-group #[(group) " }\f}\n\"J84\n84ʚ8\f|; Q yP!y@>yP!A@DC\"{***\"!!\"!O!)A@\")" [group nil info gnus-override-method gnus-select-method 2 intern-soft gnus-newsrc-hashtb method 4 "native" server assoc gnus-server-alist gnus-predefined-server-alist gnus-opened-servers opened format "%s:%s" "+" intern "%s-address" "" symbol-name method-name address gnus-valid-select-methods "-address" physical-address append gnus-command-method gnus-get-function close-group gname string-match "^[^:]+:" 0] 7 (#$ . 8006)]) #@114 Request headers for ARTICLES in GROUP. If FETCH-OLD, retrieve all headers (or some subset thereof) in the group. (defalias 'gnus-retrieve-headers #[(articles group &optional fetch-old) " ! \f@\f #9\n\"\f   \"0 ̕O2 )\nA@$)" [gnus-find-method-for-group group gnus-command-method gnus-use-cache articles gnus-cache-retrieve-headers fetch-old gnus-get-function retrieve-headers gname string-match "^[^:]+:" 0 nil] 5 (#$ . 8944)]) #@28 Request ARTICLES in GROUP. (defalias 'gnus-retrieve-articles #[(articles group) " !\n\" \"ɕO)\nA@#)" [gnus-find-method-for-group group gnus-command-method gnus-get-function retrieve-articles articles gname string-match "^[^:]+:" 0 nil] 5 (#$ . 9407)]) #@64 Request active information on GROUPS from GNUS-COMMAND-METHOD. (defalias 'gnus-retrieve-groups #[(groups gnus-command-method) "; !\"\fA@\"" [gnus-command-method gnus-server-to-method gnus-get-function retrieve-groups groups] 3 (#$ . 9689)]) #@60 Return the type (`post' or `mail') of GROUP (and ARTICLE). (defalias 'gnus-request-type #[(group &optional article) " !\n@Ǐ*Ȃ3\n\" \n\n\"-\n͕O/\n)\")" [gnus-find-method-for-group group gnus-command-method request-type func G99153 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) unknown gnus-get-function gname string-match "^[^:]+:" 0 nil article] 4 (#$ . 9947)]) #@75 Allow the backend to change the mark the user tries to put on an article. (defalias 'gnus-request-update-mark #[(group article mark) " !\n@Ǐ*6\n\" \n\n\".\n͕O0\n)#)" [gnus-find-method-for-group group gnus-command-method request-update-mark func G99154 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) mark gnus-get-function gname string-match "^[^:]+:" 0 nil article] 4 (#$ . 10460)]) #@142 Request the ARTICLE in GROUP. ARTICLE can either be an article number or an article Message-ID. If BUFFER, insert the article in that group. (defalias 'gnus-request-article #[(article group &optional buffer) " !\n\" \"ɕO)\nA@ $)" [gnus-find-method-for-group group gnus-command-method gnus-get-function request-article article gname string-match "^[^:]+:" 0 nil buffer] 5 (#$ . 10998)]) #@39 Request the head of ARTICLE in GROUP. (defalias 'gnus-request-head #[(article group) " !\n# \n0 0 \"0  B e![ \"OѕOQ)\nA@#e \"  qeb#`Sd| )," [gnus-find-method-for-group group gnus-command-method gnus-get-function request-head t head nil res clean-up gnus-use-cache article gnus-cache-request-article fboundp gname string-match "^[^:]+:" 0 gnus-request-article nntp-server-buffer search-forward "\n\n" nnheader-fold-continuation-lines] 5 (#$ . 11415)]) #@39 Request the body of ARTICLE in GROUP. (defalias 'gnus-request-body #[(article group) " !\n# \n0 0 \"0  B e![ \"OѕOQ)\nA@#e \"  qeb#e`S|)," [gnus-find-method-for-group group gnus-command-method gnus-get-function request-body t head nil res clean-up gnus-use-cache article gnus-cache-request-article fboundp gname string-match "^[^:]+:" 0 gnus-request-article nntp-server-buffer search-forward "\n\n"] 5 (#$ . 11961)]) #@52 Post the current buffer using GNUS-COMMAND-METHOD. (defalias 'gnus-request-post #[(gnus-command-method) "; !\"A@!" [gnus-command-method gnus-server-to-method gnus-get-function request-post] 3 (#$ . 12471)]) #@131 Request a SCAN being performed in GROUP from GNUS-COMMAND-METHOD. If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned. (defalias 'gnus-request-scan #[(group gnus-command-method) "6  !  \" 1 \".˕O0) A@\"*" [gnus-plugged group gnus-find-method-for-group gnus-command-method t gnus-inhibit-demon gnus-get-function request-scan gname string-match "^[^:]+:" 0 nil] 4 (#$ . 12696)]) #@47 Request that GNUS-COMMAND-METHOD update INFO. (defalias 'gnus-request-update-info #[(info gnus-command-method) "; !@Ǐ*9\" @\n\n\"0\n͕O2\n) A@#" [gnus-command-method gnus-server-to-method request-update-info group func G99155 (byte-code ";\f!@ \n!\n!\n #!!)" [group gnus-find-method-for-group method featurep require fboundp intern format "%s-%s" func] 6) ((error)) gnus-get-function info gname string-match "^[^:]+:" 0 nil] 4 (#$ . 13124)]) (put (quote gnus-request-update-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'gnus-request-expire-articles #[(articles group &optional force) " !\n\" \"ɕO)\nA@ $)" [gnus-find-method-for-group group gnus-command-method gnus-get-function request-expire-articles articles gname string-match "^[^:]+:" 0 nil force] 5]) (defalias 'gnus-request-move-article #[(article group server accept-function &optional last) " !\n\" \"ɕO)\nA@ \f%)" [gnus-find-method-for-group group gnus-command-method gnus-get-function request-move-article article gname string-match "^[^:]+:" 0 nil accept-function last] 6]) (defalias 'gnus-request-accept-article #[(group &optional gnus-command-method last) "; !\n;\n!dbn c'\n!@\"!\n;P\n\n\n\"J\n͕OL\n)Q\nA@#)" [gnus-command-method gnus-server-to-method group gnus-group-name-to-method "\n" gnus-find-method-for-group func intern format "%s-request-accept-article" gname string-match "^[^:]+:" 0 nil last] 4]) (defalias 'gnus-request-replace-article #[(article group buffer) " !@\n\"! \"!ʕO#)\f#)" [gnus-group-name-to-method group func intern format "%s-request-replace-article" article gname string-match "^[^:]+:" 0 nil buffer] 5]) (defalias 'gnus-request-associate-buffer #[(group) " !\n\"  \" ȕO )!)" [gnus-find-method-for-group group gnus-command-method gnus-get-function request-associate-buffer gname string-match "^[^:]+:" 0 nil] 4]) #@56 Request a new buffer restored to the state of ARTICLE. (defalias 'gnus-request-restore-buffer #[(article group) " !\n\" \"ɕO)\nA@#)" [gnus-find-method-for-group group gnus-command-method gnus-get-function request-restore-buffer article gname string-match "^[^:]+:" 0 nil] 5 (#$ . 15161)]) (defalias 'gnus-request-create-group #[(group &optional gnus-command-method args) "; ! !\" \")ɕO+)A@ #)" [gnus-command-method gnus-server-to-method gnus-find-method-for-group group gnus-get-function request-create-group gname string-match "^[^:]+:" 0 nil args] 4]) (defalias 'gnus-request-delete-group #[(group &optional force) " !\n\"  \" ȕO )\n\nA@#)" [gnus-find-method-for-group group gnus-command-method gnus-get-function request-delete-group gname string-match "^[^:]+:" 0 nil force] 4]) (defalias 'gnus-request-rename-group #[(group new-name) " !\n\"  \" ȕO )\n \"- ȕO. )\nA@#)" [gnus-find-method-for-group group gnus-command-method gnus-get-function request-rename-group gname string-match "^[^:]+:" 0 nil new-name] 5]) (defalias 'gnus-close-backends #[nil "‰A@( @P!! \f ," [gnus-valid-select-methods t nil gnus-command-method func gnus-inhibit-demon methods fboundp intern "-request-close"] 4]) (defalias 'gnus-asynchronous-p #[(gnus-command-method) " #\f!\f )" [gnus-get-function gnus-command-method asynchronous-p t func fboundp] 4]) (defalias 'gnus-remove-denial #[(gnus-command-method) "; ! \"A@=\fAǠ*" [gnus-command-method gnus-server-to-method assoc gnus-opened-servers elem status denied closed] 4]) (provide (quote gnus-int))