;ELC ;;; compiled by jp@atle on Fri Sep 26 20:20:24 1997 ;;; from file /home/jp/home/lyskom-0.44.2.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 "`lyskom-0.44.2.el' was compiled for Emacs 19.29 or later")) #@39 Version for every file in the client. (defconst lyskom-clientversion-long "$Id: vars.el.in,v 44.1 1996/09/03 16:01:36 byers Exp $\n" (#$ . 456)) (provide (quote lyskom)) #@176 *If non-nil then dont convert texts and other things to swascii. This variable is not saved. It should be set in your .emacs This variable is not saved in the LysKOM server. (defvar kom-emacs-knows-iso-8859-1 t (#$ . -633)) #@288 *Controls the behaviour of kom-next-kom and its cousins. If this variable is non-nil the current buffer is sent to the back of the buffer list when one of the commands `kom-next-kom', `kom-previous-kom' or `kom-next-unread-kom' is invoked. This variable is stored in the LysKOM server. (defvar kom-bury-buffers t (#$ . -865)) #@366 *Nil means edit texts in the same window that is used for reading texts. 'other means edit in another window. Creating that window if necessary. A buffer or buffer name means use the first window displaying that buffer. If no window is displaying that buffer or the buffer does not exits then it uses the same window. This variable is stored in the LysKOM server. (defvar kom-write-texts-in-window nil (#$ . -1199)) #@210 *Basic format for LysKOM prompts. Needs to be a valid format string. The only format specifier should be a single "%s", which will be replaced by the real prompt. This variable is stored in the LysKOM server (defvar kom-prompt-format "%s" (#$ . -1623)) #@104 *String to insert before each line of a commented text. This variable is stored in the LysKOM server. (defvar kom-cite-string ">" (#$ . -1884)) #@113 *Non-nil means automatically mark texts that you create as read. This variable is stored in the LysKOM server. (defvar kom-created-texts-are-read t (#$ . -2036)) #@129 *If non-nil then don't restore the window configuration after sending a text. This variable is not saved in the LysKOM server. (defvar kom-dont-restore-window-after-editing nil (#$ . -2206)) #@126 *If non-nil (must be an integer) then the user is not asked for type of mark. This variable is stored in the LysKOM server. (defvar kom-default-mark 100 (#$ . -2405)) #@117 *If Non-nil the texts are shown with comments references at the end. This variable is stored in the LysKOM server. (defvar kom-reading-puts-comments-in-pointers-last t (#$ . -2580)) #@114 *If Non-nil then all texts will be surrounded by lines of dashes. This variable is stored in the LysKOM server. (defvar kom-dashed-lines t (#$ . -2770)) #@143 *If Non-nil then print automatically the number of unread articles when entering a conference. This variable is stored in the LysKOM server. (defvar kom-print-number-of-unread-on-entrance t (#$ . -2931)) #@338 *If non-nil, lyskom prints continuous info about what other people are doing. Info is printed on the message line and never in the buffer. If minibuffer is used then no message is printed. If you want the messages in the buffer you could set the variable kom-presence-messages-in-buffer. This variable is stored in the LysKOM server. (defvar kom-presence-messages t (#$ . -3143)) #@297 *If t, lyskom prints information about what other people are doing in buffer. All printing is done just before the prompt. If nil no messages are printed. If 'presence then messages about people logging in, out and people changing name is printed. This variable is stored in the LysKOM server. (defvar kom-presence-messages-in-buffer nil (#$ . -3533)) #@144 *Non-nil means kom-who-is-on shows from which machine the user is running and what he is doing. This variable is stored in the LysKOM server. (defvar kom-show-where-and-what t (#$ . -3894)) #@202 *The number of minutes of idle-time before a user is excluded from the list of users. This can be overridden by a prefix argument to `kom-who-is-on'. This variable is not stored in the LysKOM server. (defvar kom-idle-hide 30 (#$ . -4092)) #@110 *Non-nil means show footnotes immediately following the text. This variable is stored in the LysKOM server. (defvar kom-show-footnotes-immediately t (#$ . -4339)) #@192 *Show comments in conferences you are not a member of. If this variable is nil, texts with no recipient you are a member of will not be shown. This variable is stored in the LysKOM server. (defvar kom-follow-comments-outside-membership nil (#$ . -4510)) #@155 *Size of window to display the who-buffer. This is used when executing the kom-display-who-buffer command. This variable is stored in the LysKOM server. (defvar kom-who-buffer-size-when-displaying 10 (#$ . -4773)) #@121 *Non-nil means read comments and footnotes to a text before other texts. This variable is stored in the LysKOM server. (defvar kom-read-depth-first t (#$ . -4995)) #@189 *Non-nil means scroll LysKOM window as text is inserted. The last viewed position (generally the most recent prompt) will always be visible. This variable is stored in the LysKOM server. (defvar kom-continuous-scrolling t (#$ . -5167)) #@187 *Non-nil means delay printing of some information not in the cache. You might want to turn this off to have the old, linear behaviour. This variable is not stored in the LysKOM server. (defvar kom-deferred-printing t (#$ . -5411)) (byte-code "! B" [boundp lyskom-defer-indicator "[...]" current-load-list] 2) #@284 *Non-nil means allow texts from conferences with highter priority to break in. If the value is 'express then texts are allowed to break in the middle of a comment chain. Otherwise we dont let them in until the end of the comment tree. This variable is stored in the LysKOM server. (defvar kom-higher-priority-breaks nil (#$ . -5739)) #@222 *Hook that is called before a text is shown. When the hooks is called, text is bound to the text mass of the text and text-stat to the text-stat of the text to be shown. This variable is not stored in the LysKOM server. (defvar lyskom-view-text-hook nil (#$ . -6082)) #@375 *Hook that is called before a personal, group or common message is sent. When called, lyskom-message-string is bound to the message that will be sent and lyskom-message-recipient to the conf-stat of the recipient or nil if the recipient does not exist or if the message is a common message. If lyskom-message-string is set to nil by a hook, the message will not be sent. (defvar lyskom-send-message-hook (quote (lyskom-send-message-trim-newlines)) (#$ . -6358)) #@72 *Hook that is called when the minibuffer is entered to read a message. (defvar lyskom-send-message-setup-hook nil (#$ . -6829)) #@77 *Hook that is called when the minibuffer is exited after reading a message. (defvar lyskom-send-message-exit-hook nil (#$ . -6963)) #@93 *Hook to run once after lyskom is loaded. This variable is not saved in the LysKOM server. (defvar lyskom-after-load-hook nil (#$ . -7101)) #@226 *What to do when logged in. This hook is called after we have logged in but before and command is accepted from the keyboard. It is called immediately before kom-login-hook. This variable is not stored in the LysKOM server. (defvar lyskom-login-hook nil (#$ . -7249)) #@227 *What to do when logged in. This is a list of commands that are executed after we have logged in but before any command is accepted from the keyboard. See also lyskom-login-hook. This variable is stored in the LysKOM server. (defvar kom-login-hook nil (#$ . -7525)) #@515 *What to do when all texts are read. This is a list of commands and lists of commands that are prompted for and executed when there are no more new texts. The last element in the list is the one that will never be removed from the list. A command can be one of: type prompt lyskom-function from the lyskom-command-name function. command "Kommandot:" name of function or definition of lambda expression keyboard macro "Kommandot:" keyboard macro definition. This variable is stored in the LysKOM server. (defvar kom-do-when-done (quote (kom-review-all-marked-texts kom-display-time)) (#$ . -7799)) #@192 *This is a list of all commands before which the screen is cleared. If it isn't a list and isn't nil the screen is cleared before all commands. This variable is stored in the LysKOM server. (defvar kom-page-before-command nil (#$ . -8414)) #@200 *If t, completion on logged-in persons will usually also include persons who are not logged in. Values other than t or nil are reserved for future use. This variable is stored in the LysKOM server. (defvar kom-permissive-completion nil (#$ . -8662)) #@251 *Default priority when joining a new conference. If a valid priority then new conferences are read with this priority. Otherwise ask the user for a priority. Valid priorities are only the range 0-255. This variable is stored in the LysKOM server. (defvar kom-membership-default-priority 100 (#$ . -8920)) #@302 *Tells the system where to put new conferences. The value can be one of the following: 'first => before all other conferences. 'last => after all other conferences. a number => at that position otherwise => the new conf is entered after all conferences. This variable is stored in the LysKOM server. (defvar kom-membership-default-placement (quote last) (#$ . -9235)) #@73 *Text to end the prompt. This variable is stored in the LysKOM server. (defvar lyskom-prompt-text " - " (#$ . -9610)) #@113 *Text to end the prompt while the default-commands is executing. This variable is stored in the LysKOM server. (defvar lyskom-prompt-executing-default-command-text ". " (#$ . -9736)) #@214 The current prompt or nil. This is either nil, indicating that there is currently no prompt, or one a symbol indcating which prompt is shown in the LysKOM buffer. This variable is not saved in the LysKOM server. (defvar lyskom-current-prompt nil (#$ . 9927)) #@272 *Buffer to show personal messages in. If nil, discard them. If t, insert them in the *kom* buffert. If non-nil and non-t this should be a buffer or a name of a (possibly nonexistent) buffer in which the message is inserted. This variable is stored in the LysKOM server. (defvar kom-show-personal-messages-in-buffer t (#$ . -10194)) #@184 *Non-nil means pop up a buffer with personal messages as they arrive. kom-show-personal-messages-in-buffer decides which buffer to pop. This variable is stored in the LysKOM server. (defvar kom-pop-personal-messages nil (#$ . -10534)) #@230 *Non-nil means ding if a higher priority text or conference breaks in. A number means the number of times to ding. A string is an argument for the program named by kom-audio-player. This variable is stored in the LysKOM server. (defvar kom-ding-on-priority-break 1 (#$ . -10777)) #@255 *Non-nil means ding when busy-waiting finishes. A number means the number of times to ding. A string is an argument for the program named by kom-audio-player. A symbol is interpreted as a function to call. This variable is stored in the LysKOM server. (defvar kom-ding-on-wait-done 1 (#$ . -11065)) #@254 *Non-nil means ding as common messages arrive. A number means the number of times to ding. A string is an argument for the program named by kom-audio-player. A symbol is interpreted as a function to call. This variable is stored in the LysKOM server. (defvar kom-ding-on-common-messages 0 (#$ . -11373)) #@252 *Non-nil means ding as group messages arrive. A number means the number of times to ding. A string is an argument for the program named by kom-audio-player. A symbol is interpreted as a function to call. This variable is stored in the LysKOM server. (defvar kom-ding-on-group-messages 1 (#$ . -11686)) #@255 *Non-nil means ding as personal messages arrive. A number means the number of times to ding. A string is an argument for the program named by kom-audio-player. A symbol is interpreted as a function to call. This variable is stored in the LysKOM server (defvar kom-ding-on-personal-messages 2 (#$ . -11996)) #@267 *How to ding if the user has not entered a subject line. A number means the number of times to ding. A string is an argument for the program named by kom-audio-player. A symbol is interpreted as a function to call. This variable is not saved in the LysKOM server. (defvar lyskom-ding-on-no-subject 2 (#$ . -12312)) #@81 *Program to play audio files. This variable is not saved in the LysKOM server. (defvar kom-audio-player "audioplay" (#$ . -12635)) #@449 *Determines default recipient of personal messages. everybody means the default recipient is everybody. group means the default recipient is the group to which the last message was sent, if it was a group message. If the last message was a personal message or a common message, it means the same as sender. sender means the sender of the last message received. This variable is stored in the LysKOM server. (defvar kom-default-message-recipient (quote group) (#$ . -12774)) #@151 *t if outgoing remote-control messages and automatic replies are not to be displayed in the buffer. This variable is not saved in the LysKOM server. (defvar lyskom-filter-outgoing-messages t (#$ . -13296)) #@120 *List of people whose names should be formatted using kom-friends-face. This variable is stored in the LysKOM server. (defvar kom-friends nil (#$ . -13510)) #@99 *Face scheme to use per default for new logins. This variable is not saved in the LysKOM server. (defvar kom-default-face-scheme (byte-code "" [err (byte-code " Ç \"A=ȇ" [window-system default x-display-color-p monochrome assoc background-mode frame-parameters dark inverse] 3) ((error (quote default)))] 3) (#$ . -13674)) #@141 *Non-nil means to insert text properties in the Emacs buffer for various LysKOM elements. This variable is not saved in the LysKOM server. (defvar kom-text-properties t (#$ . -14031)) #@115 *Non-nil means use button hints for overriding default actions. This variable is not saved in the LysKOM server. (defvar kom-use-button-hints t (#$ . -14223)) #@570 List of buttons to install in the text mass of LysKOM objects. Each element is a list consisting of REGEXP TYPE BUTTON-MATCH BUTTON-ARG-MATCH FACE. REGEXP is the regexp to look for in the text. TYPE is the button type. Valid button types are defined in lyskom-button-actions BUTTON-MATCH is the number of the parenthesized expression that is the actual button. BUTTON-ARG-MATCH is the number of the expression to used as the button argument. FACE is the text face to apply to the button, or nil to use the default face. This variable is not saved in the LysKOM server (defvar lyskom-text-buttons (quote (("\\(\\<[0-9][0-9][0-9][0-9]\\([0-9]\\)?\\([0-9]\\)?\\([0-9]\\)?\\>\\)" text 0 1 nil) ("\\(file://\\|ftp://\\|gopher://\\|http://\\|https://\\|news:\\|wais://\\|mailto:\\|telnet:\\)[^ \n\f\n\"<>|\\]*[^ \n\f\n\"<>|.,!(){}?'`]" url 0 nil kom-url-face) ("<(m[|]te *\\([0-9]+\\)[^0-9]*)>" conf 0 1 nil) ("<(text *\\([0-9]+\\)[^0-9]*)>" text 0 1 nil) ("<(person *\\([0-9]+\\)[^0-9]*)>" pers 0 1 nil))) (#$ . 14390)) #@642 *LysKOM will attempt to use URL viewers in the order specified here. kom-url-managers is a list of all available viewers. Note that the elements are all strings. When you select an URL, this list is used to determine which URL viewer to use in the following manner: Each element is in turn matched against the manager regexp for each manager in kom-url-managers, and the first manager found that matches is used to display the URL. See kom-url-managers for a list of all available URL viewers. See kom-netscape-command and kom-mosaic-command for information specific to some URL viewers. This variable is not saved in the LysKOM server. (defvar kom-url-viewer-preferences (quote ("emacs" "netscape" "w3")) (#$ . -15416)) #@492 List of URL managers. Each element is a list consisting of (MANAGER-REGEXP PROTOCOLS NAME VIEW-FUNCTION). When LysKOM attempts to view an URL, kom-url-viewer-preferences is scanned, and the URL manager whose MANAGER-REGEXP first matches an element in kom-url-viewer-preferences and whose PROTOCOLS matches the protocol of the selected URL is used to view the URL by calling its VIEW-FUNCTION with the URL and the manager entry as arguments. This variable is not saved in the LysKOM server. (defvar kom-url-managers (quote (("w3" "\\(http\\|gopher\\|ftp\\)" "Emacs W3" lyskom-view-url-w3) ("netscape" ".*" "Netscape Navigator" lyskom-view-url-netscape) ("\\(emacs\\|dired\\)" "\\(ftp\\|file\\)" "dired" lyskom-view-url-dired) ("\\(emacs\\|telnet-mode\\)" "telnet" "emacs telnet" lyskom-view-url-telnet) ("\\(emacs\\|mail-mode\\)" "mailto" "mail-mode" lyskom-view-url-mailmode) ("mosaic" "\\(http\\|gopher\\|ftp\\|mailto\\|news\\|wais\\|file\\|te|net\\)" lyskom-view-url-mosaic))) (#$ . 16148)) #@83 *Command to run to start Mosaic This variable is not saved in the LysKOM server. (defvar kom-mosaic-command "/usr/local/bin/mosaic" (#$ . -17148)) #@427 *Command to run to start Netscape. If a string, it should be a command that starts Netscape with no arguments. If a list, the first element must be a command that starts Netscape. The remaining elements are used as arguments to Netscape. For instance, a value of "netscape" is valid, but "netscape -d host:0" is not. Instead, the latter should be ("netscape" "-d" "host:0") This variable is not saved in the LysKOM server. (defvar kom-netscape-command "netscape" (#$ . -17303)) #@335 *Non-nil means ask the user for confirmation about recipients. When the user writes a comment to a text with more than one recipient he gets a y-or-n-p question for all recipients. 'before means check before opening the edit buffer. Anything else means check before sending the article. This variable is stored in the LysKOM server. (defvar kom-confirm-multiple-recipients (quote after) (#$ . -17791)) #@207 *Non-nil means check that the authors of the commented texts are members of at least one of the recipient conferences. If not, offer to add them as recipients. This variable is saved in the LysKOM server. (defvar kom-check-commented-author-membership t (#$ . -18201)) #@134 *If non-nil, discard keyboard input that arrives while a LysKOM command is executing. This variable is saved in the LysKOM server. (defvar kom-inhibit-typeahead nil (#$ . -18477)) #@116 *If non-nil, ensure that buffers won't grow any larger than this This variable is not saved in the LysKOM server. (defvar kom-max-buffer-size nil (#$ . -18666)) #@236 If non-nil, print today and yesterday using a special format. Doesn't work very well with Emacs 19.28 or older. You may want to set this to nil, but never set it to non-nil explicitly. This variable is not saved in the LysKOM server. (defvar lyskom-print-complex-dates (byte-code "Y \nY" [emacs-minor-version 29 emacs-major-version 19] 2) (#$ . 18835)) #@116 *An alist mapping server names to shorter identification strings This variable is not saved in the LysKOM server. (defvar kom-server-aliases (quote (("kom.lysator.liu.se" . "LysKOM") ("kom.ludd.luth.se" . "LuddKOM") ("rydkom.rydnet.lysator.liu.se" . "RydKOM") ("kom.csd.uu.se" . "CSD-KOM") ("striterax.medio.mh.se" . "MedioKOM") ("kom.mds.mdh.se" . "MdS-KOM"))) (#$ . -19202)) #@60 t if automatic replies to personal messages are in effect. (defvar kom-ansaphone-on nil (#$ . 19586)) #@103 *t if messages are recorded while the ansaphone is on. This variable is stored in the lyskom server. (defvar kom-ansaphone-record-messages t (#$ . -19695)) #@103 *t if messages are to be shown when they are recorded. This variable is stored in the LysKOM server. (defvar kom-ansaphone-show-messages t (#$ . -19859)) #@111 Messages collected by the automatic reply facility. The most recent message is the first message in the list. (defvar lyskom-ansaphone-messages nil (#$ . 20021)) #@48 Time when the auto-reply facility was enabled. (defvar lyskom-ansaphone-when-set (current-time-string) (#$ . 20189)) #@89 *t if LysKOM may be remotely controlled. This variable is stored in the LysKOM server. (defvar kom-remote-control t (#$ . -20312)) #@191 *Persons who may control LysKOM using messages.By default you can always control your own sessions. See kom-self-control for more information. This variable is stored in the LysKOM server. (defvar kom-remote-controllers nil (#$ . -20451)) #@163 *If non-nil, remote control commands are accepted from sessions logged in as the same user as the current session. This variable is stored in the LysKOM server. (defvar kom-self-control t (#$ . -20698)) #@909 *List of automatic replies to various messages. A list of (MESSAGE-TYPE SENDER RECIPIENT TEXT REPLY) MESSAGE-TYPE is one of personal, group or common or nil SENDER is a list of integers or a single integer or nil RECIPIENT is a list of integers or a single integer or nil TEXT is a regular expression or nil REPLY is a string or nil When an incoming message arrives and the auto-reply facility is on, this list is checked for automatic replies. The message type, sender, recipient and text of the incoming messages is matched against the elements of this list. If a match is found, the corresponding reply is send. A nil in one of the message-type, sender, recipient or text components in the list is taken to mean a wildcard. A null reply means don't send a reply. If none of the elements match, KOM-ANSAPHONE-DEFAULT-REPLY is sent. This variable is not saved in the LysKOM server. (defvar kom-ansaphone-replies (quote ((group nil nil nil nil) (common nil nil nil nil))) (#$ . -20909)) #@150 Tells the client what flags and hooks that are to be saved in the server. These are the flags that are saved in the elisp-client part of the server. (defconst lyskom-elisp-variables (quote (kom-permissive-completion kom-bury-buffers kom-ding-on-personal-messages kom-ding-on-group-messages kom-ding-on-common-messages kom-ding-on-priority-break kom-ding-on-wait-done kom-show-personal-messages-in-buffer kom-pop-personal-messages kom-prompt-format kom-do-when-done kom-higher-priority-breaks kom-login-hook kom-membership-default-placement kom-membership-default-priority kom-mercial kom-inhibit-typeahead kom-page-before-command kom-continuous-scrolling kom-permanent-filter-list kom-presence-messages-in-buffer kom-quit-hook kom-show-where-and-what kom-who-buffer-size-when-displaying kom-default-message-recipient kom-write-texts-in-window kom-cite-string kom-remote-control kom-remote-controllers kom-self-control kom-ansaphone-default-reply kom-ansaphone-replies kom-ansaphone-record-messages kom-ansaphone-show-messages kom-show-footnotes-immediately kom-follow-comments-outside-membership kom-friends kom-check-commented-author-membership lyskom-fetch-map-nos lyskom-new-text-hook lyskom-prefetch-conf-tresh lyskom-prefetch-confs lyskom-prefetch-texts lyskom-prompt-executing-default-command-text lyskom-prompt-text lyskom-who-info-has-changed-hook)) (#$ . 21928)) #@123 List of flags that are to be saved as booleans in the common block. Dont change this. These are defined by the protocol. (defconst lyskom-global-boolean-variables (quote (kom-created-texts-are-read kom-dashed-lines kom-presence-messages kom-print-number-of-unread-on-entrance kom-read-depth-first kom-reading-puts-comments-in-pointers-last kom-confirm-multiple-recipients)) (#$ . 23307)) #@182 List of flags that are to be saved in the common block. These are the non-boolean ones. See: lyskom-global-boolean-variables. Dont change these. These are defined by the protocol. (defconst lyskom-global-non-boolean-variables (quote (kom-default-mark)) (#$ . 23703)) #@37 Version of the LysKOM elisp client. (defconst lyskom-clientversion "0.44.2" (#$ . 23977)) #@65 The largest int emacs, and thus this LysKOM client, can handle. (defconst lyskom-max-int 8388607 (#$ . 24073)) #@591 List describing which features a certain server version has. Each element is a list containing the server version and what it supports: (VERSION SUPPORTS) VERSION is a list of (RELATION MAJOR MINOR REVISION) RELATION is one of >= (features apply to server at or above the specified version) or = (features apply to only that server version). MAJOR, MINOR and REVISION are integers that are compared to the actual server version. SUPPORTS is a list of cons pairs and symbols. Cons pairs are placed in the lyskom-server-supports list, symbols are interpreted as variable names set to 't'. (defconst lyskom-server-features (quote (((>= 1 9 0) (lyskom-accept-async-flag lyskom-dynamic-session-info-flag lyskom-idle-time-flag)) ((>= 1 8 0) (lyskom-long-conf-types-flag lyskom-set-last-read-flag lyskom-uconf-stats-flag)) ((>= 1 7 0) (lyskom-z-lookup-flag)) ((= 1 9 0) ((protocol-version 9))) ((= 1 8 0) ((protocol-version 8))) ((= 1 7 0) ((protocol-version 7))) ((= 1 7 1) ((protocol-version 7))) ((< 1 7 0) ((protocol-version 6))))) (#$ . 24191)) #@98 The version of the server. A list of three integers, major version, minor version and revision. (defvar lyskom-server-version (quote (0 0 0)) (#$ . 25243)) #@105 Assoc list of features supported by the LysKOM server. See lyskom-server-features for more information. (defvar lyskom-server-supports nil (#$ . 25407)) #@51 t if idle time calls are supported by the server. (defvar lyskom-idle-time-flag nil (#$ . 25566)) #@55 t if dynamic session info is supported by the server. (defvar lyskom-dynamic-session-info-flag nil (#$ . 25670)) #@55 t if extended conf types are supported by the server. (defvar lyskom-long-conf-types-flag nil (#$ . 25789)) #@57 t if the set-last-read call is supported by the server. (defvar lyskom-set-last-read-flag nil (#$ . 25903)) #@51 t if the server supports the get-uconf-stat call. (defvar lyskom-uconf-stats-flag nil (#$ . 26017)) #@47 t if the server supports regexp name lookups. (defvar lyskom-z-lookup-flag nil (#$ . 26123)) #@49 t if the server supports the accept-async call. (defvar lyskom-accept-async-flag nil (#$ . 26222)) #@230 The largest possible packet size that can be transmitted to a TCP/IP connection. This should be unlimited, but in practise there are systems that limits this. This variable is automatically adjusted if any problems are detected. (defvar lyskom-max-packet-size lyskom-max-int (#$ . 26328)) #@31 Internal of kom-do-when-done. (defvar lyskom-do-when-done nil (#$ . 26623)) #@44 Internal of kom-do-when-starting. Obsolete (defvar lyskom-do-when-starting nil (#$ . 26705)) #@37 Keeps track of active edit-buffers. (defvar lyskom-list-of-edit-buffers nil (#$ . 26804)) #@70 List of lyskom-sessions with unread texts. This is not buffer-local. (defvar lyskom-sessions-with-unread nil (#$ . 26900)) #@72 List of lyskom-sessions with unread letters. This is not buffer-local. (defvar lyskom-sessions-with-unread-letters nil (#$ . 27029)) #@48 What is the lyskom-buffer we are connected to. (defvar lyskom-buffer nil (#$ . 27168)) #@34 Uaark. Just to omit a warning... (defvar output nil (#$ . 27261)) #@29 Errno of last lyskom error. (defvar lyskom-errno nil (#$ . 27333)) #@22 Position of parsing. (defvar lyskom-parse-pos nil (#$ . 27406)) #@57 Buffer containing unparsed information from the server. (defvar lyskom-unparsed-buffer nil (#$ . 27476)) #@28 Here are we inserting now. (defvar lyskom-unparsed-marker nil (#$ . 27587)) #@64 Contains the strings to be printed out before the next prompt. (defvar lyskom-to-be-printed-before-prompt nil (#$ . 27669)) #@106 Contains the parts of the user areas of unknown klients. The area is a pair: name . info (both strings). (defvar lyskom-other-clients-user-areas nil (#$ . 27800)) #@235 Assoc-list of calls to LysKOM server that have not yet completed. Each element on the list has the format (REF-NO . KOM-QUEUE) REF-NO unique number assigned by lyskom-send-packet. KOM-QUEUE is a kom-queue. (See lyskom-call-data). (defvar lyskom-pending-calls nil (#$ . 27970)) #@225 Pending output to the server. This is a vector of ten elements, each of which is a kom-queue. calls from queues with a higher index (priority) are always sent first. At most lyskom-max-pending-calls calls are sent at once. (defvar lyskom-output-queues nil (#$ . 28258)) #@197 *Max number of calls that are transmitted to the server at once. Extra calls are queued in lyskom-output-queue and sent when the replies returns. This variable is not saved in the LysKOM server. (defvar lyskom-max-pending-calls 20 (#$ . -28536)) #@61 Number of pending calls that are transmitted to the server. (defvar lyskom-number-of-pending-calls 0 (#$ . 28789)) #@84 Next ref-no to use. These ref-nos are used to keep track of the different packets. (defvar lyskom-ref-no 0 (#$ . 28910)) #@34 The pers-no of the current user. (defvar lyskom-pers-no 0 (#$ . 29037)) #@50 Session number in the server for this connection (defvar lyskom-session-no 0 (#$ . 29115)) #@162 *This sessions priority. Only texts in conferences with a priority equal to or higher than this will be shown. This variable is not saved in the LysKOM server. (defvar lyskom-session-priority 0 (#$ . -29213)) #@71 The process (network connection) that is associated with this buffer. (defvar lyskom-proc nil (#$ . 29429)) #@23 Info about the server (defvar lyskom-server-info nil (#$ . 29543)) #@24 The name of the server (defvar lyskom-server-name "" (#$ . 29616)) #@29 List of all LysKOM buffers. (defvar lyskom-buffer-list nil (#$ . 29689)) #@20 Cache of who info. (defvar lyskom-who-info-cache nil (#$ . 29768)) #@19 Cache of session. (defvar lyskom-static-session-info-cache nil (#$ . 29841)) #@31 Cache of conference statuses. (defvar lyskom-conf-cache nil (#$ . 29924)) #@37 Cache of small conference statuses. (defvar lyskom-uconf-cache nil (#$ . 30004)) #@27 Cache of person statuses. (defvar lyskom-pers-cache nil (#$ . 30091)) #@25 Cache of text statuses. (defvar lyskom-text-cache nil (#$ . 30167)) #@17 Cache of texts. (defvar lyskom-text-mass-cache nil (#$ . 30241)) #@59 Cache of marks of all texts the current user has marked.  (defvar lyskom-marked-text-cache nil (#$ . 30312)) #@48 Cache of people presently logged in in LysKOM. (defvar lyskom-who-info-cache nil (#$ . 30427)) #@39 Buffer for the who info presentation. (defvar lyskom-who-info-buffer nil (#$ . 30528)) #@55 Says wether we are collecting who-information or not. (defvar lyskom-who-info-buffer-is-on t (#$ . 30621)) #@106 True when parsing a result. This is used to prevent parallell parsing since the parser is not reentrant. (defvar lyskom-is-parsing t (#$ . 30735)) #@297 Number of bytes missing in the unparsed buffer when parsing a string. Set when parsing a string and there were not enough bytes in the buffer with the unparsed bytes. This variable is used to prevent reparsing before the string is complete. This variable is buffer-local in the unparsed-buffer. (defvar lyskom-string-bytes-missing 0 (#$ . 30889)) #@140 Postition of the first char of the last line that the user has had time to view. This is normally the pos of the first char of the prompt. (defvar lyskom-last-viewed 0 (#$ . 31244)) #@29 Keymap used in LysKOM mode. (defvar lyskom-mode-map nil (#$ . 31432)) #@899 List of articles to read in the current conference. Each element is a read-info. Only one of the elements is of the type CONF. This one is located last in the list (except for the elements of the type REVIEW, REVIEW-TREE or REVIEW-MARK). When reading an article with comments a list of the comments is built recursively if the flag kom-read-depth-first is non-nil. This is to keep track of the reading order. Articles can exist in several of the read-info elements. All unread articles in the conference are always present in the CONF type entry in this list even if also in other entries. (COMM-IN, FOOTN-IN) Some powerful reviewing commands requires to construct a list of articles that should be read. These use the type REVIEW. When reviewing trees and when every viewed article is supposed to be followed by all its comments then the type REVIEW-TREE is used. The first element is a dummy. (defvar lyskom-reading-list nil (#$ . 31509)) #@389 List of conferences with unread texts. Each element is a read-info. All have the type 'CONF and there is one for every conference with unread articles that have been prefetched already. The list is sorted in falling priority. When going to a conference the first element (the one with the highest priority) is copied from this list to lyskom-reading-list. The first element is a dummy. (defvar lyskom-to-do-list nil (#$ . 32460)) #@115 A flag indicating if the filter was interrupted by C-g. It is set to the same value as quit-flag on filter exit. (defvar lyskom-quit-flag nil (#$ . 32899)) #@140 A flag indicating whether asynchronous minibuffer messages are allowed. If this variable is non-nil, no asynchronous messages will appear. (defvar lyskom-inhibit-minibuffer-messages nil (#$ . 33063)) #@63 A flag indicating whether the server is saving at the moment. (defvar lyskom-is-saving nil (#$ . 33269)) #@78 *Number of texts to prefetch. This variable is stored in the LysKOM server. (defvar lyskom-prefetch-texts 3 (#$ . -33380)) #@144 *If fewer than lyskom-prefetch-conf-tresh texts are known, ask for more conf-stats from server. This variable is stored in the LysKOM server. (defvar lyskom-prefetch-conf-tresh 50 (#$ . -33511)) #@118 *Number of confs to ask about at once when checking for unread texts. This variable is stored in the LysKOM server. (defvar lyskom-prefetch-confs 10 (#$ . -33714)) #@143 *Number of text-nos lyskom will fetch when fetching maps. +++ This is not yet used everywhere. This variable is stored in the LysKOM server. (defvar lyskom-fetch-map-nos 50 (#$ . -33886)) #@394 *Number of entries in the membership-list that is fetched at a time. This should be optimized depending on how often you read lyskom and the activity in the first groups in you membership list. Best performance is achieved if you, when logging in, always have an unread article in one of the first lyskom-fetch-membership-length conferences. This variable is not saved in the LysKOM server. (defvar lyskom-fetch-membership-length 6 (#$ . -34082)) #@62 Last conf asked about. Number on the list lyskom-membership. (defvar lyskom-last-conf-fetched -1 (#$ . 34537)) #@54 Last conf known about. See lyskom-last-conf-fetched. (defvar lyskom-last-conf-received -1 (#$ . 34654)) #@68 This variable has obscure uses. I'm not even sure it is necessary. (defvar lyskom-last-conf-done -1 (#$ . 34764)) #@49 Sorted membership-list of the logged in person. (defvar lyskom-membership nil (#$ . 34884)) #@35 List containing all unread confs. (defvar lyskom-unread-confs nil (#$ . 34982)) #@37 Non-nil during the entry of a text. (defvar lyskom-dont-change-prompt nil (#$ . 35068)) #@36 List of texts that are prefetched. (defvar lyskom-fetched-texts nil (#$ . 35162)) #@73 Atom describing what command to do. See the function lyskom-what-to-do. (defvar lyskom-command-to-do (quote unknown) (#$ . 35250)) #@289 If non-nil then this is the condition for the waiting to be stopped. If t however just meaning user is waiting for a text with prompt. It is a form that will be evaluated (using eval) every time the asynchronous message "new text" is received. This is used by the command kom-busy-wait. (defvar lyskom-is-waiting nil (#$ . 35388)) #@59 Current conference. 0 means user is not reading any conf. (defvar lyskom-current-conf 0 (#$ . 35726)) #@56 Text-no of current text. nil means no text is current. (defvar lyskom-current-text nil (#$ . 35834)) #@47 Text-no of previous text. Nil means no text. (defvar lyskom-previous-text nil (#$ . 35941)) #@80 Stack of texts that are read normally. Used for kom-review-last-normally-read. (defvar lyskom-normally-read-texts nil (#$ . 36040)) #@18 Current subject. (defvar lyskom-current-subject "" (#$ . 36178)) #@49 The default conference when adding a recipient. (defvar lyskom-last-added-rcpt 0 (#$ . 36249)) #@51 The default conference when adding a ccrecipient. (defvar lyskom-last-added-ccrcpt 0 (#$ . 36350)) #@50 The default file name when saving a lyskom-text. (defvar lyskom-saved-file-name (concat default-directory "kom-text") (#$ . 36455)) #@43 *Hook to run when lyskom-mode is entered. (defvar lyskom-mode-hook nil (#$ . -36593)) #@105 *Hook to run when the LysKOM session is correctly ended. This variable is stored in the LysKOM server. (defvar kom-quit-hook nil (#$ . -36686)) #@76 Non-niil to automatically quit when LysKOM is full and the session is idle (defvar kom-quit-when-idle t (#$ . 36837)) #@87 List of patterns to filter permanently This variable is stored in the LysKOM server. (defvar kom-permanent-filter-list nil (#$ . 36961)) #@48 List of patterns to filter during this session (defvar kom-session-filter-list nil (#$ . 37105)) #@37 List of patterns that are filtered. (defvar lyskom-filter-list nil (#$ . 37208)) #@389 *Hook to run when a new text is created. This hook is run after the prompt is removed if it shall be changed but before the text Text 4711 {r skapad! is printed in the message area. And before the new prompt is printed. If the text: Text 4711 {r skapad! should not be printed then the hook should set the local variable no-message non-nil. This variable is stored in the LysKOM server. (defvar lyskom-new-text-hook nil (#$ . -37296)) #@185 *Hook to run every time the who-info-buffer has changed. The hook is run with current-buffer the lyskom buffer, not the who-info-buffer. This variable is stored in the LysKOM server. (defvar lyskom-who-info-has-changed-hook nil (#$ . -37739)) #@346 *Hook to run when a personal message is received. When the hook is run 'sender' is bound to the pers-stat of the sender of the message (or possibly nil), 'recipient' is 0 if the message is a public message and otherwise the pers-no of the user, and 'message' is a string that holds the message. This variable is not saved in the LysKOM server. (defvar lyskom-personal-message-hook nil (#$ . -37990)) #@105 Non-nil means the client is executing a command. Most commands can't be interrupted by another command. (defvar lyskom-executing-command t (#$ . 38398)) #@39 The command currently being executed. (defvar lyskom-current-command nil (#$ . 38557)) #@66 Sometimes set to the current high-level function being executed. (defvar lyskom-current-function nil (#$ . 38650)) #@79 Sometimes set to the phase of the curreht high-level function being executed. (defvar lyskom-current-function-phase nil (#$ . 38771)) #@232 *Priority that the current conference are set to when they are aborted. nil means don't alter priority. (That means that kom-go-to-next-conf might go to the same conference again.) This variable is not saved in the LysKOM server. (defvar kom-low-priority -1 (#$ . -38912)) #@38 T when the membership has been read. (defvar lyskom-membership-is-read nil (#$ . 39192)) #@36 t when the user is writing a text. (defvar lyskom-is-writing nil (#$ . 39287)) #@141 Non-nil means all communications with the server is stored in a buffer. The name is stored in lyskom-debug-communications-to-buffer-buffer. (defvar lyskom-debug-communications-to-buffer nil (#$ . 39373)) #@75 Non-nil means asynchronous message 5 will be logged to the debug buffer.  (defvar lyskom-debug-what-i-am-doing t (#$ . 39583)) #@123 Name of the buffer to insert the communications with the server into if lyskom-debug-communications-to-buffer is non-nil. (defvar lyskom-debug-communications-to-buffer-buffer "*kom*-debugs" (#$ . 39717)) #@351 The process the where the lyskom-session is. If blocking-do is called from a buffer that is no well-connected to the lyskom-session, i.e. the lyskom-proc variable is not set, then this variable has to be set for the blocking-do to be able to know what process to send questions to. This is the case when called from the minibuffer when completing. (defvar lyskom-blocking-process nil (#$ . 39928)) #@53 Non-nil if LysKOM is executing the default command. (defvar lyskom-doing-default-command nil (#$ . 40334)) #@56 Non-nil if LysKOM is being entered for the first time. (defvar lyskom-first-time-around nil (#$ . 40447)) #@55 If non-nil, LysKOM is likely to blow up in your face. (defvar lyskom-experimental-features nil (#$ . 40559)) #@57 If non-nil, LysKOM is likely to make a fool out of you. (defvar lyskom-format-experimental nil (#$ . 40674)) #@95 This variable is used for counting things in the client, such as unread texts in list-unread. (defvar lyskom-count-var 0 (#$ . 40789)) #@202 The default string to use for an unknown conference. Set this locally when inserting a conference name using lyskom-format-insert if you want to replace the usual description of an unknown conference. (defvar lyskom-default-conf-string nil (#$ . 40931)) #@76 This variable is t if the user is in administrator mode and nil otherwise. (defvar lyskom-is-administrator nil (#$ . 41191)) #@53 This variable is t if LysKOM is running in Emacs 19 (defvar lyskom-emacs19-p nil (#$ . 41322)) #@50 Name of sender of last personal message received (defvar lyskom-last-personal-message-sender "" (#$ . 41423)) #@48 Name of target for last group message received (defvar lyskom-last-group-message-recipient "" (#$ . 41539)) #@45 An internal variable used in kom-start-anew (defvar lyskom-is-new-user nil (#$ . 41653)) #@43 Seconds timeout for accept-process-output (defvar lyskom-apo-timeout-s 1 (#$ . 41748)) #@48 Microseconds timeout for accept-process-output (defvar lyskom-apo-timeout-ms nil (#$ . 41841)) #@52 Table mapping characters to equivalent characters. (defvar lyskom-collate-table nil (#$ . 41942)) #@53 If non-nil the user area will not be read on login. (defvar lyskom-dont-read-user-area nil (#$ . 42046)) #@33 This should always be set to t. (defvar lyskom-show-comments t (#$ . 42157)) #@62 This should always be set to nil unless you are Klaus Zeuge. (defvar kom-no-comments-to-motd nil (#$ . 42240)) #@108 Users must not change this constant, but are encouraged to change the value of kom-tell-phrases for fun. (defconst lyskom-tell-phrases-validation-keyword-list (quote ((kom-tell-silence) (kom-tell-send) (kom-tell-login) (kom-tell-read) (kom-tell-1st-pres) (kom-tell-write-comment) (kom-tell-write-footnote) (kom-tell-write-letter) (kom-tell-write-reply) (kom-tell-write-text) (kom-tell-conf-pres) (kom-tell-recover) (kom-tell-wait) (kom-tell-regret) (kom-tell-review) (kom-tell-change-name) (kom-tell-change-supervisor) (kom-tell-next-lyskom))) (#$ . 42358)) (byte-code "\nB\nB" [(kom-enable-adm-caps) lyskom-admin-removed-commands current-load-list (kom-disable-adm-caps kom-remove-motd kom-set-motd kom-shutdown-server kom-sync-database) lyskom-noadmin-removed-commands] 2) #@25 *Default LysKOM server. (defvar lyskom-default-server "kom.lysator.liu.se" (#$ . -43151)) #@28 *Default LysKOM user name. (defvar lyskom-default-user-name nil (#$ . -43247)) #@26 Default LysKOM PASSWORD. (defvar lyskom-default-password nil (#$ . 43332)) #@45 Conf name that is present on the mode-line. (defvar mode-line-conf-name nil (#$ . 43413)) (defalias 'lyskom-make-face '(macro . #[(name &rest body) "\nBB BBB" [if memq name ((face-list)) nil body] 4])) (put (quote lyskom-make-face) (quote lisp-indent-function) 1) #@43 Execute BODY if EXPR evaluates to non-nil (defalias 'when '(macro . #[(expr &rest body) " BE" [if expr progn body] 4 (#$ . 43688)])) (byte-code "\n##" [put when lisp-indent-function 1 edebug-form-spec t] 4) #@47 This is a list of the faces that LysKOM uses. (defvar lyskom-faces (quote (kom-active-face kom-url-face kom-me-face kom-highlight-face kom-text-face kom-subject-face kom-text-no-face kom-friends-face kom-presence-face kom-first-line-face)) (#$ . 43914)) #@671 Face schemes for LysKOM. This variable is an association list that defines the face and color schemes in LysKOM. The car of each element is the scheme key, a symbol, and the cdr is a list of face definitions. Each face definition in tur, is a list of four elements: the face name, the base face, foreground color and background color. When LysKOM defines a face from such a specification, the base face is first copied and then the foreground and background colors are set. If it permissible to substitute nil for any element except the face name. For instance, (kom-me-face bold "yellow" "red") will cause kom-me-face to be bold with yellow text on a red background. (defvar lyskom-face-schemes (quote ((default (kom-active-face default "blue4" nil) (kom-url-face default "BlueViolet" nil) (kom-me-face bold "blue3" "lavender") (kom-highlight-face highlight nil) (kom-text-face default nil nil) (kom-subject-face default nil nil) (kom-text-no-face kom-active-face nil nil) (kom-friends-face default "blue3" "lavender") (kom-presence-face italic "dim gray" nil) (kom-first-line-face default nil nil)) (inverse (kom-active-face default "lightblue" nil) (kom-url-face default "Moccasin" nil) (kom-me-face bold "gold" "black") (kom-highlight-face highlight nil nil) (kom-text-face default nil nil) (kom-subject-face default "Khaki" nil) (kom-text-no-face kom-active-face nil nil) (kom-friends-face default "red" nil) (kom-presence-face italic "grey" nil) (kom-first-line-face default nil nil)) (monochrome (kom-active-face default nil nil) (kom-url-face default nil nil) (kom-me-face bold nil nil) (kom-highlight-face highlight nil nil) (kom-text-face default nil nil) (kom-subject-face default nil nil) (kom-text-no-face kom-active-face nil nil) (kom-friends-face underline nil nil) (kom-presence-face italic nil nil) (kom-first-line-face default nil nil)) (minimal (kom-active-face default nil nil) (kom-url-face default nil nil) (kom-me-face default nil "lavender") (kom-highlight-face highlight nil nil) (kom-text-face default nil nil) (kom-subject-face default nil nil) (kom-text-no-face default nil nil) (kom-friends-face default nil "alice blue") (kom-presence-face italic "dim gray" nil) (kom-first-line-face default nil nil)) (highlight (kom-active-face default nil nil) (kom-url-face default nil "LemonChiffon1") (kom-me-face default nil "thistle") (kom-highlight-face highlight nil nil) (kom-text-face default nil nil) (kom-text-no-face default nil nil) (kom-friends-face default nil "misty rose") (kom-subject-face default nil nil) (kom-presence-face italic "dim gray" nil) (kom-first-line-face default nil "lavender")))) (#$ . 44175)) (defalias 'lyskom-set-face-foreground #[(face color) "" [error (set-face-foreground face color) ((error))] 3]) (defalias 'lyskom-set-face-background #[(face color) "" [error (set-face-background face color) ((error))] 3]) #@98 Set the LysKOM color and face scheme to SCHEME. Valid schemes are listed in lyskom-face-schemes. (defalias 'lyskom-set-face-scheme #[(scheme &optional) " \n\"\f= A\")" [assoc scheme lyskom-face-schemes tmp window-system x mapcar #[(spec) " œ Ĝ\" Ŝ Ĝ Ŝ\" ǜ* Ĝ ǜ\"" [copy-face spec 1 default 0 2 lyskom-set-face-foreground 3 lyskom-set-face-background] 4]] 4 (#$ . 47060)]) #@148 Initalize the faces in the LysKOM client. This sets the face scheme according to `kom-default-face-scheme', and also reads the proper X resources. (defalias 'lyskom-setup-faces #[nil " !\n=\n\"*" [lyskom-set-face-scheme kom-default-face-scheme window-system x #[(face-name resource) " Q P\"" [x-get-resource face-name ".attribute" resource "Face.Attribute"] 4] set-p #[(face-name resource) " \n\" Ă ŝƂ)" [set-p face-name resource set nil ("on" "true") on off] 4] on-p mapcar #[(face) " ! \n\" \n\"\n\"\n\n\"\f\n\" - \"8 \"\n=E #\n=R #\f=_ #\f=l #x =\"." [symbol-name face face-name set-p "Foreground" fg "Background" bg on-p "Bold" bl "Italic" it "Underline" ul set-face-foreground set-face-background on make-face-bold nil t off make-face-unbold make-face-italic make-face-unitalic set-face-underline-p] 4] lyskom-faces] 3 (#$ . 47475)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: macros.el,v 44.0 1996/08/30 14:47:13 davidk Exp $\n" nil] 2) (defalias 'lyskom-provide '(macro . #[(definer name rest) "DDD DDFEDDDD  BBEDE" [progn eval-when-compile if not fboundp quote name message "Compatibility %S for %S" definer eval-and-compile rest] 9])) (defalias 'lyskom-provide-macro '(macro . #[(name &rest rest) "\n F" [lyskom-provide defmacro name rest] 4])) (defalias 'lyskom-provide-function '(macro . #[(name &rest rest) "\n F" [lyskom-provide defun name rest] 4])) (defalias 'lyskom-provide-subst '(macro . #[(name &rest rest) "\n F" [lyskom-provide defsubst name rest] 4])) #@87 Bind ATOM to each element in SEQUENCE and execute BODY. Value returned is always nil. (defalias 'lyskom-traverse '(macro . #[(atom sequence &rest body) " D F EE\fC# EE\fC#FE" [let* (__i__ 0) __sequence__ sequence (__len__ (length __sequence__)) atom if (listp __sequence__) append while setq (car __sequence__) body (setq __sequence__ (cdr __sequence__)) (< __i__ __len__) (aref __sequence__ __i__) (setq __i__ (1+ __i__))] 11 (#$ . 49114)])) (put (quote lyskom-traverse) (quote edebug-form-spec) (quote (sexp form body))) #@47 Save-excursion without saving point and mark. (defalias 'lyskom-save-excursion '(macro . #[(&rest forms) "C\fBEE" [let (__buffer__ (current-buffer)) unwind-protect progn forms (set-buffer __buffer__)] 5 (#$ . 49664)])) (put (quote lyskom-save-excursion) (quote edebug-form-spec) t) (defalias 'def-kom-command '(macro . #[(cmd args doc interactive-decl &rest forms) " \n \f DD BCE" [defun cmd args doc interactive-decl lyskom-start-of-command quote unwind-protect progn forms lyskom-end-of-command] 9])) (put (quote def-kom-command) (quote edebug-form-spec) (quote (&define name lambda-list [&optional stringp] ("interactive" interactive) def-body))) #@75 Return t if the character CHAR is member of STRING. Otherwise return nil. (defalias 'char-in-string '(macro . #[(char string) " DDEDD" [null not string-match regexp-quote char-to-string char string] 6 (#$ . 50336)])) #@50 Increment the variable VAR and return the value. (defalias '++ '(macro . #[(var) " DE" [setq var 1+] 4 (#$ . 50567)])) #@50 Decrement the variable VAR and return the value. (defalias '-- '(macro . #[(var) " DE" [setq var 1-] 4 (#$ . 50696)])) #@34 Return from blocking-do-multiple (defvar lyskom-multiple-blocking-return nil (#$ . 50825)) (defalias 'lyskom-blocking-do-multiple #[(call-list) " \n!q  ! 9 @@!P! @A$ A \"=] !>]]#>p!!\"*" [process-buffer lyskom-proc lyskom-blocking-process lyskom-is-parsing lyskom-really-serious-bug not-yet-gotten lyskom-multiple-blocking-return lyskom-collect blocking call-list apply intern-soft "initiate-" symbol-name nil lyskom-use lyskom-blocking-do-multiple-1 process-status (open run) lyskom-quit-flag accept-process-output lyskom-apo-timeout-s lyskom-apo-timeout-ms lyskom-insert-before-prompt lyskom-get-string interrupted signal quit] 6]) (defalias 'lyskom-blocking-do-multiple-1 #[(&rest data) "" [data lyskom-multiple-blocking-return] 2]) #@328 Bind variables according to BIND-LIST and then eval BODY. The value of the last form in BODY is returned. Each element in BIND-LIST is a list (SYMBOL FORM) which binds SYMBOL to the result of the server call FORM, which is the same as used in blocking-do. All the forms in BIND-LIST are evaluated before and symbols are bound. (defalias 'blocking-do-multiple '(macro . #[(bind-list &rest body) "  \"BDDC \" BBE*" [multiple-bind-sym 0 index bindsym let lyskom-blocking-do-multiple list mapcar #[(x) "\nA@@D\nA@ABB" [list quote x] 3] bind-list #[(bpat) "@\n ED T" [bpat elt bindsym index] 4] body] 7 (#$ . 51651)])) (byte-code "##!M!&M#!0M!:M!DM!NM" [put blocking-do-multiple edebug-form-spec (sexp body) lisp-indent-function 1 fboundp byte-code-function-p (macro . #[(obj) " D" [compiled-function-p obj] 2]) internal-facep #[(x) " ! GU H=" [vectorp x 8 0 face] 2] byte-optimizer byte-compile-inline-expand facep #[(x) "!\n\n!\nGU\nH=)0\n91!1\n1ɇ" [fboundp internal-facep x vectorp 8 0 face boundp global-face-data t] 2 "Return t if X is a face name or an internal face vector."] save-selected-window (macro . #[(&rest body) "\fBDEE" [let ((save-selected-window-window (selected-window))) unwind-protect progn body select-window save-selected-window-window] 6 "Execute BODY, then select the window that was selected before BODY."]) frame-width screen-width match-string #[(num &optional string) "  O{" [num string] 3 "Return string of text matched by last search.\nNUM specifies which parenthesized expression in the last regexp.\n Value is nil if NUMth pair didn't match, or there were less than NUM pairs.\nZero means the entire text matched by the whole regexp or whole string.\nSTRING should be given if the last search was by `string-match' on STRING."]] 4) (defalias 'lyskom-external-function '(macro . #[(fn) " DBBED" [eval-when-compile setq lyskom-expected-unresolved-functions cons quote fn (lyskom-expected-unresolved-functions)] 6])) (defalias 'lyskom-end-of-compilation '(macro . #[nil "" [(eval-when-compile (if (and (boundp (quote byte-compile-unresolved-functions)) (consp (car-safe byte-compile-unresolved-functions)) (symbolp (car-safe (car-safe byte-compile-unresolved-functions)))) (mapcar (function (lambda (x) (setq byte-compile-unresolved-functions (delq (assq x byte-compile-unresolved-functions) byte-compile-unresolved-functions)))) lyskom-expected-unresolved-functions)))] 1])) (byte-code "!\nM P" [fboundp map-keymap #[(fn keymap &optional sort-first) " !&\n GW+ \nH\n \nH\"\nT A\"*" [nil 0 r lis vectorp keymap fn mapcar #[(x) " @ A\"" [fn x] 3]] 5] lyskom-clientversion-long "$Id: swedish-strings.el,v 44.0 1996/08/30 14:48:13 davidk Exp $\n"] 2) #@27 Mode map for LysKOM edit. (defvar lyskom-edit-mode-map nil (#$ . 54527)) #@32 Mode-map for lyskom edit mode. (defvar lyskom-edit-prefix nil (#$ . 54606)) (byte-code " !!!####\"? # ####################!#####" [lyskom-edit-mode-map make-sparse-keymap define-prefix-command lyskom-edit-prefix lyskom-edit-review-prefix lyskom-edit-insert-prefix define-key "" "?" lyskom-help "}" "]" string-match "^19" emacs-version [229] [197] "i" "" kom-edit-send "k" kom-edit-quit " " "}?" "}k" kom-edit-show-commented "i?" "ik" kom-edit-insert-commented "" "i1" kom-edit-insert-digit-text "i2" "i3" "i4" "i5" "i6" "i7" "i8" "i9" "i " kom-edit-insert-text lyskom-edit-add-prefix "a" "am" kom-edit-add-recipient "ak" kom-edit-add-copy "ae" "a?"] 4) #@45 *String to separate headers from text body. (defvar lyskom-header-separator (substitute-command-keys "\\--- Skriv nedan. Skicka in=\\[kom-edit-send], Avbryt=\\[kom-edit-quit], Annat se \\[describe-mode] ---") (#$ . -55469)) #@49 The swascii version of lyskom-header-separator. (defvar lyskom-swascii-header-separator nil (#$ . 55721)) #@51 *String to prompt for subject in the edit buffer. (defvar lyskom-header-subject "rende: " (#$ . -55833)) #@47 The swascii version of lyskom-header-subject. (defvar lyskom-swascii-header-subject nil (#$ . 55945)) (byte-code "\nB" [nil lyskom-missing-strings current-load-list] 2) #@50 Assoc list containing pairs of atoms and strings (defconst lyskom-strings (quote ((server-q . "LysKOM-server? (%#1s) ") (try-connect . "LysKOM elisp-klient version %#1s.\nFrsker koppla upp mot %#2s.\n") (protocoll-error . "Protocol error. Servers says: %#1s") (connection-done . "Uppkopplingen klar. Serverns versionsnummer r %#1s.\n\n") (what-is-your-name . "Vad heter du? ") (password . "Lsenord? ") (wrong-password . "Fel lsen.\n") (are-logged-in . "Du r nu inloggad. Vnta ett tag.\n") (you-have-motd . "\nDu har en lapp p drren:\n\n") (lyskom-motd-was-garbed . "\nLoginmeddelandet finns inte!\nDet meddelande som ska visas efter inloggning har frsvunnit.\nKontakta LysKOM-administratren.\n") (presentation-encouragement . "Du har ingen presentation. Det skulle vara trevligt om du skrev en.\nAnvnd kommandot p. Om du inte vill skriva ngon presentation tryck fs.\n") (first-greeting . "%#1s\nDet tycks vara frsta gngen du anvnder LysKOM. Vlkommen!\nKontrollera att du stavat ditt namn rtt. Anvnd grna ditt fullstndiga\nnamn och organisation, t ex \"Eskil Block, FOA\". Om du stavat ditt namn\nfel, eller vill ndra ditt namn, svara nej p frgan nedan.\n\nObservera att all information n s lnge sparas s att vem som helst\nkan lsa den. Dock r lsenordet krypterat.\n\nOm du r osker p hur man anvnder LysKOM kan du hmta en manual via\nanonym ftp frn ftp.lysator.liu.se. Frga din systemadministratr om\ndu r osker.\n") (is-name-correct . "r namnet %#1s korrekt? ") (personal-password . "Ange ett personligt lsen: ") (repeat-password . "Repetera fr kontroll: ") (repeat-failure . "Du angav inte samma lsenord bgge gngerna.\n") (could-not-create-you . "Det gick inte att skapa personen.\n") (presentation-subject . "%#1s") (presentation-form . "Namn: \nAdress: \nStad: \nTelefon:\nEmail-adress:\n\nAnnat: ") (presentation-help . "Du skriver just nu din presentation.\n") (not-present-anywhere . "Ej nrvarande i ngot mte.") (in-secret-conference . "Hemligt mte (%#1d).") (start-new-session-same-server . "Du kr redan mot den servern. Vill du starta en ny session? ") (new-session-in-buffer . "\n\n---- Ny session startad %s ----\n\n") (shaky-tcp . "Nu nr jag inte servern. TCP/IP-frbindelsen r skakig%#1s") (retrying-tcp . "Jag frsker igen.") (protocol-error . "protokollfel: %s") (interrupted . "Kommandot avbrutet\n") (appreciation . "Du r mycket vacker och mycket klok. Mnga lskar dig bde till kropp\noch till sjl. Du kommer att versas med rikedom och f stor lycka i ditt\nliv. Var glad att just du r du. Det har du all anledning att vara.\nFantomen nskar dig en bra dag.\n\n") (abuse . "Du r mycket ful och mycket dum. Mnga hatar dig bde till kropp\noch till sjl. Du kommer att versas med sjukdomar och inte f ngon som\nhelst lycka i ditt liv. Du borde verkligen ta dig samman och gra ngot av\nditt liv ven om det inte r mycket att starta med.\nGuran vill helst stta en giftpil i dig.\n\n") (what-conf-to-delete . "Vilket mte/person vill du utplna: ") (what-conf-to-change . "Vilket mte vill du ndra: ") (confirm-delete-pers-or-conf . "Ta bort %#1s %#2s? ") (the-pers . "personen") (the-conf . "mtet") (deletion-not-confirmed . "Utplningen avbruten\n") (somebody-else-deleted-that-conf . "Ngon annan tog precis bort mtet.\n") (conf-is-deleted . "Ok, nu r %#1s utplnad.\n") (you-could-not-delete . "%#1M kunde inte utplnas av dig.\n") (what-text-to-delete . "Vilket inlgg skall tas bort?") (deleting-text . "Radering av text %#1:n...") (presentation-for-whom . "Vilket mte/person? ") (somebody-deleted-that-conf . "Ngon tog precis bort mtet.\n") (review-presentation-of . "terse presentation av %#1M.\n") (has-no-presentation . "%#1:M har ingen presentation.\n") (have-to-read . "Du mste lsa ett inlgg frst.\n") (review-text-no . "terse text nummer %#1n.\n") (no-comment-to . "Det finns inget kommenterat inlgg att titta p.\n") (who-letter-to . "Vem vill du skicka brev till? ") (has-motd . "%#1P har en lapp p drren:\n\n") (motd-persist-q . "Vill du fortfarande skicka brevet? ") (who-to-add . "Vem vill du addera? ") (where-to-add . "Vilket mte skall han/hon adderas till? ") (where-to-add-self . "Vilket mte vill du bli medlem i? ") (priority-q . "Prioritet p mtet? (0 (lg) - 255 (hg)) ") (done . "klart.\n") (nope . "Det gick inte.\n") (cant-find-supervisor . "Hittar inte organisatren fr %#1M.\n") (is-read-protected-contact-supervisor . "%#1M r slutet.\nSkicka ett brev till %#2P fr medlemsskap.\n") (conf-does-not-exist . "\nMtet finns inte.\n") (who-to-exclude . "Vem vill du utesluta? ") (where-from-exclude . "Vilket mte skall han/hon uteslutas ifrn? ") (leave-what-conf . "Vilket mte vill du g ur? ") (error-fetching-person . "Fel i personhmtningen\n") (error-fetching-conf . "Fel i mteshmtningen.\n") (name-of-conf . "Vad ska mtet heta? ") (anyone-member . "Fr vem som helst bli medlem? ") (secret-conf . "Hemligt mte? ") (comments-allowed . "Fr man skriva kommentarer? ") (anonymous-allowed . "Fr man skriva anonyma texter? ") (what-comment-no . "Kommentera text nummer: ") (confusion-what-to-comment . "Jag frstr inte vilken text du vill kommentera.\n") (confusion-what-to-footnote . "Jag frstr inte vilken text du vill skriva en fotnot till.\n") (what-private-no . "Personligt svar till text nummer: ") (confusion-who-to-reply-to . "Jag frstr inte vems inlgg du vill\n skriva ett privat svar till.\n") (confusion-what-to-answer-to . "Jag frstr inte vilken text du vill besvara.\n") (confusion-what-to-view . "Jag frstr inte vilken text du vill terse.\n") (quit-in-spite-of-unsent . "Vill du avsluta sessionen trots osnt meddelande? ") (really-quit . "Vill du verkligen avsluta sessionen? ") (session-ended . "\n*****************************\nLyskom-sessionen r avslutad.\n*****************************\n") (session-auto-ended . "\n===========================================================\nKopplar ned frn LysKOM eftersom LysKOM r fullt och\ndu har lst klart allting. Kom tillbaks senare.\n===========================================================\n\n") (what-to-change-pres-you . "Vilket mte/person vill du ndra presentationen fr (dig sjlv): ") (who-to-put-motd-for . "Vilket mte/person vill du stta lapp p drr fr (dig sjlv): ") (cant-get-conf-stat . "Kan ej hmta mtesstatus fr mtet.\n") (go-to-conf-p . "G till mte: ") (want-become-member . "Vill du bli medlem? ") (no-ok . "Nehej.\n") (who-to-remove-motd-for . "Vilket mte/person vill du ta bort lapp p drr fr (dig sjlv): ") (conf-all-read . "%#1M - inga olsta.\n") (no-in-conf . "Du r inte nrvarande i ngot mte.\n") (search-for-pers . "Ange skvillkor (RETURN fr alla personer) ") (search-for-conf . "Ange skvillkor (RETURN fr alla mten) ") (name-to-be-changed . "Ange det namn som skall ndras: ") (no-such-conf-or-pers . "Mtet eller personen finns ej.\n") (new-name . "Nytt namn: ") (who-to-change-supervisor-for . "Vem vill du ndra organisatr fr? ") (new-supervisor . "Ny organisatr: ") (text-to-mark . "Vilket inlgg vill du markera? ") (text-to-unmark . "Vilket inlgg vill du avmarkera? ") (what-mark . "Vilken markering vill du stta? ") (unmarking-textno . "Avmarkering av text %#1n...") (marking-textno . "Markering av text %#1n...") (new-passwd-again . "Mata in det nya lsenordet igen fr kontroll: ") (what-mark-to-view . "Vilken markering vill du terse? ") (whos-passwd . "Vem vill du ndra lsenord fr (dig sjlv)? ") (old-passwd . "Mata in ditt lsenord: ") (new-passwd . "Mata in det nya lsenordet: ") (changing-passwd . "ndrar lsenordet...") (retype-dont-match . "Lsenorden r inte samma. Gr om.\n") (palindrome . "(ett palindrom!) ") (lyskom-name . "Anvndare") (is-in-conf . "Nrvarande i mte") (from-machine . "Kr frn") (is-doing . "Gr") (lyskom-client . "Klient") (text-to-add-recipient . "Vilket inlgg vill du addera mottagare till:") (text-to-add-copy . "Vilket inlgg vill du addera en extra kopia till:") (text-to-delete-recipient . "Vilket inlgg vill du subtrahera mottagare frn:") (text-to-move . "Vilket inlgg vill du flytta: ") (text-to-add-comment-to . "Vilket inlgg vill du addera en kommentar till:") (text-to-delete-comment-from . "Vilket inlgg vill du subtrahera en kommentar frn:") (where-on-list-q . "Placering p listan? (0-%#1d) ") (member-in-conf . "Bli medlem i %#1M...") (add-member-in . "Addera %#1P som medlem i %#2M...") (unsubscribe-to . "Uttrda ur %#1M...") (exclude-from . "Utesluta %#1P frn %#2M...") (unsubscribe-failed . "\nDet gick inte. %#1P var kanske aldrig medlem i %#2M?\n") (You . "Du") (could-not-create-conf . "Mtet \"%#1s\" kunde ej skapas.\n") (created-conf-no-name . "Mte nummer %[%#3@%#1:m %#2:M%], skapat.\n") (cant-read-textno . "Du fr inte lsa text %#1:n") (not-supervisor-for . "Du r inte organisatr fr %#1M.\n") (go-to-conf . "G till %#1M.\n") (cant-go-to-his-mailbox . "Du fr inte g till %#1Ms brevlda.\n") (not-member-of-conf . "Du r inte medlem i %#1M.\n") (about-to-change-name-from . "%#1M\n") (change-name-done . "Klart. Nytt namn: %[%#2@%#1:M%].\n") (change-name-nope . "Det gick inte bra att ndra till %#1s.\nFelkod %#3d. %#2s.\n") (change-supervisor-from-to . "ndra organisatr fr %#1M till %#2P...") (change-supervisor-nope . "\nDet gick inte. Kanske du inte fr ndra organisatr fr %#1M?\n") (no-marked-texts . "Du har inga markerade inlgg.\n") (no-marked-texts-mark . "Du har inga markerade inlgg med markeringen %#1d.\n") (norhtward . "norrut") (soutward . "sderut") (permanent-sundown . "Solen kommer inte att g upp. Flytta %#1s!") (permanent-sunup . "Solen kommer inte att g ned. Fytta %#1s!") (sunup-soon . "Solen gr snart upp") (sundown-recently . "Solen gick nyligen ned") (after-sunset . "Solen har gtt ned") (before-sunup . "Solen har inte gtt upp nnu") (sun-is-up . "Solen r uppe") (weekdays . ["sndag" "mndag" "tisdag" "onsdag" "torsdag" "fredag" "lrdag" "sndag"]) (time-is . "Det r %#1s %#2s(enligt servern).") (time-format-exact . "%#7s %4#1d-%02#2d-%02#3d %02#4d:%02#5d:%02#6d") (xmaseve . "\nJulafton! Har du ppnat dina julklappar n?") (xmasday . "Juldagen.") (newyearday . "Gott nytt %#1d!") (newyearevelate . "Mindre n en timme kvar...") (newyeareve . "Gott nytt r!") (cgdag . "Konungens fdelsedag") (sixjune . "Sveriges nationaldag och svenska flaggans dag") (holdnose . "Hll fr nsan...") (lysbday . "\nP denna dag, r 1973, grundades Lysator, och det var en stor dag\ni svensk datorhistoria. Ls mer p http://www.lysator.liu.se/history/") (total-users . " Sammanlagt %#1d aktiva anvndare.\n") (who-to-add-q . "Vilket mte/person vill du addera som mottagare? ") (who-to-add-copy-q . "Vilket mte/person vill du addera som kopiemottagare? ") (who-to-sub-q . "Vilket mte/person vill du subtrahera som mottagare? ") (who-to-move-from-q . "Frn vilket mte vill du flytta texten: ") (who-to-move-to-q . "Vart vill du flytta texten: ") (adding-name-as-recipient . "Adderar %#1M som mottagare till text %#2n...") (adding-name-as-copy . "Adderar %#1M som kopiemottagare till text %#2n...") (remove-name-as-recipient . "Subtraherar %#1M som mottagare frn text %#2n...") (moving-name . "Flyttar text %#3n frn %#1M till %#2M...") (text-to-add-q . "Vilket inlgg vill du addera som kommentar? ") (text-to-remove-q . "Vilket inlgg vill du subtrahera som kommentar? ") (add-comment-to . "Adderar text %#1n som kommentar till text %#2n...") (sub-comment-to . "Subtraherar text %#1n som kommentar till text %#2n...") (comment-keep-recpt-p . "Ska %#1s vara mottagare? ") (comment-all-relevant-p . "Inlgget har flera mottagare. r alla relevanta? ") (please-edit-recipients . "ndra mottagarlistan och skicka in inlgget igen.") (checking-rcpt . "Kontrollerar mottagare...") (checking-rcpt-done . "Kontrollerar mottagare...klart") (add-recipient-p . "Addera %#1P som mottagare? ") (matching-regexp . "Mten/personer som matchar '%#1s'\n") (who-is-active-all . "Visar alla sessioner.\n") (who-is-active-last-minutes . "Visar alla sessioner som har varit aktiva de senaste %#1d minuterna.\n") (showing-invisibles . "Visar osynliga sessioner.\n") (null-who-info . "Det finns inga (aktiva) inloggade.\n") (your-memberships . "Ditt medlemskap i olika KOM-mten:\n") (memberships-header . "Senast inne Prio Olsta Mtesnamn\n") (memberships-line . "%16#1s %#2d %#3d %#4M\n") (conf-for-status . "Vilket mte vill du se statusen fr? ") (no-such-conf . "Mtet finns ej.\n") (status-record . "Status fr mte %#1M (%#2m) %#3s\n\n") (change-type-prompt . "ndra mtestyp fr mte %#1M (%#2m) %#3s\n") (Mailbox . "Brevlda") (Protected . "Skyddat") (no-comments . "original") (closed . "slutet") (created-by . "Skapat av person %25#1p %#3s(%#2P)\n") (created-at . "Skapad:%35#1s\n") (members . "Antal medlemmar: %25#1d\n") (garb-nice . "Livslngd p inlgg (dagar):%14#1d\n") (lowest-local-no . "Lgsta existerande lokala nummer: %8#1d\n") (highest-local-no . "Hgsta existerande lokala nummer: %8#1d\n") (last-text-time . "Tid fr senaste inlgg: %18#1s (str det i din cache)\n") (no-of-motd . "Lapp p drren i text nummer: %12#1n\n") (superconf-is-no-name . "Supermte: %25#1m %#3s(%#2M)\n") (permitted-submitters-no-name . "Tilltna frfattare:%22#1m %#3s(%#2M)\n") (supervisor-is-no-name . "Organisatr: %25#1p %#3s(%#2P)\n") (presentation-no . "Presentation: %25#1n\n") (conf-has-motd . "\n%#1M har en lapp p drren:\n") (Everybody . "Alla") (show-members-list-also-q . "Vill du se medlemslistan ocks? ") (show-membership-info-q . "Visa antalet olsta? ") (conf-has-these-members . "\n%#1M har fljande medlemmar:\n") (member-list-header . "Senast inne Osett Namn\n\n") (secret-membership . "*** Hemlig rad ***\n") (conf-membership-line . "%#1s%#2M\n") (pers-for-status . "Vem vill du se statusen fr? ") (no-such-pers . "Det finns ingen sdan person.\n") (pers-status-record . "Status fr person %#1P (%#2p)\n") (created-time . "Skapad:%34#1s\n\n") (created-confs . "Skapade mten:%27#1d\n") (created-persons . "Skapade personer:%24#1d\n") (created-texts . "Skapade texter:%26#1d\n") (created-lines . "Skapade rader:%27#1d\n") (created-chars . "Antal skapade tecken:%20#1d\n") (no-of-sessions . "Antal sessioner:%25#1d\n") (present-time-d-h-m-s . "Nrvarotid:%19#1d d %02#2d:%02#3d:%02#4d\n") (last-log-in . "Senast inne:%29#1s\n") (user-name . "Anvndare: %30#1s\n") (read-texts . "Lsta texter:%28#1d\n") (marked-texts . "Markerade texter:%24#1d\n") (time-for-last-letter . "Tid fr senaste brev:%20#1s (str det i din cache)\n") (superconf . "Supermte:%31#1m %#3s(%#2M)\n") (supervisor . "Organisatr:%29#1p %#3s(%#2P)\n") (member-of-confs . "Medlem i (antal mten):%18#1d\n") (presentation . "Presentation: %24#1n\n") (show-membership-list-also-q . "Vill du se vilka mten personen r medlem i ocks? ") (not-allowed-see-confs . "Du fr inte se vilka mten %#1P r medlem i.\n") (is-member-of . "\n%#1P r medlem i fljande mten:\n") (membership-list-header . "Senast inne Osett Namn\n\n") (pers-membership-line . "%#1s%#2s%#3M\n") (is-supervisor-mark . "O ") (who-to-send-message-to . "Vem vill du skicka meddelandet till? (%s) ") (send-empty-message-p . "Meddelandet r tomt. Vill du nd skicka det? ") (his-total-unread . "\n%#1M har totalt %#2d olsta.\n") (message-prompt . "Meddelande: ") (message-sent-to-user . "================================================================\nDitt meddelande till %#2M:\n\n%#1t\n----------------------------------------------------------------\n") (message-sent-to-all . "================================================================\nDitt allmnna meddelande ld:\n\n%#1t\n----------------------------------------------------------------\n") (message-all-info . "Snd allmnt meddelande\n") (message-recipient-info . "Snd meddelande till %#1M\n") (message-nope . "Du kunde inte skicka meddelandet. Mottagaren var kanske inte inloggad.\nMeddelandet du frskte snda till %#1M var:\n%#2t\n") (only-last . "Endast lsa senaste (0 - %#1d) i %#2s? ") (only-error . "Ngot gick galet. Sorry.\n") (you-have-unreads . "Du har %#1d olsta inlgg i %#2M\n") (you-have-an-unread . "Du har 1 olst inlgg i %#1M\n") (you-have-unreads-special . "Du har %#1d okommenterade inlgg i %#2M\n") (you-have-an-unread-special . "Du har 1 okommenterat inlgg i %#1M\n") (you-have-read-everything . "Du har sett alla nyheter\n") (total-unreads . "\nDu har %#1d olsta inlgg.\n") (total-unread . "\nDu har 1 olst inlgg.\n") (waiting-for-anything . "Du vntar p ett inlgg i vilket mte som helst.\n") (waiting-higher-than . "Du vntar p ett inlgg i ett mte med hgre prioritet n %#1d.\n") (have-to-be-in-conf-with-unread . "Du mste g till ett icketomt mte frst.\n") (Texts . "Inlgg") (Date . "Datum") (Lines . "Rad.") (Author . "Frfattare") (Subject . "rende") (could-not-read . "Du fick inte lsa denna text (%#1n).\n") (multiple-choice . "Flera alternativ finns.") (does-not-exist . "Detta kommando finns inte.") (summary-line . "%=-8#1n%#2s%4#3d %[%#4@%#5:P%] %[%#6@%#7r%]\n") (what-mark-to-list . "Vilken markering vill du lista? ") (you-have-marks . "Du har %#1d inlgg markerade markerade med %#2d.\n") (you-have-marks-all . "Du har %#1d markerade inlgg.\n") (buggreport-compilestart . "Skapar buggrapporten...") (buggreport-compileend . "Skapar buggrapporten...klart") (buggreport-description . "Detta gjorde jag:\n(Fyll i dina kommentarer nedan)\n================\n\n\n================\nBland informationen nedan finns ocks en lista p de 100 sist tryckta\ntangenterna i din emacs. Om du nyligen loggat in kan den innehlla ditt\nlyskomlsenord. Titta igenom den och ndra det som r ditt lsenord\ntill * * * eller m i t t l s e n eller ngot annat lmpligt.\n\nNr du skrivit klart skall du skicka in din buggrapport till LysKOMs\nelispklientutvecklare. Det sker antingen:\n* med email till bug-lyskom@lysator.liu.se\n* med vanligt brev till:\n Lysator\n c/o ISY\n Linkping University\n S-581 83 Linkoping\n SWEDEN.\n\nMrk kuvertet \"LysKOM buggrapport fr elispklienten\".\n\n") (buggreport-internals . "LysKOMs interna information:\n\n") (buggreport-version . "lyskom-version:") (buggreport-emacs-version . "emacs-version:") (buggreport-system-id . "system-id:") (buggreport-ctl-arrow-doc . "ctrl-doc:") (buggreport-unparsed . "\nlyskom-unparsed-buffer:") (buggreport-command-keys . "Nyss tryckta tangenter:") (buggreport-backtrace . "\n*Backtrace*:\n%#1s\n") (buggreport-communications . "\nlyskom-debug-communications-to-buffer-buffer:") (buggreport-all-kom-variables . "\n\nAndra variabler:\n***** *********") (buggreport-instead-of-byte-comp . "byte-code(\"byte-string\"") (buggreport-subject . "Bugg-rapport elisp-klienten version %#1s") (not-logged-in . "Du r inte inloggad. ") (name-is-not-in-conf . "%#1s r inte nrvarande i ngot mte.\n") (name-is-in-conf . "%#1s r nrvarande i\n%#2s\n") (connected-during . "Uppkopplingstid: %#1d sekunder.\n") (conf-to-set-permitted-submitters-q . "Vilket mte vill du stta tilltna frfattare fr? ") (conf-to-set-super-conf-q . "Vilket mte vill du stta supermte fr? ") (new-super-conf-q . "Vilket mte vill du ha som supermte? ") (new-permitted-submitters-q . "Mte med tilltna frfattare till %#1s? (alla) ") (super-conf-for-is . "ndra supermte fr %#1M till %#2M...") (permitted-submitters-removed-for-conf . "Tillt alla frfattare i mte %#1M...") (submitters-conf-for-is . "ndra tilltna frfattare fr mte %#1M till\nmedlemmarna i %#2M...") (conf-to-set-garb-nice-q . "Vilket mte vill du stta livslngd fr? ") (new-garb-nice-q . "Vilket vrde vill du stta livslngden till? ") (garb-nice-for-is . "ndra livslngden fr %#1M till %#2d...") (really-shutdown . "r du sker p att du vill stnga av servern? ") (closing-server . "Stnga av servern...") (really-sync . "r du sker p att du vill spara databasen? ") (syncing-server . "Spara databasen...") (administrator . "administratr") (no-longer-administrator . "en normal anvndare igen") (you-are-now . "Ok, du kr nu som %#1s.\n") (setting-motd . "Stter loginmeddelandet till text %#1n.\n") (set-motd-success . "Du har satt ett nytt loginmeddelande.\n") (set-motd-failed . "Det gick inte. Du var kanske inte administratr.\n") (removing-motd . "Tar bort loginmeddelandet.\n") (removed-motd . "Du har tagit bort loginmeddelandet.\n") (who-to-throw-out . "Vilken session vill du kasta ut? ") (throwing-out . "Kastar nu ut session %#1d... ") (postpone-prompt . "Hur lite vill du lsa nu? ") (set-session-priority . "Stt lsniv: ") (review-how-many . "terse hur mnga: ") (latest-n . "senaste %#1d") (first-n . "frsta %#1d") (info-by-whom . "%#1s av vem: ") (info-to-conf . "%#1s till mte: ") (all-confs . "alla mten") (info-by-to . "%#1s av %#2P till %#3M framt.") (no-get-conf . "Du fr inte hmta mtet.\n") (no-get-pers . "Du fr inte hmta personen.\n") (no-review-info . "Ej tilltet terse %#1s\n") (review-info . "terse %#1s") (review-info-by-to . "terse %#1s av %#2P till %#3M framt.\n") (you-review . "Du terser nu %#1s.\n") (read-text-first . "Du mste lsa en text frst.\n") (cannot-read-last-text . "Du kan inte lsa den senast lsta texten.\n") (review-n-texts . "terse %#1d inlgg.\n") (review-marked . "terse %#1d markerade.\n") (review-text-no . "terse text nummer %#1n") (review-one-comment . "terse en kommentar till inlgg %#1n.\n") (review-many-comments . "terse %#2d kommentarer till inlgg %#1n.\n") (read-normally-read . "Hur mnga vill du se igen?") (review-conf-gone . "Mtet finns inte.\n") (review-pers-gone . "Personen finns inte.\n") (review-cant-read-conf . "Du kan inte terse inlgg till ett slutet mte du inte r med i.\n") (review-cant-read-letterbox . "Du kan inte terse ingg till ngon annans brevlda.\n") (review-cant-read-empty . "Mtet r tomt.\n") (cant-review-everything . "Du kan inte terse alla texter i LysKOM.\n") (press-C-c-C-c . "Tryck C-c C-c fr att skicka in texten.") (recipient . "Mottagare:") (recipient-prefix . "[Mm]") (carbon-copy . "Extra kopia:") (carbon-copy-prefix . "[Ee]") (text-mass . "%#4s%#1s\n%#2s\n%#3s") (comment-to-by . "%#1s till text %#2d%#3s.\n") (already-sent . "Du har redan skickat denna text en gng. Snd nd? ") (subject . "rende: ") (subject-prefix . "[\\{\\[]") (enter-subject-idi . "Skriv ett rende.") (which-text-include . "Vilken text skall vi inkludera? ") (added-recipient . "Mottagare som skall adderas: ") (added-carbon-copy . "Extra kopia till mte: ") (conf-has-motd-no . "Mtet har en lapp p drren. (%#1d)\n\n%#2s") (still-want-to-add . "Vill du fortfarande addera mtet? ") (could-not-create-text . "\nTexten kunde ej skapas. Felet: %#2s.\n") (no-get-text . "Du fick inte hmta texten.") (unknown-header . "Oknd information p raden") (line . " /1 rad/ ") (lines . " /%#1d rader/ ") (marked-by-you . "Markerad av dig.\n") (marked-by-you-and-one . "Markerad av dig och ngon annan.\n") (marked-by-you-and-several . "Markerad av dig och %#1d andra.\n") (marked-by-one . "Markerad av 1 person.\n") (marked-by-several . "Markerad av %#1d personer.\n") (time-yyyy-mm-dd-hh-mm . "%4#1d-%02#2d-%02#3d %02#4d:%02#5d") (time-y-m-d-h-m . "%4#1d-%02#2d-%02#3d %02#4d:%02#5d ") (today-time-format-string . "%#6s %02#4d:%02#5d") (yesterday-time-format-string . "%#6s %02#4d:%02#5d") (today . "idag") (yesterday . "igr") (no-such-text-no . "Det finns inget sdant inlgg. (%#1:n)\n") (head-Subject . "rende: ") (Recipient . "Mottagare") (Extra-recipient . "Extra kopia") (send-at . " Snt: %#1s\n") (sent-by . " Snt av %#1P\n") (recieved-at . " Mottaget: %#1s\n") (comment-to-text . "Kommentar till text %#1n") (footnote-to-text . "Fotnot till text %#1n") (comment-in-text . "Kommentar i text %#1n") (footnote-in-text . "Fotnot i text %#1n") (comment-to-text-by . "Kommentar till text %#1n av %#2P") (footnote-to-text-by . "Fotnot till text %#1n av %#2P") (comment-in-text-by . "Kommentar i text %#1n av %#2P") (footnote-in-text-by . "Fotnot i text %#1n av %#2P") (written-by . " av %#1P\n") (name-has-changed-to-name . "%#1:P har nu bytt namn till %#2:P") (name-has-changed-to-name-r . "%[%#3@%#1:P%] har nu bytt namn till %[%#3@%#2:P%]\n") (you-changed-name-to . "Nu har du bytt namn till %[%#2@%#1:P%].\n") (database-sync . "Databasen synkas.") (lyskom-is-full . "===========================================================\nMeddelande frn LysKOM-systemet: Ngon frskte koppla upp,\nmen misslyckades eftersom alla tillgngliga frbindelser r\nupptagna. Logga ut och kom tillbaks senare om du vntar nu.\n===========================================================\n") (has-entered . "Nu har %#1:P gtt in i LysKOM.") (has-entered-r . "%#2@Nu har %#1P gtt in i LysKOM.\n") (has-left . "Nu har %#1:P gtt ur LysKOM.") (has-left-r . "%#2@Nu har %#1P gtt ur LysKOM.\n") (unknown . "oknd") (secret-person . "Hemlig person") (message-broadcast . "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nAllmnt meddelande frn %#1P (%#3s):\n\n%#2t\n----------------------------------------------------------------\n") (message-from . "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nPersonligt meddelande frn %#1P (%#3s):\n\n%#2t\n----------------------------------------------------------------\n") (message-from-to . "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nGruppmeddelande till %#3M\nfrn %#2P (%#4s):\n\n%#1t\n----------------------------------------------------------------\n") (text-is-created . "Text %#1n r skapad!") (mode-line-waiting . ": vntar") (mode-line-working . ": arbetar") (mode-line-saving . ": sparar") (mode-line-down . ": nerkopplad") (person-or-conf-no-regexp . "\\`[ ]*[mpMP]\\w*[ ]+\\([0-9]+\\)\\'") (session-no-regexp . "\\`[ ]*[sS]\\w*[ ]+\\([0-9]+\\)\\'") (cant-move-nothing-nowhere . "Kan inte flytta ingenting ngonstans.") (priority-prompt . "Ny prioritet: ") (beginning-of-list . "Brjan av listan") (end-of-list . "Slutet av listan") (reprioritize-from . "Prioritera om frn: ") (reprioritize-to . "Prioritera om till: ") (no-selection . "Ingen markerad") (selection . "%d markerade") (cannot-get-membership . "Kan ej hmta medlemsskap fr dig.") (cannot-get-pers-stat . "Kan ej hmta personstatus fr dig.") (prioritize-help . "u,n Flytta mte, SPC markera, p prioritera markerade, q avsluta, C-h m hjlp") (your-priorities . " Prioritet Mtesnamn\n----------------------------------------------------------------------------\n") (your-membship . "Ditt medlemsskap i olika KOM-mten:\n Prio Mtesnr Mtesnamn\n") (prio-row . " %5#1d%5#2m %#3M\n") (too-high-goto-2 . "Du str fr hgt upp. G ner till rad 2.") (too-low-go-up . "Du kan inte pusha sista raden. G upp en rad.") (all-confs-popped . "Alla mten r poppade.") (prio-died . "Flyttningen misslyckades. Sorry. Dda bufferten.") (new-priority . "Ny prioritet? (0 (lg) - 255 (hg)) ") (new-prio . "%6#1d") (saving-settings . "Sparar instllningarna...") (saving-settings-done . "Sparar instllningarna...klart") (hang-on . "Vnta ett tag...\n") (no-changes . "Ingenting behvde sparas eftersom inga variabler hade ndrats.\n") (could-not-save-options . "Kunde ej spara instllningarna.\n") (could-not-create-area . "Kunde ej skapa texten.\n") (could-not-set-user-area . "Kunde ej stlla om user-arean. Servern sger felmeddelande: %#1d\n") (you-dont-exist . "Du finns inte.\n") (error-in-options . "Det fanns ett fel i en av dina variabler (%#1s)\nDet stod \"%#2s\" i user-arean. Den stts till nil istllet.\nSkicka en bugrapport.\n") (mode-line-unread . " Olsta ") (mode-line-letters . "brev ") (error-code . "Felkod %#2d: %#1s.\n") (error-in-kom-do-when-done . "Variabeln kom-do-when-done har ett felaktigt v.\nDu br stta den till ett bttre vrde.\n") (extended-command . "LysKOM: ") (wait-for-server . "LysKOM vntar p svar frn servern. Vnta tills du fr en prompt.\n") (review-text-q . "terse text nummer: ") (review-text-no . "terse text nummer %#1d.\n") (completely-read-conf . "Du har sett alla texter i detta mte.\n") (not-in-any-conf . "Du lser inte ngot mte just nu.\n") (all-conf-unread-r . "Du har lst ut alla mten.\n") (all-conf-unread-s . "Du har lst ut alla mten. ") (one-unread . "%#1M - 1 olst\n") (several-unread . "%#1M - %#2d olsta\n") (enter-conf . "%#1M\n") (save-on-file-q . "Spara inlgg p fil: (%#1s) ") (wait-for-prompt . "Vnta p prompten!") (prompt-modifier-ansaphone . "[%s]") (prompt-modifier-messages . "%s (%d meddelanden)") (go-to-pri-conf-prompt . "G till nsta prioriterade mte") (read-pri-text-conf . "Lsa nsta prioriterade text") (review-next-text-prompt . "terse nsta text") (review-next-comment-prompt . "terse nsta kommentar") (review-next-marked-prompt . "terse nsta markerade") (read-next-letter-prompt . "Lsa nsta brev") (read-next-footnote-prompt . "Lsa nsta fotnot") (read-next-comment-prompt . "Lsa nsta kommentar") (read-next-text-prompt . "Lsa nsta text") (go-to-conf-of-marked-prompt . "terse (nsta) markerade") (go-to-next-conf-prompt . "G till nsta mte") (go-to-your-mailbox-prompt . "G till din brevlda") (the-command . "Kommandot:%#1s") (error-in-login-hook . "Det fanns ett fel i din kom-login-hook: %#1s\n") (give-a-number . "Mata in ett tal: ") (yes-regexp . "\\`[jJ][aA]\\'") (no-regexp . "\\`[nN][eE][jJ]\\'") (yes-or-no-nag . "Svara bara ja eller nej.") (yes-or-no . "(ja eller nej) ") (y-or-n-instring . "jJnN") (j-or-n-nag . "Svara bara j eller n. ") (j-or-n . "(j eller n) ") (y-instring . "jJ") (person-does-not-exist . "Person %#1d (finns inte).") (conference-does-not-exist . "Mte %#1d (finns inte).") (person-is-anonymous . "Anonym person") (process-signal . "Signal frn processen.") (closed-connection . "\n**************************************************\nLyskom-sessionen onormalt stngd.\nFelmeddelande: %#1s**************************************************") (dead-session . "LysKOM-sessionen r inte aktiv.") (error-not-found . "Fel nummer %#1d. Ingen klartextfrklaring finns.") (illegal-command . "Otilltet kommando.\n") (no-such-text . "Det finns inget sdant inlgg.\n") (no-such-text-m . "Det finns inget sdant inlgg.") (everybody . "alla") (everything . "allt") (anybody . "vem som helst") (forward . "framt") (backward . "bakt") (wait . "Vnta ett tag...\n") (comment . "Kommentar") (comment-prefix . "[Kk]") (footnote . "Fotnot") (footnote-prefix . "[Ff]") (by . " av %#1s") (text-created . "Text nummer %#1n r skapad.\n") (resolve-session . "Ange vilken session: ") (starting-program . "Startar %#1s...") (super-jump . "Filtrerar rende \"%#1r\" i mte \"%#2M\"\n") (no-recipient . "Inlgget har ingen mottagare.\n") (filtered . "[Filtrerad]") (filter-error-specification . "Fel i filterspecifikationen") (filter-error-bad-not . "Fel i filterspecifikation efter 'not'") (filter-error-unknown-key . "Filternyckeln '%S' r oknd.") (filter-error-key-arg . "Fel filterdata (%S %S)") (filter-tree . "Hoppar ver text %#1n \"%#2r\" av %#3P och dess kommentarstrd.\n") (filter-text . "Hoppar ver text %#1n \"%#2r\" av %#3P.\n") (filter-permanent . "Permanent? ") (filter-action . "Hur vill du filtrera? ") (filter-in-conf . "I vilket mte (Alla)? ") (filter-subject . "Filtrera vilket rende? ") (filter-which-text . "Filtrera inlgg som innehller: ") (filter-author . "Filtrera vilken frfattare? ") (permanent . "(permanent)") (temporary . "(tillfllig)") (filter-edit-buffer-name . "*LysKOM Filter Edit*") (filter-edit-empty-list . "Listan r tom") (filter-edit-start-of-list . "Listans brjan") (filter-edit-end-of-list . "Listans slut") (filter-edit-filter-how . "Hur vill du filtrera? ") (filter-edit-filter-what . "Vad vill du filtrera? ") (filter-edit-bad-argument . "Felaktig inmatning: %s") (filter-edit-outside-entry . "Kan inte utfra kommandot utanfr ett filter") (filter-edit-outside-list . "Kan inte utfra operationen utanfr listan") (filter-edit-end-of-pattern . "Filtrets slut") (filter-edit-save-p . "Spara frndringar? ") (filter-edit-remove-empty . "Tomma filter gr att alla texter filtreras. Vill du ta bort dessa? ") (filter-edit-restart-p . "Du har gjort ndringar. Vill du verkligen brja om? ") (filter-edit-help . "p,n Upp/ned, i/M-i Ny rad/filter, d/M-d Radera rad/filter, C-h m Mer hjlp") (filter-edit-header . "ndra filter fr \"%s\"\n") (filter-edit-saving . "Sparar ndringarna...") (filter-edit-saving-done . "Sparar ndringarna...klart") (filter-edit-saving-error . "Kunde inte spara ndringarna!") (filter-edit-insert-pred . "%#1s (=,!=): ") (filter-edit-insert-arg . "%#1s %#2s (vad): ") (no-filters . "Inga filter har definierats.\n") (view-filters-header . "\nAktiva filter:\n\n") (view-filters-footer . "") (ansaphone-new-message . "Nytt automatsvar: ") (ansaphone-message . "Svarsmeddelande:\n----------------------------------------------------------------------\n%#1t\n----------------------------------------------------------------------\n") (ansaphone-state . "Automatsvar r nu %#1s.") (ansaphone-state-r . "Automatsvar r nu %#1s.\n") (ansaphone-messages-gone . "Sparade meddelanden raderade.") (ansaphone-no-messages . "Inga meddelanden.\n") (ansaphone-message-list-start . "Sparade meddelanden:\n\n") (ansaphone-message-list-end . "\n\n") (ansaphone-message-header . "Automatiskt svar (satt %#1s):\n") (remote-erase-messages . "Fjrrstyrning (%#1P %#2s): Sparade meddelanden raderade\n") (remote-set-message . "Fjrrstyrning (%#1P %#2s): Svarsmeddelande:\n----------------------------------------------------------------------\n%#3t\n----------------------------------------------------------------------\n") (remote-set-ansaphone . "Fjrrstyrning (%#1P %#2s): Automatsvar r nu %#3s\n") (remote-list-messages . "Fjrrstyrning (%#1P %#2s): Meddelanden listade\n") (remote-quit . "Fjrrstyrning(%#1P %#2s): Avsluta\n") (illegal-remote . "Otillten fjrrstyrning:\nTid: %#1s\nFrn: %#2P <%#2p>\nTill: %#3P <%#3p>\nText: \n%#4t") (illegal-remote-reply . "Fjrrstyrning inte accepterad: %#1s") (remote-not-in-list . "Otillten person") (remote-bad-command . "Felaktigt kommando") (remote-unknown-error . "Oknt fel") (remote-control-who . "Kontrollera vilken session? ") (remote-control-autoreply . "Automatsvar p eller av? ") (state-on . "pslaget") (state-off . "avslaget") (text-popup-title . "Inlgg %#1s") (conf-popup-title . "Mte %#1s") (pers-popup-title . "Person %#1s") (url-popup-title . "URL %#1s") (generic-popup-title . "%#1s") (who-i-am-not-present . "%#1P r inte nrvarande i ngot mte\n") (who-i-am-present . "%#1P r nrvarande i %#2M\n") (who-i-am-client . "Programmet heter lyskom.el, version %#1s.\n") (who-i-am-server . "Detta r %#1s, version %#2s.\n") (who-i-am-emacs . "Det krs under %#1s.\n") (no-such-session-r . "Det finns ingen sdan session. Personen kanske inte r inloggad.\n") (person-not-logged-in-r . "%#1P r inte inloggad.\n") (session-status . "Session %#1d r %#2P <%#2p>\n%#5s %#7s %#4M\nKr %#6D frn %#3s\n") (session-status-9 . "Session %#1d r %#2P <%#2p>\n%#5s %#7s %#4M\nKr %#6D frn %#3s\nUppkopplad sedan %#8s%#9s") (session-status-inactive . "\nHar inte varit aktiv p %#1s\n") (one-day . "en dag") (one-hour . "en timme") (one-minute . "en minut") (days . "dagar") (hours . "timmar") (minutes . "minuter") (and . "och") (session-is-active . " och r aktiv.\n") (session-is-invisible . "Denna session r osynlig.\n") (status-for-session . "Sessionsstatus fr vilken person? ") (unknown-doing-what . "Existerar") (doing-where-conn . "i") (doing-nowhere-conn . "men r") (no-such-command . "Det finns inget sdant kommando.\n") (command-completions . "Du kan mena ngon av fljande:\n %#1s\n"))) (#$ . 56126)) #@65 A list of LysKOM-commands that the extended parser understands. (defconst lyskom-commands (quote ((describe-mode "Hjlp") (kom-slow-mode "Lngsamma kommandon") (kom-quick-mode "Snabba kommandon") (kom-send-message "Snda meddelande") (kom-create-conf "Skapa mte") (kom-delete-conf "Utplna") (kom-delete-text "Radera inlgg") (kom-display-time "Se tiden") (kom-go-to-conf "G till mte") (kom-go-to-next-conf "G till nsta mte") (kom-jump "Hoppa ver alla kommentarer") (kom-list-conferences "Lista mten") (kom-list-persons "Lista personer") (kom-list-news "Lista nyheter") (kom-list-re "Lista (med) regexpar") (kom-membership "Lista medlemsskap") (kom-postpone "Uppskjuta lsning") (kom-set-session-priority "Stt lsniv") (kom-prioritize "Prioritera mten") (kom-status-person "Status (fr) person") (kom-status-conf "Status (fr) mte") (kom-add-self "Bli medlem i mte") (kom-list-summary "Lista renden") (kom-sub-self "Uttrda ur mte") (kom-quit "Sluta") (kom-recover "terstarta kom") (kom-start-anew "Brja med nytt namn") (kom-view "terse inlgg") (kom-find-root-review "terse trd") (kom-review-comments "terse alla kommentarer") (kom-review-tree "terse alla kommentarer rekursivt") (kom-review-clear "terse hoppa") (kom-review-last-normally-read "terse igen") (kom-review-noconversion "terse omodifierat") (kom-review-next "terse nsta") (kom-find-root "terse urinlgget") (kom-review-by-to "terse senaste") (kom-review-first "terse frsta") (kom-review-all "terse alla") (kom-view-commented-text "terse det kommenterade") (kom-view-previous-commented-text "terse det fregende kommenterade") (kom-review-stack "terse lista") (kom-review-presentation "terse presentation") (kom-review-backward "(terse) Baklnges") (kom-view-next-text "Lsa nsta inlgg") (kom-who-is-on "Vilka r inloggade") (kom-who-am-i "Var (r) jag") (kom-list-clients "Lista klienter") (kom-busy-wait "Vnta p ett inlgg") (kom-write-comment "Kommentera inlgget") (kom-comment-previous "Kommentera fregende inlgg") (kom-write-footnote "Fotnot till inlgg") (kom-private-answer "Personligt svar") (kom-private-answer-previous "Personligt svar p fregende inlgg") (kom-set-unread "Endast lsa senaste") (kom-write-text "Skriva ett inlgg") (kom-send-letter "Skicka brev") (kom-change-name "ndra namn") (kom-change-password "ndra lsenord") (kom-change-supervisor "ndra organisatr") (kom-change-presentation "ndra presentation") (kom-get-appreciation "F uppmuntran") (kom-get-abuse "F skll") (kom-mark-text "Markera (inlgg)") (kom-unmark-text "Avmarkera (inlgg)") (kom-review-marked-texts "terse markerade") (kom-review-all-marked-texts "terse alla markerade") (kom-add-recipient "Addera mottagare") (kom-add-copy "Addera extra kopiemottagare") (kom-sub-recipient "Subtrahera mottagare") (kom-move-text "Flytta inlgg") (kom-add-comment "Addera kommentar") (kom-sub-comment "Subtrahera kommentar") (kom-add-member "Addera medlem") (kom-sub-member "Uteslut medlem") (kom-change-conf-motd "Stt lapp p drren") (kom-set-garb-nice "ndra livslngd") (kom-set-super-conf "ndra supermte") (kom-set-permitted-submitters "ndra tilltna frfattare") (kom-unset-conf-motd "Ta bort lapp p drren") (kom-save-text "Spara text (p fil)") (kom-edit-options "ndra variabler") (kom-save-options "Spara variabler") (kom-shutdown-server "Stng av servern") (kom-sync-database "Spara databasen") (kom-enable-adm-caps "verg till administratrsmod") (kom-disable-adm-caps "verg till normalmod") (kom-set-motd "Stt loginmeddelande") (kom-remove-motd "Ta bort loginmeddelande") (kom-force-logout "Kasta ut en session") (kom-list-files "Lista filarean") (kom-put-file "Ladda upp fil") (kom-get-file "Ladda ner fil") (kom-filter-author "Filtrera frfattare") (kom-filter-subject "Filtrera rende") (kom-filter-text "Filtrera innehll") (kom-super-jump "Superhoppa") (kom-filter-edit "ndra filter") (kom-list-filters "Lista filter") (kom-show-user-area "Visa user-arean") (kom-change-conf-type "ndra mtestyp") (kom-change-auto-reply "ndra svarsmeddelande") (kom-toggle-auto-reply "Automatsvar") (kom-list-messages "Lista meddelanden") (kom-erase-messages "Radera meddelanden") (kom-remote-autoreply "Fjrrkontrollera automatsvar") (kom-remote-set-message "Fjrrkontrollera ndra svarsmeddelande") (kom-remote-list-messages "Fjrrkontrollera lista meddelanden") (kom-remote-erase-messages "Fjrrkontrollera radera meddelanden") (kom-remote-quit "Fjrrkontrollera avsluta") (kom-status-session "Status (fr) session"))) (#$ . 91802)) #@42 The swascii-versions of lyskom-commands. (defvar lyskom-swascii-commands nil (#$ . 96355)) #@47 A completion table for on and off selections. (defvar lyskom-onoff-table (quote (("p" . on) ("av" . off))) (#$ . 96452)) #@47 A list of legal filter comparison predicates. (defvar lyskom-filter-predicate-list (quote (("=") ("!=" . t))) (#$ . 96580)) #@69 A list of legal filter conditions and their textual representation. (defvar lyskom-filter-what (quote ((author . "Frfattare") (author-no . "Frfattare (nummer)") (author-re . "Frfattare (regexp)") (subject . "rende") (subject-re . "rende (regexp)") (recipient . "Mottagare") (recipient-no . "Mottagare (nummer)") (recipient-re . "Mottagare (regexp)") (text . "Innehll") (text . "Innehll (regexp)"))) (#$ . 96710)) #@65 A list of legal filter actions an their textual representation. (defvar lyskom-filter-actions (quote ((skip-text . "Hoppa ver") (dontshow . "Visa inte") (skip-tree . "Hoppa ver kommentarer"))) (#$ . 97136)) #@48 The swascii-versions of lyskom-filter-actions. (defvar lyskom-swascii-filter-actions nil (#$ . 97351)) #@43 The swascii version of lyskom-filter-what (defvar lyskom-swascii-filter-what nil (#$ . 97460)) #@76 Regexp matching beginning of a text in lyskom buffer. Cf. paragraph-start. (defvar lyskom-text-start "[0-9]+ +\\(199[0-9]-[0-1][0-9]-[0-3][0-9]\\|idag\\|igr\\) +[0-2][0-9]:[0-5][0-9] +/[0-9]+ rad\\(er\\)?/ " (#$ . 97561)) (byte-code "\nB =  !!!!!!! # # # #\" # # # # # # # # # # # # # # # # # # # # # # # # # # # # # @# AB# CD# EF# GH# IJ# KL# MN# OP# QR# ST# UV# WX# YZ# [\\# ]^# _`# a# b# cd# ef# gh# ij# kl# mn# op# qr# st# uv# wv# xy# z{# |}# ~# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #" [(lyskom-previous-prefix) lyskom-missing-bindings current-load-list lyskom-mode-map make-keymap suppress-keymap define-prefix-command lyskom-review-prefix lyskom-change-prefix lyskom-next-prefix lyskom-list-prefix lyskom-S-prefix lyskom-filter-get-prefix define-key "f" "n" "l" "s" string-match "^19" emacs-version [228] [196] [229] [197] [102 228] kom-filter-subject [102 196] [108 228] kom-list-summary [108 196] [mouse-2] kom-mouse-2 [down-mouse-3] kom-mouse-3 [mouse-3] kom-mouse-null "*" kom-key-mouse-2 " " kom-next-link "" kom-previous-link "{" "[" "}" "]" "{?" lyskom-help "}?" "f?" "n?" "l?" "s?" "e" kom-set-unread "a" kom-extended-command " " kom-next-command "\n" kom-page-next-command " " kom-line-next-command "j" "?" describe-mode "b" kom-send-letter "g" kom-go-to-conf "i" kom-write-text "k" kom-write-comment "K" kom-comment-previous "F" kom-write-footnote "p" kom-private-answer "P" kom-private-answer-previous "h" kom-jump "H" kom-super-jump "lm" kom-list-conferences "ln" kom-list-news "lp" kom-list-persons "lr" kom-list-re "ls" kom-membership "l{" "l[" "lf" kom-list-filters "m" kom-add-self "M" kom-mark-text "A" kom-unmark-text "ni" kom-view-next-new-text "nm" kom-go-to-next-conf "nl" kom-next-kom "no" kom-next-unread-kom "fl" kom-previous-kom "S" kom-quit "q" "z" kom-bury "R" kom-recover "t" kom-display-time "fu" kom-get-appreciation "fs" kom-get-abuse "ft" kom-move-text "f{" "f[" "ff" kom-filter-author "fi" kom-filter-text "v" kom-who-is-on "J" kom-who-am-i "V" kom-busy-wait "{p" kom-change-presentation "{f" kom-filter-edit "{m" kom-change-auto-reply "} " kom-view "}0" kom-initial-digit-view "}1" "}2" "}3" "}4" "}5" "}6" "}7" "}8" "}9" "}k" kom-view-commented-text "}K" kom-view-previous-commented-text "}a?" "}ak" kom-review-comments "}ar" kom-review-tree "}h" kom-review-clear "}i" kom-review-last-normally-read "}n" kom-review-next "}o" kom-review-noconversion "}r" kom-find-root "}u" "}s" kom-review-by-to "}A" kom-review-all "}f" kom-review-first "}l" kom-review-stack "}p" kom-review-presentation "}t" kom-find-root-review "}m" kom-review-marked-texts "}am" kom-review-all-marked-texts "}a " "B" kom-review-backward "sm" kom-status-conf "sp" kom-status-person "ss" kom-status-session "" backward-text "" forward-text "st" kom-save-text "" scroll-down] 4) #@31 Keymap for LysKOM filter edit (defvar lyskom-filter-edit-map nil (#$ . 101195)) (byte-code " !#############################" [lyskom-filter-edit-map make-keymap suppress-keymap define-key "p" lyskom-filter-edit-prev-pattern "P" lyskom-filter-edit-prev-entry "n" lyskom-filter-edit-next-pattern "N" lyskom-filter-edit-next-entry "" "" "" "" "" "" "d" lyskom-filter-edit-delete-pattern "" lyskom-filter-edit-delete-entry "D" "" "i" lyskom-filter-edit-insert-pattern "I" "" lyskom-filter-edit-insert-entry "<" lyskom-filter-edit-beginning-of-list ">" lyskom-filter-edit-end-of-list "" "" "q" lyskom-filter-edit-quit "x" lyskom-filter-edit-expunge "s" lyskom-filter-edit-save "g" lyskom-filter-edit-revert "t" lyskom-filter-edit-toggle-permanent "a" lyskom-filter-edit-toggle-action "?" lyskom-filter-edit-brief-help "h"] 4) #@40 Keymap used in lyskom-prioritize-mode. (defvar lyskom-prioritize-mode-map nil (#$ . 102189)) (byte-code " !##############################" [lyskom-prioritize-mode-map make-keymap suppress-keymap define-key [mouse-2] kom-mouse-2 [down-mouse-3] kom-mouse-3 [mouse-3] kom-mouse-null "*" kom-key-mouse-2 "?" kom-prioritize-help " " kom-prioritize-select "" kom-prioritize-yank " " " " kom-prioritize-next-line "\n" [down] "" "" kom-prioritize-previous-line "" kom-prioritize-deselect-all [up] "" "p" [M-up] kom-prioritize-move-up "" "u" [M-down] kom-prioritize-move-down "" "d" "" kom-prioritize-beginning "" kom-prioritize-end "r" kom-prioritize-reprioritize "g" kom-prioritize-goto-priority kom-prioritize-set-priority "s" kom-prioritize-save "q" kom-prioritize-quit] 4) #@60 Number of lines in the header of the prioritization buffer (defvar lyskom-prioritize-header-lines 2 (#$ . 103134)) #@40 Header for the reprioritization buffer (defvar lyskom-prioritize-header " Prio Mte\n-----------------------------------------------------------------------------\n" (#$ . 103255)) #@99 *Default message to send when the ansaphone is on. This variable is stored in the LysKOM server. (defvar kom-ansaphone-default-reply "Jag lser inte LysKOM just nu. Skicka grna ett brev i stllet." (#$ . -103444)) #@1288 This variable defines valid button types in LysKOM. Each element is a list consisting of (TYPE LABEL DEFAULT ACTIONS HINTS). TYPE is the button type the entry defines LABEL is a textual representation for the button type, used in menu titles. If it is a symbol, that symbol will be looked up using lyskom-get-string. DEFAULT is the default action to take on a click. It must be a function. ACTIONS are other possible actions. The format of this entry is described below. HINTS is a list of hints to override the default action. This is described below. The ACTIONS entry is used to construct a pop-up menu. It is a list consisting of lists with the format (STRING . FUNCTION). STRING is the menu label and FUNCTION is the function to call when the menu item is selected. The HINTS entry is used to generate hints that the default action should be overridden. It is a list containing elements (COMMAND . HINT) where COMMAND is as interactive LysKOM command and HINT is a function to call. When a button is generated while the command COMMAND is being executed, HINT is used as a hint for a new default action. The user has the option to ignore or used the hint. Also see the function "kom-add-button-action". This variable is not saved in the LysKOM server. (defvar lyskom-button-actions (quote ((text text-text lyskom-button-view-text (("terse texten" . lyskom-button-view-text) ("terse trd" . lyskom-button-review-tree) ("terse urinlgget" . lyskom-button-find-root) ("Kommentera texten" . lyskom-button-comment-text) ("Personligt svar" . lyskom-button-private-comment-text) ("Markera texten" . lyskom-button-mark-text) ("Avmarkera texten" . lyskom-button-unmark-text)) nil) (conf conf-text lyskom-button-view-conf-presentation (("Visa presentation" . lyskom-button-view-conf-presentation) ("Visa mtesstatus" . lyskom-button-view-conf-status) ("G till mtet" . lyskom-button-goto-conf) ("Skicka gruppmeddelande" . lyskom-button-send-message) ("Bli medlem i mtet" . lyskom-button-add-self) ("Uttrd ur mtet" . lyskom-button-sub-self)) ((kom-list-news . lyskom-button-goto-conf))) (pers pers-text lyskom-button-view-pers-presentation (("Visa presentation" . lyskom-button-view-pers-presentation) ("Visa personstatus" . lyskom-button-view-pers-status) ("Skicka brev" . lyskom-button-mail) ("Snd meddelande" . lyskom-button-send-message)) nil) (url url-text lyskom-button-open-url (("ppna" . lyskom-button-open-url) ("Kopiera" . lyskom-button-copy-url)) nil))) (#$ . 103668)) #@166 These texts are used as arguments to lyskom-tell-server. The variable kom-mercial defaults to kom-tell-wait. Users are encouraged to change this dictionary for fun. (defvar kom-tell-phrases (quote ((kom-tell-silence "") (kom-tell-send "Frsker lgga in en text.") (kom-tell-login "Loggar in.") (kom-tell-read "Lser.") (kom-tell-1st-pres "Skriver den frsta presentationen.") (kom-tell-write-comment "Skriver en kommentar.") (kom-tell-write-footnote "Skriver en fotnot.") (kom-tell-write-letter "Skriver ett brev.") (kom-tell-write-reply "Skriver ett privat svar.") (kom-tell-write-text "Skriver inlgg.") (kom-tell-conf-pres "Skriver presentation fr ett nytt mte.") (kom-tell-recover "terstartar kom. Suck.") (kom-tell-wait "Vntar.") (kom-tell-regret "ngrar sig och slnger inlgget.") (kom-tell-review "terser.") (kom-tell-change-name "ndrar sitt namn till ngot annat.") (kom-tell-change-supervisor "ndrar organisatr fr ngot.") (kom-tell-next-lyskom "Hoppar till ett annat LysKOM."))) (#$ . 106188)) #@234 *When the user has seen all texts and has reached the view-time prompt, this string is used as the argument to lyskom-tell-server. Users are encouraged to use their best sense of humor. This variable is stored in the LysKOM server. (defvar kom-mercial (byte-code "\n\"A@" [assoc kom-tell-wait kom-tell-phrases] 3) (#$ . -107210)) #@56 All the errors reported from the server in plain text. (defconst lyskom-error-texts (quote ((0 . "Inget fel har intrffat") (2 . "nnu ej implementerat") (3 . "Inte lngre implementerat") (4 . "Felaktigt lsenord") (5 . "Strngen fr lng") (6 . "Du r inte inloggad") (7 . "Ingen fr logga in i LysKOM just nu") (8 . "Du frskte anvnda mte nummer 0") (9 . "Odefinierat eller hemligt mte") (10 . "Odefinierad eller hemlig person") (11 . "Ingen skriv- eller lsrttighet") (12 . "Otillten operation") (13 . "Du r inte medlem i mtet") (14 . "Inget sdant textnummer") (15 . "Du kan inte anvnda globalt textnummer 0") (16 . "Inget sdant lokalt textnummer") (17 . "Du kan inte anvnda lokalt textnummer 0") (18 . "Namnet fr kort eller fr lngt eller innehller felaktiga tecken") (19 . "Index utanfr grnserna") (20 . "Mtet existerar redan") (21 . "Personen existerar redan") (22 . "Hemligt, men ej lsskyddat") (23 . "Du fr inte ndra person/mtesflaggan") (24 . "Fel i databasen. Attans otur.") (25 . "Otilltet misc-flt. (Internt fel)") (26 . "Otillten infotyp. (Bug i klienten)") (27 . "Redan mottagare till denna text") (28 . "Redan kommentar till denna text") (29 . "Redan fotnot till denna text") (30 . "Inte mottagare till denna text") (31 . "Inte kommentar till denna text") (32 . "Inte fotnot till denna text") (33 . "Fr mnga mottagare") (34 . "Fr mnga kommentarer") (35 . "Fr mnga fotnoter") (36 . "Fr mnga markeringar") (37 . "Du r inte frfattare till texten") (38 . "Du kan inte koppla upp dig till servern") (39 . "Minnet slut") (40 . "Servern har ballat ur") (41 . "Klienten tror att servern sger att den inte frstr klienten") (42 . "Ingen sdan session finns") (43 . "Ogiltigt reguljrt uttryck") (44 . "Texten r inte markerad") (45 . "Tillflligt fel. Frsk senare") (46 . "Serven vgrade ta emot en array") (47 . "Mottagaren tar inte emot anonyma texter"))) (#$ . 107550)) #@53 Displays the last read text without any conversion. (defalias 'kom-review-noconversion #[(&optional text-no) "! !) " [lyskom-start-of-command kom-review-noconversion t kom-emacs-knows-iso-8859-1 lyskom-view-text text-no lyskom-end-of-command] 2 (#$ . 109474) (list (cond ((null current-prefix-arg) lyskom-current-text) ((integerp current-prefix-arg) current-prefix-arg) ((and (listp current-prefix-arg) (integerp (car current-prefix-arg)) (null (cdr current-prefix-arg))) (car current-prefix-arg)) (t (signal (quote lyskom-internal-error) (quote (kom-review-noconversion))))))]) (defalias 'kom-put-file #[(filename) " !P\"" [copy-file filename "/ftp@ftp.lysator.liu.se:/open/" file-name-nondirectory] 5 nil "fVilken fil vill du ladda upp? "]) (defalias 'kom-get-file #[(filename) "\nP\n\"" [copy-file "/ftp@ftp.lysator.liu.se:/open/" filename] 3 nil "sVilken fil vill du ladda ner? "]) (defalias 'kom-list-files #[nil "!" [list-directory "/ftp@ftp.lysator.liu.se:/open"] 2 nil nil]) (byte-code "P‡" [lyskom-clientversion-long "$Id: komtypes.el,v 44.0 1996/08/30 14:46:47 davidk Exp $\n" nil] 2) #@44 Create a conf-no-list from all parameters. (defalias 'lyskom-create-conf-no-list #[(conf-nos) "\n!B" [CONF-NO-LIST vector conf-nos] 3 (#$ . 110599)]) (put (quote lyskom-create-conf-no-list) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get conf-nos from conf-no-list. (defalias 'conf-no-list->conf-nos #[(conf-no-list) "A" [conf-no-list 0] 2 (#$ . 110857)]) (put (quote conf-no-list->conf-nos) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set conf-nos in conf-no-list to NEWVAL. (defalias 'set-conf-no-list->conf-nos #[(conf-no-list newval) "A\nI" [conf-no-list 0 newval] 3 (#$ . 111084)]) (put (quote set-conf-no-list->conf-nos) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Return t if OBJECT is a conf-no-list. (defalias 'lyskom-conf-no-list-p #[(object) "=" [object CONF-NO-LIST] 2 (#$ . 111343)]) (put (quote lyskom-conf-no-list-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@114 Returns non-nil if CONF-NO is a member of CONF-NO-LIST. CONF-NO is a conf-no and CONF-NO-LIST is a conf-no-list. (defalias 'lyskom-conf-no-list-member #[(conf-no conf-no-list) "A)GU?BA)G?\n\fW? \nU9ȉ \nT," [conf-no-list 0 r list len nil yes conf-no t] 4 (#$ . 111574)]) (put (quote lyskom-conf-no-list-member) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Create an uconf-stat from all parameters. (defalias 'lyskom-create-uconf-stat #[(conf-no name conf-type highest-local-no nice) "\n \f %B" [UCONF-STAT vector conf-no name conf-type highest-local-no nice] 7 (#$ . 111993)]) (put (quote lyskom-create-uconf-stat) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Get the conf-no from an uconf-stat (defalias 'uconf-stat->conf-no #[(conf) "A" [conf 0] 2 (#$ . 112322)]) (put (quote uconf-stat->conf-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get the name of a conference. (defalias 'uconf-stat->name #[(conf) "A" [conf 1] 2 (#$ . 112530)]) (put (quote uconf-stat->name) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get the type of a conference. (defalias 'uconf-stat->conf-type #[(conf) "A" [conf 2] 2 (#$ . 112727)]) (put (quote uconf-stat->conf-type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@46 Get the highest local number in a conference (defalias 'uconf-stat->highest-local-no #[(conf) "A" [conf 3] 2 (#$ . 112934)]) (put (quote uconf-stat->highest-local-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Get garb-nice from a conference. (defalias 'uconf-stat->garb-nice #[(conf) "A" [conf 4] 2 (#$ . 113170)]) (put (quote uconf-stat->garb-nice) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Return t if OBJECT is a conf-stat. (defalias 'lyskom-uconf-stat-p #[(object) "=" [object UCONF-STAT] 2 (#$ . 113380)]) (put (quote lyskom-uconf-stat-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Create a conf-stat from all parameters. (defalias 'lyskom-create-conf-stat #[(conf-no name conf-type creation-time last-written creator presentation supervisor permitted-submitters super-conf msg-of-day garb-nice no-of-members first-local-no no-of-texts) "\n \f  \n \f &B" [CONF-STAT vector conf-no name conf-type creation-time last-written creator presentation supervisor permitted-submitters super-conf msg-of-day garb-nice no-of-members first-local-no no-of-texts] 17 (#$ . 113601)]) (put (quote lyskom-create-conf-stat) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get conf-no from conf-stat. (defalias 'conf-stat->conf-no #[(conf-stat) "A" [conf-stat 0] 2 (#$ . 114211)]) (put (quote conf-stat->conf-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@26 Get name from conf-stat. (defalias 'conf-stat->name #[(conf-stat) "A" [conf-stat 1] 2 (#$ . 114420)]) (put (quote conf-stat->name) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get conf-type from conf-stat. (defalias 'conf-stat->conf-type #[(conf-stat) "A" [conf-stat 2] 2 (#$ . 114620)]) (put (quote conf-stat->conf-type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Get creation-time from conf-stat. (defalias 'conf-stat->creation-time #[(conf-stat) "A" [conf-stat 3] 2 (#$ . 114835)]) (put (quote conf-stat->creation-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Get last-written from conf-stat. (defalias 'conf-stat->last-written #[(conf-stat) "A" [conf-stat 4] 2 (#$ . 115062)]) (put (quote conf-stat->last-written) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get creator from conf-stat. (defalias 'conf-stat->creator #[(conf-stat) "A" [conf-stat 5] 2 (#$ . 115286)]) (put (quote conf-stat->creator) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Get presentation from conf-stat. (defalias 'conf-stat->presentation #[(conf-stat) "A" [conf-stat 6] 2 (#$ . 115495)]) (put (quote conf-stat->presentation) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Get supervisor from conf-stat. (defalias 'conf-stat->supervisor #[(conf-stat) "A" [conf-stat 7] 2 (#$ . 115719)]) (put (quote conf-stat->supervisor) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@42 Get permitted-submitters from conf-stat. (defalias 'conf-stat->permitted-submitters #[(conf-stat) "A" [conf-stat 8] 2 (#$ . 115937)]) (put (quote conf-stat->permitted-submitters) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Get super-conf from conf-stat. (defalias 'conf-stat->super-conf #[(conf-stat) "A" [conf-stat 9] 2 (#$ . 116185)]) (put (quote conf-stat->super-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Get msg-of-day from conf-stat. (defalias 'conf-stat->msg-of-day #[(conf-stat) "A" [conf-stat 10] 2 (#$ . 116403)]) (put (quote conf-stat->msg-of-day) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get garb-nice from conf-stat. (defalias 'conf-stat->garb-nice #[(conf-stat) "A" [conf-stat 11] 2 (#$ . 116622)]) (put (quote conf-stat->garb-nice) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Get no-of-members from conf-stat. (defalias 'conf-stat->no-of-members #[(conf-stat) "A" [conf-stat 12] 2 (#$ . 116838)]) (put (quote conf-stat->no-of-members) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Get first-local-no from conf-stat. (defalias 'conf-stat->first-local-no #[(conf-stat) "A" [conf-stat 13] 2 (#$ . 117066)]) (put (quote conf-stat->first-local-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get no-of-texts from conf-stat. (defalias 'conf-stat->no-of-texts #[(conf-stat) "A" [conf-stat 14] 2 (#$ . 117297)]) (put (quote conf-stat->no-of-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set conf-no in conf-stat to NEWVAL. (defalias 'set-conf-stat->conf-no #[(conf-stat newval) "A\nI" [conf-stat 0 newval] 3 (#$ . 117519)]) (put (quote set-conf-stat->conf-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Set name in conf-stat to NEWVAL. (defalias 'set-conf-stat->name #[(conf-stat newval) "A\nI" [conf-stat 1 newval] 3 (#$ . 117760)]) (put (quote set-conf-stat->name) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set conf-type in conf-stat to NEWVAL. (defalias 'set-conf-stat->conf-type #[(conf-stat newval) "A\nI" [conf-stat 2 newval] 3 (#$ . 117992)]) (put (quote set-conf-stat->conf-type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Set creation-time in conf-stat to NEWVAL. (defalias 'set-conf-stat->creation-time #[(conf-stat newval) "A\nI" [conf-stat 3 newval] 3 (#$ . 118239)]) (put (quote set-conf-stat->creation-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@42 Set last-written in conf-stat to NEWVAL. (defalias 'set-conf-stat->last-written #[(conf-stat newval) "A\nI" [conf-stat 4 newval] 3 (#$ . 118498)]) (put (quote set-conf-stat->last-written) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set creator in conf-stat to NEWVAL. (defalias 'set-conf-stat->creator #[(conf-stat newval) "A\nI" [conf-stat 5 newval] 3 (#$ . 118754)]) (put (quote set-conf-stat->creator) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@42 Set presentation in conf-stat to NEWVAL. (defalias 'set-conf-stat->presentation #[(conf-stat newval) "A\nI" [conf-stat 6 newval] 3 (#$ . 118995)]) (put (quote set-conf-stat->presentation) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Set supervisor in conf-stat to NEWVAL. (defalias 'set-conf-stat->supervisor #[(conf-stat newval) "A\nI" [conf-stat 7 newval] 3 (#$ . 119251)]) (put (quote set-conf-stat->supervisor) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@50 Set permitted-submitters in conf-stat to NEWVAL. (defalias 'set-conf-stat->permitted-submitters #[(conf-stat newval) "A\nI" [conf-stat 8 newval] 3 (#$ . 119501)]) (put (quote set-conf-stat->permitted-submitters) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Set super-conf in conf-stat to NEWVAL. (defalias 'set-conf-stat->super-conf #[(conf-stat newval) "A\nI" [conf-stat 9 newval] 3 (#$ . 119781)]) (put (quote set-conf-stat->super-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Set msg-of-day in conf-stat to NEWVAL. (defalias 'set-conf-stat->msg-of-day #[(conf-stat newval) "A\nI" [conf-stat 10 newval] 3 (#$ . 120031)]) (put (quote set-conf-stat->msg-of-day) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set garb-nice in conf-stat to NEWVAL. (defalias 'set-conf-stat->garb-nice #[(conf-stat newval) "A\nI" [conf-stat 11 newval] 3 (#$ . 120282)]) (put (quote set-conf-stat->garb-nice) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Set no-of-members in conf-stat to NEWVAL. (defalias 'set-conf-stat->no-of-members #[(conf-stat newval) "A\nI" [conf-stat 12 newval] 3 (#$ . 120530)]) (put (quote set-conf-stat->no-of-members) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@44 Set first-local-no in conf-stat to NEWVAL. (defalias 'set-conf-stat->first-local-no #[(conf-stat newval) "A\nI" [conf-stat 13 newval] 3 (#$ . 120790)]) (put (quote set-conf-stat->first-local-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set no-of-texts in conf-stat to NEWVAL. (defalias 'set-conf-stat->no-of-texts #[(conf-stat newval) "A\nI" [conf-stat 14 newval] 3 (#$ . 121053)]) (put (quote set-conf-stat->no-of-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Return t if OBJECT is a conf-stat. (defalias 'lyskom-conf-stat-p #[(object) "=" [object CONF-STAT] 2 (#$ . 121307)]) (put (quote lyskom-conf-stat-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@163 Create a conf-list from CONF-NOS and CONF-TYPES. CONF-NOS is a vector of numbers. CONF-TYPES is a vector of conf-type. Both vectors should be of the same length. (defalias 'lyskom-create-conf-list #[(conf-nos conf-types) " \nBB" [CONF-LIST conf-nos conf-types] 3 (#$ . 121526)]) (put (quote lyskom-create-conf-list) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Get the conf-nos part of CONF-LIST (defalias 'conf-list->conf-nos #[(conf-list) "A@" [conf-list] 1 (#$ . 121909)]) (put (quote conf-list->conf-nos) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Get the conf-types part of CONF-LIST (defalias 'conf-list->conf-types #[(conf-list) "AA" [conf-list] 1 (#$ . 122124)]) (put (quote conf-list->conf-types) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Return true if OBJECT is a conf-list (defalias 'conf-list-p #[(object) "=" [object CONF-LIST] 2 (#$ . 122345)]) (put (quote conf-list-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Return the length of CONF-LIST (defalias 'lyskom-conf-list-length #[(conf-list) "A@)G" [conf-list] 2 (#$ . 122551)]) (put (quote lyskom-conf-list-length) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Create a pers-stat from all parameters. (defalias 'lyskom-create-pers-stat #[(pers-no username privileges flags last-login user-area total-time-present sessions created-lines created-bytes read-texts no-of-text-fetches created-persons created-confs first-created-text no-of-created-texts no-of-marks no-of-confs) "\n \f  \n \f &B" [PERS-STAT vector pers-no username privileges flags last-login user-area total-time-present sessions created-lines created-bytes read-texts no-of-text-fetches created-persons created-confs first-created-text no-of-created-texts no-of-marks no-of-confs] 20 (#$ . 122774)]) (put (quote lyskom-create-pers-stat) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get pers-no from pers-stat. (defalias 'pers-stat->pers-no #[(pers-stat) "A" [pers-stat 0] 2 (#$ . 123506)]) (put (quote pers-stat->pers-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get username from pers-stat. (defalias 'pers-stat->username #[(pers-stat) "A" [pers-stat 1] 2 (#$ . 123715)]) (put (quote pers-stat->username) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Get privileges from pers-stat. (defalias 'pers-stat->privileges #[(pers-stat) "A" [pers-stat 2] 2 (#$ . 123927)]) (put (quote pers-stat->privileges) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@27 Get flags from pers-stat. (defalias 'pers-stat->flags #[(pers-stat) "A" [pers-stat 3] 2 (#$ . 124145)]) (put (quote pers-stat->flags) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Get last-login from pers-stat. (defalias 'pers-stat->last-login #[(pers-stat) "A" [pers-stat 4] 2 (#$ . 124348)]) (put (quote pers-stat->last-login) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get user-area from pers-stat. (defalias 'pers-stat->user-area #[(pers-stat) "A" [pers-stat 5] 2 (#$ . 124566)]) (put (quote pers-stat->user-area) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Get total-time-present from pers-stat. (defalias 'pers-stat->total-time-present #[(pers-stat) "A" [pers-stat 6] 2 (#$ . 124781)]) (put (quote pers-stat->total-time-present) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get sessions from pers-stat. (defalias 'pers-stat->sessions #[(pers-stat) "A" [pers-stat 7] 2 (#$ . 125023)]) (put (quote pers-stat->sessions) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Get created-lines from pers-stat. (defalias 'pers-stat->created-lines #[(pers-stat) "A" [pers-stat 8] 2 (#$ . 125235)]) (put (quote pers-stat->created-lines) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Get created-bytes from pers-stat. (defalias 'pers-stat->created-bytes #[(pers-stat) "A" [pers-stat 9] 2 (#$ . 125462)]) (put (quote pers-stat->created-bytes) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Get read-texts from pers-stat. (defalias 'pers-stat->read-texts #[(pers-stat) "A" [pers-stat 10] 2 (#$ . 125689)]) (put (quote pers-stat->read-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Get no-of-text-fetches from pers-stat. (defalias 'pers-stat->no-of-text-fetches #[(pers-stat) "A" [pers-stat 11] 2 (#$ . 125908)]) (put (quote pers-stat->no-of-text-fetches) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Get created-persons from pers-stat. (defalias 'pers-stat->created-persons #[(pers-stat) "A" [pers-stat 12] 2 (#$ . 126151)]) (put (quote pers-stat->created-persons) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Get created-confs from pers-stat. (defalias 'pers-stat->created-confs #[(pers-stat) "A" [pers-stat 13] 2 (#$ . 126385)]) (put (quote pers-stat->created-confs) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Get first-created-text from pers-stat. (defalias 'pers-stat->first-created-text #[(pers-stat) "A" [pers-stat 14] 2 (#$ . 126613)]) (put (quote pers-stat->first-created-text) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Get no-of-created-texts from pers-stat. (defalias 'pers-stat->no-of-created-texts #[(pers-stat) "A" [pers-stat 15] 2 (#$ . 126856)]) (put (quote pers-stat->no-of-created-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get no-of-marks from pers-stat. (defalias 'pers-stat->no-of-marks #[(pers-stat) "A" [pers-stat 16] 2 (#$ . 127102)]) (put (quote pers-stat->no-of-marks) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get no-of-confs from pers-stat. (defalias 'pers-stat->no-of-confs #[(pers-stat) "A" [pers-stat 17] 2 (#$ . 127324)]) (put (quote pers-stat->no-of-confs) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set pers-no in pers-stat to NEWVAL. (defalias 'set-pers-stat->pers-no #[(pers-stat newval) "A\nI" [pers-stat 0 newval] 3 (#$ . 127546)]) (put (quote set-pers-stat->pers-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set username in pers-stat to NEWVAL. (defalias 'set-pers-stat->username #[(pers-stat newval) "A\nI" [pers-stat 1 newval] 3 (#$ . 127787)]) (put (quote set-pers-stat->username) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Set privileges in pers-stat to NEWVAL. (defalias 'set-pers-stat->privileges #[(pers-stat newval) "A\nI" [pers-stat 2 newval] 3 (#$ . 128031)]) (put (quote set-pers-stat->privileges) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Set flags in pers-stat to NEWVAL. (defalias 'set-pers-stat->flags #[(pers-stat newval) "A\nI" [pers-stat 3 newval] 3 (#$ . 128281)]) (put (quote set-pers-stat->flags) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Set last-login in pers-stat to NEWVAL. (defalias 'set-pers-stat->last-login #[(pers-stat newval) "A\nI" [pers-stat 4 newval] 3 (#$ . 128516)]) (put (quote set-pers-stat->last-login) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set user-area in pers-stat to NEWVAL. (defalias 'set-pers-stat->user-area #[(pers-stat newval) "A\nI" [pers-stat 5 newval] 3 (#$ . 128766)]) (put (quote set-pers-stat->user-area) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@48 Set total-time-present in pers-stat to NEWVAL. (defalias 'set-pers-stat->total-time-present #[(pers-stat newval) "A\nI" [pers-stat 6 newval] 3 (#$ . 129013)]) (put (quote set-pers-stat->total-time-present) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set sessions in pers-stat to NEWVAL. (defalias 'set-pers-stat->sessions #[(pers-stat newval) "A\nI" [pers-stat 7 newval] 3 (#$ . 129287)]) (put (quote set-pers-stat->sessions) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Set created-lines in pers-stat to NEWVAL. (defalias 'set-pers-stat->created-lines #[(pers-stat newval) "A\nI" [pers-stat 8 newval] 3 (#$ . 129531)]) (put (quote set-pers-stat->created-lines) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Set created-bytes in pers-stat to NEWVAL. (defalias 'set-pers-stat->created-bytes #[(pers-stat newval) "A\nI" [pers-stat 9 newval] 3 (#$ . 129790)]) (put (quote set-pers-stat->created-bytes) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Set read-texts in pers-stat to NEWVAL. (defalias 'set-pers-stat->read-texts #[(pers-stat newval) "A\nI" [pers-stat 10 newval] 3 (#$ . 130049)]) (put (quote set-pers-stat->read-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@48 Set no-of-text-fetches in pers-stat to NEWVAL. (defalias 'set-pers-stat->no-of-text-fetches #[(pers-stat newval) "A\nI" [pers-stat 11 newval] 3 (#$ . 130300)]) (put (quote set-pers-stat->no-of-text-fetches) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Set created-persons in pers-stat to NEWVAL. (defalias 'set-pers-stat->created-persons #[(pers-stat newval) "A\nI" [pers-stat 12 newval] 3 (#$ . 130575)]) (put (quote set-pers-stat->created-persons) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Set created-confs in pers-stat to NEWVAL. (defalias 'set-pers-stat->created-confs #[(pers-stat newval) "A\nI" [pers-stat 13 newval] 3 (#$ . 130841)]) (put (quote set-pers-stat->created-confs) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@48 Set first-created-text in pers-stat to NEWVAL. (defalias 'set-pers-stat->first-created-text #[(pers-stat newval) "A\nI" [pers-stat 14 newval] 3 (#$ . 131101)]) (put (quote set-pers-stat->first-created-text) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@49 Set no-of-created-texts in pers-stat to NEWVAL. (defalias 'set-pers-stat->no-of-created-texts #[(pers-stat newval) "A\nI" [pers-stat 15 newval] 3 (#$ . 131376)]) (put (quote set-pers-stat->no-of-created-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set no-of-marks in pers-stat to NEWVAL. (defalias 'set-pers-stat->no-of-marks #[(pers-stat newval) "A\nI" [pers-stat 16 newval] 3 (#$ . 131654)]) (put (quote set-pers-stat->no-of-marks) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set no-of-confs in pers-stat to NEWVAL. (defalias 'set-pers-stat->no-of-confs #[(pers-stat newval) "A\nI" [pers-stat 17 newval] 3 (#$ . 131908)]) (put (quote set-pers-stat->no-of-confs) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Return t if OBJECT is a pers-stat. (defalias 'lyskom-pers-stat-p #[(object) "=" [object PERS-STAT] 2 (#$ . 132162)]) (put (quote lyskom-pers-stat-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Create a text-stat from all parameters. (defalias 'lyskom-create-text-stat #[(text-no creation-time author no-of-lines no-of-chars no-of-marks misc-info-list) "\n \f &B" [TEXT-STAT vector text-no creation-time author no-of-lines no-of-chars no-of-marks misc-info-list] 9 (#$ . 132380)]) (put (quote lyskom-create-text-stat) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get text-no from text-stat. (defalias 'text-stat->text-no #[(text-stat) "A" [text-stat 0] 2 (#$ . 132779)]) (put (quote text-stat->text-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Get creation-time from text-stat. (defalias 'text-stat->creation-time #[(text-stat) "A" [text-stat 1] 2 (#$ . 132988)]) (put (quote text-stat->creation-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@28 Get author from text-stat. (defalias 'text-stat->author #[(text-stat) "A" [text-stat 2] 2 (#$ . 133215)]) (put (quote text-stat->author) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get no-of-lines from text-stat. (defalias 'text-stat->no-of-lines #[(text-stat) "A" [text-stat 3] 2 (#$ . 133421)]) (put (quote text-stat->no-of-lines) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get no-of-chars from text-stat. (defalias 'text-stat->no-of-chars #[(text-stat) "A" [text-stat 4] 2 (#$ . 133642)]) (put (quote text-stat->no-of-chars) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get no-of-marks from text-stat. (defalias 'text-stat->no-of-marks #[(text-stat) "A" [text-stat 5] 2 (#$ . 133863)]) (put (quote text-stat->no-of-marks) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Get misc-info-list from text-stat. (defalias 'text-stat->misc-info-list #[(text-stat) "A" [text-stat 6] 2 (#$ . 134084)]) (put (quote text-stat->misc-info-list) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set text-no in text-stat to NEWVAL. (defalias 'set-text-stat->text-no #[(text-stat newval) "A\nI" [text-stat 0 newval] 3 (#$ . 134314)]) (put (quote set-text-stat->text-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Set creation-time in text-stat to NEWVAL. (defalias 'set-text-stat->creation-time #[(text-stat newval) "A\nI" [text-stat 1 newval] 3 (#$ . 134555)]) (put (quote set-text-stat->creation-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Set author in text-stat to NEWVAL. (defalias 'set-text-stat->author #[(text-stat newval) "A\nI" [text-stat 2 newval] 3 (#$ . 134814)]) (put (quote set-text-stat->author) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set no-of-lines in text-stat to NEWVAL. (defalias 'set-text-stat->no-of-lines #[(text-stat newval) "A\nI" [text-stat 3 newval] 3 (#$ . 135052)]) (put (quote set-text-stat->no-of-lines) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set no-of-chars in text-stat to NEWVAL. (defalias 'set-text-stat->no-of-chars #[(text-stat newval) "A\nI" [text-stat 4 newval] 3 (#$ . 135305)]) (put (quote set-text-stat->no-of-chars) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set no-of-marks in text-stat to NEWVAL. (defalias 'set-text-stat->no-of-marks #[(text-stat newval) "A\nI" [text-stat 5 newval] 3 (#$ . 135558)]) (put (quote set-text-stat->no-of-marks) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@44 Set misc-info-list in text-stat to NEWVAL. (defalias 'set-text-stat->misc-info-list #[(text-stat newval) "A\nI" [text-stat 6 newval] 3 (#$ . 135811)]) (put (quote set-text-stat->misc-info-list) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Return t if OBJECT is a text-stat. (defalias 'lyskom-text-stat-p #[(object) "=" [object TEXT-STAT] 2 (#$ . 136073)]) (put (quote lyskom-text-stat-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Create a text from all parameters. (defalias 'lyskom-create-text #[(text-no text-mass) "\n \"B" [TEXT vector text-no text-mass] 4 (#$ . 136291)]) (put (quote lyskom-create-text) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@24 Get text-no from text. (defalias 'text->text-no #[(text) "A" [text 0] 2 (#$ . 136537)]) (put (quote text->text-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@26 Get text-mass from text. (defalias 'text->text-mass #[(text) "A" [text 1] 2 (#$ . 136721)]) (put (quote text->text-mass) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Set text-no in text to NEWVAL. (defalias 'set-text->text-no #[(text newval) "A\nI" [text 0 newval] 3 (#$ . 136911)]) (put (quote set-text->text-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Set text-mass in text to NEWVAL. (defalias 'set-text->text-mass #[(text newval) "A\nI" [text 1 newval] 3 (#$ . 137127)]) (put (quote set-text->text-mass) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Return t if OBJECT is a text. (defalias 'lyskom-text-p #[(object) "=" [object TEXT] 2 (#$ . 137349)]) (put (quote lyskom-text-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@110 Create a misc-info from all parameters. TYPE is one of RECPT, CC-RECPT COMM-TO COMM-IN FOOTN-TO or FOOTN-IN. (defalias 'lyskom-create-misc-info #[(type recipient-no local-no rec-time comm-to comm-in footn-to footn-in sender sent-at) "\n \f  \n &\nB" [MISC-INFO vector type recipient-no local-no rec-time comm-to comm-in footn-to footn-in sender sent-at] 12 (#$ . 137548)]) (put (quote lyskom-create-misc-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@28 Create an empty misc-info. (defalias 'lyskom-create-empty-misc-info #[nil " \n\n  \f \n &\n.\nB" [nil sent-at sender footn-in footn-to comm-in comm-to rec-time local-no recipient-no type MISC-INFO vector] 12 (#$ . 138035)]) (put (quote lyskom-create-empty-misc-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@26 Get type from misc-info. (defalias 'misc-info->type #[(misc-info) "A" [misc-info 0] 2 (#$ . 138401)]) (put (quote misc-info->type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Get recipient-no from misc-info. (defalias 'misc-info->recipient-no #[(misc-info) "A" [misc-info 1] 2 (#$ . 138601)]) (put (quote misc-info->recipient-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get local-no from misc-info. (defalias 'misc-info->local-no #[(misc-info) "A" [misc-info 2] 2 (#$ . 138825)]) (put (quote misc-info->local-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get rec-time from misc-info. (defalias 'misc-info->rec-time #[(misc-info) "A" [misc-info 3] 2 (#$ . 139037)]) (put (quote misc-info->rec-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get comm-to from misc-info. (defalias 'misc-info->comm-to #[(misc-info) "A" [misc-info 4] 2 (#$ . 139249)]) (put (quote misc-info->comm-to) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get comm-in from misc-info. (defalias 'misc-info->comm-in #[(misc-info) "A" [misc-info 5] 2 (#$ . 139458)]) (put (quote misc-info->comm-in) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get footn-to from misc-info. (defalias 'misc-info->footn-to #[(misc-info) "A" [misc-info 6] 2 (#$ . 139667)]) (put (quote misc-info->footn-to) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get footn-in from misc-info. (defalias 'misc-info->footn-in #[(misc-info) "A" [misc-info 7] 2 (#$ . 139879)]) (put (quote misc-info->footn-in) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@28 Get sender from misc-info. (defalias 'misc-info->sender #[(misc-info) "A" [misc-info 8] 2 (#$ . 140091)]) (put (quote misc-info->sender) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get sent-at from misc-info. (defalias 'misc-info->sent-at #[(misc-info) "A" [misc-info 9] 2 (#$ . 140297)]) (put (quote misc-info->sent-at) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Set type in misc-info to NEWVAL. (defalias 'set-misc-info->type #[(misc-info newval) "A\nI" [misc-info 0 newval] 3 (#$ . 140506)]) (put (quote set-misc-info->type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@42 Set recipient-no in misc-info to NEWVAL. (defalias 'set-misc-info->recipient-no #[(misc-info newval) "A\nI" [misc-info 1 newval] 3 (#$ . 140738)]) (put (quote set-misc-info->recipient-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set local-no in misc-info to NEWVAL. (defalias 'set-misc-info->local-no #[(misc-info newval) "A\nI" [misc-info 2 newval] 3 (#$ . 140994)]) (put (quote set-misc-info->local-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set rec-time in misc-info to NEWVAL. (defalias 'set-misc-info->rec-time #[(misc-info newval) "A\nI" [misc-info 3 newval] 3 (#$ . 141238)]) (put (quote set-misc-info->rec-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set comm-to in misc-info to NEWVAL. (defalias 'set-misc-info->comm-to #[(misc-info newval) "A\nI" [misc-info 4 newval] 3 (#$ . 141482)]) (put (quote set-misc-info->comm-to) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set comm-in in misc-info to NEWVAL. (defalias 'set-misc-info->comm-in #[(misc-info newval) "A\nI" [misc-info 5 newval] 3 (#$ . 141723)]) (put (quote set-misc-info->comm-in) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set footn-to in misc-info to NEWVAL. (defalias 'set-misc-info->footn-to #[(misc-info newval) "A\nI" [misc-info 6 newval] 3 (#$ . 141964)]) (put (quote set-misc-info->footn-to) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set footn-in in misc-info to NEWVAL. (defalias 'set-misc-info->footn-in #[(misc-info newval) "A\nI" [misc-info 7 newval] 3 (#$ . 142208)]) (put (quote set-misc-info->footn-in) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Set sender in misc-info to NEWVAL. (defalias 'set-misc-info->sender #[(misc-info newval) "A\nI" [misc-info 8 newval] 3 (#$ . 142452)]) (put (quote set-misc-info->sender) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set sent-at in misc-info to NEWVAL. (defalias 'set-misc-info->sent-at #[(misc-info newval) "A\nI" [misc-info 9 newval] 3 (#$ . 142690)]) (put (quote set-misc-info->sent-at) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Return t if OBJECT is a misc-info. (defalias 'lyskom-misc-info-p #[(object) "=" [object MISC-INFO] 2 (#$ . 142931)]) (put (quote lyskom-misc-info-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Create a time from all parameters. (defalias 'lyskom-create-time #[(sec min hour mday mon year wday yday isdst) "\n \f  \n& B" [TIME vector sec min hour mday mon year wday yday isdst] 11 (#$ . 143149)]) (put (quote lyskom-create-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@20 Get sec from time. (defalias 'time->sec #[(time) "A" [time 0] 2 (#$ . 143460)]) (put (quote time->sec) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@20 Get min from time. (defalias 'time->min #[(time) "A" [time 1] 2 (#$ . 143632)]) (put (quote time->min) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@21 Get hour from time. (defalias 'time->hour #[(time) "A" [time 2] 2 (#$ . 143804)]) (put (quote time->hour) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@21 Get mday from time. (defalias 'time->mday #[(time) "A" [time 3] 2 (#$ . 143979)]) (put (quote time->mday) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@20 Get mon from time. (defalias 'time->mon #[(time) "A" [time 4] 2 (#$ . 144154)]) (put (quote time->mon) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@21 Get year from time. (defalias 'time->year #[(time) "A" [time 5] 2 (#$ . 144326)]) (put (quote time->year) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@21 Get wday from time. (defalias 'time->wday #[(time) "A" [time 6] 2 (#$ . 144501)]) (put (quote time->wday) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@21 Get yday from time. (defalias 'time->yday #[(time) "A" [time 7] 2 (#$ . 144676)]) (put (quote time->yday) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get isdst from time. (defalias 'time->isdst #[(time) "A" [time 8] 2 (#$ . 144851)]) (put (quote time->isdst) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Return t if OBJECT is a time. (defalias 'lyskom-time-p #[(object) "=" [object TIME] 2 (#$ . 145029)]) (put (quote lyskom-time-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Create a privs from all parameters. (defalias 'lyskom-create-privs #[(wheel admin statistic create_pers create_conf change_name flg7 flg8 flg9 flg10 flg11 flg12 flg13 flg14 flg15 flg16) "\n \f  \n \f &B" [PRIVS vector wheel admin statistic create_pers create_conf change_name flg7 flg8 flg9 flg10 flg11 flg12 flg13 flg14 flg15 flg16] 18 (#$ . 145227)]) (put (quote lyskom-create-privs) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get wheel from privs. (defalias 'privs->wheel #[(privs) "A" [privs 0] 2 (#$ . 145701)]) (put (quote privs->wheel) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get admin from privs. (defalias 'privs->admin #[(privs) "A" [privs 1] 2 (#$ . 145884)]) (put (quote privs->admin) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@27 Get statistic from privs. (defalias 'privs->statistic #[(privs) "A" [privs 2] 2 (#$ . 146067)]) (put (quote privs->statistic) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get create_pers from privs. (defalias 'privs->create_pers #[(privs) "A" [privs 3] 2 (#$ . 146262)]) (put (quote privs->create_pers) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get create_conf from privs. (defalias 'privs->create_conf #[(privs) "A" [privs 4] 2 (#$ . 146463)]) (put (quote privs->create_conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get change_name from privs. (defalias 'privs->change_name #[(privs) "A" [privs 5] 2 (#$ . 146664)]) (put (quote privs->change_name) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg7 from privs. (defalias 'privs->flg7 #[(privs) "A" [privs 6] 2 (#$ . 146865)]) (put (quote privs->flg7) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg8 from privs. (defalias 'privs->flg8 #[(privs) "A" [privs 7] 2 (#$ . 147045)]) (put (quote privs->flg8) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg9 from privs. (defalias 'privs->flg9 #[(privs) "A" [privs 8] 2 (#$ . 147225)]) (put (quote privs->flg9) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get flg10 from privs. (defalias 'privs->flg10 #[(privs) "A" [privs 9] 2 (#$ . 147405)]) (put (quote privs->flg10) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get flg11 from privs. (defalias 'privs->flg11 #[(privs) "A" [privs 10] 2 (#$ . 147588)]) (put (quote privs->flg11) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get flg12 from privs. (defalias 'privs->flg12 #[(privs) "A" [privs 11] 2 (#$ . 147772)]) (put (quote privs->flg12) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get flg13 from privs. (defalias 'privs->flg13 #[(privs) "A" [privs 12] 2 (#$ . 147956)]) (put (quote privs->flg13) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get flg14 from privs. (defalias 'privs->flg14 #[(privs) "A" [privs 13] 2 (#$ . 148140)]) (put (quote privs->flg14) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get flg15 from privs. (defalias 'privs->flg15 #[(privs) "A" [privs 14] 2 (#$ . 148324)]) (put (quote privs->flg15) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@23 Get flg16 from privs. (defalias 'privs->flg16 #[(privs) "A" [privs 15] 2 (#$ . 148508)]) (put (quote privs->flg16) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set wheel in privs to NEWVAL. (defalias 'set-privs->wheel #[(privs newval) "A\nI" [privs 0 newval] 3 (#$ . 148692)]) (put (quote set-privs->wheel) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set admin in privs to NEWVAL. (defalias 'set-privs->admin #[(privs newval) "A\nI" [privs 1 newval] 3 (#$ . 148907)]) (put (quote set-privs->admin) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Set statistic in privs to NEWVAL. (defalias 'set-privs->statistic #[(privs newval) "A\nI" [privs 2 newval] 3 (#$ . 149122)]) (put (quote set-privs->statistic) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set create_pers in privs to NEWVAL. (defalias 'set-privs->create_pers #[(privs newval) "A\nI" [privs 3 newval] 3 (#$ . 149349)]) (put (quote set-privs->create_pers) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set create_conf in privs to NEWVAL. (defalias 'set-privs->create_conf #[(privs newval) "A\nI" [privs 4 newval] 3 (#$ . 149582)]) (put (quote set-privs->create_conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set change_name in privs to NEWVAL. (defalias 'set-privs->change_name #[(privs newval) "A\nI" [privs 5 newval] 3 (#$ . 149815)]) (put (quote set-privs->change_name) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg7 in privs to NEWVAL. (defalias 'set-privs->flg7 #[(privs newval) "A\nI" [privs 6 newval] 3 (#$ . 150048)]) (put (quote set-privs->flg7) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg8 in privs to NEWVAL. (defalias 'set-privs->flg8 #[(privs newval) "A\nI" [privs 7 newval] 3 (#$ . 150260)]) (put (quote set-privs->flg8) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg9 in privs to NEWVAL. (defalias 'set-privs->flg9 #[(privs newval) "A\nI" [privs 8 newval] 3 (#$ . 150472)]) (put (quote set-privs->flg9) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set flg10 in privs to NEWVAL. (defalias 'set-privs->flg10 #[(privs newval) "A\nI" [privs 9 newval] 3 (#$ . 150684)]) (put (quote set-privs->flg10) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set flg11 in privs to NEWVAL. (defalias 'set-privs->flg11 #[(privs newval) "A\nI" [privs 10 newval] 3 (#$ . 150899)]) (put (quote set-privs->flg11) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set flg12 in privs to NEWVAL. (defalias 'set-privs->flg12 #[(privs newval) "A\nI" [privs 11 newval] 3 (#$ . 151115)]) (put (quote set-privs->flg12) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set flg13 in privs to NEWVAL. (defalias 'set-privs->flg13 #[(privs newval) "A\nI" [privs 12 newval] 3 (#$ . 151331)]) (put (quote set-privs->flg13) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set flg14 in privs to NEWVAL. (defalias 'set-privs->flg14 #[(privs newval) "A\nI" [privs 13 newval] 3 (#$ . 151547)]) (put (quote set-privs->flg14) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set flg15 in privs to NEWVAL. (defalias 'set-privs->flg15 #[(privs newval) "A\nI" [privs 14 newval] 3 (#$ . 151763)]) (put (quote set-privs->flg15) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Set flg16 in privs to NEWVAL. (defalias 'set-privs->flg16 #[(privs newval) "A\nI" [privs 15 newval] 3 (#$ . 151979)]) (put (quote set-privs->flg16) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Return t if OBJECT is a privs. (defalias 'lyskom-privs-p #[(object) "=" [object PRIVS] 2 (#$ . 152195)]) (put (quote lyskom-privs-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'def-komtype '(macro . #[(type &rest args) " !P!\f\f#Ӱ!D\fBEP! CӰ D D!DEEE\f\f@!Q! C D E\fBR! \f@D D \f@F\fB T\fA\f)`\f\"+" [symbol-name type 0 nil tmp n typename append progn defsubst intern "lyskom-create-" args "Create a `" "' from arguments.\n" "Args: " mapconcat " " "\n" "Automatically created with def-komtype." cons quote vector "-p" "Return `t' if " " is a " ".\n" and consp eq car argname "->" aref cdr "set-" aset] 15])) #@177 Create a `session-flags' from arguments. Args: INVISIBLE USER_ACTIVE_USED USER_ABSENT RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 Automatically created with def-komtype. (defalias 'lyskom-create-session-flags #[(invisible user_active_used user_absent reserved3 reserved4 reserved5 reserved6 reserved7) "\n \f  &B" [SESSION-FLAGS vector invisible user_active_used user_absent reserved3 reserved4 reserved5 reserved6 reserved7] 10 (#$ . 152952)]) (put (quote lyskom-create-session-flags) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@109 Return `t' if SESSION-FLAGS is a session-flags. Args: SESSION-FLAGS Automatically created with def-komtype. (defalias 'session-flags-p #[(session-flags) ": @=" [session-flags SESSION-FLAGS] 2 (#$ . 153521)]) (put (quote session-flags-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved7 #[(session-flags reserved7) "A\nI" [session-flags 7 reserved7] 3 (#$ . 153829)]) (put (quote set-session-flags->reserved7) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved7 #[(session-flags) "AH" [session-flags 7] 2 (#$ . 154100)]) (put (quote session-flags->reserved7) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved6 #[(session-flags reserved6) "A\nI" [session-flags 6 reserved6] 3 (#$ . 154341)]) (put (quote set-session-flags->reserved6) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved6 #[(session-flags) "AH" [session-flags 6] 2 (#$ . 154612)]) (put (quote session-flags->reserved6) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved5 #[(session-flags reserved5) "A\nI" [session-flags 5 reserved5] 3 (#$ . 154853)]) (put (quote set-session-flags->reserved5) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved5 #[(session-flags) "AH" [session-flags 5] 2 (#$ . 155124)]) (put (quote session-flags->reserved5) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved4 #[(session-flags reserved4) "A\nI" [session-flags 4 reserved4] 3 (#$ . 155365)]) (put (quote set-session-flags->reserved4) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved4 #[(session-flags) "AH" [session-flags 4] 2 (#$ . 155636)]) (put (quote session-flags->reserved4) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved3 #[(session-flags reserved3) "A\nI" [session-flags 3 reserved3] 3 (#$ . 155877)]) (put (quote set-session-flags->reserved3) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved3 #[(session-flags) "AH" [session-flags 3] 2 (#$ . 156148)]) (put (quote session-flags->reserved3) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->user_absent #[(session-flags user_absent) "A\nI" [session-flags 2 user_absent] 3 (#$ . 156389)]) (put (quote set-session-flags->user_absent) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'session-flags->user_absent #[(session-flags) "AH" [session-flags 2] 2 (#$ . 156668)]) (put (quote session-flags->user_absent) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->user_active_used #[(session-flags user_active_used) "A\nI" [session-flags 1 user_active_used] 3 (#$ . 156913)]) (put (quote set-session-flags->user_active_used) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'session-flags->user_active_used #[(session-flags) "AH" [session-flags 1] 2 (#$ . 157212)]) (put (quote session-flags->user_active_used) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->invisible #[(session-flags invisible) "A\nI" [session-flags 0 invisible] 3 (#$ . 157467)]) (put (quote set-session-flags->invisible) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'session-flags->invisible #[(session-flags) "AH" [session-flags 0] 2 (#$ . 157738)]) (put (quote session-flags->invisible) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@161 Create a `dynamic-session-info' from arguments. Args: SESSION PERSON WORKING-CONFERENCE IDLE-TIME FLAGS WHAT-AM-I-DOING Automatically created with def-komtype. (defalias 'lyskom-create-dynamic-session-info #[(session person working-conference idle-time flags what-am-i-doing) "\n \f &B" [DYNAMIC-SESSION-INFO vector session person working-conference idle-time flags what-am-i-doing] 8 (#$ . 157980)]) (put (quote lyskom-create-dynamic-session-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@130 Return `t' if DYNAMIC-SESSION-INFO is a dynamic-session-info. Args: DYNAMIC-SESSION-INFO Automatically created with def-komtype. (defalias 'dynamic-session-info-p #[(dynamic-session-info) ": @=" [dynamic-session-info DYNAMIC-SESSION-INFO] 2 (#$ . 158503)]) (put (quote dynamic-session-info-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->what-am-i-doing #[(dynamic-session-info what-am-i-doing) "A\nI" [dynamic-session-info 5 what-am-i-doing] 3 (#$ . 158867)]) (put (quote set-dynamic-session-info->what-am-i-doing) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->what-am-i-doing #[(dynamic-session-info) "AH" [dynamic-session-info 5] 2 (#$ . 159190)]) (put (quote dynamic-session-info->what-am-i-doing) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->flags #[(dynamic-session-info flags) "A\nI" [dynamic-session-info 4 flags] 3 (#$ . 159471)]) (put (quote set-dynamic-session-info->flags) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->flags #[(dynamic-session-info) "AH" [dynamic-session-info 4] 2 (#$ . 159754)]) (put (quote dynamic-session-info->flags) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->idle-time #[(dynamic-session-info idle-time) "A\nI" [dynamic-session-info 3 idle-time] 3 (#$ . 160015)]) (put (quote set-dynamic-session-info->idle-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->idle-time #[(dynamic-session-info) "AH" [dynamic-session-info 3] 2 (#$ . 160314)]) (put (quote dynamic-session-info->idle-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->working-conference #[(dynamic-session-info working-conference) "A\nI" [dynamic-session-info 2 working-conference] 3 (#$ . 160583)]) (put (quote set-dynamic-session-info->working-conference) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->working-conference #[(dynamic-session-info) "AH" [dynamic-session-info 2] 2 (#$ . 160918)]) (put (quote dynamic-session-info->working-conference) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->person #[(dynamic-session-info person) "A\nI" [dynamic-session-info 1 person] 3 (#$ . 161205)]) (put (quote set-dynamic-session-info->person) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->person #[(dynamic-session-info) "AH" [dynamic-session-info 1] 2 (#$ . 161492)]) (put (quote dynamic-session-info->person) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->session #[(dynamic-session-info session) "A\nI" [dynamic-session-info 0 session] 3 (#$ . 161755)]) (put (quote set-dynamic-session-info->session) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->session #[(dynamic-session-info) "AH" [dynamic-session-info 0] 2 (#$ . 162046)]) (put (quote dynamic-session-info->session) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@139 Create a `static-session-info' from arguments. Args: USERNAME HOSTNAME IDENT-USER CONNECTION-TIME Automatically created with def-komtype. (defalias 'lyskom-create-static-session-info #[(username hostname ident-user connection-time) "\n \f $B" [STATIC-SESSION-INFO vector username hostname ident-user connection-time] 6 (#$ . 162312)]) (put (quote lyskom-create-static-session-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@127 Return `t' if STATIC-SESSION-INFO is a static-session-info. Args: STATIC-SESSION-INFO Automatically created with def-komtype. (defalias 'static-session-info-p #[(static-session-info) ": @=" [static-session-info STATIC-SESSION-INFO] 2 (#$ . 162763)]) (put (quote static-session-info-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-static-session-info->connection-time #[(static-session-info connection-time) "A\nI" [static-session-info 3 connection-time] 3 (#$ . 163119)]) (put (quote set-static-session-info->connection-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'static-session-info->connection-time #[(static-session-info) "AH" [static-session-info 3] 2 (#$ . 163438)]) (put (quote static-session-info->connection-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-static-session-info->ident-user #[(static-session-info ident-user) "A\nI" [static-session-info 2 ident-user] 3 (#$ . 163715)]) (put (quote set-static-session-info->ident-user) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'static-session-info->ident-user #[(static-session-info) "AH" [static-session-info 2] 2 (#$ . 164014)]) (put (quote static-session-info->ident-user) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-static-session-info->hostname #[(static-session-info hostname) "A\nI" [static-session-info 1 hostname] 3 (#$ . 164281)]) (put (quote set-static-session-info->hostname) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'static-session-info->hostname #[(static-session-info) "AH" [static-session-info 1] 2 (#$ . 164572)]) (put (quote static-session-info->hostname) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'set-static-session-info->username #[(static-session-info username) "A\nI" [static-session-info 0 username] 3 (#$ . 164835)]) (put (quote set-static-session-info->username) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Automatically created with def-komtype. (defalias 'static-session-info->username #[(static-session-info) "AH" [static-session-info 0] 2 (#$ . 165126)]) (put (quote static-session-info->username) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Create a flags from all parameters. (defalias 'lyskom-create-flags #[(unread_is_secret flg2 flg3 flg4 flg5 flg6 flg7 flg8) "\n \f  &B" [FLAGS vector unread_is_secret flg2 flg3 flg4 flg5 flg6 flg7 flg8] 10 (#$ . 165389)]) (put (quote lyskom-create-flags) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Get unread_is_secret from flags. (defalias 'flags->unread_is_secret #[(flags) "A" [flags 0] 2 (#$ . 165719)]) (put (quote flags->unread_is_secret) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg2 from flags. (defalias 'flags->flg2 #[(flags) "A" [flags 1] 2 (#$ . 165935)]) (put (quote flags->flg2) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg3 from flags. (defalias 'flags->flg3 #[(flags) "A" [flags 2] 2 (#$ . 166115)]) (put (quote flags->flg3) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg4 from flags. (defalias 'flags->flg4 #[(flags) "A" [flags 3] 2 (#$ . 166295)]) (put (quote flags->flg4) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg5 from flags. (defalias 'flags->flg5 #[(flags) "A" [flags 4] 2 (#$ . 166475)]) (put (quote flags->flg5) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg6 from flags. (defalias 'flags->flg6 #[(flags) "A" [flags 5] 2 (#$ . 166655)]) (put (quote flags->flg6) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg7 from flags. (defalias 'flags->flg7 #[(flags) "A" [flags 6] 2 (#$ . 166835)]) (put (quote flags->flg7) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@22 Get flg8 from flags. (defalias 'flags->flg8 #[(flags) "A" [flags 7] 2 (#$ . 167015)]) (put (quote flags->flg8) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@42 Set unread_is_secret in flags to NEWVAL. (defalias 'set-flags->unread_is_secret #[(flags newval) "A\nI" [flags 0 newval] 3 (#$ . 167195)]) (put (quote set-flags->unread_is_secret) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg2 in flags to NEWVAL. (defalias 'set-flags->flg2 #[(flags newval) "A\nI" [flags 1 newval] 3 (#$ . 167443)]) (put (quote set-flags->flg2) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg3 in flags to NEWVAL. (defalias 'set-flags->flg3 #[(flags newval) "A\nI" [flags 2 newval] 3 (#$ . 167655)]) (put (quote set-flags->flg3) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg4 in flags to NEWVAL. (defalias 'set-flags->flg4 #[(flags newval) "A\nI" [flags 3 newval] 3 (#$ . 167867)]) (put (quote set-flags->flg4) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg5 in flags to NEWVAL. (defalias 'set-flags->flg5 #[(flags newval) "A\nI" [flags 4 newval] 3 (#$ . 168079)]) (put (quote set-flags->flg5) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg6 in flags to NEWVAL. (defalias 'set-flags->flg6 #[(flags newval) "A\nI" [flags 5 newval] 3 (#$ . 168291)]) (put (quote set-flags->flg6) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg7 in flags to NEWVAL. (defalias 'set-flags->flg7 #[(flags newval) "A\nI" [flags 6 newval] 3 (#$ . 168503)]) (put (quote set-flags->flg7) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set flg8 in flags to NEWVAL. (defalias 'set-flags->flg8 #[(flags newval) "A\nI" [flags 7 newval] 3 (#$ . 168715)]) (put (quote set-flags->flg8) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Return t if OBJECT is a flags. (defalias 'lyskom-flags-p #[(object) "=" [object FLAGS] 2 (#$ . 168927)]) (put (quote lyskom-flags-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@42 Create a membership from all parameters. (defalias 'lyskom-create-membership #[(last-time-read conf-no priority last-text-read read-texts) "\n \f %B" [MEMBERSHIP vector last-time-read conf-no priority last-text-read read-texts] 7 (#$ . 169129)]) (put (quote lyskom-create-membership) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Get last-time-read from membership. (defalias 'membership->last-time-read #[(membership) "A" [membership 0] 2 (#$ . 169483)]) (put (quote membership->last-time-read) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get conf-no from membership. (defalias 'membership->conf-no #[(membership) "A" [membership 1] 2 (#$ . 169718)]) (put (quote membership->conf-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get priority from membership. (defalias 'membership->priority #[(membership) "A" [membership 2] 2 (#$ . 169932)]) (put (quote membership->priority) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Get last-text-read from membership. (defalias 'membership->last-text-read #[(membership) "A" [membership 3] 2 (#$ . 170149)]) (put (quote membership->last-text-read) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get read-texts from membership. (defalias 'membership->read-texts #[(membership) "A" [membership 4] 2 (#$ . 170384)]) (put (quote membership->read-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Set last-time-read in membership to NEWVAL. (defalias 'set-membership->last-time-read #[(membership newval) "A\nI" [membership 0 newval] 3 (#$ . 170607)]) (put (quote set-membership->last-time-read) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set conf-no in membership to NEWVAL. (defalias 'set-membership->conf-no #[(membership newval) "A\nI" [membership 1 newval] 3 (#$ . 170874)]) (put (quote set-membership->conf-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set priority in membership to NEWVAL. (defalias 'set-membership->priority #[(membership newval) "A\nI" [membership 2 newval] 3 (#$ . 171120)]) (put (quote set-membership->priority) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Set last-text-read in membership to NEWVAL. (defalias 'set-membership->last-text-read #[(membership newval) "A\nI" [membership 3 newval] 3 (#$ . 171369)]) (put (quote set-membership->last-text-read) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set read-texts in membership to NEWVAL. (defalias 'set-membership->read-texts #[(membership newval) "A\nI" [membership 4 newval] 3 (#$ . 171636)]) (put (quote set-membership->read-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Return t if OBJECT is a membership. (defalias 'lyskom-membership-p #[(object) "=" [object MEMBERSHIP] 2 (#$ . 171891)]) (put (quote lyskom-membership-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Create a map from all parameters. (defalias 'lyskom-create-map #[(first-local text-nos) "\n \"B" [MAP vector first-local text-nos] 4 (#$ . 172113)]) (put (quote lyskom-create-map) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@27 Get first-local from map. (defalias 'map->first-local #[(map) "A" [map 0] 2 (#$ . 172361)]) (put (quote map->first-local) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@24 Get text-nos from map. (defalias 'map->text-nos #[(map) "A" [map 1] 2 (#$ . 172552)]) (put (quote map->text-nos) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Set first-local in map to NEWVAL. (defalias 'set-map->first-local #[(map newval) "A\nI" [map 0 newval] 3 (#$ . 172734)]) (put (quote set-map->first-local) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Set text-nos in map to NEWVAL. (defalias 'set-map->text-nos #[(map newval) "A\nI" [map 1 newval] 3 (#$ . 172957)]) (put (quote set-map->text-nos) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Return t if OBJECT is a map. (defalias 'lyskom-map-p #[(object) "=" [object MAP] 2 (#$ . 173171)]) (put (quote lyskom-map-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@167 Take any number of MAPS and return a new map which is the sum of the maps. Args: &rest MAPS. The MAPS must be consecutive. No gaps or overlaps are currently allowed. (defalias 'lyskom-map-concat #[(&rest maps) "\f \"*B@AȜ) @A)G\\\n@A)C Au@AȜ)\nUP\" @A)C \n@A)G\\\nA<  \"\f \".B" [maps 1 [] text-nos first-local MAP vector map 0 first high maplist signal lyskom-internal-error ("lyskom-map-concat") apply vconcat] 5 (#$ . 173366)]) (put (quote lyskom-map-concat) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Create a mark from all parameters. (defalias 'lyskom-create-mark #[(text-no mark-type) "\n \"B" [MARK vector text-no mark-type] 4 (#$ . 173974)]) (put (quote lyskom-create-mark) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@24 Get text-no from mark. (defalias 'mark->text-no #[(mark) "A" [mark 0] 2 (#$ . 174220)]) (put (quote mark->text-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@26 Get mark-type from mark. (defalias 'mark->mark-type #[(mark) "A" [mark 1] 2 (#$ . 174404)]) (put (quote mark->mark-type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Set text-no in mark to NEWVAL. (defalias 'set-mark->text-no #[(mark newval) "A\nI" [mark 0 newval] 3 (#$ . 174594)]) (put (quote set-mark->text-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Set mark-type in mark to NEWVAL. (defalias 'set-mark->mark-type #[(mark newval) "A\nI" [mark 1 newval] 3 (#$ . 174810)]) (put (quote set-mark->mark-type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Return t if OBJECT is a mark. (defalias 'lyskom-mark-p #[(object) "=" [object MARK] 2 (#$ . 175032)]) (put (quote lyskom-mark-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Create a who-info from all parameters. (defalias 'lyskom-create-who-info #[(pers-no working-conf connection doing-what username) "\n \f %B" [WHO-INFO vector pers-no working-conf connection doing-what username] 7 (#$ . 175230)]) (put (quote lyskom-create-who-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@28 Get pers-no from who-info. (defalias 'who-info->pers-no #[(who-info) "A" [who-info 0] 2 (#$ . 175564)]) (put (quote who-info->pers-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get working-conf from who-info. (defalias 'who-info->working-conf #[(who-info) "A" [who-info 1] 2 (#$ . 175768)]) (put (quote who-info->working-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get connection from who-info. (defalias 'who-info->connection #[(who-info) "A" [who-info 2] 2 (#$ . 175987)]) (put (quote who-info->connection) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get doing-what from who-info. (defalias 'who-info->doing-what #[(who-info) "A" [who-info 3] 2 (#$ . 176200)]) (put (quote who-info->doing-what) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get username from who-info. (defalias 'who-info->username #[(who-info) "A" [who-info 4] 2 (#$ . 176413)]) (put (quote who-info->username) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Set pers-no in who-info to NEWVAL. (defalias 'set-who-info->pers-no #[(who-info newval) "A\nI" [who-info 0 newval] 3 (#$ . 176620)]) (put (quote set-who-info->pers-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set working-conf in who-info to NEWVAL. (defalias 'set-who-info->working-conf #[(who-info newval) "A\nI" [who-info 1 newval] 3 (#$ . 176856)]) (put (quote set-who-info->working-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set connection in who-info to NEWVAL. (defalias 'set-who-info->connection #[(who-info newval) "A\nI" [who-info 2 newval] 3 (#$ . 177107)]) (put (quote set-who-info->connection) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set doing-what in who-info to NEWVAL. (defalias 'set-who-info->doing-what #[(who-info newval) "A\nI" [who-info 3 newval] 3 (#$ . 177352)]) (put (quote set-who-info->doing-what) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set username in who-info to NEWVAL. (defalias 'set-who-info->username #[(who-info newval) "A\nI" [who-info 4 newval] 3 (#$ . 177597)]) (put (quote set-who-info->username) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Return t if OBJECT is a who-info. (defalias 'lyskom-who-info-p #[(object) "=" [object WHO-INFO] 2 (#$ . 177836)]) (put (quote lyskom-who-info-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@44 Create a session-info from all parameters. (defalias 'lyskom-create-session-info #[(pers-no working-conf connection doing username idletime connect-time) "\n \f &B" [SESSION-INFO vector pers-no working-conf connection doing username idletime connect-time] 9 (#$ . 178050)]) (put (quote lyskom-create-session-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Get pers-no from session-info. (defalias 'session-info->pers-no #[(session-info) "A" [session-info 0] 2 (#$ . 178439)]) (put (quote session-info->pers-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Get working-conf from session-info. (defalias 'session-info->working-conf #[(session-info) "A" [session-info 1] 2 (#$ . 178663)]) (put (quote session-info->working-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Get connection from session-info. (defalias 'session-info->connection #[(session-info) "A" [session-info 2] 2 (#$ . 178902)]) (put (quote session-info->connection) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get doing from session-info. (defalias 'session-info->doing #[(session-info) "A" [session-info 3] 2 (#$ . 179135)]) (put (quote session-info->doing) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get username from session-info. (defalias 'session-info->username #[(session-info) "A" [session-info 4] 2 (#$ . 179353)]) (put (quote session-info->username) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get idletime from session-info. (defalias 'session-info->idletime #[(session-info) "A" [session-info 5] 2 (#$ . 179580)]) (put (quote session-info->idletime) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Get connect-time from session-info. (defalias 'session-info->connect-time #[(session-info) "A" [session-info 6] 2 (#$ . 179807)]) (put (quote session-info->connect-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@40 Set pers-no in session-info to NEWVAL. (defalias 'set-session-info->pers-no #[(session-info newval) "A\nI" [session-info 0 newval] 3 (#$ . 180046)]) (put (quote set-session-info->pers-no) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Set working-conf in session-info to NEWVAL. (defalias 'set-session-info->working-conf #[(session-info newval) "A\nI" [session-info 1 newval] 3 (#$ . 180302)]) (put (quote set-session-info->working-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Set connection in session-info to NEWVAL. (defalias 'set-session-info->connection #[(session-info newval) "A\nI" [session-info 2 newval] 3 (#$ . 180573)]) (put (quote set-session-info->connection) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set doing in session-info to NEWVAL. (defalias 'set-session-info->doing #[(session-info newval) "A\nI" [session-info 3 newval] 3 (#$ . 180838)]) (put (quote set-session-info->doing) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set username in session-info to NEWVAL. (defalias 'set-session-info->username #[(session-info newval) "A\nI" [session-info 4 newval] 3 (#$ . 181088)]) (put (quote set-session-info->username) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set idletime in session-info to NEWVAL. (defalias 'set-session-info->idletime #[(session-info newval) "A\nI" [session-info 5 newval] 3 (#$ . 181347)]) (put (quote set-session-info->idletime) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Set connect-time in session-info to NEWVAL. (defalias 'set-session-info->connect-time #[(session-info newval) "A\nI" [session-info 6 newval] 3 (#$ . 181606)]) (put (quote set-session-info->connect-time) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Return t if OBJECT is a session-info. (defalias 'lyskom-session-info-p #[(object) "=" [object SESSION-INFO] 2 (#$ . 181877)]) (put (quote lyskom-session-info-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@69 Create a conf-type object. Args: RD_PROT ORIGINAL SECRET LETTERBOX. (defalias 'lyskom-create-conf-type #[(rd_prot original secret letterbox &optional anarchy rsv1 rsv2 rsv3) " \n \f  " [CONF-TYPE rd_prot original secret letterbox anarchy rsv1 rsv2 rsv3] 9 (#$ . 182107)]) (put (quote lyskom-create-conf-type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get rd_prot from conf-type. (defalias 'conf-type->rd_prot #[(conf-type) "A" [conf-type 0] 2 (#$ . 182490)]) (put (quote conf-type->rd_prot) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get original from conf-type. (defalias 'conf-type->original #[(conf-type) "A" [conf-type 1] 2 (#$ . 182699)]) (put (quote conf-type->original) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@28 Get secret from conf-type. (defalias 'conf-type->secret #[(conf-type) "A" [conf-type 2] 2 (#$ . 182911)]) (put (quote conf-type->secret) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get letterbox from conf-type. (defalias 'conf-type->letterbox #[(conf-type) "A" [conf-type 3] 2 (#$ . 183117)]) (put (quote conf-type->letterbox) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get anarchy from conf-type. (defalias 'conf-type->anarchy #[(conf-type) "A" [conf-type 4] 2 (#$ . 183332)]) (put (quote conf-type->anarchy) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Get reserved bit from conf-type. (defalias 'conf-type->rsv1 #[(conf-type) "A" [conf-type 5] 2 (#$ . 183541)]) (put (quote conf-type->rsv1) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Get reserved bit from conf-type. (defalias 'conf-type->rsv2 #[(conf-type) "A" [conf-type 5] 2 (#$ . 183749)]) (put (quote conf-type->rsv2) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Get reserved bit from conf-type. (defalias 'conf-type->rsv3 #[(conf-type) "A" [conf-type 5] 2 (#$ . 183957)]) (put (quote conf-type->rsv3) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Create a text-list from all parameters. (defalias 'lyskom-create-text-list #[(texts) " B" [TEXT-LIST texts] 2 (#$ . 184165)]) (put (quote lyskom-create-text-list) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@27 Get texts from text-list. (defalias 'text-list->texts #[(text-list) "A" [text-list] 1 (#$ . 184395)]) (put (quote text-list->texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@35 Set texts in TEXT-LIST to NEWVAL. (defalias 'set-text-list->texts #[(text-list newval) " " [text-list newval] 2 (#$ . 184594)]) (put (quote set-text-list->texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Return t if OBJECT is a text-list. (defalias 'lyskom-text-list-p #[(object) "=" [object TEXT-LIST] 2 (#$ . 184824)]) (put (quote lyskom-text-list-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@44 Create a version-info from all parameters. (defalias 'lyskom-create-version-info #[(protocol-version server-software software-version) "\n \f#B" [VERSION-INFO vector protocol-version server-software software-version] 5 (#$ . 185042)]) (put (quote lyskom-create-version-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Get protocol version from version-info. (defalias 'version-info->protocol-version #[(version-info) "A" [version-info 0] 2 (#$ . 185385)]) (put (quote version-info->protocol-version) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Get server software name from version-info. (defalias 'version-info->server-software #[(version-info) "A" [version-info 1] 2 (#$ . 185636)]) (put (quote version-info->server-software) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@48 Get server software version from version-info. (defalias 'version-info->software-version #[(version-info) "A" [version-info 2] 2 (#$ . 185889)]) (put (quote version-info->software-version) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@43 Create a server-info from all parameters. (defalias 'lyskom-create-server-info #[(version conf-pres-conf pers-pres-conf motd-conf kom-news-conf motd-of-lyskom) "\n \f &B" [SERVER-INFO vector version conf-pres-conf pers-pres-conf motd-conf kom-news-conf motd-of-lyskom] 8 (#$ . 186147)]) (put (quote lyskom-create-server-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get version from server-info. (defalias 'server-info->version #[(server-info) "A" [server-info 0] 2 (#$ . 186546)]) (put (quote server-info->version) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Get conf-pres-conf from server-info. (defalias 'server-info->conf-pres-conf #[(server-info) "A" [server-info 1] 2 (#$ . 186765)]) (put (quote server-info->conf-pres-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Get pers-pres-conf from server-info. (defalias 'server-info->pers-pres-conf #[(server-info) "A" [server-info 2] 2 (#$ . 187005)]) (put (quote server-info->pers-pres-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@33 Get motd-conf from server-info. (defalias 'server-info->motd-conf #[(server-info) "A" [server-info 3] 2 (#$ . 187245)]) (put (quote server-info->motd-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Get kom-news-conf from server-info. (defalias 'server-info->kom-news-conf #[(server-info) "A" [server-info 4] 2 (#$ . 187470)]) (put (quote server-info->kom-news-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Get motd-of-lyskom from server-info. (defalias 'server-info->motd-of-lyskom #[(server-info) "A" [server-info 5] 2 (#$ . 187707)]) (put (quote server-info->motd-of-lyskom) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set version in server-info to NEWVAL. (defalias 'set-server-info->version #[(server-info newval) "A\nI" [server-info 0 newval] 3 (#$ . 187947)]) (put (quote set-server-info->version) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@46 Set conf-pres-conf in server-info to NEWVAL. (defalias 'set-server-info->conf-pres-conf #[(server-info newval) "A\nI" [server-info 1 newval] 3 (#$ . 188198)]) (put (quote set-server-info->conf-pres-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@46 Set pers-pres-conf in server-info to NEWVAL. (defalias 'set-server-info->pers-pres-conf #[(server-info newval) "A\nI" [server-info 2 newval] 3 (#$ . 188470)]) (put (quote set-server-info->pers-pres-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@41 Set motd-conf in server-info to NEWVAL. (defalias 'set-server-info->motd-conf #[(server-info newval) "A\nI" [server-info 3 newval] 3 (#$ . 188742)]) (put (quote set-server-info->motd-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@45 Set kom-news-conf in server-info to NEWVAL. (defalias 'set-server-info->kom-news-conf #[(server-info newval) "A\nI" [server-info 4 newval] 3 (#$ . 188999)]) (put (quote set-server-info->kom-news-conf) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@46 Set motd-of-lyskom in server-info to NEWVAL. (defalias 'set-server-info->motd-of-lyskom #[(server-info newval) "A\nI" [server-info 5 newval] 3 (#$ . 189268)]) (put (quote set-server-info->motd-of-lyskom) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Return t if OBJECT is a server-info. (defalias 'lyskom-server-info-p #[(object) "=" [object SERVER-INFO] 2 (#$ . 189540)]) (put (quote lyskom-server-info-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@48 Create a conf-z-info-list from all parameters. (defalias 'lyskom-create-conf-z-info-list #[(conf-z-infos) "\n!B" [CONF-Z-INFO-LIST vector conf-z-infos] 3 (#$ . 189766)]) #@41 Get conf-z-infos from conf-z-info-list. (defalias 'conf-z-info-list->conf-z-infos #[(conf-z-info-list) "A" [conf-z-info-list 0] 2 (#$ . 189945)]) #@49 Set conf-z-infos in conf-z-info-list to NEWVAL. (defalias 'set-conf-z-info-list->conf-z-infos #[(conf-z-info-list newval) "A\nI" [conf-z-info-list 0 newval] 3 (#$ . 190101)]) #@43 Return t if OBJECT is a conf-z-info-list. (defalias 'lyskom-conf-z-info-list-p #[(object) "=" [object CONF-Z-INFO-LIST] 2 (#$ . 190285)]) #@43 Create a conf-z-info from all parameters. (defalias 'lyskom-create-conf-z-info #[(name conf-type conf-no) "\n \f#B" [CONF-Z-INFO vector name conf-type conf-no] 5 (#$ . 190433)]) #@28 Get name from conf-z-info. (defalias 'conf-z-info->name #[(conf-z-info) "A" [conf-z-info 0] 2 (#$ . 190620)]) #@33 Get conf-type from conf-z-info. (defalias 'conf-z-info->conf-type #[(conf-z-info) "A" [conf-z-info 1] 2 (#$ . 190740)]) #@31 Get conf-no from conf-z-info. (defalias 'conf-z-info->conf-no #[(conf-z-info) "A" [conf-z-info 2] 2 (#$ . 190870)]) #@36 Set name in conf-z-info to NEWVAL. (defalias 'set-conf-z-info->name #[(conf-z-info newval) "A\nI" [conf-z-info 0 newval] 3 (#$ . 190996)]) #@41 Set conf-type in conf-z-info to NEWVAL. (defalias 'set-conf-z-info->conf-type #[(conf-z-info newval) "A\nI" [conf-z-info 1 newval] 3 (#$ . 191144)]) #@39 Set conf-no in conf-z-info to NEWVAL. (defalias 'set-conf-z-info->conf-no #[(conf-z-info newval) "A\nI" [conf-z-info 2 newval] 3 (#$ . 191302)]) #@38 Return t if OBJECT is a conf-z-info. (defalias 'lyskom-conf-z-info-p #[(object) "=" [object CONF-Z-INFO] 2 (#$ . 191456)]) (defalias 'conf-stat->comm-conf #[(conf-stat) "A)AÜ)$AĜ)U$AĜ)AŜ)" [conf-stat 2 conf-type 1 9 0] 3]) (byte-code "#\fP" [put conf-stat->comm-conf byte-optimizer byte-compile-inline-expand lyskom-clientversion-long "$Id: clienttypes.el,v 44.0 1996/08/30 14:45:21 davidk Exp $\n"] 4) #@41 Create a read-info from all parameters. (defalias 'lyskom-create-read-info #[(type conf-stat priority text-list &optional comm-to forward) "\n \f &B" [READ-INFO vector type conf-stat priority text-list comm-to forward nil] 9 (#$ . 191905)]) (put (quote lyskom-create-read-info) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@26 Get type from read-info. (defalias 'read-info->type #[(read-info) "A" [read-info 0] 2 (#$ . 192257)]) (put (quote read-info->type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get conf-stat from read-info. (defalias 'read-info->conf-stat #[(read-info) "A" [read-info 1] 2 (#$ . 192457)]) (put (quote read-info->conf-stat) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Get priority from read-info. (defalias 'read-info->priority #[(read-info) "A" [read-info 2] 2 (#$ . 192672)]) (put (quote read-info->priority) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@31 Get text-list from read-info. (defalias 'read-info->text-list #[(read-info) "A" [read-info 3] 2 (#$ . 192884)]) (put (quote read-info->text-list) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get comm-to from read-info. (defalias 'read-info->comm-to #[(read-info) "A" [read-info 4] 2 (#$ . 193099)]) (put (quote read-info->comm-to) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get forward from read-info. (defalias 'read-info->forward #[(read-info) "A" [read-info 5] 2 (#$ . 193308)]) (put (quote read-info->forward) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@29 Get forward from read-info. (defalias 'read-info->unfetched-texts #[(read-info) "A" [read-info 6] 2 (#$ . 193517)]) (put (quote read-info->unfetched-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@34 Set type in read-info to NEWVAL. (defalias 'set-read-info->type #[(read-info newval) "A\nI" [read-info 0 newval] 3 (#$ . 193742)]) (put (quote set-read-info->type) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set conf-stat in read-info to NEWVAL. (defalias 'set-read-info->conf-stat #[(read-info newval) "A\nI" [read-info 1 newval] 3 (#$ . 193974)]) (put (quote set-read-info->conf-stat) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@38 Set priority in read-info to NEWVAL. (defalias 'set-read-info->priority #[(read-info newval) "A\nI" [read-info 2 newval] 3 (#$ . 194221)]) (put (quote set-read-info->priority) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Set text-list in read-info to NEWVAL. (defalias 'set-read-info->text-list #[(read-info newval) "A\nI" [read-info 3 newval] 3 (#$ . 194465)]) (put (quote set-read-info->text-list) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set comm-to in read-info to NEWVAL. (defalias 'set-read-info->comm-to #[(read-info newval) "A\nI" [read-info 4 newval] 3 (#$ . 194712)]) (put (quote set-read-info->comm-to) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set forward in read-info to NEWVAL. (defalias 'set-read-info->forward #[(read-info newval) "A\nI" [read-info 5 newval] 3 (#$ . 194953)]) (put (quote set-read-info->forward) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@37 Set forward in read-info to NEWVAL. (defalias 'set-read-info->unfetched-texts #[(read-info newval) "A\nI" [read-info 6 newval] 3 (#$ . 195194)]) (put (quote set-read-info->unfetched-texts) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@36 Return t if OBJECT is a read-info. (defalias 'lyskom-read-info-p #[(object) "=" [object READ-INFO] 2 (#$ . 195451)]) (put (quote lyskom-read-info-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@28 Create an empty read-list. (defalias 'lyskom-create-read-list #[nil "B" [READ-LIST nil] 2 (#$ . 195669)]) (put (quote lyskom-create-read-list) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@55 Return t if READ-LIST is empty, otherwise return nil. (defalias 'read-list-isempty #[(read-list) "A?" [read-list] 1 (#$ . 195880)]) (put (quote read-list-isempty) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@55 Return the first entry in READ-LIST, or nil if empty. (defalias 'read-list->first #[(read-list) "A" [read-list] 1 (#$ . 196110)]) (put (quote read-list->first) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@135 Args: READ-LIST N Return element N in READ-LIST or nil if outside the range. The range of valid values for N is [0, num-entries - 1]. (defalias 'read-list->nth #[(read-list n) "A " [read-list n] 2 (#$ . 196339)]) (put (quote read-list->nth) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@44 Return a list of all entries in READ-LIST. (defalias 'read-list->all-entries #[(read-list) "A" [read-list] 1 (#$ . 196648)]) (put (quote read-list->all-entries) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@44 Return the number of entries in READ-LIST. (defalias 'read-list-length #[(read-list) "GS" [read-list] 1 (#$ . 196876)]) (put (quote read-list-length) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@32 Empty READ-LIST destructively. (defalias 'set-read-list-empty #[(read-list) "" [read-list nil] 2 (#$ . 197093)]) (put (quote set-read-list-empty) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@54 Delete the first entry of READ-LIST if there is one. (defalias 'set-read-list-del-first #[(read-list) "A\nAA" [read-list] 2 (#$ . 197308)]) (put (quote set-read-list-del-first) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@39 Enter READ-INFO first into READ-LIST. (defalias 'read-list-enter-first #[(read-info read-list) " AB" [read-list read-info] 3 (#$ . 197557)]) (put (quote read-list-enter-first) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@178 Args: TEXT-NO RECIPIENT RLIST. Add the new text TEXT-NO to any RECIPIENT found in RLIST. RECIPIENT is a conf-stat. Returns t if there was a conference to insert this text into. (defalias 'read-list-enter-text #[(text-no recipient rlist) "\fAG first #[(queue) "A@" [queue] 1 (#$ . 200617)]) #@52 Return all elements of QUEUE (nil if it is empty). (defalias 'lyskom-queue->all-entries #[(queue) "A" [queue] 1 (#$ . 200755)]) #@56 Return the lastelement of QUEUE or nil if it is empty. (defalias 'lyskom-queue->last #[(queue) "AA" [queue] 1 (#$ . 200892)]) #@29 Make the queue QUEUE empty. (defalias 'lyskom-queue-make-empty #[(queue) "B" [queue nil] 3 (#$ . 201027)]) #@95 Delete the first element of QUEUE and return it. If QUEUE is empty return nil and do nothing. (defalias 'lyskom-queue-delete-first #[(queue) " !? ! A A@A A@ Aá" [lyskom-queue-isempty queue lyskom-queue->first nil] 3 (#$ . 201145)]) #@23 Create an empty stack (defalias 'lyskom-stack-create #[nil "B" [STACK nil] 2 (#$ . 201396)]) #@60 Return t if STACK is a lyskom-stack, otherwise return nil. (defalias 'lyskom-stack-p #[(stack) "=" [stack STACK] 2 (#$ . 201498)]) #@54 Push the second arg ELEMENT onto the first arg STACK (defalias 'lyskom-stack-push #[(stack element) " AB" [stack element] 3 (#$ . 201639)]) #@88 Remove the topmost element from STACK and return it. If the stack is empty, return nil (defalias 'lyskom-stack-pop #[(stack) "AA" [stack] 3 (#$ . 201789)]) #@60 Return the topmost element of STACK or nil if it is empty. (defalias 'lyskom-stack->top #[(stack) "A" [stack] 1 (#$ . 201959)]) #@41 Return the number of elements on STACK. (defalias 'lyskom-stack->length #[(stack) "AG" [stack] 1 (#$ . 202096)]) #@142 Return element no (second arg) N of the stack (first arg) STACK. N counts from zero. If the length of STACK is less than N, nil is returned. (defalias 'lyskom-stack->nth #[(stack n) " A8" [n stack] 2 (#$ . 202218)]) #@86 Return a list of all entries in STACK. The element last pushed is first in the list. (defalias 'lyskom-stack->all-entries #[(stack) "A" [stack] 1 (#$ . 202442)]) #@40 Returns non-nil if the STACK is empty. (defalias 'lyskom-stack-isempty #[(stack) "A?" [stack] 1 (#$ . 202612)]) #@47 Create a who-buffer-info from all parameters. (defalias 'lyskom-create-who-buffer-info #[(info start-marker end-marker) "\n \f#B" [WHO-BUFFER-INFO vector info start-marker end-marker] 5 (#$ . 202732)]) #@32 Get info from who-buffer-info. (defalias 'who-buffer-info->info #[(who-buffer-info) "A" [who-buffer-info 0] 2 (#$ . 202943)]) #@40 Get start-marker from who-buffer-info. (defalias 'who-buffer-info->start-marker #[(who-buffer-info) "A" [who-buffer-info 1] 2 (#$ . 203079)]) #@38 Get end-marker from who-buffer-info. (defalias 'who-buffer-info->end-marker #[(who-buffer-info) "A" [who-buffer-info 2] 2 (#$ . 203231)]) #@40 Set info in who-buffer-info to NEWVAL. (defalias 'set-who-buffer-info->info #[(who-buffer-info newval) "A\nI" [who-buffer-info 0 newval] 3 (#$ . 203379)]) #@48 Set start-marker in who-buffer-info to NEWVAL. (defalias 'set-who-buffer-info->start-marker #[(who-buffer-info newval) "A\nI" [who-buffer-info 1 newval] 3 (#$ . 203543)]) #@46 Set end-marker in who-buffer-info to NEWVAL. (defalias 'set-who-buffer-info->end-marker #[(who-buffer-info newval) "A\nI" [who-buffer-info 2 newval] 3 (#$ . 203723)]) #@42 Return t if OBJECT is a who-buffer-info. (defalias 'lyskom-who-buffer-info-p #[(object) "=" [object WHO-BUFFER-INFO] 2 (#$ . 203899)]) (defalias 'make-format-props #[(arg propl) "\n \"B" [format-props vector arg propl] 4]) (defalias 'format-props-p #[(arg) "=" [arg format-props] 2]) (put (quote format-props-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-props->arg #[(arg) "A" [arg 0] 2]) (put (quote format-props->arg) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-props->propl #[(arg) "A" [arg 1] 2]) (put (quote format-props->propl) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'make-format-state #[(format-string start argl result) "\n \fG Ɖ&B" [format-state vector format-string start argl result nil] 9]) (defalias 'format-state-p #[(arg) "=" [arg format-state] 2]) (put (quote format-state-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-state->format-string #[(arg) "A" [arg 0] 2]) (put (quote format-state->format-string) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'set-format-state->format-string #[(arg str) "A\nI" [arg 0 str] 3]) (put (quote set-format-state->format-string) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-state->start #[(arg) "A" [arg 1] 2]) (put (quote format-state->start) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'set-format-state->start #[(arg pos) "A\nI" [arg 1 pos] 3]) (put (quote set-format-state->start) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-state->args #[(arg) "A" [arg 2] 2]) (put (quote format-state->args) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'set-format-state->args #[(arg argl) "A\nIA\nGI" [arg 2 argl 3] 3]) (put (quote set-format-state->args) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-state->args-length #[(arg) "A" [arg 3] 2]) (put (quote format-state->args-length) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-state->result #[(arg) "A" [arg 4] 2]) (put (quote format-state->result) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'set-format-state->result #[(arg output-list) "A\nI" [arg 4 output-list] 3]) (put (quote set-format-state->result) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-state->delayed-propl #[(arg) "A" [arg 5] 2]) (put (quote format-state->delayed-propl) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'set-format-state->delayed-propl #[(arg propl) "A\nI" [arg 5 propl] 3]) (put (quote set-format-state->delayed-propl) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'format-state->delayed-content #[(arg) "A" [arg 6] 2]) (put (quote format-state->delayed-content) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'set-format-state->delayed-content #[(arg string) "A\nI" [arg 6 string] 3]) (put (quote set-format-state->delayed-content) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@63 Create a data type for collecting asynchronous results safely (defalias 'make-collector #[nil "B" [COLLECTOR nil] 2 (#$ . 207108)]) #@38 Get the current value of a collector (defalias 'collector->value #[(collector) "A" [collector] 1 (#$ . 207249)]) (put (quote collector->value) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@30 Set the calue of a collector (defalias 'set-collector->value #[(collector value) " " [collector value] 2 (#$ . 207459)]) (put (quote set-collector->value) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@72 For use with lyskom handlers. In other cases, use set-collector->value (defalias 'set-value-of-collector #[(value collector) "  *" [collector value] 3 (#$ . 207682)]) #@48 Push VALUE onto the front of COLLECTOR's value (defalias 'collector-push #[(value collector) " AB" [collector value] 3 (#$ . 207861)]) (defalias 'lyskom-create-defer-info #[(server-call call-par handler pos del-chars format &optional data) "\n \f  &B" [DEFER-INFO vector server-call call-par handler pos del-chars format data lyskom-last-viewed] 10]) (defalias 'lyskom-defer-info-p #[(obj) ": @=" [obj DEFER-INFO] 2]) (defalias 'defer-info->server-call #[(di) "AH" [di 0] 2]) (defalias 'defer-info->call-par #[(di) "AH" [di 1] 2]) (defalias 'defer-info->handler #[(di) "AH" [di 2] 2]) (defalias 'defer-info->pos #[(di) "AH" [di 3] 2]) (defalias 'defer-info->del-chars #[(di) "AH" [di 4] 2]) (defalias 'defer-info->format #[(di) "AH" [di 5] 2]) (defalias 'defer-info->data #[(di) "AH" [di 6] 2]) (defalias 'defer-info->last-viewed #[(di) "AH" [di 7] 2]) (defalias 'set-defer-info->server-call #[(di x) "A\nI" [di 0 x] 3]) (defalias 'set-defer-info->call-par #[(di x) "A\nI" [di 1 x] 3]) (defalias 'set-defer-info->handler #[(di x) "A\nI" [di 2 x] 3]) (defalias 'set-defer-info->pos #[(di x) "A\nI" [di 3 x] 3]) (defalias 'set-defer-info->del-chars #[(di x) "A\nI" [di 4 x] 3]) (defalias 'set-defer-info->format #[(di x) "A\nI" [di 5 x] 3]) (defalias 'set-defer-info->data #[(di x) "A\nI" [di 6 x] 3]) (defalias 'set-defer-info->last-viewed #[(di x) "A\nI" [di 7 x] 3]) #@65 Defer insertion of something. The insertion will be at (point). (defalias 'lyskom-defer-insertion #[(defer-info) " \n\" !!P! ! ! $" [set-defer-info->last-viewed defer-info lyskom-last-viewed intern-soft "initiate-" symbol-name defer-info->server-call deferred defer-info->handler defer-info->call-par] 5 (#$ . 209304)]) #@28 Replace some defered text. (defalias 'lyskom-replace-deferred #[(defer-info &rest replacement-data) " !b ! # !!) !ʉ) ?H !Gd\"?G Ҏ! *)" [defer-info->pos defer-info apply lyskom-format-insert-at-point defer-info->format replacement-data t inhibit-read-only delete-char defer-info->del-chars nil lyskom-executing-command get-buffer-window lyskom-buffer window pos-visible-in-window-p selected-window save-selected-window-window ((select-window save-selected-window-window)) select-window lyskom-scroll] 5 (#$ . 209640)]) #@65 Insert the name of a conference at a previously reserved place. (defalias 'lyskom-deferred-insert-conf #[(conf-stat defer-info) " \n3 !, ! !GSHU+ !U'ɂ,ʂ, !\"4\n !!#" [lyskom-replace-deferred defer-info conf-stat lyskom-format defer-info->data defer-info->format 80 defer-info->call-par 0 person-is-anonymous person-does-not-exist conference-does-not-exist text-properties-at defer-info->pos] 6 (#$ . 210206)]) (byte-code "P!M!M‡" [lyskom-clientversion-long "$Id: utilities.el,v 44.0 1996/08/30 14:48:20 davidk Exp $\n" fboundp rassoc #[(key list) "" [rassoc (byte-code " @A@\"A\"" [list key throw rassoc nil] 4)] 2 "Return non-nil if KEY is `equal' to the cdr of an element of LIST.\nThe value is actually the element of LIST whose cdr is KEY."] rassq #[(key list) "" [rassq (byte-code " @A=@\"A\"" [list key throw rassq nil] 4)] 2 "Return non-nil if KEY is `eq' to the cdr of an element of LIST.\nThe value is actually the element of LIST whose cdr is KEY."]] 2) #@25 Turn VECTOR into a list (defalias 'listify-vector #[(vector) " \"" [append vector nil] 3 (#$ . 211282)]) (put (quote listify-vector) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@55 Same as assoc, but searches on last element in a list (defalias 'reverse-assoc #[(key cache) "\n\f\"\"!" [reverse assoc key mapcar cache] 6 (#$ . 211483)]) #@48 Return a list of the N first elements of LIST. (defalias 'nfirst #[(n list) "X\n??\n@S\nA\"B" [n 0 list nfirst] 4 (#$ . 211650)]) (defalias 'skip-first-zeros #[(list) "@UA" [list 0] 3]) (defalias 'filter-list #[(test list) "\n@!@\nA\"B\nA\"" [list nil test filter-list] 4]) #@29 Recursively copy the list L (defalias 'copy-tree #[(l) ":@!A!B" [l copy-tree] 3 (#$ . 211975)]) #@28 Return t if fn is callable (defalias 'functionp #[(fn) " ! < @= 9 K" [byte-code-function-p fn lambda] 2 (#$ . 212088)]) #@49 Return non-nil if RE looks like a valid regexp. (defalias 'regexpp #[(re) " ĎǏ* )" [t result match-data match-data ((store-match-data match-data)) nil (string-match re "") ((error (byte-code "" [nil result] 1)))] 3 (#$ . 212229)]) (defalias 'mapcar2 #[(fn seq1 seq2) "\n \f\n@ @\" B\nA A )" [nil result seq1 seq2 fn] 3]) (defalias 'lyskom-maxint #[nil "V \nB \\\n\"*" [1 nil l n 0 apply +] 4]) (byte-code "! B" [boundp lyskom-default-collate-table " \n \f\n !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\][^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ\\][~!AAAA\\[\\CEEEEIIIINOOOO]*]UUUYYAAAA\\[\\CEEEEIIIINOOOO]/]UUUYY" current-load-list] 2) #@40 Smash case and diacritical marks on c. (defalias 'lyskom-unicase-char #[(c) " H" [lyskom-collate-table c] 2 (#$ . 213034)]) (put (quote lyskom-unicase-char) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@53 Smash case and diacritical marks of all chars in s. (defalias 'lyskom-unicase #[(s) "p !q\fG\f!V4SH \n H)I," [__buffer__ ((set-buffer __buffer__)) process-buffer lyskom-blocking-process s copy-sequence s2 l 0 c lyskom-collate-table] 4 (#$ . 213258)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: startup.el,v 44.0 1996/08/30 14:48:05 davidk Exp $\n" nil] 2) #@104 Start a LysKOM session. Optional arguments: HOST, USERNAME and PASSWORD. See lyskom-mode for details. (defalias 'lyskom #[(&optional host username password session-priority) "!\n ! !GU8!\n\n\f\" @5\n5*\"fȕO!ȔU^fȉO!!!!!Lߎ!qdb !\"AAAA\"AAAA@S\"AAAAA\"AAAAA@Z!\"\"!\"!!)!!$! .\f./0\n1 234 8#!\" @ Q!P\"A!=WB!BCD\"E!)FGЁH8$IJ!KLAȜ)MKLAȜ)MNKLAȜ)NEOP QROSUTOȜOU#VOȜOUOS$\"KLAW)U3IXKLAW)\"YY%YYAU)*܁Z!![!)\\]^!0_B_^)-" [run-hooks lyskom-init-hook username getenv "KOMNAME" password "KOMPASSWORD" host 0 "KOMSERVER" env-kom rassoc kom-server-aliases canon lyskom-default-server 4894 nil init-done port string-match ":" string-to-int get-buffer buffer name proc lyskom-buffer-p j-or-n-p lyskom-get-string start-new-session-same-server switch-to-buffer ((byte-code " \f !\f!‡" [init-done proc delete-process kill-buffer buffer] 2)) decode-time current-time time 1900 lyskom-insert format new-session-in-buffer lyskom-format-time apply lyskom-create-time buffer-name generate-new-buffer open-network-stream lyskom-mode session-priority lyskom-session-priority lyskom-buffer lyskom-default-user-name lyskom-default-password lyskom-server-name lyskom-proc lyskom-setup-faces lyskom-format try-connect lyskom-clientversion set-process-filter lyskom-connect-filter lyskom-process-send-string "A" lyskom-format-objects user-login-name "%" system-name process-filter accept-process-output set-process-sentinel lyskom-sentinel lyskom-init-parse initiate-set-client-version background "lyskom.el" blocking-do get-server-info lyskom-server-info server-info 10000 100 lyskom-server-version lyskom-setup-client-for-server-version lyskom-format-insert connection-done 2 "%d.%d" 1 "%d.%d.%d" 5 get-text text lyskom-motd-was-garbed "\n" lyskom-executing-command kom-start-anew t lyskom-buffer-list] 9 (#$ . 213668) (list (lyskom-read-server-name (lyskom-format (quote server-q) (or (getenv "KOMSERVER") lyskom-default-server))) nil nil (if current-prefix-arg (prefix-numeric-value current-prefix-arg) nil))]) (defalias 'lyskom-setup-client-check-version #[(spec version) "œÜĜ=E(\nU7\nœU ? \nÜU=\nUi\nœUi\nÜ Y\nU}\nœV\nV=\nU\nœU\nÜ W\nU\nœW\nW," [spec 0 1 2 3 revision minor major relation = version >= <] 6]) #@114 Set up the supports list and flags for the current server. See variable documentation for lyskom-server-feautres (defalias 'lyskom-setup-client-for-server-version #[nil " \" \"\n*" [nil flags result mapcar #[(spec) "œ\f\" \"*" [spec 0 1 plist spec-version lyskom-setup-client-check-version lyskom-server-version mapcar #[(x) ":  B9\nBB B" [x result flags t] 2]] 3] lyskom-server-features #[(x) "L" [x t] 2] lyskom-server-supports] 3 (#$ . 216392)]) #@49 Receive connection acknowledgement from server. (defalias 'lyskom-connect-filter #[(proc output) "\n\n\f#\f\"\n\"" [lyskom-debug-communications-to-buffer lyskom-debug-insert proc "-----> " output string-match "^LysKOM\n" set-process-filter lyskom-filter] 4 (#$ . 216900)]) #@24 Start as a new person. (defalias 'kom-start-anew #[(&optional lyskom-first-time-around) "! \fƎ!\f/ / \"!\fN!%\"!L!)\f\f\"c!Aޜ)P!\f!!!\"#!!##'(Aޜ)\f%!#*!\f\"A)U!0?1A)!)A)UA)U!)6 !!!<2<=+@" [lyskom-start-of-command kom-start-anew lyskom-completing-clear-cache clear-all-caches lyskom-pers-no old-me ((byte-code "  " [lyskom-pers-no old-me nil lyskom-is-new-user lyskom-end-of-command] 1)) lyskom-first-time-around lyskom-tell-internat kom-tell-login nil lyskom-default-user-name conf-z-info->conf-no lyskom-lookup-conf-by-name (pers) lyskom-read-conf-name lyskom-get-string what-is-your-name (pers none) t "" name (pers) lyskom-create-new-person blocking-do get-conf-stat lyskom-inhibit-minibuffer-messages conf-stat lyskom-insert "You don't exist. Go away.\n" 1 "\n" login lyskom-default-password set-default lyskom-is-new-user silent-read password add-member lyskom-server-info server-info 100 lyskom-insert-string wrong-password are-logged-in 10 0 you-have-motd kom-no-comments-to-motd lyskom-show-comments lyskom-view-text 6 14 presentation-encouragement lyskom-dont-read-user-area lyskom-read-options lyskom-refetch cache-set-marked-texts get-marks who-am-i lyskom-who-am-i lyskom-session-no err (byte-code "!!" [run-hooks lyskom-login-hook kom-login-hook] 2) ((error (byte-code "\f\"\"" [lyskom-format-insert-before-prompt error-in-login-hook format "%s" err] 5)))] 8 (#$ . 217193) nil]) #@99 Resets and fetches all reading info. This is called at login and after prioritize and set-unread. (defalias 'lyskom-refetch #[nil " \"! \" \n BB" [lyskom-set-membership blocking-do get-membership lyskom-pers-no t lyskom-membership-is-read get-unread-confs lyskom-unread-confs -1 lyskom-last-conf-fetched lyskom-last-conf-received lyskom-last-conf-done READ-LIST nil lyskom-to-do-list lyskom-reading-list] 4 (#$ . 218841)]) #@58 Sets lyskom-membership to a new value. Args: MEMBERSHIP. (defalias 'lyskom-set-membership #[(membership) " \n\")\"lj" [sort membership vector append nil lyskom-membership-< lyskom-membership t lyskom-membership-is-read] 4 (#$ . 219296)]) #@53 Print the name of the CONF-STAT, with a trailing . (defalias 'lyskom-print-name #[(conf-stat) " Aœ)P!" [lyskom-insert conf-stat 1 "\n"] 4 (#$ . 219550)]) #@115 Extract persons from a conf-list. Return a list of pers-nos of all conferences that are persons. Args: CONF-LIST. (defalias 'lyskom-extract-persons #[(conf-list) " \"" [lyskom-do-extract-persons-or-confs conf-list t] 3 (#$ . 219718)]) #@119 Extract conferences from a conf-list. Return a list of conf-nos of all conferences that are persons. Args: CONF-LIST. (defalias 'lyskom-extract-confs #[(conf-list) " \"" [lyskom-do-extract-persons-or-confs conf-list nil] 3 (#$ . 219963)]) #@94 Extract persons or conferences from CONF-LIST. WANT-PERSONS is t for persons, nil for confs. (defalias 'lyskom-do-extract-persons-or-confs #[(conf-list want-persons) "\fA@)\fAA) G W< Aɜ)\n=5 B T -" [nil result 0 i conf-list nos types len conf-type 3 want-persons] 3 (#$ . 220211)]) #@62 A new user named NAME (or an old that mis-spelled his name). (defalias 'lyskom-create-new-person #[(name) " \"! \"!H!!\n!!,!΂F \n#?!C\n))·" [lyskom-insert lyskom-format first-greeting name lyskom-scroll ja-or-nej-p is-name-correct silent-read lyskom-get-string personal-password password repeat-password lyskom-insert-string repeat-failure nil blocking-do create-person new-person could-not-create-you lyskom-is-new-user] 5 (#$ . 220537)]) #@160 Read the name of a LysKOM server. Copmpletion is done on the servers i kom-server-aliases. If an alias name is entered, the corresponding address is returned. (defalias 'lyskom-read-server-name #[(prompt) " \" \"\"   Ɖ$ \"A(+" [append mapcar #[(pair) "@@B" [pair] 2] kom-server-aliases #[(pair) "A@B" [pair] 2] t nil server completion-ignore-case known-servers completing-read prompt assoc] 5 (#$ . 221032)]) (put (quote lyskom-mode) (quote mode-class) (quote special)) #@3827 \Mode for LysKOM client. Commands: \[kom-next-command] Do the default action. This can be to read the next text,select n ext conference with unread texts or whatever the prompt says. \[kom-go-to-conf] Go to a conference. LysKOM will ask you for a conference and make you a member of it if you are not already. \[kom-list-conferences] List conferences matching a given string. \[kom-list-persons] List persons matching a given string. \[kom-list-news] List the conferences you have unread texts in. \[kom-go-to-next-conf] Go to the next conference with unread texts. \[kom-membership] Display a buffer with the list of conferences you are member in. \[kom-quit] Leave this LysKOM session. \[kom-who-is-on] Show a list of all the users of lyskom right now. \[kom-extended-command] Read a command using the minibuffer and execute it. This is another way to give commands. \[kom-write-text] Start writing a new text. \[kom-write-comment] Start writing a comment to the last read article. \[kom-private-answer] Start writing a personal answer to the author of the last read article. \[kom-send-letter] Start writing a letter to a person or conference. \[kom-page-next-command] Clear the page and do what \[kom-next-command] does. \[kom-line-next-command] Do what \[kom-next-command] does, but scroll at most 1 line. 0 .. 9 Give a numeric argument to the next command. \[describe-mode] Display this help text. \[kom-busy-wait] Put the lyskom-session in wait mode. The next created text with a priotity higher that that of the next conference you are going to will be read directly when it is created. \[kom-set-unread] Mark a number of texts as unread. \[kom-jump] Skip (mark as read) all the comments to this article recursively. \[kom-display-time] Show the current date and time. \[kom-change-presentation] Change your presentation. \[kom-view] View the specified text. \[kom-view-commented-text] View the text that the current text comments or is a footnote to. \[kom-review-presentation] Show the presentation for a person or a conferencce. \[kom-review-comments] View all comments to the current text. \[kom-review-tree] View all comments to the current text and step through the tree in depth-first order. \[kom-find-root-review] View the complete comment tree. \[kom-find-root] Show the root text of this comment tree. \[kom-review-by-to] View the last (first or all) article written by named author in a named conference. \[kom-mark-text] Create a mark on a text. \[kom-unmark-text] Remove the mark on a text. \[kom-review-marked-texts] View all text marked with a certain mark. \[kom-review-all-marked-texts] View all marked text. \[kom-view-next-new-text] Read the next text from the list of unread. \[kom-review-next] Continue the viewing. \[kom-review-stack] Show the stack of things we are viewing. \[kom-review-clear] Clear the stack of things we are viewing. \[kom-review-backward] Toggles the read order of reviewed texts. This can only be done when viewing texts with \[kom-review-by-to], \[kom-review-marked-texts] and \[kom-review-all-marked-texts]. \[kom-status-conf] Show the status of a conference. \[kom-status-person] Show the status of a person \[kom-save-text] Save the text you are looking at to a file. \[kom-get-abuse] Get an insulting text. \[kom-get-appreciation] Get an encouraging text. \[kom-add-self] Become a member of a conference. \[kom-sub-self] Removes you as a member of a conference. All bindings (this is here due to the fact that inconsistensies while developping this package are frequent): \{lyskom-mode-map} Entry to this mode runs lyskom-mode-hook. Functions and variables beginning with kom- are intended for the user to see, set or call. Functions and variables beginning with lyskom- are not intended for the user to see, set of call. (defalias 'lyskom-mode #[nil " PD!  ! ! " [lyskom-clear-vars lyskom-mode-name-from-host ": " mode-line-conf-name mode-line-buffer-identification lyskom-mode major-mode "LysKOM" mode-name lyskom-get-string mode-line-working mode-line-process use-local-map lyskom-mode-map lyskom-count-down-edits run-hooks lyskom-mode-hook lyskom-tell-phrases-validate] 2 (#$ . 221543) nil]) #@27 Set up buffer-local vars. (defalias 'lyskom-clear-vars #[nil " \n \f  \n \f  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Ӂ@!ӁA!ӁB!ӁC!ӁD!ӁE!!ӁF!ӁG!ӁH!ӁI!ӁJ!!ӁK!!!ӁL!ӁM!!ӁN!ӁO!ӁP!ӁQ!ӁR!ӁS!ӁT!ӁU!ӁV!!!ӁW!ӁX!ӁY!ӁZ!Ӂ[!Ӂ\\!Ӂ]! \f \n ^B*_`a\"Cb\\cdc`WCde IdTd)a;aDfgh!!. " [lyskom-proc lyskom-pers-no lyskom-membership lyskom-membership-is-read lyskom-last-viewed lyskom-unparsed-buffer lyskom-unparsed-marker lyskom-server-info lyskom-server-name server-name server-info replies-marker replies-buffer last-viewed membership-is-read membership pers-no proc kill-all-local-variables make-local-variable kom-ansaphone-show-messages kom-ansaphone-record-messages kom-prompt-format kom-ansaphone-on kom-ansaphone-default-reply kom-remote-control kom-remote-controllers kom-login-hook kom-friends kom-permanent-filter-list kom-session-filter-list lyskom-accept-async-flag lyskom-blocking-return lyskom-buffer lyskom-command-to-do lyskom-conf-cache lyskom-count-var lyskom-current-conf lyskom-current-subject lyskom-current-text lyskom-default-password lyskom-default-user-name lyskom-do-when-done lyskom-dynamic-session-info-flag lyskom-dont-change-prompt lyskom-errno lyskom-executing-command lyskom-fetched-texts lyskom-filter-list lyskom-idle-time-flag lyskom-is-administrator lyskom-is-parsing lyskom-is-waiting lyskom-is-writing lyskom-last-conf-done lyskom-last-conf-fetched lyskom-last-conf-received lyskom-last-group-message-recipient lyskom-last-personal-message-sender lyskom-list-of-edit-buffers lyskom-long-conf-types-flag lyskom-marked-text-cache lyskom-current-prompt lyskom-normally-read-texts lyskom-number-of-pending-calls lyskom-options-done lyskom-other-clients-user-areas lyskom-output-queues lyskom-pending-calls lyskom-pers-cache lyskom-prefetch-conf-tresh lyskom-prefetch-confs lyskom-prefetch-texts lyskom-previous-text lyskom-prioritize-buffer lyskom-reading-list lyskom-server-version lyskom-server-supports lyskom-set-last-read-flag lyskom-uconf-stats-flag lyskom-z-lookup-flag lyskom-session-no lyskom-session-priority lyskom-text-cache lyskom-text-mass-cache lyskom-to-be-printed-before-prompt lyskom-to-do-list lyskom-unread-confs lyskom-what-i-am-doing lyskom-who-info-buffer lyskom-who-info-buffer-is-on lyskom-who-info-cache lyskom-collate-table mode-line-conf-name kom-do-when-done make-vector 10 nil lyskom-default-collate-table 0 i lyskom-queue-create lyskom-set-mode-line lyskom-get-string not-present-anywhere] 10 (#$ . 225775)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: reading.el,v 44.0 1996/08/30 14:47:42 davidk Exp $\n" nil] 2) #@220 Takes a MAP and enters all its listed text-nos in the conference CONF-STAT. This works by modifying the lyskom-to-do-list which in some cases also means modifying the lyskom-reading-list. The zero text-nos are skipped. (defalias 'lyskom-enter-map-in-to-do-list #[(map conf-stat) "A)\n\") @U A @ #2 AAƜ)!\fA͜) \")Bĉ&.B \"))" [map 1 vector append nil list 0 read-list-enter-text conf-stat lyskom-to-do-list CONF lyskom-member-p membership 2 delq texts TEXT-LIST forward comm-to text-list priority type READ-INFO info read-list-enter-read-info] 10 (#$ . 228700)]) #@251 Adds a newly fetched MEMBERSHIP-PART to the list in lyskom-membership. If an item of the membership is already read and entered in the lyskom-membership list then this item is not entered and the variable lyskom-membership-is-read is decreased by 1. (defalias 'lyskom-add-membership-to-membership #[(membership) " \");\f@AŜ)\">+ 4 S 4\f@C\"\fA\f \"))" [membership vector append nil list 1 mapcar membership->conf-no lyskom-membership lyskom-membership-is-read] 5 (#$ . 229364)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: internal.el,v 44.0 1996/08/30 14:46:42 davidk Exp $\n" nil] 2) #@321 This is an assoc-list of data for the kom-queues. Each element on the list has the following format: (NAME . KOM-QUEUE) NAME is an atom, the name of the kom-queue. A kom-queue is a way to send questions to the LysKOM server and deal with the replies in a controlled way. KOM-QUEUE is a kom-queue. (defvar lyskom-call-data nil (#$ . 230007)) (make-variable-buffer-local (quote lyskom-call-data)) #@47 Creates a new instance of an empty kom-queue. (defalias 'kom-queue-create #[nil " $" [vector lyskom-queue-create nil 0] 5 (#$ . 230431)]) #@51 Returns the pending field of the kom-queue QUEUE. (defalias 'kom-queue->pending #[(queue) "" [queue 0] 2 (#$ . 230582)]) #@56 Returns the collect-flag field of the kom-queue QUEUE. (defalias 'kom-queue->collect-flag #[(queue) "" [queue 1] 2 (#$ . 230713)]) #@57 Returns the collect-queue field of the kom-queue QUEUE. (defalias 'kom-queue->collect-queue #[(queue) "" [queue 2] 2 (#$ . 230854)]) #@63 Set the collect-flag field of the kom-queue QUEUE to NEW-VAL. (defalias 'set-kom-queue-collect-flag #[(queue new-val) "\nI" [queue 1 new-val] 3 (#$ . 230997)]) #@28 Halts the kom-queue QUEUE. (defalias 'kom-queue-halt #[(queue) "TI" [queue 3] 4 (#$ . 231166)]) #@42 Resume execution on the kom-queue QUEUE. (defalias 'kom-queue-resume #[(queue) "=D\"SI" [queue 3 0 signal lyskom-internal-error "kom-queue-resume called on an unhalted queue: "] 4 (#$ . 231274)]) #@58 Return t if the kom-queue QUEUE is halted at least once. (defalias 'kom-queue-is-halted #[(queue) "V" [queue 3 0] 2 (#$ . 231494)]) #@153 Collect the results of future calls via KOM-QUEUE. The results of the calls will be available to the multi-handler. See lyskom-use and lyskom-list-use. (defalias 'lyskom-collect #[(kom-queue) " \"" [lyskom-call-add kom-queue COLLECT] 3 (#$ . 231638)]) #@156 Collect the result of future calls via KOM-QUEUE. The result of the calls will be available to the multi-handler with the calls producing errors stripped. (defalias 'lyskom-collect-ignore-err #[(kom-queue) " \"" [lyskom-call-add kom-queue COLLECT-IGNORE] 3 (#$ . 231900)]) #@313 Use the previously collected results from calls to the server. Args: KOM-QUEUE MULTI-HANDLER &rest MULTI-HANDLER-DATA MULTI-HANDLER is a function that is called when all previous results have been handled. MULTI-HANDLER-DATA is a list of additional arguments the multi-handler wants. See also lyskom-list-use. (defalias 'lyskom-use #[(kom-queue multi-handler &rest multi-handler-data) " \f$ !" [lyskom-call-add kom-queue USE multi-handler multi-handler-data lyskom-check-call] 5 (#$ . 232183)]) #@508 Use the previously collected results from calls to the server. Args: KOM-QUEUE MULTI-HANDLER &rest MULTI-HANDLER-DATA MULTI-HANDLER is a function that is called when all previous results have been handled. The first argument is a list of the results. MULTI-HANDLER-DATA is a list of additional arguments the multi-handler wants. The difference between lyskom-use and lyskom-list-use is the way the MULTI-HANDLER receives the data. lyskom-list-use sends them as a list, lyskom-use as different parameters. (defalias 'lyskom-list-use #[(kom-queue multi-handler &rest multi-handler-data) " \f$ !" [lyskom-call-add kom-queue LIST-USE multi-handler multi-handler-data lyskom-check-call] 5 (#$ . 232693)]) #@227 Call a function when all calls have been handled. Args: KOM-QUEUE FUNCTION &rest FUNCTION-ARGS Register a FUNCTION that shall be called with FUNCTION-ARGS when all previous calls to the server via KOM-QUEUE have been handled. (defalias 'lyskom-run #[(kom-queue function &rest function-args) " \f$ !" [lyskom-call-add kom-queue RUN function function-args lyskom-check-call] 5 (#$ . 233408)]) #@115 Prohibit execution of handlers on QUEUE-NAME. The execution will resume when (lyskom-resume KOM-QUEUE) is called. (defalias 'lyskom-halt #[(queue-name) " \n\" ! A!)" [assoc queue-name lyskom-call-data queue-pair lyskom-add-new-queue kom-queue-halt] 4 (#$ . 233812)]) #@87 Resume execution of waiting handlers on KOM-QUEUE. See documentation for lyskom-halt. (defalias 'lyskom-resume #[(kom-queue) " \n\" D\"+ A!$ A! !+ E\")" [assoc kom-queue lyskom-call-data queue signal lyskom-internal-error "lyskom-resume called on an unused queue:" kom-queue-is-halted kom-queue-resume lyskom-check-call "lyskom-resume:" "(not halted)"] 6 (#$ . 234095)]) #@149 Add information about a call that has not yet returned to kom-queue. Arguments: KOM-QUEUE REF-NO HANDLER HANDLER-DATA PARSER &rest PARSER-DATA. (defalias 'lyskom-call #[(kom-queue ref-no handler handler-data parser &rest parser-data) " \f &" [lyskom-call-add kom-queue CALL ref-no parser parser-data handler handler-data] 8 (#$ . 234497)]) #@114 Add information about a call that will not return from the server, but will be filled in by some other function. (defalias 'lyskom-fake-call #[(kom-queue ref-no handler handler-data) " ĉ &" [lyskom-call-add kom-queue CALL ref-no nil handler handler-data] 8 (#$ . 234857)]) #@203 Force a call placed on KOM-QUEUE with reference number REF-NO to return RESULT. This should only be used to complete calls placed on the queue using lyskom-fake-call, or the parser might get confused. (defalias 'lyskom-complete-call #[(kom-queue ref-no result) " \n\" \" !)" [lyskom-locate-ref-no kom-queue ref-no call-info lyskom-tr-call-to-parsed result lyskom-check-call] 4 (#$ . 235145)]) #@124 Add QUEUE-NAME to lyskom-call-data as an empty queue. Return a dotted pair consisting of the QUEUE-NAME and the new queue. (defalias 'lyskom-add-new-queue #[(queue-name) " BC \n \n\n@)" [queue-name kom-queue-create new-queue-list lyskom-call-data] 2 (#$ . 235557)]) (defalias 'lyskom-set-queue-priority #[(queue-name priority) " #" [put queue-name lyskom-queue-priority priority] 4]) (defalias 'lyskom-queue-priority #[(queue-name) "N‡" [queue-name lyskom-queue-priority 0] 2]) #@134 Add an entry to the kom-queue QUEUE-NAME. The entry is of type TYPE and third argument DATA contains the rest of the necessary data. (defalias 'lyskom-call-add #[(queue-name type &rest data) " \n\" ! A!B\")" [assoc queue-name lyskom-call-data queue lyskom-add-new-queue lyskom-queue-enter kom-queue->pending type data] 5 (#$ . 236065)]) #@110 Send a packet to the server. Add info on lyskom-pending-calls. Update lyskom-ref-no. Args: KOM-QUEUE STRING. (defalias 'lyskom-send-packet #[(kom-queue string) " !H\f B\"\f BB\fT " [lyskom-queue-enter lyskom-output-queues lyskom-queue-priority kom-queue lyskom-ref-no string lyskom-pending-calls lyskom-check-output-queues] 4 (#$ . 236424)]) #@184 Check for pending calls to the server. Send calls from queues with higher priority first, and make sure that at most lyskom-max-pending-calls are sent to the server at the same time. (defalias 'lyskom-check-output-queues #[nil "" [done (byte-code "\n W< H!! SW\" H! \nT  @ AQ\"))" [9 i lyskom-number-of-pending-calls lyskom-max-pending-calls lyskom-queue-isempty lyskom-output-queues 0 throw done nil lyskom-queue-delete-first entry lyskom-process-send-string lyskom-proc "\n"] 6)] 2 (#$ . 236784)]) #@83 A reply has come. Send a pending call or decrease lyskom-number-of-pending-calls. (defalias 'lyskom-decrease-pending-calls #[nil "SW  " [lyskom-number-of-pending-calls 0 lyskom-check-output-queues] 3 (#$ . 237329)]) #@124 Send PROCESS the contents of STRING. STRING is split in several parts if the operating system can't deal with big strings. (defalias 'lyskom-process-send-string #[(process string) "ď\f)" [0 tries err (byte-code " \n\"Ç" [lyskom-process-send-string-2 process string nil] 3) ((file-error (byte-code "\n\"#A@ǘ:AA@Ș+AA@ɘ:\nV:\n̥\n͇A@ǘjAA@ΘjT\"\"\"!!\"͇@A\"" [lyskom-debug-communications-to-buffer lyskom-debug-insert process "Error: " format "%s" err "writing to process" "message too long" "no more processes" lyskom-max-packet-size 1 2 t "host is unreachable" lyskom-message lyskom-format shaky-tcp make-string tries 46 sit-for 4 lyskom-get-string retrying-tcp signal] 7)))] 3 (#$ . 237562)]) #@177 Send PROCESS the contents of STRING as input. PROCESS may be a process name. At most lyskom-max-packet-size bytes is sent with each packet. If STRING is longer it is splitted. (defalias 'lyskom-process-send-string-2 #[(process string) "G X \f #\"GW] G \\^O\fO\n!qdb \"P) !q))\" \\)" [string lyskom-max-packet-size process-send-string process lyskom-debug-communications-to-buffer lyskom-debug-insert ">>>>>> " 0 i get-buffer-create lyskom-debug-communications-to-buffer-buffer "\n" format "%s" process-buffer] 8 (#$ . 238345)]) #@640 Check lyskom-call-data and call handlers, multi-handlers and functions. Args: QUEUE-NAME. HALTED -> stop CALL -> stop PARSED -> handle -> -> collect-flag? 'COLLECT -> add on temporary resultlist. 'COLLECT-IGNORE -> add on temporary resultlist if not error. no -> delete from lyskom-call-data. COLLECT -> collect-flag? yes -> error! no -> set collect-flag. COLLECT-IGNORE -> collect-flag? yes -> error! no -> set collect-flag. USE -> call handler. Delete previous parts. LIST-USE -> call handler. Delete previous parts. RUN -> call function. Delete. Not allowed inside COLLECT/USE. (defalias 'lyskom-check-call #[(queue-name) " \n\" !! 6 !& !!&@=?6@=d !Ύ!) !=W !=&A@& !A@\"& = !x\"& \" !!& = !\"& \" !!& = !\" !ݎ !!\") \"& = !\" ! !!\") \"& = ! \" !!)&@E\" !! !!+" [assoc queue-name lyskom-call-data queue nil type lyskom-queue->first kom-queue->pending first-pending kom-queue-is-halted lyskom-queue-isempty CALL PARSED kom-queue-halt ((kom-queue-resume queue)) lyskom-apply-handler kom-queue->collect-flag COLLECT COLLECT-IGNORE lyskom-queue-enter kom-queue->collect-queue signal lyskom-internal-error ("lyskom-check-call COLLECT.") set-kom-queue-collect-flag lyskom-queue-make-empty ("lyskom-check-call COLLECT-IGNORE.") USE ("lyskom-check-call USE.") ((kom-queue-resume queue)) lyskom-apply-multi-handler lyskom-queue->all-entries LIST-USE ("lyskom-check-call LIST-USE.") ((kom-queue-resume queue)) lyskom-apply-multi-list-handler RUN ("lyskom-check-call RUN.") ((kom-queue-resume queue)) lyskom-apply-function lyskom-check-call "unknown key:" lyskom-queue-delete-first] 6 (#$ . 238938)]) #@207 Apply a handler. Args: PENDING. PENDING is an entry of the list as described in documentation for the variable lyskom-call-data. The car on the list must be a PARSED: ('PARSED RESULT HANDLER HANDLER-DATA) (defalias 'lyskom-apply-handler #[(pending) "ď)" [nil inhibit-quit error (byte-code "AA@AA@A@AAA@#" [pending apply] 4) ((quit (beep)))] 3 (#$ . 240786)]) #@62 Apply a handler for a lyskom-collect - lyskom-use construct. (defalias 'lyskom-apply-multi-handler #[(pending result-list) "ď)" [nil inhibit-quit error (byte-code " A@\n AA@\"" [apply pending result-list] 4) ((quit (beep)))] 3 (#$ . 241167)]) #@67 Apply a handler for a lyskom-collect - lyskom-list-use construct. (defalias 'lyskom-apply-multi-list-handler #[(pending result-list) "ď)" [nil inhibit-quit error (byte-code " A@\n AA@B\"" [apply pending result-list] 4) ((quit (beep)))] 3 (#$ . 241425)]) (defalias 'lyskom-apply-function #[(pending) "A@AA@\"" [pending HALTED apply] 3]) (byte-code "P##" [lyskom-clientversion-long "$Id: parse.el,v 44.0 1996/08/30 14:47:27 davidk Exp $\n" put lyskom-parse-incomplete error-conditions (error lyskom-error lyskom-parse-incomplete) error-message "LysKOM internal error: Parse incomplete."] 4) #@48 Return STRING omitting any leading whitespace. (defalias 'lyskom-string-skip-whitespace #[(string) "\n\" Ă\n O)" [string-match "[^ \n ]" string start "" nil] 4 (#$ . 242049)]) #@183 Get next character, skipping whitespace, from lyskom-unparsed-buffer and increase lyskom-parse-pos. Signal lyskom-parse-incomplete if the buffer lyskom-unparsed-buffer is exhausted. (defalias 'lyskom-parse-nonwhite-char #[nil " = = = = ! )" [lyskom-parse-char char 32 9 10 13 lyskom-parse-nonwhite-char] 3 (#$ . 242244)]) #@163 Get next character from lyskom-unparsed-buffer and increase lyskom-parse-pos. Signal lyskom-parse-incomplete if the buffer lyskom-unparsed-buffer is exhausted. (defalias 'lyskom-parse-char #[nil "dY \"fT" [lyskom-parse-pos signal lyskom-parse-incomplete nil] 3 (#$ . 242596)]) #@166 Read past next non-white character, which must be equal to CHAR. Return nil, or signal lyskom-protocol-error if the first non-white character was not equal to CHAR. (defalias 'lyskom-expect-char #[(char) " U?SfF\"" [char lyskom-parse-nonwhite-char signal lyskom-protocol-error "Expecting " " but got " lyskom-parse-pos] 6 (#$ . 242893)]) #@44 Check if next token is CHAR (a character). (defalias 'lyskom-char-p #[(char) " \" \"" [string-match format "\\`%c[ \n ]" char lyskom-string-to-parse] 4 (#$ . 243250)]) #@35 Return unparsed data as a string. (defalias 'lyskom-string-to-parse #[nil " d{!" [lyskom-string-skip-whitespace lyskom-parse-pos] 3 (#$ . 243430)]) #@175 Parse the next token as a number. Signal lyskom-parse-incomplete if the number is not followed by whitespace. Signal lyskom-protocol-error if the next token is not a number. (defalias 'lyskom-parse-num #[nil "bdď` `U)!!?u)\"h 3`hb!Bu6!``{!![uO`h D\" +" [lyskom-parse-pos max read-error (byte-code "p!" [read] 2) ((end-of-file (byte-code "\"" [signal lyskom-parse-incomplete nil] 3))) result pos backward-char 1 looking-at "[ \n ]" signal lyskom-parse-incomplete nil "[0-9]+H" string-to-int lyskom-protocol-error "Expected number, got " lyskom-string-to-parse] 4 (#$ . 243587)]) #@157 Parse next token as a string. Signal lyskom-parse-incomplete if the string is not complete. Signal lyskom-protocol-error if the next token is not a string. (defalias 'lyskom-parse-string #[nil " S  \"\"X \"& C\"X˕ !  \\d  \\WL  \\dZ\"W  \\{  \\*)" [lyskom-parse-nonwhite-char lyskom-parse-pos lyskom-string-to-parse to-parse string-match "\\`[0-9]*\\(\\|H\\)\\'" signal lyskom-parse-incomplete nil "\\`[0-9]+H" lyskom-protocol-error 0 string-to-int len end lyskom-string-bytes-missing] 3 (#$ . 244246)]) #@195 Parse next nonwhite char and return t if it was 1, nil if it was 0. Signal lyskom-protocol-error if it was neither 1 nor 0. Signal lyskom-parse-incomplete if there is no nonwhite char to parse. (defalias 'lyskom-parse-1-or-0 #[nil " = Â! =ł!  F\")" [lyskom-parse-nonwhite-char char 48 nil 49 t signal lyskom-protocol-error lyskom-parse-1-or-0 lyskom-parse-pos buffer-string] 7 (#$ . 244805)]) #@207 Parse next char and return t if it was 1, nil if it was 0 or 'space if it was whitespace. Signal lyskom-protocol-error if it was anything else. Signal lyskom-parse-incomplete if there was nothing to parse. (defalias 'lyskom-maybe-parse-1-or-0 #[nil " = Â= =ł= =/ =/ =/ =3ʂ=  F\")" [lyskom-parse-char char 48 nil 49 t 32 9 10 13 space signal lyskom-protocol-error lyskom-parse-1-or-0 lyskom-parse-pos buffer-string] 7 (#$ . 245226)]) #@39 Parse a time from server. Args: none. (defalias 'lyskom-parse-time #[nil "    \f \n & . B" [lyskom-parse-num isdst yday wday year mon mday hour min sec TIME vector] 11 (#$ . 245700)]) #@26 Skip next TO-SKIP tokens (defalias 'lyskom-skip-tokens #[(to-skip) "U? S" [to-skip 0 lyskom-skip-one-token] 3 (#$ . 245929)]) (defalias 'lyskom-skip-one-token #[nil "  \" F \" F \"' F \"3 F \"A\"F C\")" [lyskom-string-to-parse to-parse string-match "\\`{" lyskom-skip-array "\\`*" lyskom-parse-nonwhite-char "\\`[0-9]+H" lyskom-parse-string "\\`[0-9]+[ \n ]" lyskom-parse-num "\\`[0-9]\\'" signal lyskom-parse-incomplete nil lyskom-protocol-error] 3]) (defalias 'lyskom-skip-array #[nil "  \" )" [lyskom-string-to-parse to-parse string-match "\\`}" lyskom-skip-one-token lyskom-skip-array] 3]) #@105 Parse a vector with LEN elements. Each element is parsed by PARSER, a function that takes no arguments. (defalias 'lyskom-parse-vector #[(len parser) "U\n!!!!\" \"!" [len 0 lyskom-expect-char 42 lyskom-char-p 123 lyskom-fill-vector make-vector nil parser 125] 4 (#$ . 246601)]) #@147 Fill a vector. Args: VECTOR PARSER. Fills in all elements in VECTOR. PARSER is called for each element and the result is assigned to the element. (defalias 'lyskom-fill-vector #[(vector parser) " G\nW \f I T* " [0 vector len index parser] 4 (#$ . 246913)]) #@29 Parse a conf-type. No args. (defalias 'lyskom-parse-conf-type #[nil "  \f \n=\n=? \n=?) \n=?2  \n  \f \n \n . " [lyskom-parse-1-or-0 lyskom-maybe-parse-1-or-0 anarchy letterbox secret original rd_prot t space rsv3 rsv2 rsv1 CONF-TYPE] 10 (#$ . 247191)]) #@28 Parse privileges. No args. (defalias 'lyskom-parse-privs #[nil "  \n \f  \f \n  \f \n &.B" [lyskom-parse-1-or-0 flg16 flg15 flg14 flg13 flg12 flg11 flg10 flg9 flg8 flg7 change_name create_conf create_pers statistic admin wheel PRIVS vector] 18 (#$ . 247499)]) #@32 Parse Personal_flags. No args. (defalias 'lyskom-parse-flags #[nil "  \f \n &.B" [lyskom-parse-1-or-0 flg8 flg7 flg6 flg5 flg4 flg3 flg2 unread_is_secret FLAGS vector] 10 (#$ . 247840)]) #@25 Parse a misc-info-list. (defalias 'lyskom-parse-misc-info-list #[nil " \n=ł'\n= !!'\nE\"*" [lyskom-parse-num lyskom-parse-nonwhite-char char n 42 nil 123 lyskom-parse-misc-info-list-sub lyskom-expect-char 125 signal lyskom-protocol-error lyskom-parse-misc-info-list "Expected * or {, got "] 5 (#$ . 248070)]) #@38 Parse a misc-info list with N items. (defalias 'lyskom-parse-misc-info-list-sub #[(n) "C V\f=#\n#|\f=4\n#|\f=D\n\"|\f=T\n\"|\f=d\n\"|\f=t\n\"|\fE\"@A\nA A," [dummy result last lyskom-parse-num next-key nil res n 0 lyskom-parse-misc-recipient RECPT 1 CC-RECPT 2 lyskom-parse-misc-comm-to 3 lyskom-parse-misc-comm-in 4 lyskom-parse-misc-footn-to 5 lyskom-parse-misc-footn-in signal lyskom-protocol-error lyskom-parse-misc-info-list-sub "Unknown misc-type "] 6 (#$ . 248411)]) #@200 Parse a recipient. Args: TYPE LAST N. TYPE is either RECPT or CC-RECPT. LAST is a pointer to the last element on a misc-info-list. N is number of misc-items left to parse. Returns (cons n next-key). (defalias 'lyskom-parse-misc-recipient #[(type last n) " \n  \n  \f \n&\n.\nBBA@ AI* AI*S\"Uq\" AI*S\"U AI*S\"U AI*S\"U AI*S\"*B" [last nil sent-at sender footn-in footn-to comm-in comm-to rec-time local-no recipient-no type MISC-INFO vector next-key info newval misc-info 0 lyskom-parse-num 1 n lyskom-next-num 6 signal lyskom-protocol-error ("No loc-no after recipient.") 2 7 lyskom-parse-time 3 8 9] 14 (#$ . 248986)]) #@159 Parse a comm-to. Args: LAST N. LAST is a pointer to the last element on a misc-info-list. N is number of misc-items left to parse. Returns (cons n next-key). (defalias 'lyskom-parse-misc-comm-to #[(last n) " \n  \n  \f \n&\n.\nBBA@AI* AI*S\"U AI*S\"U AI*S\"*B" [last nil sent-at sender footn-in footn-to comm-in comm-to rec-time local-no recipient-no type MISC-INFO vector next-key info COMM-TO newval misc-info 0 lyskom-parse-num 4 n lyskom-next-num 8 9 lyskom-parse-time] 14 (#$ . 249812)]) #@160 Parse a footn-to. Args: LAST N. LAST is a pointer to the last element on a misc-info-list. N is number of misc-items left to parse. Returns (cons n next-key). (defalias 'lyskom-parse-misc-footn-to #[(last n) " \n  \n  \f \n&\n.\nBBA@AI* AI*S\"U AI*S\"*B" [last nil sent-at sender footn-in footn-to comm-in comm-to rec-time local-no recipient-no type MISC-INFO vector next-key info FOOTN-TO newval misc-info 0 lyskom-parse-num 6 n lyskom-next-num 9 lyskom-parse-time] 14 (#$ . 250452)]) #@159 Parse a comm-in. Args: LAST N. LAST is a pointer to the last element on a misc-info-list. N is number of misc-items left to parse. Returns (cons n next-key). (defalias 'lyskom-parse-misc-comm-in #[(last n) " \n  \n  \f \n&\n.\nBBA@AI* AI*S\")B" [last nil sent-at sender footn-in footn-to comm-in comm-to rec-time local-no recipient-no type MISC-INFO vector info COMM-IN newval misc-info 0 lyskom-parse-num 5 n lyskom-next-num] 14 (#$ . 251054)]) #@160 Parse a footn-in. Args: LAST N. LAST is a pointer to the last element on a misc-info-list. N is number of misc-items left to parse. Returns (cons n next-key). (defalias 'lyskom-parse-misc-footn-in #[(last n) " \n  \n  \f \n&\n.\nBBA@AI* AI*S\")B" [last nil sent-at sender footn-in footn-to comm-in comm-to rec-time local-no recipient-no type MISC-INFO vector info FOOTN-IN newval misc-info 0 lyskom-parse-num 7 n lyskom-next-num] 14 (#$ . 251581)]) #@148 Parse next number if PRE-FETCHED is nil and ITEMS-TO-PARSE is greater than 0. Args: ITEMS-TO-PARSE PRE-FETCHED. Returns -1 if ITEMS-TO-PARSE is 0. (defalias 'lyskom-next-num #[(items-to-parse pre-fetched) "U‡  " [items-to-parse 0 -1 pre-fetched lyskom-parse-num] 2 (#$ . 252111)]) #@29 Parse an array of integers. (defalias 'lyskom-parse-number-array #[nil " \"" [lyskom-parse-vector lyskom-parse-num] 3 (#$ . 252409)]) #@21 Parse a membership. (defalias 'lyskom-parse-membership #[nil " \" \f %-B" [lyskom-parse-time lyskom-parse-num lyskom-parse-vector read-texts last-text-read priority conf-no last-time-read MEMBERSHIP vector] 7 (#$ . 252553)]) #@43 Parse info about the server and protocol. (defalias 'lyskom-parse-version-info #[nil " \f \n#+B" [lyskom-parse-num lyskom-parse-string software-version server-software protocol-version VERSION-INFO vector] 5 (#$ . 252809)]) #@30 Parse info about the server. (defalias 'lyskom-parse-server-info #[nil "  \f \n &.B" [lyskom-parse-num motd-of-lyskom kom-news-conf motd-conf pers-pres-conf conf-pres-conf version SERVER-INFO vector] 8 (#$ . 253050)]) #@40 Parse a text-list (also known as map). (defalias 'lyskom-parse-map #[nil " \" \n\"*B" [lyskom-parse-num lyskom-parse-vector text-nos first-local MAP vector] 4 (#$ . 253299)]) #@19 Parse a who-info. (defalias 'lyskom-parse-who-info #[nil "  \f \n%-B" [lyskom-parse-num lyskom-parse-string username doing-what connection working-conf pers-no WHO-INFO vector] 7 (#$ . 253490)]) #@23 Parse a session-info. (defalias 'lyskom-parse-session-info #[nil "    \f &.B" [lyskom-parse-num lyskom-parse-string lyskom-parse-time connect-time idletime username doing connection working-conf pers-no SESSION-INFO vector] 9 (#$ . 253711)]) #@22 Parse session-flags. (defalias 'lyskom-parse-session-flags #[nil "  \f \n &.B" [lyskom-parse-1-or-0 reserved7 reserved6 reserved5 reserved4 reserved3 user_absent user_active_used invisible SESSION-FLAGS vector] 10 (#$ . 253994)]) #@31 Parse a dynamic-session-info. (defalias 'lyskom-parse-dynamic-session-info #[nil "  \f &.B" [lyskom-parse-num lyskom-parse-session-flags lyskom-parse-string what-am-i-doing flags idle-time working-conference person session DYNAMIC-SESSION-INFO vector] 8 (#$ . 254267)]) #@61 Parse result from functions that only return an OK/FAILURE. (defalias 'lyskom-parse-void #[nil "" [t] 1 (#$ . 254574)]) #@54 Parse result from functions that return a conf-list. (defalias 'lyskom-parse-conf-list #[nil "  \" \" \f+BB" [lyskom-parse-num list-len lyskom-parse-vector lyskom-parse-conf-type conf-types conf-nos CONF-LIST] 4 (#$ . 254702)]) #@57 Parse result from functions that return a conf-no-list. (defalias 'lyskom-parse-conf-no-list #[nil " \"\n!)B" [lyskom-parse-vector lyskom-parse-num conf-nos CONF-NO-LIST vector] 3 (#$ . 254946)]) #@56 Parser result from functions that returns a mark-list. (defalias 'lyskom-parse-mark-list #[nil " \"" [lyskom-parse-vector lyskom-parse-num lyskom-parse-mark] 3 (#$ . 255155)]) #@22 Parse a marked text. (defalias 'lyskom-parse-mark #[nil " \n \"*B" [lyskom-parse-num mark-type text-no MARK vector] 4 (#$ . 255341)]) #@54 Parse a static-session-info and add it to the cache. (defalias 'lyskom-parse-static-session-info #[(session) "  \f \n$,Bp ʎ q \"*)" [lyskom-parse-string lyskom-parse-time connection-time ident-user hostname username STATIC-SESSION-INFO vector info __buffer__ ((set-buffer __buffer__)) lyskom-buffer cache-add-static-session-info session] 6 (#$ . 255489)]) #@82 Parse a conf-stat, add add it in the cache. Retuns the conf-stat. Args: CONF-NO. (defalias 'lyskom-parse-conf-stat #[(conf-no) "  \n \f  \f \n  &.Bp׎q!*)" [conf-no lyskom-parse-string lyskom-parse-conf-type lyskom-parse-time lyskom-parse-num no-of-texts first-local-no no-of-members garb-nice msg-of-day super-conf permitted-submitters supervisor presentation creator last-written creation-time conf-type name CONF-STAT vector conf-stat __buffer__ ((set-buffer __buffer__)) lyskom-buffer cache-add-conf-stat] 17 (#$ . 255878)]) #@83 Parse a uconf-stat, and add it to the cache. Returns the conf-stat. Args CONF-NO. (defalias 'lyskom-parse-uconf-stat #[(conf-no) "  \f%-B\np ̎ q\n!*\n)" [conf-no lyskom-parse-string lyskom-parse-conf-type lyskom-parse-num nice highest-local-no conf-type name UCONF-STAT vector conf-stat __buffer__ ((set-buffer __buffer__)) lyskom-buffer cache-add-uconf-stat] 7 (#$ . 256504)]) #@82 Parse a pers-stat, add add it in the cache. Retuns the pers-stat. Args: PERS-NO. (defalias 'lyskom-parse-pers-stat #[(pers-no) "  \n \f  \f \n &.Bpێq!*)" [pers-no lyskom-parse-string lyskom-parse-privs lyskom-parse-flags lyskom-parse-time lyskom-parse-num no-of-confs no-of-marks no-of-created-texts first-created-text created-confs created-persons no-of-text-fetches read-texts created-bytes created-lines sessions total-time-present user-area last-login flags privileges username PERS-STAT vector pers-stat __buffer__ ((set-buffer __buffer__)) lyskom-buffer cache-add-pers-stat] 20 (#$ . 256920)]) #@78 Parse a text-stat and add it in the cache. Args: TEXT-NO. Value: text-stat. (defalias 'lyskom-parse-text-stat #[(text-no) "    \f&.B\fp Ύq\f!*\f)" [text-no lyskom-parse-time lyskom-parse-num lyskom-parse-misc-info-list misc-info-list no-of-marks no-of-chars no-of-lines author creation-time TEXT-STAT vector text-stat __buffer__ ((set-buffer __buffer__)) lyskom-buffer cache-add-text-stat] 9 (#$ . 257639)]) #@75 Parse a text and add it to the cache. Args: TEXT-NO. Result: text-stat. (defalias 'lyskom-parse-text #[(text-no) " \n\"*Bpǎq !* )" [text-no lyskom-parse-string text-mass TEXT vector text __buffer__ ((set-buffer __buffer__)) lyskom-buffer cache-add-text] 4 (#$ . 258099)]) #@61 Parse result from functions that return a conf-z-info-list. (defalias 'lyskom-parse-conf-z-info-list #[nil "  \"!)" [lyskom-parse-num list-len lyskom-create-conf-z-info-list lyskom-parse-vector lyskom-parse-conf-z-info] 4 (#$ . 258396)]) #@22 Parse a conf-z-info. (defalias 'lyskom-parse-conf-z-info #[nil " #" [lyskom-create-conf-z-info lyskom-parse-string lyskom-parse-conf-type lyskom-parse-num] 4 (#$ . 258646)]) #@44 Parse a membership-list. Returns a vector. (defalias 'lyskom-parse-membership-list #[nil " \"" [lyskom-parse-vector lyskom-parse-num lyskom-parse-membership] 3 (#$ . 258833)]) #@42 Parse a who-info-list. Returns a vector. (defalias 'lyskom-parse-who-info-list #[nil " \"" [lyskom-parse-vector lyskom-parse-num lyskom-parse-who-info] 3 (#$ . 259019)]) #@42 Parse a who-info-list. Returns a vector. (defalias 'lyskom-parse-dynamic-session-info-list #[nil " \"" [lyskom-parse-vector lyskom-parse-num lyskom-parse-dynamic-session-info] 3 (#$ . 259199)]) #@105 Does all initialization of the parsing routines. i.e creates the buffer, sets all markers and pointers. (defalias 'lyskom-init-parse #[(buffer) " Ă\f Q!p ʎ \fq!!\f !db +" [nil lyskom-is-parsing generate-new-buffer lyskom-debug-communications-to-buffer "" " " buffer-name "-replies" lyskom-unparsed-buffer __buffer__ ((set-buffer __buffer__)) lyskom-proc proc make-local-variable lyskom-string-bytes-missing lyskom-buffer buffer point-marker lyskom-unparsed-marker] 4 (#$ . 259404)]) #@62 Parse the results of a successful call and call the handler. (defalias 'lyskom-parse-success #[(ref-no buffer) "p\nq \fA \"q !\nq \f\" !," [__buffer__ ((set-buffer __buffer__)) buffer ref-no lyskom-pending-calls kom-queue lyskom-locate-ref-no call-info lyskom-unparsed-buffer apply-parser lyskom-decrease-pending-calls lyskom-assoc-dremove lyskom-check-call] 3 (#$ . 259934)]) (defalias 'lyskom-locate-ref-no #[(kom-queue ref-no) " \f\"A!!==@@=5@A@ =5@A*" [lyskom-queue->all-entries kom-queue->pending assoc kom-queue lyskom-call-data nil result pending CALL ref-no] 6]) #@92 Args: ELT LIST. Return a copy of LIST, but exclude any elements whose car is equal to ELT. (defalias 'lyskom-assoc-dremove #[(elt list) " B A$\f A@@ AA A\nA*" [nil list head tail elt] 3 (#$ . 260584)]) #@261 Try to parse a reply from the server. CALL-INFO looks like this: (See lyskom-call-data). ('CALL REF-NO PARSER PARSER-DATA HANDLER HANDLER-DATA) PARSER is called, and if it succeeds CALL-INFO is destructively changed to ('PARSED RESULT HANDLER HANDLER-DATA) (defalias 'apply-parser #[(call-info) " AA@ AAA@\" \n\")" [apply call-info result lyskom-tr-call-to-parsed] 3 (#$ . 260815)]) #@31 Transform a CALL to a PARSED. (defalias 'lyskom-tr-call-to-parsed #[(call-info result) "A\nAAAAA" [call-info PARSED result] 2 (#$ . 261211)]) #@64 Parse the result of an unsuccessful call and call the handler. (defalias 'lyskom-parse-error #[(ref-no buffer) "p\nq \fA \" \nq  \nq \f \f\" =\"A! !-" [__buffer__ ((set-buffer __buffer__)) buffer ref-no lyskom-pending-calls kom-queue lyskom-locate-ref-no call-info nil errno lyskom-unparsed-buffer lyskom-parse-num lyskom-errno lyskom-assoc-dremove lyskom-decrease-pending-calls lyskom-tr-call-to-parsed lyskom-message "Bug i lyskom-parse-error" lyskom-check-call] 3 (#$ . 261370)]) #@264 Parse all complete replies in lyskom-unparsed-buffer. All parsing is to take place in this buffer but calling the functions: lyskom-parse-success, lyskom-parse-error and lyskom-parse-async calls functions and variables that are connected with the lyskom-buffer. (defalias 'lyskom-parse-unparsed #[nil "p \n!\fł! !!p\f͎qdSUT ׏eb!P!C*-*!*" [match-data lyskom-buffer lyskom-is-saving lyskom-get-string lyskom-executing-command mode-line-working mode-line-waiting mode-line-process nil lyskom-is-in-minibuffer message "" __buffer__ ((set-buffer __buffer__)) lyskom-unparsed-buffer 0 lyskom-string-bytes-missing 1 lyskom-parse-pos lyskom-parse-nonwhite-char key err (byte-code "\n= \"/\n=\" \"/\n=/ \"e |)" [nil inhibit-quit key 61 lyskom-parse-success lyskom-parse-num lyskom-buffer 37 lyskom-parse-error 58 lyskom-parse-async lyskom-parse-pos] 3) ((lyskom-protocol-error (byte-code "eT| \"" [lyskom-parse-pos signal lyskom-protocol-error err] 3))) looking-at "[ \n ]" delete-char store-match-data] 3 (#$ . 261902)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: services.el,v 44.0 1996/08/30 14:47:57 davidk Exp $\n" nil] 2) #@72 Log in on server. Args: KOM-QUEUE HANDLER PERS-NO PASSWORD &rest DATA. (defalias 'initiate-login #[(kom-queue handler pers-no password &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 0 pers-no password] 6 (#$ . 263138)]) #@136 Log in on server. Args: KOM-QUEUE HANDLER PERS-NO PASSWORD STATUS &rest DATA. Status is 0 for visible login and 1 for invisible login. (defalias 'initiate-login-new #[(kom-queue handler pers-no password status &rest data) " \n \f%  \n $\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 62 pers-no password status] 7 (#$ . 263465)]) #@58 Log out from server. Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-logout #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 1] 6 (#$ . 263876)]) #@72 Change working conference. Args: KOM-QUEUE HANDLER CONF-NO &rest DATA. (defalias 'initiate-pepsi #[(kom-queue handler conf-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 2 conf-no] 6 (#$ . 264150)]) #@87 Change the name of a conference. Args: KOM-QUEUE HANDLER CONF-NO NEW-NAME &rest DATA. (defalias 'initiate-change-name #[(kom-queue handler conf-no new-name &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 3 conf-no new-name] 6 (#$ . 264456)]) #@92 Tell server what you are doing. Args: KOM-QUEUE HANDLER WHAT &rest DATA. WHAT is a string. (defalias 'initiate-change-what-i-am-doing #[(kom-queue handler what &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 4 what] 6 (#$ . 264803)]) #@72 Create a new person. Args: KOM-QUEUE HANDLER NAME PASSWORD &rest DATA. (defalias 'initiate-create-person #[(kom-queue handler name password &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-num lyskom-send-packet lyskom-format-objects 5 name password] 6 (#$ . 265140)]) #@82 Set priv-bits of a person. Args: KOM-QUEUE HANDLER PERS-NO PRIV-BITS &rest DATA. (defalias 'initiate-set-priv-bits #[(kom-queue handler pers-no priv-bits &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 7 pers-no priv-bits] 6 (#$ . 265467)]) #@89 Set the password of a person. Args: KOM-QUEUE HANDLER PERS-NO OLD-PW NEW-PW &rest DATA. (defalias 'initiate-set-passwd #[(kom-queue handler pers-no old-pw new-pw &rest data) " \n \f%  \n $\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 8 pers-no old-pw new-pw] 7 (#$ . 265813)]) #@125 Get a membership struct describing the membership of PERS-NO in CONF-NO. Args: KOM-QUEUE HANDLER PERS-NO CONF-NO &rest DATA (defalias 'initiate-query-read-texts #[(kom-queue handler pers-no conf-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-membership lyskom-send-packet lyskom-format-objects 9 pers-no conf-no] 6 (#$ . 266174)]) #@87 Add a member to a conference. Args: KOM-QUEUE HANDLER CONF-NAME CONF-TYPE &rest DATA. (defalias 'initiate-create-conf #[(kom-queue handler conf-name conf-type &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-num lyskom-send-packet lyskom-format-objects 10 conf-name conf-type] 6 (#$ . 266568)]) #@66 Delete a conference. Args: KOM-QUEUE HANDLER CONF-NO &rest DATA. (defalias 'initiate-delete-conf #[(kom-queue handler conf-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 11 conf-no] 6 (#$ . 266921)]) #@75 See what conferences match NAME. Args: KOM-QUEUE HANDLER NAME &rest DATA. (defalias 'initiate-lookup-name #[(kom-queue handler name &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-conf-list lyskom-send-packet lyskom-format-objects 12 name] 6 (#$ . 267228)]) #@98 Add a member to a conference. Args: KOM-QUEUE HANDLER CONF-NO PERS-NO PRIORITY WHERE &rest DATA. (defalias 'initiate-add-member #[(kom-queue handler conf-no pers-no priority where &rest data) " \n \f%  \n \f%\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 14 conf-no pers-no priority where] 8 (#$ . 267543)]) #@91 Subtract a member from a conference. Args: KOM-QUEUE HANDLER CONF-NO PERS-NO &rest DATA. (defalias 'initiate-sub-member #[(kom-queue handler conf-no pers-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 15 conf-no pers-no] 6 (#$ . 267934)]) #@87 Set presentation of a conference. Args: KOM-QUEUE HANDLER CONF-NO TEXT-NO &rest DATA. (defalias 'initiate-set-presentation #[(kom-queue handler conf-no text-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 16 conf-no text-no] 6 (#$ . 268283)]) #@79 Set motd of a conference. Args: KOM-QUEUE HANDLER CONF-NO TEXT-NO &rest DATA. (defalias 'initiate-set-conf-motd #[(kom-queue handler conf-no text-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 17 conf-no text-no] 6 (#$ . 268634)]) #@80 Set user-area of a person. Args: KOM-QUEUE HANDLER PERS-NO TEXT-NO &rest DATA. (defalias 'initiate-set-user-area #[(kom-queue handler pers-no text-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 57 pers-no text-no] 6 (#$ . 268974)]) #@83 Set supervisor of a conference. Args: KOM-QUEUE HANDLER CONF-NO ADMIN &rest DATA. (defalias 'initiate-set-supervisor #[(kom-queue handler conf-no admin &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 18 conf-no admin] 6 (#$ . 269315)]) #@257 Set permitted submitters of a conference. Args: KOM-QUEUE HANDLER CONF-NO PERM-SUB &rest DATA. PERM-SUB is a conference number. All members in that conference might write texts in CONF-NO. If PERM-SUB is zero everyone is allowed to write texts in CONF-NO. (defalias 'initiate-set-permitted-submitters #[(kom-queue handler conf-no perm-sub &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 19 conf-no perm-sub] 6 (#$ . 269657)]) #@168 Set superconference of a conference. Args: KOM-QUEUE HANDLER CONF-NO SUPER-CONF &rest DATA. Unauthorized attempts to write texts to CONF-NO will bounce to SUPER-CONF. (defalias 'initiate-set-super-conf #[(kom-queue handler conf-no super-conf &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 20 conf-no super-conf] 6 (#$ . 270189)]) #@81 Set type of a conference. Args: KOM-QUEUE HANDLER CONF-NO CONF-TYPE &rest DATA. (defalias 'initiate-set-conf-type #[(kom-queue handler conf-no conf-type &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 21 conf-no conf-type] 6 (#$ . 270625)]) #@143 Set garb-nice of a conference. Args: KOM-QUEUE HANDLER CONF-NO GARB-NICE &rest DATA. Texts in CONF-NO will live approximately GARB-NICE days. (defalias 'initiate-set-garb-nice #[(kom-queue handler conf-no garb-nice &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 22 conf-no garb-nice] 6 (#$ . 270972)]) #@59 Get all marked texts. Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-get-marks #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-mark-list lyskom-send-packet lyskom-format-objects 23] 6 (#$ . 271380)]) #@254 Mark a text. Args: KOM-QUEUE HANDLER TEXT-NO MARK-TYPE &rest DATA. MARK-TYPE is currently a number, but this should maybe be changed (internally in the elisp-klient) to something similar to a conf-type (with several bits that are 't' or 'nil' that is). (defalias 'initiate-mark-text #[(kom-queue handler text-no mark-type &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 24 text-no mark-type] 6 (#$ . 271665)]) #@42 Find the text following the text TEXT-NO (defalias 'initiate-find-next-text-no #[(kom-queue handler text-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-num lyskom-send-packet lyskom-format-objects 60 text-no] 6 (#$ . 272180)]) #@42 Find the text preceding the text TEXT-NO (defalias 'initiate-find-previous-text-no #[(kom-queue handler text-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-num lyskom-send-packet lyskom-format-objects 61 text-no] 6 (#$ . 272468)]) #@74 Get text from LysKOM server. Args: KOM-QUEUE HANDLER TEXT-NO &rest DATA. (defalias 'initiate-get-text #[(kom-queue handler text-no &rest data) " !!\f  &\f  $\".\f\n%\f!)" [cache-get-text text-no text lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-text lyskom-send-packet lyskom-format-objects 25 0 lyskom-max-int lyskom-call-add PARSED lyskom-check-call] 8 (#$ . 272760)]) #@79 Get text-stat from LysKOM server. Args: KOM-QUEUE HANDLER TEXT-NO &rest DATA. (defalias 'initiate-get-text-stat #[(kom-queue handler text-no &rest data) " !\f  &\f \"\"+\f\n%\f!)" [cache-get-text-stat text-no text-stat lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-text-stat lyskom-send-packet lyskom-format-objects 26 lyskom-call-add PARSED lyskom-check-call] 8 (#$ . 273183)]) #@74 Mark all texts in TEXT-LIST as read in CONF-NO. Args: CONF-NO TEXT-LIST. (defalias 'initiate-mark-as-read #[(kom-queue handler conf-no text-list &rest data) " \n \f%   B#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 27 conf-no LIST text-list] 7 (#$ . 273612)]) #@151 Create a new text. Args: KOM-QUEUE HANDLER MESSAGE MISC-LIST &rest DATA. MESSAGE is a string. MISC-LIST should be created by lyskom-create-misc-list. (defalias 'initiate-create-text #[(kom-queue handler message misc-list &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-num lyskom-send-packet lyskom-format-objects 28 message misc-list] 6 (#$ . 273957)]) #@161 Create a new anonymous text. Args: KOM-QUEUE HANDLER MESSAGE MISC-LIST &rest DATA. MESSAGE is a string. MISC-LIST should be created by lyskom-create-misc-list. (defalias 'initiate-create-anonymous-text #[(kom-queue handler message misc-list &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-num lyskom-send-packet lyskom-format-objects 59 message misc-list] 6 (#$ . 274371)]) #@60 Delete a text. Args: KOM-QUEUE HANDLER TEXT-NO &rest DATA. (defalias 'initiate-delete-text #[(kom-queue handler text-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 29 text-no] 6 (#$ . 274804)]) #@85 Add a recipient to a text. Args: KOM-QUEUE HANDLER TEXT-NO CONF-NO TYPE &rest DATA. (defalias 'initiate-add-recipient #[(kom-queue handler text-no conf-no type &rest data) " \n \f%  \n =͂$\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 30 text-no conf-no type recpt 0 1] 8 (#$ . 275105)]) #@87 Subtract a recipient from a text. Args: KOM-QUEUE HANDLER TEXT-NO CONF-NO &rest DATA. (defalias 'initiate-sub-recipient #[(kom-queue handler text-no conf-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 31 text-no conf-no] 6 (#$ . 275483)]) #@86 Add a comment to a text. Args: KOM-QUEUE HANDLER COMMENT-TEXT-NO TEXT-NO &rest DATA. (defalias 'initiate-add-comment #[(kom-queue handler comment-text-no text-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 32 comment-text-no text-no] 6 (#$ . 275831)]) #@93 Subtract a comment from a text. Args: KOM-QUEUE HANDLER COMMENT-TEXT-NO TEXT-NO &rest DATA. (defalias 'initiate-sub-comment #[(kom-queue handler comment-text-no text-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 33 comment-text-no text-no] 6 (#$ . 276192)]) #@224 Get mapping from local to global text-nos for CONF-NO from server. Args: KOM-QUEUE HANDLER CONF-NO FIRST-LOCAL NO-OF-TEXTS DATA-LIST. Use initiate-get-map instead. This function has severe performance losses with big maps. (defalias 'initiate-get-map #[(kom-queue handler conf-no first-local no-of-texts &rest data-list) " \n \f%  \n $\"" [lyskom-call kom-queue lyskom-ref-no handler data-list lyskom-parse-map lyskom-send-packet lyskom-format-objects 34 conf-no first-local no-of-texts] 7 (#$ . 276561)]) #@498 Get mapping from local to global text-nos for CONF-NO from server. Args: KOM-QUEUE HANDLER CONF-NO FIRST-LOCAL NO-OF-TEXTS &rest DATA. This function will automatically split fetching of big maps to small chunks of lyskom-fetch-map-nos texts/chunk if KOM-QUEUE is not already used to collect a result. This currently gives a big performance gain. Unfortunately it is impossible (or at least very hard) to do the same thing when a collect is in progress. This will of course be fixed in protocol B. (defalias 'z-initiate-get-map #[(kom-queue handler conf-no first-local no-of-texts &rest data) " \n!  &  \\ Z  &\f" [kom-queue->collect-flag kom-queue lyskom-call-data apply initiate-get-map handler conf-no first-local no-of-texts data lyskom-receive-partial-map lyskom-fetch-map-nos nil] 13 (#$ . 277084)]) #@55 Receive a partial map and start fetching a new chunk. (defalias 'lyskom-receive-partial-map #[(map first-local no-of-texts conf-no map-so-far kom-queue data-list handler) " C X\n\"#5\n\f  \\ Z\f\n\n&\f)" [map-so-far map map-list no-of-texts 0 apply handler lyskom-map-concat data-list initiate-get-map kom-queue lyskom-receive-partial-map conf-no first-local lyskom-fetch-map-nos] 13 (#$ . 277932)]) #@59 Get time from server. Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-get-time #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-time lyskom-send-packet lyskom-format-objects 35] 6 (#$ . 278372)]) #@27 Get info about the server (defalias 'initiate-get-server-info #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-server-info lyskom-send-packet lyskom-format-objects 36] 6 (#$ . 278650)]) #@88 Add a footnote to a text. Args: KOM-QUEUE HANDLER FOOTNOTE-TEXT-NO TEXT-NO &rest DATA. (defalias 'initiate-add-footnote #[(kom-queue handler footnote-text-no text-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 37 footnote-text-no text-no] 6 (#$ . 278910)]) #@95 Subtract a footnote from a text. Args: KOM-QUEUE HANDLER FOOTNOTE-TEXT-NO TEXT-NO &rest DATA. (defalias 'initiate-sub-footnote #[(kom-queue handler footnote-text-no text-no &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 38 footnote-text-no text-no] 6 (#$ . 279276)]) #@110 Set number of unread texts in a certain conference. Args: KOM-QUEUE HANDLER CONF-NO NO-OF-UNREAD &rest DATA. (defalias 'initiate-set-unread #[(kom-queue handler conf-no no-of-unread &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 40 conf-no no-of-unread] 6 (#$ . 279650)]) #@79 Set message of the day of LysKOM. Args: KOM-QUEUE HANDLER TEXT-NO &rest DATA. (defalias 'initiate-set-motd-of-lyskom #[(kom-queue handler text-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 41 text-no] 6 (#$ . 280028)]) #@63 Set security level. Args: KOM-QUEUE HANDLER LEVEL &rest DATA. (defalias 'initiate-enable #[(kom-queue handler level &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 42 level] 6 (#$ . 280355)]) #@54 Sync the LysKOM datbase. This is a prioritized call. (defalias 'initiate-sync #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 43] 6 (#$ . 280650)]) #@68 Shutdown the server. Args: KOM-QUEUE HANDLER PARAMETER &rest DATA. (defalias 'initiate-shutdown #[(kom-queue handler parameter &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 44 parameter] 6 (#$ . 280919)]) #@94 Send a broadcast message to all logged in users. Args: KOM-QUEUE HANDLER MESSAGE &rest DATA. (defalias 'initiate-broadcast #[(kom-queue handler message &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 45 message] 6 (#$ . 281229)]) #@90 Get membership-list for PERS-NO from server. Args: KOM-QUEUE HANDLER PERS-NO &rest DATA. (defalias 'initiate-get-membership #[(kom-queue handler pers-no &rest data) " \n \f%   %\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-membership-list lyskom-send-packet lyskom-format-objects 46 pers-no 0 lyskom-max-int 1] 8 (#$ . 281562)]) #@111 Get membership-list for PERS-NO from server. Args: KOM-QUEUE HANDLER PERS-NO FIRST-IN-LIST LENGHT &rest DATA. (defalias 'initiate-get-part-of-membership #[(kom-queue handler pers-no first length &rest data) " \n \f%  \n %\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-membership-list lyskom-send-packet lyskom-format-objects 46 pers-no first length 1] 8 (#$ . 281930)]) #@123 Get a part of the list of created texts for a person. Args: KOM-QUEUE HANDLER PERS-NO FIRST-LOCAL NO-OF-TEXTS &rest DATA. (defalias 'initiate-get-created-texts #[(kom-queue handler pers-no first-local no-of-texts &rest data) " \n \f%  \n $\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-map lyskom-send-packet lyskom-format-objects 47 pers-no first-local no-of-texts] 7 (#$ . 282338)]) #@146 Get a part of the list of members in a conference. Args: KOM-QUEUE HANDLER CONF-NO FIRST-LOCAL NO-OF-MEMBERS &rest DATA. Returns a conf-no-list. (defalias 'initiate-get-members #[(kom-queue handler conf-no first-local no-of-members &rest data) " \n \f%  \n $\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-conf-no-list lyskom-send-packet lyskom-format-objects 48 conf-no first-local no-of-members] 7 (#$ . 282760)]) #@76 Get status for person PERS-NO. Args: KOM-QUEUE HANDLER PERS-NO &rest DATA. (defalias 'initiate-get-pers-stat #[(kom-queue handler pers-no &rest data) " !\f  &\f \"\"+\f\n%\f!)" [cache-get-pers-stat pers-no pers-stat lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-pers-stat lyskom-send-packet lyskom-format-objects 49 lyskom-call-add PARSED lyskom-check-call] 8 (#$ . 283211)]) #@79 Get conf-stat from LysKOM server. Args: KOM-QUEUE HANDLER CONF-NO &rest DATA. (defalias 'initiate-get-conf-stat #[(kom-queue handler conf-no &rest data) " ! U  % !B\n5 \f & \"\"B \n % !)" [cache-get-conf-stat conf-no conf-stat 0 lyskom-call-add kom-queue PARSED nil handler data lyskom-check-call lyskom-call lyskom-ref-no lyskom-parse-conf-stat lyskom-send-packet lyskom-format-objects 50] 7 (#$ . 283637)]) #@84 Get an uconf-sstat from LysKOM server. Args: KOM-QUEUE HANDLER CONF-NO &rest DATA. (defalias 'initiate-get-uconf-stat #[(kom-queue handler conf-no &rest data) " ! U  % !B\n5 \f & \"\"B \n % !)" [cache-get-uconf-stat conf-no conf-stat 0 lyskom-call-add kom-queue PARSED nil handler data lyskom-check-call lyskom-call lyskom-ref-no lyskom-parse-uconf-stat lyskom-send-packet lyskom-format-objects 78] 7 (#$ . 284093)]) #@58 Ask server who is on. Args: KOM-QUEUE HANDLER &rest DATA (defalias 'initiate-who-is-on #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-who-info-list lyskom-send-packet lyskom-format-objects 51] 6 (#$ . 284557)]) #@160 Return a list of confs that may have unread texts. Args: KOM-QUEUE HANDLER PERS-NO &rest DATA. PERS-NO is the number of the person whos confs we are checking. (defalias 'initiate-get-unread-confs #[(kom-queue handler pers-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-conf-no-list lyskom-send-packet lyskom-format-objects 52 pers-no] 6 (#$ . 284845)]) #@101 Send a message to one or all logged in users. Args: KOM-QUEUE HANDLER RECIPIENT MESSAGE &rest DATA. (defalias 'initiate-send-message #[(kom-queue handler recipient message &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 53 recipient message] 6 (#$ . 285260)]) #@84 Ask server for info about a session. Args: KOM-QUEUE HANDLER SESSION-NO &rest DATA (defalias 'initiate-get-session-info #[(kom-queue handler session-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-session-info lyskom-send-packet lyskom-format-objects 54 session-no] 6 (#$ . 285625)]) #@66 Disconnect a session. Args: KOM-QUEUE HANDLER SESSION &rest DATA (defalias 'initiate-disconnect #[(kom-queue handler session-no &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 55 session-no] 6 (#$ . 285969)]) #@83 Ask the server which connection we are using. Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-who-am-i #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-num lyskom-send-packet lyskom-format-objects 56] 6 (#$ . 286281)]) #@69 Tell the server to set the client name and version of this session. (defalias 'initiate-set-client-version #[(kom-queue handler name version &rest data) " \n \f%  \n#\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 69 name version] 6 (#$ . 286582)]) #@135 Tell the server to set the highest unread article in conference CONF-NO to TEXT-NO Args: KOM-QUEUE HANDLER CONF-NO TEXT-NO &rest DATA (defalias 'initiate-get-client-name #[(kom-queue handler session &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-string lyskom-send-packet lyskom-format-objects 70 session] 6 (#$ . 286912)]) #@135 Tell the server to set the highest unread article in conference CONF-NO to TEXT-NO Args: KOM-QUEUE HANDLER CONF-NO TEXT-NO &rest DATA (defalias 'initiate-get-client-version #[(kom-queue handler session &rest data) " \n \f%  \"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-string lyskom-send-packet lyskom-format-objects 71 session] 6 (#$ . 287295)]) #@93 Perform a regexp lookup. Args: KOM-QUEUE HANDLER REGEXP WANT-PERSONS WANT-CONFS &rest DATA. (defalias 'initiate-re-z-lookup #[(kom-queue handler regexp want-persons want-confs &rest data) " \n \f%  \n $\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-conf-z-info-list lyskom-send-packet lyskom-format-objects 74 regexp want-persons want-confs] 7 (#$ . 287680)]) #@69 Perform a get-version-info vall. Args: KOM-QUEUE HANDLER &rest DATA (defalias 'initiate-get-version-info #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-version-info lyskom-send-packet lyskom-format-objects 75] 6 (#$ . 288076)]) #@85 Perform a z-lookup. Args: KOM-QUEUE HANDLER NAME WANT-PERSONS WANT-CONFS &rest DATA (defalias 'initiate-lookup-z-name #[(kom-queue handler name want-persons want-confs &rest data) "\n \f %\n\n \f$\"  \n \f $ T\n\n  \f&)" [lyskom-z-lookup-flag lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-conf-z-info-list lyskom-send-packet lyskom-format-objects 76 name want-persons want-confs ref-no lyskom-fake-call initiate-lookup-name compat initiate-compat-lookup-z-name-2] 8 (#$ . 288380)]) (defalias 'initiate-compat-lookup-z-name-2 #[(result kom-queue ref-no want-persons want-confs) "\n\n #A@)\")AA)\") ! l\fE@ AΜ)W_@ AΜ)_ @# A A.\n $*" [result lyskom-complete-call kom-queue ref-no nil conf-list vector append conf-types conf-nos lyskom-collect follow want-persons conf-type 3 want-confs initiate-get-conf-stat lyskom-list-use initiate-compat-lookup-z-name-3] 6]) (defalias 'initiate-compat-lookup-z-name-3 #[(conf-list kom-queue ref-no) " \n\"!#" [lyskom-complete-call kom-queue ref-no lyskom-create-conf-z-info-list mapcar #[(conf-stat) " Aœ) AÜ) AĜ)#" [lyskom-create-conf-z-info conf-stat 1 2 0] 6] conf-list] 7]) #@135 Tell the server to set the highest unread article in conference CONF-NO to TEXT-NO Args: KOM-QUEUE HANDLER CONF-NO TEXT-NO &rest DATA (defalias 'initiate-set-last-read #[(kom-queue handler conf-no text-no &rest data) "\n \f %\n\n #\"\n\n\n\f\n &" [lyskom-set-last-read-flag lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 77 conf-no text-no initiate-get-conf-stat initiate-set-last-read-2] 9 (#$ . 289632)]) (defalias 'initiate-set-last-read-2 #[(conf-stat kom-queue handler conf-no text-no data) "A)Aœ)\\S ZW \n%\f#\")" [conf-stat 13 14 text-no no-of-unread 0 lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 40 conf-no] 7]) #@79 Request asynchronous messages in LIST Args: KOM-QUEUE HANDLER LIST &rest DATA (defalias 'initiate-accept-async #[(kom-queue handler list &rest data) " \n \f% \nB\"\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 80 LIST list] 6 (#$ . 290438)]) #@96 Request information on which async messages are being sent. Args: KOM-QUEUE HANDLER &rest DATA (defalias 'initiate-query-async #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-number-array lyskom-send-packet lyskom-format-objects 81] 6 (#$ . 290761)]) #@79 Notify the server that the user is active Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-user-active #[(kom-queue handler &rest data) " \n \f% !\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-void lyskom-send-packet lyskom-format-objects 82] 6 (#$ . 291087)]) #@98 Ask server who is on. Args: KOM-QUEUE HANDLER WANT-VISIBLE WANT-INVISIBLE ACTIVE_LAST &rest DATA (defalias 'initiate-who-is-on-dynamic #[(kom-queue handler want-visible want-invisible active-last &rest data) " \n \f%  \n $\"" [lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-dynamic-session-info-list lyskom-send-packet lyskom-format-objects 83 want-visible want-invisible active-last] 7 (#$ . 291388)]) #@84 Ask server for info about a session. Args: KOM-QUEUE HANDLER SESSION-NO &rest DATA (defalias 'initiate-get-static-session-info #[(kom-queue handler session-no &rest data) " !\f  &\f \"\"+\f\n%\f!)" [cache-get-static-session-info session-no info lyskom-call kom-queue lyskom-ref-no handler data lyskom-parse-static-session-info lyskom-send-packet lyskom-format-objects 84 lyskom-call-add PARSED lyskom-check-call] 8 (#$ . 291822)]) #@26 Return from blocking-do. (defvar lyskom-blocking-return nil (#$ . 292287)) #@25 Sets blocking variable. (defalias 'blocking-return #[(retval) "" [retval lyskom-blocking-return] 2 (#$ . 292368)]) #@236 Does the COMMAND agains the lyskom-server and returns the result. COMMAND is one lyskom-command (like the initiate-* but the initiate- is stripped. The cache is consulted when command is get-conf-stat, get-pers-stat or get-text-stat. (defalias 'blocking-do #[(command &rest data) " \n!q   !P!$=B !>BB##LZ!!\"*" [process-buffer lyskom-proc lyskom-blocking-process lyskom-is-parsing lyskom-really-serious-bug not-yet-gotten lyskom-blocking-return apply intern-soft "initiate-" symbol-name command blocking blocking-return data process-status (open run) lyskom-quit-flag accept-process-output nil lyskom-apo-timeout-s lyskom-apo-timeout-ms quit-flag lyskom-insert-before-prompt lyskom-get-string interrupted signal quit] 5 (#$ . 292494)]) #@50 Waits until all data on QUEUE has been processed (defalias 'lyskom-wait-queue #[(queue) " \n!qC#\f=* *\f # 4?!!\" \f*" [process-buffer lyskom-proc lyskom-blocking-process not-yet-gotten lyskom-blocking-return lyskom-run queue blocking-return t lyskom-quit-flag accept-process-output nil lyskom-apo-timeout-s lyskom-apo-timeout-ms quit-flag lyskom-insert-before-prompt lyskom-get-string interrupted signal quit] 4 (#$ . 293305)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: cache.el,v 44.0 1996/08/30 14:45:14 davidk Exp $\n" nil] 2) #@151 Get uconf-stat for conference CONF-NO, or nil if nothing is cached. If full conf-stat is cached, construct an uconf-stat from that data and cache it. (defalias 'cache-get-uconf-stat #[(conf-no) " \n\"\f !!" [cache-assoc conf-no lyskom-uconf-cache cache-construct-uconf-stat cache-get-conf-stat] 3 (#$ . 293900)]) #@99 If conf is non-nil, create an uconf-stat from conf and cache it. Return the new uconf-stat or nil (defalias 'cache-construct-uconf-stat #[(conf) "\nO\nAŜ)\nAƜ)\nAǜ)\nAȜ)\nAɜ)\\\nAʜ) \f  \f %-B! )" [nil tmp conf cache-add-uconf-stat conf-stat 0 1 2 13 14 11 nice highest-local-no conf-type name conf-no UCONF-STAT vector] 9 (#$ . 294225)]) #@35 Insert a UCONF-STAT in the cache. (defalias 'cache-add-uconf-stat #[(uconf-stat) " AÜ) #" [cache-add uconf-stat conf 0 lyskom-uconf-cache] 5 (#$ . 294613)]) #@51 Delete a conf-stat from the cache. Args: CONF-NO. (defalias 'cache-del-uconf-stat #[(conf-no) " \" \"" [cache-del conf-no lyskom-uconf-cache lyskom-conf-cache] 3 (#$ . 294782)]) #@68 Get conf-stat for conference CONF-NO, or nil if nothing is cached. (defalias 'cache-get-conf-stat #[(conf-no) " \n\"" [cache-assoc conf-no lyskom-conf-cache] 3 (#$ . 294972)]) #@34 Insert a CONF-STAT in the cache. (defalias 'cache-add-conf-stat #[(conf-stat) " Aœ) #" [cache-add conf-stat 0 lyskom-conf-cache] 5 (#$ . 295156)]) #@51 Delete a conf-stat from the cache. Args: CONF-NO. (defalias 'cache-del-conf-stat #[(conf-no) " \" \"" [cache-del conf-no lyskom-conf-cache lyskom-uconf-cache] 3 (#$ . 295315)]) #@64 Get pers-stat for person PERS-NO, or nil if nothing is cached. (defalias 'cache-get-pers-stat #[(pers-no) " \n\"" [cache-assoc pers-no lyskom-pers-cache] 3 (#$ . 295504)]) #@34 Insert a PERS-STAT in the cache. (defalias 'cache-add-pers-stat #[(pers-stat) " Aœ) #" [cache-add pers-stat 0 lyskom-pers-cache] 5 (#$ . 295684)]) #@51 Delete a pers-stat from the cache. Args: PERS-NO. (defalias 'cache-del-pers-stat #[(pers-no) " \"" [cache-del pers-no lyskom-pers-cache] 3 (#$ . 295843)]) #@64 Get text-stat for texton TEXT-NO, or nil if nothing is cached. (defalias 'cache-get-text-stat #[(text-no) " \n\"" [cache-assoc text-no lyskom-text-cache] 3 (#$ . 296007)]) #@34 Insert a TEXT-STAT in the cache. (defalias 'cache-add-text-stat #[(text-stat) " Aœ) #" [cache-add text-stat 0 lyskom-text-cache] 5 (#$ . 296187)]) #@51 Delete a text-stat from the cache. Args: TEXT-NO. (defalias 'cache-del-text-stat #[(text-no) " \"" [cache-del text-no lyskom-text-cache] 3 (#$ . 296346)]) #@59 Get text for textno TEXT-NO, or nil if nothing is cached. (defalias 'cache-get-text #[(text-no) " \n\")= )" [cache-assoc text-no lyskom-text-mass-cache tx object TEXT] 4 (#$ . 296510)]) #@29 Insert a TEXT in the cache. (defalias 'cache-add-text #[(text) " Aœ) #" [cache-add text 0 lyskom-text-mass-cache] 5 (#$ . 296713)]) #@46 Delete a text from the cache. Args: TEXT-NO. (defalias 'cache-del-text #[(text-no) " \"" [cache-del text-no lyskom-text-mass-cache] 3 (#$ . 296857)]) #@50 Return the a list of marks for all marked texts. (defalias 'cache-get-marked-texts #[nil "" [lyskom-marked-text-cache] 1 (#$ . 297016)]) #@128 Sets the marks for all marked texts. A mark-list is an array, but we want a list in the cache, so this remakes it into a list. (defalias 'cache-set-marked-texts #[(mark-array) " \")" [mark-array vector append nil lyskom-marked-text-cache] 3 (#$ . 297162)]) #@89 Return the mark if the text text-no is marked by the current user, otherwise return nil (defalias 'cache-text-is-marked #[(text-no) " &\n&\f @AŜ) @ A\n*" [lyskom-marked-text-cache nil mark marks text-no 0] 4 (#$ . 297432)]) #@67 Insert a mark into the cache. If it is already there, replace it. (defalias 'cache-add-marked-text #[(text-no mark-type) "\n \n \"*BGG@?\n@Aɜ)?ʉA?SB+" [lyskom-marked-text-cache nil text-no mark-type MARK vector mark found marks 0 t] 7 (#$ . 297687)]) #@119 Remove the mark from the cache of marked texts if it is there. +++BUG: A mark is replaced with a nil and not removed. (defalias 'cache-del-marked-text #[(text-no) "\n?, ??,\f @AƜ)& lj A*" [lyskom-marked-text-cache nil found marks text-no mark 0 t] 4 (#$ . 298007)]) #@75 Get static-session-info for session SESSION, or nil if nothing is cached. (defalias 'cache-get-static-session-info #[(session) " \n\":\f@=) )" [cache-assoc session lyskom-static-session-info-cache tx static-session-info STATIC-SESSION-INFO] 4 (#$ . 298305)]) #@27 Insert INFO in the cache. (defalias 'cache-add-static-session-info #[(session info) " \n#" [cache-add session info lyskom-static-session-info-cache] 4 (#$ . 298583)]) #@46 Delete a text from the cache. Args: SESSION. (defalias 'cache-del-static-session-info #[(session) " \"" [cache-del session lyskom-static-session-info-cache] 3 (#$ . 298759)]) #@35 Sets the cache of who-info items. (defalias 'cache-initiate-who-info-buffer #[(who-info-arr kombuf) "CpÎ P!q!\n \" *\")\"\"" [WHO-INFO-LIST lyskom-who-info-cache __buffer__ ((set-buffer __buffer__)) get-buffer-create buffer-name "-who" lyskom-who-info-buffer make-local-variable kom-buffer kombuf lyskom-buffer local-set-key [mouse-2] kom-mouse-2 erase-buffer mapcar cache-add-who-info sort who-info-arr vector append nil #[(who1 who2) "Aœ) Aœ)W" [who1 who-info 2 who2] 4]] 7 (#$ . 298943)]) #@71 Adds another entry to the lyskom-who-info-cache. Updating the buffer. (defalias 'cache-add-who-info #[(who-info) "%! AƜ)# Aǜ)# #" [lyskom-who-info-buffer-is-on lyskom-collect who-buffer initiate-get-conf-stat nil who-info 0 1 lyskom-use lyskom-set-who-info-buffer-2] 6 (#$ . 299484)]) #@89 Adds another entry to the lyskom-who-info-cache. Updating the buffer. ARG: session-info (defalias 'cache-add-session-info #[(session-info) "/!!Aǜ)#AȜ)###" [session-info lyskom-halt who-buffer lyskom-collect who-buffer-2 initiate-get-conf-stat nil 0 1 lyskom-use lyskom-set-session-info lyskom-run lyskom-resume] 6 (#$ . 299799)]) #@80 Delete the session SESSION-NO from the lyskom-who-info-cache. Updating buffer. (defalias 'cache-del-who-info #[(session-no) "5\n \"4pƎq\f!!\f!!|*\f!ˉ\f!ˉ\n\")" [lyskom-who-info-buffer-is-on cache-assoc session-no lyskom-who-info-cache where __buffer__ ((set-buffer __buffer__)) lyskom-who-info-buffer marker-position who-buffer-info->start-marker who-buffer-info->end-marker nil cache-del] 5 (#$ . 300170)]) #@54 Inserts a who-buffer-info into lyskom-who-info-cache (defalias 'lyskom-set-who-info-buffer-2 #[(pers-conf-stat conf-conf-stat who-info) "" [nil] 1 (#$ . 300613)]) #@51 Inserts a session-info into lyskom-who-info-cache (defalias 'lyskom-set-session-info #[(pers-conf-stat conf-conf-stat session-info) "" [nil] 1 (#$ . 300784)]) #@91 A list of all the caches in use. This is used to clear all caches with `clear-all-caches' (defvar lyskom-caches nil (#$ . 300951)) (defalias 'cache-create #[(cache) "L\nB" [cache nil lyskom-caches] 2]) #@91 Get data for item with key KEY from CACHE. CACHE is an assoc-list in this implementation. (defalias 'cache-assoc #[(key cache) " \n\"" [assoc key cache] 3 (#$ . 301166)]) #@167 Add DATA to CACHE under the key KEY. Args: KEY DATA CACHE. CACHE is a (the only one) quoted variable pointing to the cache (an alist). The variable might be changed. (defalias 'cache-add #[(key data cache) "J ! J\" BJBL!\f )" [cache cache-create assoc key oldval data] 4 (#$ . 301347)]) #@98 Delete item with key KEY from CACHE. CACHE is the name of the variable that points to the cache. (defalias 'cache-del #[(key cache) " \nJ\" ġ)" [assoc key cache oldval nil] 4 (#$ . 301660)]) (defalias 'cache-clear #[(cache) "L \"" [cache nil delete lyskom-caches] 3]) (defalias 'clear-all-caches #[nil "\n\"É" [mapcar #[(cache) "L" [cache nil] 2] lyskom-caches nil] 3]) #@61 What the client thinks the server thinks the user is doing. (defvar lyskom-what-i-am-doing nil (#$ . 302061)) #@55 Tell the server what the user is doing. Args: STRING. (defalias 'lyskom-tell-server #[(string) " #" [string lyskom-what-i-am-doing initiate-change-what-i-am-doing background nil] 4 (#$ . 302177)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: commands1.el,v 44.0 1996/08/30 14:45:32 davidk Exp $\n" nil] 2) #@42 Give the user a little light in the dark (defalias 'kom-get-appreciation #[nil "!Ž!)" [lyskom-start-of-command kom-get-appreciation ((lyskom-end-of-command)) lyskom-insert-string appreciation] 2 (#$ . 302509) nil]) #@38 Give the user a little verbal abuse. (defalias 'kom-get-abuse #[nil "!Ž!)" [lyskom-start-of-command kom-get-abuse ((lyskom-end-of-command)) lyskom-insert-string abuse] 2 (#$ . 302737) nil]) #@34 Delete a person or a conference. (defalias 'kom-delete-conf #[nil "!Ž!lj% n  A͜)AϜ)1!4!  AҜ)#!h  A՜)\"`  AҜ)\"q \"q!q!*" [lyskom-start-of-command kom-delete-conf ((lyskom-end-of-command)) lyskom-read-conf-stat lyskom-get-string what-conf-to-delete (all) nil t conf-stat lyskom-ja-or-nej-p lyskom-format confirm-delete-pers-or-conf 2 conf-type 3 the-pers the-conf 1 blocking-do delete-conf 0 lyskom-format-insert conf-is-deleted you-could-not-delete lyskom-insert-string deletion-not-confirmed somebody-else-deleted-that-conf] 7 (#$ . 302940) nil]) #@34 Delete a text. Argument: TEXT-NO (defalias 'kom-delete-text #[(text-no-arg) "!Ž Ă\"  \" yAǜ)>ނAĜ)AÜ)Aۜ)UAۜ)#Aǜ))BC\"Aǜ)!: AĜ)AÜ)jAۜ)UjAۜ)sAǜ))B)\nA  BC\"#$$+" [kom-confirm-multiple-recipients before data 1 2 lyskom-pers-no conf-stat 0 nil new-data lyskom-j-or-n-p lyskom-format comment-keep-recpt-p member lyskom-create-misc-list type comment comm-to footnote footn-to signal lyskom-internal-error "Unknown comment type" text-stat recver recpts conf-type 9 append ccrep cc-recpt recpt lyskom-member-p t lyskom-edit-text lyskom-proc subject ""] 7) ((quit (byte-code "\"" [signal quit "quit in lyskom-comment-recipients"] 3)))] 3 (#$ . 317318)]) #@125 Write a private answer to the current text. If optional arg TEXT-NO is present write a private answer to that text instead. (defalias 'kom-private-answer #[(&optional text-no) "!Ž  \" \" #!)" [lyskom-start-of-command kom-private-answer ((lyskom-end-of-command)) text-no lyskom-private-answer-soon blocking-do get-text-stat get-text lyskom-insert-string confusion-who-to-reply-to] 5 (#$ . 318831) (list (cond ((null current-prefix-arg) lyskom-current-text) ((integerp current-prefix-arg) current-prefix-arg) ((listp current-prefix-arg) (lyskom-read-number (lyskom-get-string (quote what-private-no)))) (t (signal (quote lyskom-internal-error) (quote (kom-private-answer))))))]) #@44 Write a private answer to TEXT-STAT, TEXT. (defalias 'lyskom-private-answer-soon #[(text-stat text text-no) ") ) AĜ)\"$ AĜ)ƉO\"\"\n\"" [text-stat text string-match "\n" 1 lyskom-private-answer 0 "" lyskom-format-insert no-such-text-no text-no] 6 (#$ . 319532)]) #@50 Write a private answer. Args: TEXT-STAT SUBJECT. (defalias 'lyskom-private-answer #[(text-stat subject) "!!Aɜ)A˜)\f& $" [text-stat lyskom-insert-string confusion-what-to-answer-to lyskom-tell-internat kom-tell-write-reply lyskom-edit-text lyskom-proc lyskom-create-misc-list comm-to 0 recpt 2 lyskom-pers-no subject ""] 10 (#$ . 319828)]) #@51 Write a private answer to previously viewed text. (defalias 'kom-private-answer-previous #[nil "!Ž  \" \"\"!)" [lyskom-start-of-command kom-private-answer-previous ((lyskom-end-of-command)) lyskom-previous-text lyskom-private-answer-soon-prev blocking-do get-text-stat get-text lyskom-insert-string confusion-who-to-reply-to] 5 (#$ . 320203) nil]) #@44 Write a private answer to TEXT-STAT, TEXT. (defalias 'lyskom-private-answer-soon-prev #[(text-stat text) "\nAÜ)\" \nAÜ)ƉO\" \"" [string-match "\n" text 1 lyskom-private-answer text-stat 0 ""] 6 (#$ . 320575)]) #@120 Quit session. Kill process and buffer-local variables. If optional argument is non-nil then dont ask for confirmation. (defalias 'kom-quit #[(&optional arg) "\"Ď \"@!\"!!\"‚7 /!!6 ΂7‰*" [lyskom-start-of-command kom-quit t do-end-of-command ((byte-code " " [do-end-of-command lyskom-end-of-command] 1)) lyskom-count-down-edits display-buffer lyskom-list-of-edit-buffers lyskom-ja-or-nej-p lyskom-get-string quit-in-spite-of-unsent arg really-quit lyskom-quit nil] 3 (#$ . 320810) "P"]) #@86 Quit a session. Kill process and buffer-local variables. Don't ask for confirmation. (defalias 'lyskom-quit #[nil "\"\f \"\f\"\f\"\f!! !!" [initiate-logout main nil delq lyskom-proc lyskom-sessions-with-unread lyskom-sessions-with-unread-letters set-process-sentinel delete-process lyskom-insert-string session-ended lyskom-scroll lyskom-get-string mode-line-down mode-line-process run-hooks kom-quit-hook] 3 (#$ . 321346)]) #@51 Change presentation for a person or a conference. (defalias 'kom-change-presentation #[nil "!Ž!%\nU\f\n\n\")\")" [lyskom-start-of-command kom-change-presentation ((lyskom-end-of-command)) lyskom-change-pres-or-motd-2 lyskom-read-conf-no lyskom-get-string what-to-change-pres-you (all) t nil no 0 lyskom-pers-no blocking-do get-conf-stat pres] 8 (#$ . 321807) nil]) #@43 Change motd for a person or a conference. (defalias 'kom-change-conf-motd #[nil "!Ž!%\nU\f\n\n\")\")" [lyskom-start-of-command kom-change-conf-motd ((lyskom-end-of-command)) lyskom-change-pres-or-motd-2 lyskom-read-conf-no lyskom-get-string who-to-put-motd-for (all) t nil no 0 lyskom-pers-no blocking-do get-conf-stat motd] 8 (#$ . 322203) nil]) #@115 Change the presentation or motd of CONF-STAT. TYPE is either 'pres or 'motd, depending on what should be changed. (defalias 'lyskom-change-pres-or-motd-2 #[(conf-stat type) "! %AŜ)!%Aǜ)U \f==AМ)j\f=jAҜ)AМ)aAҜ)jAԜ)\"AԜ)\f=Aל)\f=A؜)\"AԜ)\"AԜ)ǕO\f=AҜ)AМ)!)\f=\f=Aǜ)&\"" [conf-stat lyskom-insert-string cant-get-conf-stat lyskom-is-administrator lyskom-member-p 7 lyskom-pers-no 0 lyskom-dispatch-edit-text lyskom-proc lyskom-create-misc-list recpt type motd lyskom-server-info server-info 3 pres 2 conf-type 1 blocking-do get-text 6 10 text-mass string-match "\n" text nil lyskom-get-string presentation-form "" lyskom-set-presentation lyskom-set-conf-motd lyskom-format-insert not-supervisor-for] 9 (#$ . 322582)]) #@44 Removes motd for a person or a conference. (defalias 'kom-unset-conf-motd #[nil "!Ž!% \"\f#!J6\f\fAќ)!E\f\fAӜ)\"J\f\"*" [lyskom-start-of-command kom-unset-conf-motd ((lyskom-end-of-command)) lyskom-read-conf-stat lyskom-get-string who-to-remove-motd-for (all) t nil blocking-do get-conf-stat lyskom-pers-no conf-stat lyskom-insert-string cant-get-conf-stat lyskom-is-administrator lyskom-member-p 7 lyskom-set-conf-motd 0 lyskom-format-insert not-supervisor-for] 7 (#$ . 323472) nil]) #@179 Select a certain conference. The user is prompted for the name of the conference. If s/he was already reading a conference that conference will be put back on lyskom-to-do-list. (defalias 'kom-go-to-conf #[(&optional conf-no) "!Ž  \"!%  !*" [lyskom-start-of-command kom-go-to-conf ((lyskom-end-of-command)) conf-no blocking-do get-conf-stat lyskom-read-conf-stat lyskom-get-string go-to-conf-p (all) nil "" t conf lyskom-go-to-conf] 6 (#$ . 324012) nil]) #@139 Go to the conference in CONF. CONF can be conf-no of conf-stat. Allowed conferences are conferences and the mailboxes you are member of. (defalias 'lyskom-go-to-conf #[(conf) "\n\"AŜ)!\"'\"uAʜ) A̜)?\"u\" !!rAŜ)\"lAŜ)!\"u!u!)" [conf blocking-do get-conf-stat lyskom-member-p conf-stat 0 membership lyskom-format-insert go-to-conf lyskom-do-go-to-conf 2 conf-type 3 cant-go-to-his-mailbox not-member-of-conf lyskom-scroll lyskom-j-or-n-p lyskom-get-string want-become-member lyskom-add-member-by-no lyskom-pers-no lyskom-insert-string nope no-ok] 6 (#$ . 324497)]) #@136 Go to a conference. Args: CONF-STAT MEMBERSHIP. Put a read-info of type CONF first on lyskom-reading-list. Args: CONF-STAT MEMBERSHIP (defalias 'lyskom-do-go-to-conf #[(conf-stat membership) " !\f\f!GS)A) \n \f \f W\f A *AϜ)z\fAƜ)\f A *AϜ)AƜ)UzЉ *\fT\f( \f A *\nAB*\fAƜ)\"\nAB+ ,A) AI*\fA)\"\f!)" [lyskom-get-current-priority priority lyskom-maybe-move-unread nil conf-stat lyskom-set-mode-line 0 lyskom-to-do-list read-list found list len r n read-info 1 t lyskom-reading-list read-list-delete-read-info newval 2 lyskom-enter-conf lyskom-go-to-empty-conf] 5 (#$ . 325147)]) #@62 Go to a conference with no unseen messages. Args: CONF-STAT. (defalias 'lyskom-go-to-empty-conf #[(conf-stat) "\nAÜ)\"\nAÜ)\n\"" [blocking-do pepsi conf-stat 0 lyskom-current-conf lyskom-format-insert conf-all-read] 5 (#$ . 325890)]) #@36 Return the current priority level. (defalias 'lyskom-get-current-priority #[nil "A)AÜ)\fA)AÜ)Ň" [lyskom-reading-list read-list read-info 2 lyskom-to-do-list -1] 3 (#$ . 326143)]) #@15 write a text. (defalias 'kom-write-text #[nil "!Ž U! #! \"Ή$)" [lyskom-start-of-command kom-write-text ((lyskom-end-of-command)) lyskom-current-conf 0 lyskom-insert-string no-in-conf lyskom-end-of-command lyskom-tell-internat kom-tell-write-text lyskom-edit-text lyskom-proc lyskom-create-misc-list recpt ""] 5 (#$ . 326348) nil]) #@55 List all persons whose name matches MATCH (a string). (defalias 'kom-list-persons #[(match) "!Ž\"!\")" [lyskom-start-of-command kom-list-persons ((lyskom-end-of-command)) mapcar #[(no) " !" [lyskom-list-pers-print no] 2] lyskom-extract-persons blocking-do lookup-name match] 6 (#$ . 326709) (list (lyskom-read-string (lyskom-get-string (quote search-for-pers))))]) #@56 Print name of the person CONF-NO for kom-list-persons. (defalias 'lyskom-list-pers-print #[(conf-no) "\f\"\f$" [lyskom-format-insert "%[%#1@%4#2:p %#3P%]\n" lyskom-default-button pers conf-no] 5 (#$ . 327094)]) #@127 List all conferences whose name matches MATCH (a string). Those that you are not a member in will be marked with an asterisk. (defalias 'kom-list-conferences #[(match) "!Ž\"!\")" [lyskom-start-of-command kom-list-conferences ((lyskom-end-of-command)) mapcar #[(no) " !" [lyskom-list-conf-print no] 2] lyskom-extract-confs blocking-do lookup-name match] 6 (#$ . 327318) (list (lyskom-read-string (lyskom-get-string (quote search-for-conf))))]) #@114 Print a line of info about CONF-NO. If you are not member in the conference it will be flagged with an asterisk. (defalias 'lyskom-list-conf-print #[(conf-no) "\f\"\f\f!Ƃ\f%" [lyskom-format-insert "%[%#1@%4#2:m %#3c %#4M%]\n" lyskom-default-button conf conf-no lyskom-member-p 32 42] 6 (#$ . 327782)]) #@61 List all persons and conferences whose name matches REGEXP. (defalias 'kom-list-re #[(regexp) "!Ž \" ȉ$  !\"*" [lyskom-start-of-command kom-list-re ((lyskom-end-of-command)) lyskom-format-insert matching-regexp regexp blocking-do re-z-lookup 1 conf-list mapcar #[(czi) " !\" ! !AȜ)ɂ !%" [lyskom-format-insert "%[%#1@%4#2:m %#3c %#4:M%]\n" lyskom-default-button conf conf-z-info->conf-no czi conf-z-info->conf-type conf-type 3 80 77 conf-z-info->name] 8] conf-z-info-list->conf-z-infos] 5 (#$ . 328103) "sSearch regexp: "]) #@44 Change the name of a person or conference. (defalias 'kom-change-name #[nil "!Ž!lj% !e\f \" !!  AԜ)\"\f  Aל)\f#Y\f \"#d\f!$)*" [lyskom-start-of-command kom-change-name ((lyskom-end-of-command)) lyskom-read-conf-stat lyskom-get-string name-to-be-changed (all) nil t conf-stat lyskom-insert-string no-such-conf-or-pers name lyskom-format-insert about-to-change-name-from lyskom-scroll lyskom-tell-internat kom-tell-change-name lyskom-read-string new-name 1 blocking-do change-name 0 change-name-done lyskom-default-button conf change-name-nope lyskom-get-error-text lyskom-errno] 7 (#$ . 328668) nil]) #@50 Change the supervisor of a person or conference. (defalias 'kom-change-supervisor #[nil "!Ž!lj% !b!!lj% # A֜)A֜)#\\! A֜)!a \")*" [lyskom-start-of-command kom-change-supervisor ((lyskom-end-of-command)) lyskom-read-conf-stat lyskom-get-string who-to-change-supervisor-for (all) nil t supervisee lyskom-insert-string no-such-conf-or-pers lyskom-tell-internat kom-tell-change-supervisor new-supervisor (all) supervisor lyskom-format-insert change-supervisor-from-to blocking-do set-supervisor conf-stat 0 done cache-del-conf-stat change-supervisor-nope] 7 (#$ . 329337) nil]) #@99 Mark a text. If the argument TEXT-NO-ARG is non-nil, the user has used a prefix command argument. (defalias 'kom-mark-text #[(text-no-arg) "!Ž\f!#)" [lyskom-start-of-command kom-mark-text ((lyskom-end-of-command)) lyskom-mark-text text-no-arg lyskom-get-string text-to-mark 1] 4 (#$ . 329980) "P"]) #@101 Unmark a text. If the argument TEXT-NO-ARG is non-nil, the user has used a prefix command argument. (defalias 'kom-unmark-text #[(text-no-arg) "!Ž\f!#)" [lyskom-start-of-command kom-unmark-text ((lyskom-end-of-command)) lyskom-mark-text text-no-arg lyskom-get-string text-to-unmark 0] 4 (#$ . 330295) "P"]) #@244 Get the number of the text that is to be marked and do the marking. Arguments: TEXT-NO-ARG: an argument as it is gotten from (interactive P) PROMPT: A string that is used when prompting for a number. MARK: A number that is used as the mark. (defalias 'lyskom-mark-text #[(text-no-arg prompt mark) " <@  \" \n\" =65!$ ƚD\n\"I\n\"\n #j! Ub\n!n\n \"n!\n!)" [text-no-arg lyskom-current-text text-no prompt lyskom-read-number mark 0 kom-default-mark lyskom-read-num-range 1 255 lyskom-get-string what-mark t lyskom-format-insert unmarking-textno marking-textno blocking-do mark-text lyskom-insert-string done cache-del-marked-text cache-add-marked-text nope cache-del-text-stat] 5 (#$ . 330618)]) #@42 Review marked texts with a certain mark. (defalias 'kom-review-marked-texts #[nil "!Ž!$!)" [lyskom-start-of-command kom-review-marked-texts ((lyskom-end-of-command)) lyskom-review-marked-texts lyskom-read-num-range 1 255 lyskom-get-string what-mark-to-view t] 6 (#$ . 331391) nil]) #@25 Review all marked texts (defalias 'kom-review-all-marked-texts #[nil "!Ž!)" [lyskom-start-of-command kom-review-all-marked-texts ((lyskom-end-of-command)) lyskom-review-marked-texts 0] 2 (#$ . 331691) nil]) #@100 Review all marked texts with the mark equal to MARK-NO. If MARK-NO == 0, review all marked texts. (defalias 'lyskom-review-marked-texts #[(mark-no) " 4 @, =\" \fAǜ)=,\fAƜ)\nB) A \nGƚP =H!L \"! \n)B\n&.B##)*" [cache-get-marked-texts nil text-list mark-list mark mark-no 0 1 lyskom-insert lyskom-get-string no-marked-texts lyskom-format no-marked-texts-mark REVIEW-MARK lyskom-get-current-priority texts TEXT-LIST t forward comm-to priority conf-stat type READ-INFO vector read-info read-list-enter-read-info lyskom-reading-list lyskom-to-do-list] 10 (#$ . 331912)]) #@35 Change the password for a person. (defalias 'kom-change-password #[nil "!Ž!%!!!!!!  L!UAC$!O!-" [lyskom-start-of-command kom-change-password ((lyskom-end-of-command)) lyskom-read-conf-no lyskom-get-string whos-passwd (pers) t "" silent-read old-passwd new-passwd new-passwd-again new-pw2 new-pw1 old-pw pers-no lyskom-insert-string changing-passwd lyskom-report-command-answer blocking-do set-passwd 0 lyskom-pers-no retype-dont-match] 6 (#$ . 332579) nil]) (byte-code "\nB" [(((nil 12 24 nil nil nil) . xmaseve) ((nil 12 25 nil nil nil) . xmasday) ((nil 1 1 nil nil nil) . newyearday) ((nil 12 31 11 nil nil) . newyearevelate) ((nil 12 31 nil nil nil) . newyeareve) ((nil 4 30 nil nil nil) . cgdag) ((nil 6 6 nil nil nil) . sixjune) ((nil 8 15 nil nil nil) . holdnose) ((nil 3 29 nil nil nil) . lysbday)) lyskom-times current-load-list] 2) #@36 Return TIME as a formatted string. (defalias 'lyskom-format-time #[(time) "\nAÜ)\\\nAŜ)T\nAƜ)\nAǜ)\nAȜ)\nAɜ)!\nA̜)&" [lyskom-format time-format-exact time 5 1900 4 3 2 1 0 lyskom-get-string weekdays 6] 12 (#$ . 333491)]) #@33 Ask server about time and date. (defalias 'kom-display-time #[nil "!Ž! ! Aɜ) Aʜ)˥ Aʜ)˦_\\UK A̜)˥ A̜)˦UK!L#\")!)" [lyskom-start-of-command kom-display-time ((lyskom-end-of-command)) blocking-do get-time time lyskom-format-insert time-is lyskom-format-time 2 0 10 1 lyskom-get-string palindrome "" mapcar #[(el) "@AÜ\fAŜ)\\\nÜU\nǜ1\fAȜ)T\nǜU\nɜE\fAʜ)\nɜU\nʜY\fAɜ)\nʜU\nȜm\fAǜ)\nȜU\nŜ\fAÜ)\nŜU͏*" [el y x 0 time 5 1900 1 4 2 3 err (byte-code "! A\fAŜ)\\\fAǜ)T\fAȜ)\fAɜ)\fAʜ)\fA˜)&" [lyskom-insert " " lyskom-format-insert el time 5 1900 4 3 2 1 0] 10) ((error))] 4] lyskom-times lyskom-insert "\n"] 8 (#$ . 333747) nil]) (put (quote lyskom-no-users) (quote error-conditions) (quote (error lyskom-error lyskom-no-users))) #@217 Display a list of all connected users. The prefix arg controls the idle limit of the sessions showed. If the prefix is negativ, invisible sessions are also shown. If the prefix is 0, all visible sessions are shown. (defalias 'kom-who-is-on #[(&optional arg) "!Žŏ)" [lyskom-start-of-command kom-who-is-on ((lyskom-end-of-command)) err (byte-code "\n! " [lyskom-dynamic-session-info-flag lyskom-who-is-on-9 arg lyskom-who-is-on-8] 2) ((lyskom-no-users (byte-code "!!" [lyskom-insert lyskom-get-string null-who-info] 3)))] 3 (#$ . 334617) "P"]) #@72 Display a list of all connected users. Uses Protocol A version 8 calls (defalias 'lyskom-who-is-on-8 #[nil "!\n\f\")\"G  S8 A̜)!GT  # ҉#!!$W!!$ Z\"P!@   A̜)!#$  A̜)U傎'#'P  A)  A)!$ !  A)Q$+Ah Z\"P! \"!." [blocking-do who-is-on who-info-list sort vector append nil #[(who1 who2) "Aœ) Aœ)W" [who1 who-info 2 who2] 4] who-list total-users int-to-string who-info 2 session-width lyskom-info-line-format-string "P" "M" format-string-1 "s" format-string-2 not-present-anywhere lyskom-default-conf-string lyskom-format-insert "" lyskom-get-string lyskom-name is-in-conf kom-show-where-and-what from-machine is-doing lyskom-insert make-string lyskom-window-width 45 "\n" session-no lyskom-session-no "*" " " my-session 0 1 lyskom-return-username "(" 3 ")" lyskom-format] 8 (#$ . 335186)]) #@72 Display a list of all connected users. Uses Protocol A version 9 calls (defalias 'lyskom-who-is-on-9 #[(arg) " W9=!; ( ;=2; :Ƃ; _$\f\f\")\"Gg\"xS8AH)!GT##!U!!\" !!!!$+!!$ Z\"P!@3AH)44!564U959P3AH)3AH)!$+;<=>4!;b@;AAH);AAH);AAH)#=BC4DE FGG&<=ȁC4\";@;AAH);AAH);AAH)#==H3AIH)JQ$+A, Z\"P!K\"!. " [arg 0 - wants-invisibles abs kom-idle-hide 30 idle-hide blocking-do who-is-on-dynamic t 60 who-info-list sort vector append nil #[(who1 who2) "AH) AH)W" [who1 dynamic-session-info 0 who2] 4] who-list total-users signal lyskom-no-users int-to-string dynamic-session-info session-width lyskom-info-line-format-string "P" "M" format-string-1 "D" "s" format-string-2 not-present-anywhere lyskom-default-conf-string lyskom-insert lyskom-get-string who-is-active-all lyskom-format-insert who-is-active-last-minutes showing-invisibles "" lyskom-name is-in-conf kom-show-where-and-what from-machine is-doing make-string lyskom-window-width 2 45 "\n" who-info session-no session-no-s lyskom-session-no "*" " " my-session 1 static defer-info username kom-deferred-printing cache-get-static-session-info lyskom-combine-username static-session-info lyskom-create-defer-info get-static-session-info lyskom-insert-deferred-session-info make-marker lyskom-defer-indicator "%#1s" "(" 5 ")" lyskom-format] 8 (#$ . 336131)]) (defalias 'lyskom-insert-deferred-session-info #[(session-info defer-info) "\nAH)AH)AH)#\"\n\"" [session-info lyskom-replace-deferred defer-info lyskom-combine-username static-session-info 0 2 1 ""] 8]) #@40 Display a list of all connected users. (defalias 'kom-list-clients #[nil "!Ž! \")\" G\f\fS 8AϜ)!GT<Ԃ=#!!$ Z\"P!  @AϜ)!!\"AϜ)Uゃ%AϜ)ɉAϜ)&AϜ)DAϜ)DD!++./.Q+0!%PA)0$, A ] Z\"P!\f\"!." [lyskom-start-of-command kom-list-clients ((lyskom-end-of-command)) blocking-do who-is-on who-info-list sort vector append nil #[(who1 who2) "Aœ) Aœ)W" [who1 who-info 2 who2] 4] who-list total-users int-to-string who-info 2 s-width lyskom-info-line-format-string "P" kom-deferred-printing "D" "s" format-string lyskom-format-insert "" lyskom-get-string lyskom-name lyskom-client lyskom-insert make-string lyskom-window-width 45 "\n" session-no lyskom-session-no "*" " " my-session lyskom-create-defer-info get-client-name lyskom-deferred-client-1 lyskom-blocking-do-multiple get-client-version multiple-bind-sym 0 1 version name client lyskom-format] 10 (#$ . 337987) nil]) (defalias 'lyskom-deferred-client-1 #[(name defer-info) "\f!\f %" [initiate-get-client-version deferred lyskom-deferred-client-2 defer-info->data defer-info name] 6]) (defalias 'lyskom-deferred-client-2 #[(version defer-info name) " \nGU Ă\nQ\"" [lyskom-replace-deferred defer-info name 0 "-" " " version] 5]) #@67 Return a format string suitable for inserting who-info lines etc. (defalias 'lyskom-info-line-format-string #[(prefixlen type1 type2) "\\\\\n! \fZ_ͥ! Z_ͥ!Ӱ\f+" [prefixlen 7 plen 2 adj1 1 adj2 "%" int-to-string "#1s" "%=-" lyskom-window-width 37 73 "#2" type1 " %=-" "#3" type2 "\n"] 13 (#$ . 339352)]) #@78 Returns the width of the lyskom-window or the screen-width if not displayed. (defalias 'lyskom-window-width #[nil "p! ! )" [get-buffer-window win window-width frame-width] 3 (#$ . 339696)]) #@73 Takes the username from the WHO-INFO and returns it on a better format. (defalias 'lyskom-return-username #[(who-info) "A)\n\"\n\"\nȕOɔ)\nʔʕOɔ7\nɔɕO=\nʔʕO\nǕO\f f f \fPq \fR~ \fҰ,\n*" [who-info 4 username string-match "\\([^%@.]+\\)%\\(.+\\)@\\([^%@.]+\\)" "\\([^%@.]+\\)@\\([^%@.]+\\)" type 0 1 3 2 nil rest gott sent name "@" " (" ")"] 8 (#$ . 339904)]) #@57 Return a description of from where a user is logged in. (defalias 'lyskom-combine-username #[(username identname hostname) "\n\"-\nÔÕO\nĔĕO &Q+\nQ*\nQ" [string-match "\\(.*\\)%\\(.*\\)" username 1 2 uhost user hostname "@"] 4 (#$ . 340351)]) #@170 Show status for all sessions a person has. Asks for person name. Optional argument ARG should be a list of sessions to get information about or a single session number. (defalias 'kom-status-session #[(&optional arg) "!Ž <   C!! -!w @H @XH! @[\"we҉$\") \"w!\") \"+" [lyskom-start-of-command kom-status-session ((lyskom-end-of-command)) arg lyskom-read-session-no lyskom-get-string status-for-session nil who-info sessions lyskom-insert-string no-such-session-r 0 lyskom-format-insert person-not-logged-in-r lyskom-dynamic-session-info-flag blocking-do who-is-on-dynamic t vector append mapcar #[(x) " \n\"" [lyskom-status-session-9 x who-info] 3] who-is-on #[(x) " \n\"" [lyskom-status-session-8 x who-info] 3]] 6 (#$ . 340631) "P"]) #@99 Show session status for session SID. WHO-INFO is a list of WHO-INFOS that are potential sessions. (defalias 'lyskom-status-session-8 #[(sid who-info-list) " @AÜ)=@ 1\fAÜ)ɉ\fAÜ)&Y\fAÜ)D\fAÜ)DD!\f͜\fΜQ+!\fAÜ)\fA͜)\f!\fAΜ)=\fAΜ)!\fAڜ)\"\fAڜ)\"\fAڜ)ݘ!)\fAΜ)=!!&*Aɇ" [who-info-list sid who-info 2 info kom-deferred-printing lyskom-create-defer-info get-client-name lyskom-deferred-client-1 nil lyskom-blocking-do-multiple get-client-version multiple-bind-sym 0 1 version name " " client lyskom-format-insert lyskom-get-string session-status lyskom-return-username not-present-anywhere string-match "^\\(.*[^.]\\)\\.*$" 3 match-string string "" unknown-doing-what doing-where-conn doing-nowhere-conn] 11 (#$ . 341455)]) #@99 Show session status for session SID. WHO-INFO is a list of WHO-INFOS that are potential sessions. (defalias 'lyskom-status-session-9 #[(sid who-info-list) "\n\"\fd\n\f@AH)=\\\f@:AH)̉AH)&dAH)DAH)DD!ƜМQ+!AH)AH) AH) AH) AH)#AH)=AH)!AH)\"AH)\"AH) ᘃ! )AH)=!! AH)!AH)=!@AH)*AH)1@!AH)!\"&\nAH)*AH)[!!*\fA )" [blocking-do get-static-session-info sid static who-info-list dynamic-session-info 0 info kom-deferred-printing lyskom-create-defer-info get-client-name lyskom-deferred-client-1 nil lyskom-blocking-do-multiple get-client-version multiple-bind-sym 1 version name " " client lyskom-format-insert lyskom-get-string session-status-9 lyskom-combine-username static-session-info 2 not-present-anywhere string-match "^\\(.*[^.]\\)\\.*$" 5 match-string string "" unknown-doing-what doing-where-conn doing-nowhere-conn lyskom-format-time 3 60 session-is-active 4 session-flags "\n" lyskom-format session-status-inactive lyskom-format-secs lyskom-insert session-is-invisible] 16 (#$ . 342311)]) (defalias 'lyskom-format-secs-aux #[(string num x1 x2 one many) "X\nU:\nĘ\n!P\nU3U3!\"4!Q\nĘK\n!#P\nUcUc!\"d!#Q" [num 0 string 1 "" lyskom-get-string one x1 x2 format " %s " and ", " "%d %s" many] 7]) #@66 Format the number of seconds in TIME as a human-readable string. (defalias 'lyskom-format-secs #[(time) "¥æĥ \n & & ͉&-" [time 60 3600 24 86400 "" string days hrs mins secs lyskom-format-secs-aux one-day 0 one-hour hours one-minute minutes] 7 (#$ . 343804)]) #@213 Jumps all comments to the current text. Descends recursively in comment tree. The three is truncated if we encounter an older text. If optional arg TEXT-NO is present then jump all comments to that text instead. (defalias 'kom-jump #[(&optional text-no) "!$\"!! " [text-no lyskom-start-of-command kom-jump initiate-get-text-stat main lyskom-jump t lyskom-run lyskom-end-of-command lyskom-insert-string have-to-read] 5 (#$ . 344129) (list (cond ((null current-prefix-arg) lyskom-current-text) ((integerp current-prefix-arg) current-prefix-arg) ((and (listp current-prefix-arg) (integerp (car current-prefix-arg)) (null (cdr current-prefix-arg))) (car current-prefix-arg)) (t (signal (quote lyskom-internal-error) (quote (kom-jump))))))]) #@212 Jump past TEXT-STAT and all comments to it. Remove TEXT-STAT from all internal tables in the client. If MARK-AS-READ is non-nil, also mark TEXT-STAT and all comments (and footnotes) to it as read in the server. (defalias 'lyskom-jump #[(text-stat mark-as-read &optional sync) "j \f!AĜ)!AƜ)G\n<i@\n AĜ)=S\n AĜ)=\n AĜ)=m\n AΜ)v\n AϜ)AĜ)V\n AĜ)=\n AΜ)\n AϜ)\" # $)A0 Wi H\n AĜ)=\n AĜ)=b\n AĜ)= \n AΜ)\n AϜ)AĜ)Vb\n AĜ)=;\n AΜ)D\n AϜ)Y\" #a $) T," [text-stat mark-as-read lyskom-mark-as-read lyskom-is-read 0 __i__ 6 __sequence__ __len__ nil misc misc-info COMM-IN FOOTN-IN 5 7 comment sync lyskom-jump blocking-do get-text-stat initiate-get-text-stat main] 6 (#$ . 344898)]) #@113 Add a recipient to a text. If the argument TEXT-NO-ARG is non-nil, the user has used a prefix command argument. (defalias 'kom-add-recipient #[(text-no-arg) "!Ž \"!$*" [lyskom-start-of-command kom-add-recipient ((lyskom-end-of-command)) blocking-do get-conf-stat lyskom-last-added-rcpt conf lyskom-add-sub-recipient text-no-arg lyskom-get-string text-to-add-recipient add-rcpt] 5 (#$ . 345795) "P"]) #@116 Add a cc recipient to a text. If the argument TEXT-NO-ARG is non-nil, the user has used a prefix command argument. (defalias 'kom-add-copy #[(text-no-arg) "!Ž \"!$*" [lyskom-start-of-command kom-add-copy ((lyskom-end-of-command)) blocking-do get-conf-stat lyskom-last-added-ccrcpt conf lyskom-add-sub-recipient text-no-arg lyskom-get-string text-to-add-copy add-copy] 5 (#$ . 346219) "P"]) #@121 Subtract a recipient from a text. If the argument TEXT-NO-ARG is non-nil, the user has used a prefix command argument. (defalias 'kom-sub-recipient #[(text-no-arg) "!Ž \"!$*" [lyskom-start-of-command kom-sub-recipient ((lyskom-end-of-command)) blocking-do get-conf-stat lyskom-current-conf conf lyskom-add-sub-recipient text-no-arg lyskom-get-string text-to-delete-recipient sub] 5 (#$ . 346633) "P"]) #@136 Subtract a recipient from a text and add another. If the argument TEXT-NO-ARG is non-nil, the user has used a prefix command argument. (defalias 'kom-move-text #[(text-no-arg) "!Ž DDD!Ȝɜ\n  !\n %," [lyskom-start-of-command kom-move-text ((lyskom-end-of-command)) lyskom-blocking-do-multiple get-conf-stat lyskom-current-conf lyskom-last-added-rcpt multiple-bind-sym 0 1 default-to default-from lyskom-add-sub-recipient text-no-arg lyskom-get-string text-to-move move] 7 (#$ . 347060) "P"]) (defalias 'lyskom-add-sub-recipient #[(text-no-arg prompt action conf &optional conf2) " \n \"\f\"! \n=6!3AӜ)4%\n=E؂i\n=Pڂi\n=[܂i\n=f݂i!!!}!AӜ)~%\"#\n=\"#\"A)'\f\"A)$L\n=\"#\"A)+\f\"A)$L\n=\"#\f\"A)#L\n=I\"$\"A)'\f\"A)F\fA)ED!11Ӝ2E+L!#\f! ^\f\"!#!." [lyskom-read-number prompt text-no-arg lyskom-current-text text-no blocking-do get-text-stat text-stat lyskom-text-read-p was-read action move lyskom-read-conf-stat lyskom-get-string who-to-move-from-q (all) nil conf2 conf-stat 1 "" t conf-to-move-from add-rcpt who-to-add-q add-copy who-to-add-copy-q sub who-to-sub-q who-to-move-to-q lyskom-error "internal error" (all) conf conf-to-add-to result lyskom-format-insert adding-name-as-recipient 0 lyskom-last-added-rcpt add-recipient recpt adding-name-as-copy lyskom-last-added-ccrcpt cc-recpt remove-name-as-recipient sub-recipient moving-name lyskom-blocking-do-multiple multiple-bind-sym add cache-del-text-stat lyskom-mark-as-read lyskom-report-command-answer] 7]) #@42 Add a text as a comment to another text. (defalias 'kom-add-comment #[(text-no-arg) "!Ž\f!#)" [lyskom-start-of-command kom-add-comment ((lyskom-end-of-command)) lyskom-add-sub-comment text-no-arg lyskom-get-string text-to-add-comment-to t] 4 (#$ . 348781) "P"]) #@31 Remove a comment from a text. (defalias 'kom-sub-comment #[(text-no-arg) "!Ž\f!#)" [lyskom-start-of-command kom-sub-comment ((lyskom-end-of-command)) lyskom-add-sub-comment text-no-arg lyskom-get-string text-to-delete-comment-from nil] 4 (#$ . 349058) "P"]) #@310 Get the number of the text that is going to have a comment added to it or subtracted from it Arguments: TEXT-NO-ARG: an argument as it is gotten from (interactive P) PROMPT: A string that is used when prompting for a number. DO-ADD: NIL if a comment should be subtracted. Otherwise a comment is added (defalias 'lyskom-add-sub-comment #[(text-no-arg prompt do-add) " \n \"ǂ!\f =? \" +˂, \f#\f! !EЂF \f#!*" [lyskom-read-number prompt text-no-arg lyskom-current-text text-no lyskom-get-string do-add text-to-add-q text-to-remove-q comment-text-no lyskom-format-insert add-comment-to sub-comment-to cache-del-text-stat lyskom-report-command-answer blocking-do add-comment sub-comment] 5 (#$ . 349332)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: commands2.el,v 44.1 1996/09/03 16:01:21 byers Exp $\n" nil] 2) #@59 Show memberships last visited, priority, unread and name. (defalias 'kom-membership #[nil "!Žpp!P!ȋ! \f G >UŁ@!>$)\n\nAA)BځCB$)ځD\n\nAE)\"\n\nA)U5ځF\n\"G\n\nA)!H IŁJ!!́K\n\nAל)L$MځN\n\"IŁO!!΁P!QMRAל)SGTUS<#SS@ÚVU\n\nAל)#W΁X!YZ[WWAל)!\"!\n\nA)\n\nA)\\WWAӜ)ZWWA)GZZ\\ځ]\\U ^Z_\\\"U#))SASQTWSQHÚVU\n\nAל)#WQ΁X!YZ[WWAל)!\"!\n\nA)\n\nA)\\WWAӜ)ZWWA)GZZ\\ځ]\\U^Z_\\\"U#))QTQ%,Y!QMRAל)SGTUS<SS@Uځ`U\"SASQTWSQHUځ`U\"QTQ,)+" [lyskom-start-of-command kom-status-conf ((lyskom-end-of-command)) conf-no lyskom-read-conf-no lyskom-get-string conf-for-status (all) nil t conf-stat cache-del-conf-stat blocking-do get-conf-stat lyskom-insert-string no-such-conf 2 type conf-type 3 box 1 ori 0 pro sec lyskom-format-insert status-record "(" Mailbox "" ", " Protected no-comments closed ")" 5 creator created-by object CONF-STAT lyskom-window-width 46 "\n" created-at lyskom-return-date-and-time members 12 garb-nice 11 lowest-local-no 13 highest-local-no 14 last-text-time 4 no-of-motd 10 9 superconf superconf-is-no-name 8 permitted-submitters permitted-submitters-no-name Everybody 7 supervisor supervisor-is-no-name presentation-no 6 conf-has-motd lyskom-view-text lyskom-scroll lyskom-j-or-n-p show-members-list-also-q get-members lyskom-max-int member-list conf-has-these-members show-membership-info-q member-list-header __i__ conf-no-list __sequence__ __len__ member query-read-texts membership secret-membership lyskom-insert format "%17s" unread conf-membership-line " " "%7d " " %#1P\n"] 14 (#$ . 352070) nil]) #@29 Prints status for a person. (defalias 'kom-status-person #[(&optional pers-no) "!Ž !%ȉ \f ! ! \" \"\f 8\f>!\f#\f\fA؜)!\"  Aڜ)\"  Aܜ)\"  Aޜ)  Aߜ)\\S\"  A)\"  A)\"  A)\"  A)U  A)  A)  A)  A)%  A)!\"  A)\"  A)\"  A)3U4  A)\"\f\fA)!\"\f\fA)77$)\f\fA)Uy\f\fA)88$)  A)\"\f\fA)\"\f\fA)U\f\"\f\fA)! Ł@!!ρA\f\fA)\"BCԁD\f\"ԁE\f\"ҁF!BGCHGIJH<HH@JKJJA)!LIMJJA)\f\fA)\"IJJA)!)JJA)\"NaJjҁO!PQRJJA)!\"!N\fAڜ)N\fAߜ)\\JJA؜)ZJJA)GZZSԁTSUUQVS\"\f\fA)N\fA)UŁW!XN$BS\\B))HAH GIWHGHJKJJA)!LEMJJA)\f\fA)\"EJJA)!)JJA)\"N]JfҁO!PQRJJA)!\"!N\fAڜ)N\fAߜ)\\JJA؜)ZJJA)GZZSԁTSUUQVS\"\f\fA)N\fA)UŁW!XN$BS\\B))GTG,ԁY\fB#*," [lyskom-start-of-command kom-status-person ((lyskom-end-of-command)) pers-no lyskom-read-conf-no lyskom-get-string pers-for-status (pers) nil "" t pers-stat conf-stat cache-del-conf-stat cache-del-pers-stat blocking-do get-pers-stat get-conf-stat lyskom-insert-string no-such-pers lyskom-format-insert pers-status-record created-time lyskom-return-date-and-time 3 created-confs 13 created-persons 12 created-texts 15 14 created-lines 8 created-chars 9 no-of-sessions 7 6 0 present-time-d-h-m-s 86400 3600 24 60 last-log-in 4 user-name 1 read-texts 10 lyskom-pers-no marked-texts 16 time-for-last-letter superconf supervisor member-of-confs 17 presentation has-motd lyskom-view-text lyskom-scroll lyskom-j-or-n-p show-membership-list-also-q get-membership lyskom-count-var membership-list not-allowed-see-confs is-member-of membership-list-header __i__ __sequence__ __len__ membership cache-get-conf-stat cs lyskom-time-greater member-conf-stat secret-membership lyskom-insert format "%17s" unread pers-membership-line " " "%6d " is-supervisor-mark " " his-total-unread] 8 (#$ . 354529) nil]) #@54 Send a message to one of the users in KOM right now. (defalias 'kom-send-message #[(&optional who message) "!Ž j!!\" ʂ =)΂h =<<Bh =HT =[[BhgBh%U{!!\"\"*" [lyskom-start-of-command kom-send-message ((lyskom-end-of-command)) who lyskom-read-conf-no format lyskom-get-string who-to-send-message-to everybody kom-permissive-completion (all) (login conf) t kom-default-message-recipient nil group lyskom-last-group-message-recipient 0 sender lyskom-last-personal-message-sender "" target lyskom-insert message-all-info lyskom-format-insert message-recipient-info lyskom-send-message message] 7 (#$ . 356820) nil]) #@54 Send a message to all of the users in KOM right now. (defalias 'kom-send-alarm #[(&optional message) "!Ž \")" [lyskom-start-of-command kom-send-alarm ((lyskom-end-of-command)) lyskom-send-message 0 message] 3 (#$ . 357530) nil]) (byte-code " B B" [lyskom-message-recipient current-load-list lyskom-message-string] 2) #@194 Send a message to the person with the number PERS-NO. PERS-NO == 0 means send the message to everybody. MESSAGE is the message to send. If DONTSHOW is non-nil, don't display the sent message. (defalias 'lyskom-send-message #[(pers-no message &optional dontshow) " \"\" !! U?, \"! m #_?p S #W \"#p h! #p!-" [minibuffer-setup-hook minibuffer-exit-hook nil lyskom-message-string reply lyskom-message-recipient add-hook #[nil "!" [run-hooks lyskom-send-message-setup-hook] 2] #[nil "!" [run-hooks lyskom-send-message-exit-hook] 2] message lyskom-read-string lyskom-get-string message-prompt pers-no 0 blocking-do get-conf-stat run-hooks lyskom-send-message-hook send-message dontshow lyskom-handle-as-personal-message lyskom-format message-sent-to-user message-sent-to-all lyskom-pers-no lyskom-filter-outgoing-messages lyskom-format-insert-before-prompt message-nope everybody lyskom-insert-string interrupted] 6 (#$ . 357867)]) (defalias 'lyskom-send-message-trim-newlines #[nil "GV SH= S =-!!-lj? =9ȉ? O)" [lyskom-message-string size 0 10 lyskom-j-or-n-p lyskom-get-string send-empty-message-p nil ""] 4]) (defalias 'lyskom-send-message-turn-off-resize-on-exit #[nil "!\"" [resize-minibuffer-mode -1 remove-hook lyskom-send-message-exit-hook lyskom-send-message-turn-off-resize-on-exit] 3]) #@44 Temporarily turn on resizing of minibuffer (defalias 'lyskom-send-message-resize-minibuffer #[nil "? !\"" [resize-minibuffer-mode 0 add-hook lyskom-send-message-exit-hook lyskom-send-message-turn-off-resize-on-exit] 3 (#$ . 359294)]) #@45 Temporarily turn on auto fill in minibuffer (defalias 'lyskom-send-message-auto-fill #[nil "!" [78 fill-column auto-fill-mode 1] 2 (#$ . 359544)]) #@54 Set number of unread articles in current conference. (defalias 'kom-set-unread #[(&optional arg conf-no) "!Ž U !  \"\n*!!PXP\n\nAМ)XPq\n\nAМ)\n\nAМ)\n\nAԜ)##\n\nAĜ)#! +))" [lyskom-start-of-command kom-set-unread ((lyskom-end-of-command)) lyskom-current-conf 0 conf-no lyskom-insert-string not-present-anywhere blocking-do get-conf-stat conf-stat lyskom-insert "Error!\n" prefix-numeric-value arg narg 14 lyskom-read-num-range lyskom-format only-last 1 n set-unread result only-error lyskom-refetch] 9 (#$ . 359702) "P"]) #@46 Regexp to match conf names that are special. (defvar lyskom-special-conf-name "\\`Inl.gg .t mig\\'" (#$ . 360324)) #@50 Print the number of unread articles to the user. (defalias 'kom-list-news #[(&optional num) "!Ž \f\f#\f<\"\f@\"\f@# \fA)\"U@!VUP\"U!!!+" [lyskom-start-of-command kom-list-news ((lyskom-end-of-command)) lyskom-prefetch-all-confs num nil 0 sum num-arg mapcar #[(info) "Aœ)AGAÜ)AÜ)AÜ)Aǜ)= = S Y!i\f;i\f \"iUb\f#}\f\"}Uy\f#}\f\"!\\+" [info read-info 3 1 conf-stat name un 0 CONF num-arg lyskom-insert boundp lyskom-special-conf-name string-match lyskom-format you-have-unreads-special you-have-an-unread-special you-have-unreads you-have-an-unread sum] 6] lyskom-to-do-list read-list lyskom-insert-string you-have-read-everything lyskom-insert 1 lyskom-format total-unreads format lyskom-get-string total-unread] 5 (#$ . 360445) "P"]) #@335 Sets the kom-session in wait-mode. The wait-mode is interrupted when a text in a conference with higher priority than that of the next text to be read. If you want another priority to break that the ones higher that the next text to be read, give the priority as a prefix argument. When a text is received the new text is displayed. (defalias 'kom-busy-wait #[(arg) "!Ž   < @*\fA)Aǜ)*  !\fA)B\f͡) UP!V \"  E!\"!`\"`*!\fA) " [lyskom-start-of-command kom-busy-wait ((lyskom-end-of-command)) arg lyskom-to-do-list read-list read-info 2 -2 waitfor lyskom-tell-server kom-mercial lyskom-reading-list nil lyskom-insert-string waiting-for-anything lyskom-format-insert waiting-higher-than lyskom-scroll > (or (read-info->priority (read-list->first lyskom-reading-list)) (read-info->priority (read-list->first lyskom-to-do-list)) 257) lyskom-is-waiting sit-for 0 accept-process-output 1 lyskom-quit-flag signal quit lyskom-beep kom-ding-on-wait-done kom-go-to-next-conf kom-next-command] 4 (#$ . 361325) "P"]) #@53 Returns t if TIME2 is before TIME1 chronologically. (defalias 'lyskom-time-greater #[(time1 time2) "Aœ) Aœ)WiAĜ) AĜ)WiAŜ) AŜ)WiAƜ) AƜ)WiAǜ) Aǜ)WiAȜ) AȜ)W" [time2 time 5 time1 4 3 2 1 0] 4 (#$ . 362434)]) #@143 List a summary of the unread in the current conf. The summary contains the date, number of lines, author and subject of the text on one line. (defalias 'kom-list-summary #[nil "!Ž A)! A) GS) \n  \nWg  \fA\f* AȜ)=X=X=^\nc T )'  \fA\f- AҜ)A)!)" [lyskom-start-of-command kom-list-summary ((lyskom-end-of-command)) lyskom-reading-list read-list lyskom-insert-string have-to-be-in-conf-with-unread lyskom-list-summary 0 r len list n read-info type CONF REVIEW-MARK REVIEW 3 text-list] 5 (#$ . 362698) nil]) #@131 List a summary of the texts in TEXTS. The summary contains the date, number of lines, author and subject of the text on one line. (defalias 'lyskom-list-summary #[(texts) "! Zĥ !Q!!!!!&G \"F #  A֜)=\\ւe A֜)#o!~!  A֜)!)*" [lyskom-start-of-command kom-set-permitted-submitters ((lyskom-end-of-command)) lyskom-read-conf-stat lyskom-get-string conf-to-set-permitted-submitters-q (all) nil t conf-stat lyskom-insert-string somebody-deleted-that-conf lyskom-format new-permitted-submitters-q 1 (all) new-conf lyskom-format-insert permitted-submitters-removed-for-conf submitters-conf-for-is blocking-do set-permitted-submitters 0 nope done cache-del-conf-stat] 7 (#$ . 369105) nil]) #@44 Set the super conference for a conference. (defalias 'kom-set-super-conf #[nil "!Ž!lj% !e  AΜ)\"lj% #  A՜) A՜)#U!d!  A՜)!)*" [lyskom-start-of-command kom-set-super-conf ((lyskom-end-of-command)) lyskom-read-conf-stat lyskom-get-string conf-to-set-super-conf-q (all) nil t conf-stat lyskom-insert-string somebody-deleted-that-conf lyskom-format new-super-conf-q 1 (all) new-conf lyskom-format-insert super-conf-for-is blocking-do set-super-conf 0 nope done cache-del-conf-stat] 7 (#$ . 369795) nil]) #@27 Save the LysKOM database. (defalias 'kom-sync-database #[nil "!Ž ĜV ĜU2 ŜV2!!8!!!8!)" [lyskom-start-of-command kom-sync-database ((lyskom-end-of-command)) lyskom-server-version 0 1 8 lyskom-ja-or-nej-p lyskom-get-string really-sync lyskom-insert-string syncing-server lyskom-report-command-answer blocking-do sync 12 lyskom-errno nil] 3 (#$ . 370361) nil]) #@29 Shutdown the LysKOM server. (defalias 'kom-shutdown-server #[nil "!Ž!!!\"!)" [lyskom-start-of-command kom-shutdown-server ((lyskom-end-of-command)) lyskom-ja-or-nej-p lyskom-get-string really-shutdown lyskom-insert-string closing-server lyskom-report-command-answer blocking-do shutdown 0] 4 (#$ . 370760) nil]) #@63 Enable the LysKOM adminstrator commands for the current user. (defalias 'kom-enable-adm-caps #[nil "!Ž\"!#)" [lyskom-start-of-command kom-enable-adm-caps ((lyskom-end-of-command)) lyskom-enable-adm-caps blocking-do enable 255 lyskom-get-string administrator t] 4 (#$ . 371096) nil]) #@64 Disable the LysKOM adminstrator commands for the current user. (defalias 'kom-disable-adm-caps #[nil "!Ž\"!#)" [lyskom-start-of-command kom-disable-adm-caps ((lyskom-end-of-command)) lyskom-enable-adm-caps blocking-do enable 0 lyskom-get-string no-longer-administrator nil] 4 (#$ . 371397) nil]) #@37 Tell the user if the call succeded. (defalias 'lyskom-enable-adm-caps #[(answer string is-administrator) " \"\f!" [answer lyskom-format-insert you-are-now string is-administrator lyskom-is-administrator lyskom-insert-string nope] 3 (#$ . 371711)]) #@40 Set the message of the day for LysKOM. (defalias 'kom-set-motd #[nil "!Ž AŜ) AŜ)#!!)" [lyskom-start-of-command kom-set-motd ((lyskom-end-of-command)) lyskom-server-info server-info 5 initiate-get-text main lyskom-set-motd nil] 6 (#$ . 371978) nil]) #@91 Set the message of the day for LysKOM. Use OLD-MOTD-TEXT as the default text if non-nil. (defalias 'lyskom-set-motd #[(old-motd-text) " & Aǜ)\"& Aǜ)ȉSO' H Aǜ)\"H Aǜ)ȕOI%" [lyskom-edit-text lyskom-proc lyskom-create-misc-list old-motd-text string-match "\n" text 1 0 "" nil lyskom-set-motd-2] 9 (#$ . 372254)]) #@55 Set motd of LysKOM to the newly created text TEXT-NO. (defalias 'lyskom-set-motd-2 #[(text-no ignore) " \"! $" [lyskom-insert-before-prompt lyskom-format setting-motd text-no initiate-set-motd-of-lyskom background lyskom-set-motd-3] 5 (#$ . 372615)]) #@62 Handle the return from the initiate-set-motd-of-lyskom call. (defalias 'lyskom-set-motd-3 #[(result text-no) "# Uł!!  AI*!!" [result lyskom-insert-before-prompt lyskom-get-string text-no 0 removed-motd set-motd-success lyskom-server-info newval server-info 5 set-motd-failed] 5 (#$ . 372881)]) #@43 Remove the message of the day for LysKOM. (defalias 'kom-remove-motd #[nil "!Ž!ȉ$)" [lyskom-start-of-command kom-remove-motd ((lyskom-end-of-command)) lyskom-insert-string removing-motd initiate-set-motd-of-lyskom background lyskom-set-motd-3 0] 5 (#$ . 373209) nil]) #@32 Force another user to log out. (defalias 'kom-force-logout #[nil "!Ž!Ɖ$\"\"\"!*" [lyskom-start-of-command kom-force-logout ((lyskom-end-of-command)) lyskom-read-session-no lyskom-get-string who-to-throw-out nil t session lyskom-format-insert throwing-out lyskom-report-command-answer blocking-do disconnect] 6 (#$ . 373495) nil]) #@103 Postpone the reading of all but the last TODAY articles in the current conference to another session. (defalias 'kom-postpone #[(today) "!Ž GS)V A) AȜ)\n=@\n=@\n=G !\n=U\n=f Ab\fAA)\n= A) AҜ)GZ]*\")S*U \"\")" [lyskom-start-of-command kom-postpone ((lyskom-end-of-command)) lyskom-reading-list read-list nil finished len 0 read-info type REVIEW REVIEW-TREE REVIEW-MARK read-list-rotate COMM-IN FOOTN-IN CONF 3 rlist today 1 cell t signal lyskom-internal-error ("lyskom-remove-comment-chains") read-list-delete-text lyskom-to-do-list] 4 (#$ . 373858) (list (cond ((null current-prefix-arg) (lyskom-read-number (lyskom-get-string (quote postpone-prompt)) 17)) (t (prefix-numeric-value current-prefix-arg))))]) #@127 Set the priority level of the current session. This sets the variable kom-session-priority and refetches all membership info. (defalias 'kom-set-session-priority #[(priority) "!Ž !% \f *" [lyskom-start-of-command kom-set-session-priority ((lyskom-end-of-command)) priority lyskom-read-num-range 0 255 lyskom-get-string set-session-priority t 100 pri lyskom-session-priority lyskom-refetch] 7 (#$ . 374695) "P"]) #@41 Puts the kom-session in the background. (defalias 'kom-bury #[nil "p!p  ! \n!p!\") p=?) *" [buffer-name buffer session-name lyskom-who-info-buffer bury-buffer string-match regexp-quote] 4 (#$ . 375132) nil]) (defalias 'lyskom-buffer-p #[(buf) "3!3!3q =2!22!2!>)" [buf bufferp buffer-name major-mode lyskom-mode boundp lyskom-proc processp process-status (run open)] 2]) #@33 Pop up the next lyskom-session. (defalias 'kom-next-kom #[nil "p!\n! O @!-\f# @p=# A @C@ @\" @\" A @!L @! !" [lyskom-buffer-p lyskom-tell-internat kom-tell-next-lyskom lyskom-buffer-list kom-bury-buffers kom-bury delq lyskom-sessions-with-unread lyskom-sessions-with-unread-letters switch-to-buffer kom-next-kom error "No active LysKOM buffers"] 3 (#$ . 375566) nil]) #@37 Pop up the previous lyskom-session. (defalias 'kom-previous-kom #[nil "p!\n! GVz AA'AA@ @!PC @p=C  BšgA \" A\f\"\fš@!v!x * ?!" [lyskom-buffer-p lyskom-tell-internat kom-tell-next-lyskom lyskom-buffer-list 1 nil last-but-one lastbuf kom-bury-buffers kom-bury delq lyskom-sessions-with-unread lyskom-sessions-with-unread-letters switch-to-buffer kom-previous-kom error "No active LysKOM buffers"] 4 (#$ . 375983) nil]) #@54 Pop up the next LysKOM session with unread texts in. (defalias 'kom-next-unread-kom #[nil "p! p \np=?\" \f>?\" )" [lyskom-buffer-p kom-next-kom thisbuf lyskom-buffer lyskom-sessions-with-unread] 2 (#$ . 376488) nil]) #@53 Get and display the user area of the current person (defalias 'kom-show-user-area #[nil "!\f\" Aǜ)ȉ&\")" [lyskom-start-of-command kom-show-user-area blocking-do get-pers-stat lyskom-pers-no pers-stat lyskom-view-text 5 nil lyskom-run main lyskom-end-of-command] 8 (#$ . 376730) nil]) #@29 Change type of a conference (defalias 'kom-change-conf-type #[nil "!Ž!%\n\nA˜)\f AΜ)\f AМ)\f AҜ)\f A˜)\n___k!lق!ق!ق!ݰ $-!!!?!!#!!%!!'\n\nAҜ)!\n\nAҜ)!?%?#\n\nA˜) AΜ)'\n\nA˜) A)\n\nA˜) A)\n\nA˜) A),-.'/#0110#/'.-, .#?!7!7#." [lyskom-start-of-command kom-change-conf-type ((lyskom-end-of-command)) lyskom-read-conf-stat lyskom-get-string what-conf-to-change (conf pers) nil "" t conf-stat 2 type conf-type 3 box 1 ori 0 pro sec lyskom-format-insert change-type-prompt "(" Mailbox ", " Protected no-comments closed ")" foo lyskom-j-or-n-p anyone-member open secret-conf secret comments-allowed orig anonymous-allowed anarchy cache-del-conf-stat blocking-do set-conf-type 5 rsv3 rsv2 rsv1 letterbox original rd_prot CONF-TYPE lyskom-insert-string nope error-code lyskom-get-error-text lyskom-errno] 14 (#$ . 377040) nil]) (byte-code "P##" [lyskom-clientversion-long "$Id: review.el,v 44.0 1996/08/30 14:47:50 davidk Exp $\n" put lyskom-cant-review-error error-conditions (error lyskom-error lyskom-review-error) lyskom-review-error error-message "Review error"] 4) #@91 Returns as a list the intersection of list A and list B. The order of the list a is kept. (defalias 'lyskom-intersection #[(a b) " $!@ >@ BA )" [a b nil list] 3 (#$ . 378387)]) #@54 Returns a copy of list where all zeroes are removed. (defalias 'lyskom-remove-zeroes #[(a) " !\"" [delq 0 copy-sequence a] 4 (#$ . 378595)]) #@61 Review every articles of an author written to a conference. (defalias 'kom-review-all #[nil "!Ž!!)" [lyskom-start-of-command kom-review-all ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-review lyskom-review-by-to 0] 2 (#$ . 378746) nil]) #@562 Reviews all articles of author that is written to conference recipient. If return is given instead of an author then all authors to that conference is shown. If return is given instead of conference then all conferences for that person is chosen. If a negative numeric argument is given then only the last COUNT articles are chosen. If the argument is positive then the first -COUNT articles are chosen. If the argument is zero the all articles are chosen. No argument is equivalent to COUNT 1. The defaults for this command is the conference that you are in. (defalias 'kom-review-first #[(&optional count) "!Ž!!\"[!)" [lyskom-start-of-command kom-review-first ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-review lyskom-review-by-to count lyskom-read-number lyskom-get-string review-how-many 1] 4 (#$ . 379011) "P"]) #@562 Reviews all articles of author that is written to conference recipient. If return is given instead of an author then all authors to that conference is shown. If return is given instead of conference then all conferences for that person is chosen. If a positive numeric argument is given then only the last COUNT articles are chosen. If the argument is negative then the first -COUNT articles are chosen. If the argument is zero the all articles are chosen. No argument is equivalent to COUNT 1. The defaults for this command is the conference that you are in. (defalias 'kom-review-by-to #[(&optional count) "!Ž\f!\"!)" [lyskom-start-of-command kom-review-by-to ((lyskom-end-of-command)) lyskom-review-by-to count lyskom-read-number lyskom-get-string review-how-many 1] 4 (#$ . 379866) "P"]) #@59 Common function for kom-review-by-to and kom-review-first (defalias 'lyskom-review-by-to #[(count) "<@A@U!!9V.\"9W9[\"\"\"%\"\"Ua҂o\"A֜)B%U~!U!DDD!֜U!U!$++" [count 0 nil lyskom-get-string everything lyskom-format latest-n first-n info lyskom-read-conf-no review-info info-by-whom (pers) t by info-to-conf (all) lyskom-current-conf "" blocking-do get-conf-stat conf-stat 1 to cache-del-conf-stat cache-del-pers-stat lyskom-blocking-do-multiple multiple-bind-sym info-to info-by lyskom-format-insert review-info-by-to anybody all-confs arg (byte-code " \n #@ \f  )B\f  \f&.B#C!)" [lyskom-get-texts-by-to by to count list read-list-enter-read-info REVIEW nil lyskom-get-current-priority texts TEXT-LIST t forward comm-to text-list priority conf-stat type READ-INFO vector lyskom-reading-list lyskom-insert-string no-such-text] 11) ((lyskom-review-error (byte-code "?!" [arg lyskom-insert-string no-such-text] 2)))] 8 (#$ . 380678)]) #@83 Get NUM texts writteb by person number BY in conference number TO Args: BY TO NUM (defalias 'lyskom-get-texts-by-to #[(by to num) "U\nU\f!\nU\f\"U&\n\f\"\n\f#" [by 0 to lyskom-get-texts-globally num lyskom-get-texts-by lyskom-get-texts-to lyskom-get-texts-by-and-to] 4 (#$ . 381825)]) #@234 Check that we can review texts to CONF by PERS. CONF is a conf-stat or t if we know we can access that conference. PERS is a pers-stat or t if we know we can access that person. This function signals an error if review is impossible (defalias 'lyskom-check-review-access #[(conf pers) " !\"!\")=|\nA˜)U<!\"\nA̜)\nAМ)$Aќ)?|\nAӜ)A՜)t!x!\"" [conf lyskom-format-insert review-conf-gone signal lyskom-cant-review-error t pers review-pers-gone object CONF-STAT conf-stat 14 0 review-cant-read-empty blocking-do get-map 13 1 map 2 conf-type 3 review-cant-read-letterbox review-cant-read-conf] 6 (#$ . 382144)]) #@42 Get the last NUM texts created in LysKOM (defalias 'lyskom-get-texts-globally #[(num) " !\"WȂ W$ʂ%\f  =MG!WM\f \" B+WY[+" [num lyskom-format-insert cant-review-everything signal lyskom-cant-review-error t nil 0 1 lyskom-maxint find-next-text-no find-previous-text-no op textno result abs blocking-do] 5 (#$ . 382837)]) #@104 Get NUM texts written by person PERSNO with conference CONFNO as a recipient. Args: persno confno num (defalias 'lyskom-get-texts-by-and-to #[(persno confno num) "\nD\fDD!Ɯ ǜ  \"\f  A՜) Aל)\\S[W[]Aܜ)A՜)\\SW !\"TXYXY!V\"XY AƜ)WSZ]$'Aǜ)((\")!XWYWAƜ)W<DSZ]$'Aǜ)((\")!Vy  @V\"!!GS@W\" \"\"\fB\f B B\f#\f\f\"\"VZZ\\\\ !VW\"\" \"\"!W(\f*\f\"\fV@\fGZ\fG[\f\"." [lyskom-blocking-do-multiple get-pers-stat persno get-conf-stat confno multiple-bind-sym 0 1 confstat persstat lyskom-check-review-access nil result-list by-list to-list result-size by to lyskom-fetch-map-nos increment pers-stat 14 plow 15 phigh num pmark conf-stat 13 clow chigh cmark smallest largest abort-loop abs lyskom-remove-zeroes blocking-do get-created-texts map vector append get-map t apply nconc mapcar #[(x) " \n\"" [lyskom-intersection to x] 3] mapcar2 #[(x y) " \n \"" [lyskom-intersection y x by] 4] + length min #[(x) " \" " [x apply min lyskom-maxint] 3] max #[(x) " \"Ç" [x apply max -1] 3] nfirst] 8 (#$ . 383227)]) #@51 Get NUM texts written by PERSNO. Args: persno num (defalias 'lyskom-get-texts-by #[(persno num) "\n\" \" Aǜ) Aɜ)\\S\n\f - ! @ W@B\n c\nT \n\nT\nX Y  !\fGV ^ WSZWZ\n$Aڜ)\")! \"!A) V\f\fZ\f\f\\\\^c !\fGZc V3\fG Z\f: [\f\".\n" [blocking-do get-pers-stat persno persstat lyskom-check-review-access t pers-stat 14 plow 15 phigh nil result num abs increment 0 mark collector found start data lyskom-fetch-map-nos lyskom-remove-zeroes get-created-texts map 1 vector append make-collector mapcar #[(x) " \f$" [initiate-get-text-stat main #[(x collector) "AÜ)\f\"" [x collector-push text-stat 0 collector] 4] x collector] 5] lyskom-wait-queue main nfirst] 7 (#$ . 384679)]) #@28 From CONFNO get NUM texts. (defalias 'lyskom-get-texts-to #[(confno num) "\n\" \" Aǜ) Aɜ)\\S\n\f 0!CWCE\nZ\nT\nT\n\nX\nY\n!\fGV\n^WSZ W Z \n $Aל)\")!V\f\fZ!\fGZ\f\f\\\\^!\fGZ)ZV\fGZ\f$[\f\"." [blocking-do get-conf-stat confno confstat lyskom-check-review-access t conf-stat 13 clow 14 chigh nil result start num abs increment 0 mark lyskom-fetch-map-nos lyskom-remove-zeroes get-map map 1 vector append found nfirst] 7 (#$ . 385583)]) #@103 Toggles the reviewing order. If reading forward then starts reading backward and the other way round. (defalias 'kom-review-backward #[nil "!\nA)x\nA)AŜ)=.\nA)AŜ)=x\nA)Aɜ)\nA A̜) \nA ?AI* p͂q!\",|! " [lyskom-start-of-command kom-review-backward lyskom-reading-list read-list read-info 0 REVIEW REVIEW-MARK info 3 list texts 5 forward newval lyskom-format-insert you-review lyskom-get-string backward lyskom-insert-string illegal-command lyskom-end-of-command] 5 (#$ . 386233) nil]) #@307 Review all comments to this text. Descends recursively in the comment-tree without marking the texts as read. The tree is forgotten when a kom-go-to-next-conf command is issued. If optional prefix argument TEXT-NO is present view tree from that text instead. In this case the text TEXT-NO is first shown. (defalias 'kom-review-tree #[(&optional text-no) "!Ž! ! \" %)$!)" [lyskom-start-of-command kom-review-tree ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-review text-no blocking-do get-text-stat ts lyskom-follow-comments nil review lyskom-get-current-priority t lyskom-insert-string read-text-first] 6 (#$ . 386798) (list (cond ((null current-prefix-arg) lyskom-current-text) ((integerp current-prefix-arg) current-prefix-arg) (t (signal (quote lyskom-internat-error) (quote (kom-review-tree))))))]) #@77 Finds the root text of the tree containing the text in lyskom-current-text. (defalias 'kom-find-root #[(&optional text-no) "!Ž! 3 \"  \" + !/\"*6!)" [lyskom-start-of-command kom-find-root ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-review lyskom-current-text blocking-do get-text-stat text-no ts lyskom-find-root r lyskom-view-text signal lyskom-internal-error "Could not find root" lyskom-insert-string read-text-first] 4 (#$ . 387644) nil]) #@124 Finds the root text of the tree containing the text in lyskom-current-text and reviews the whole tree in deep-first order. (defalias 'kom-find-root-review #[nil "!Ž!  \"\"!!)" [lyskom-start-of-command kom-find-root-review ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-review lyskom-current-text lyskom-review-tree lyskom-find-root blocking-do get-text-stat nil lyskom-insert-string read-text-first] 5 (#$ . 388142) nil]) #@454 Finds the root text of the tree containing the text TEXT-STAT. Args: TEXT-STAT OLD-TEXT-STAT THENDO If TEXT-STAT is nil and OLD-TEXT-STAT contains a text-stat then this means that the parent of the text in OLD-TEXT-STAT is not readable and the text in OLD-TEXT-STAT is to be used instead. If both TEXT-STAT and OLD-TEXT-STAT is nil then this means we are not allowed to read the text we are trying to find the root of. This just returns with a message. (defalias 'lyskom-find-root #[(text-stat old-text-stat) " Aœ)  s @AȜ) = 2 =  E @AΜ)N @Aœ) l\" \"h)o A, = AȜ) AȜ)+" [text-stat ts 6 misclist nil res noparents misc-info 0 type COMM-TO comm FOOTN-TO yes 4 parent-no blocking-do get-text-stat pts lyskom-find-root old-text-stat] 4 (#$ . 388601)]) #@119 Takes a TEXT as an arg, shows the text and the tree of all comments. Does a lyskom-end-of-command. Text is a text-no. (defalias 'lyskom-review-tree #[(text) " &E\"" [text lyskom-view-text nil t lyskom-get-current-priority signal lyskom-internal-error lyskom-review-tree "Called with incorrect argument."] 7 (#$ . 389454)]) #@162 Resumes an interupted review by moving all review and review-tree entries in the lyskom-reading-list to the beginning. i.e by moving all other types to the end. (defalias 'kom-review-next #[nil "!!\fGS)UVU\fA)\nA˜)\f=I\f=I\f=I\f!L)S* " [lyskom-start-of-command kom-review-next lyskom-tell-internat kom-tell-review lyskom-reading-list read-list nil finished len 1 read-info 0 type REVIEW REVIEW-TREE REVIEW-MARK read-list-rotate t lyskom-end-of-command] 3 (#$ . 389804) nil]) #@28 Displays the review-stack. (defalias 'kom-review-stack #[nil "!\fA)\" " [lyskom-start-of-command kom-review-stack mapcar #[(info) "Aœ)AGAÜ)AĜ)=+\"U=IU@ \"U #U=U\"+" [info read-info 3 0 4 cto type un REVIEW lyskom-format-insert review-n-texts REVIEW-TREE 1 review-one-comment review-many-comments REVIEW-MARK review-marked] 5] lyskom-reading-list read-list lyskom-end-of-command] 4 (#$ . 390342) nil]) #@78 Deletes all review-types from the lyskom-reading-list and lyskom-to-do-list. (defalias 'kom-review-clear #[nil "!\nA)P\nA)AŜ)=?\nA)AŜ)=?\nA)AŜ)=P\nAL AA)\f A) A)AŜ)= A)AŜ)= A)AŜ)= A AA)Y " [lyskom-start-of-command kom-review-clear lyskom-reading-list read-list read-info 0 REVIEW REVIEW-TREE REVIEW-MARK lyskom-to-do-list lyskom-end-of-command] 3 (#$ . 390817) nil]) #@176 View the comments to this text. If the current text has comments in (footnotes in) some texts then the first text is shown and a REVIEW list is built to shown the other ones. (defalias 'kom-review-comments #[nil "!Ž!\"!)" [lyskom-start-of-command kom-review-comments ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-review lyskom-review-comments blocking-do get-text-stat lyskom-current-text] 4 (#$ . 391286) nil]) #@79 Handles the return from the initiate-get-text-stat, displays and builds list. (defalias 'lyskom-review-comments #[(text-stat) " A)\n\"\n\"\"%\"\nw\n@\"\nAo \nA)B&.B#\n@!z!+" [text-stat 6 misc-info-list append lyskom-misc-infos-from-list FOOTN-IN COMM-IN misc-infos mapcar #[(misc-info) "A)šAÜ)AĜ)" [misc-info 0 COMM-IN 5 7] 3] text-nos lyskom-format-insert review-text-no read-list-enter-read-info REVIEW nil lyskom-get-current-priority texts TEXT-LIST lyskom-current-text forward comm-to text-list priority conf-stat type READ-INFO vector lyskom-reading-list t lyskom-view-text lyskom-insert-string no-such-text] 11 (#$ . 391727)]) #@42 Reviews the NO last normally read texts. (defalias 'kom-review-last-normally-read #[(no) "!! \"a@\"AX A)B&.B#@!e!) " [lyskom-start-of-command kom-review-last-normally-read lyskom-tell-internat kom-tell-review nfirst no lyskom-normally-read-texts text-nos lyskom-format-insert review-text-no read-list-enter-read-info REVIEW nil lyskom-get-current-priority texts TEXT-LIST lyskom-current-text forward comm-to text-list priority conf-stat type READ-INFO vector lyskom-reading-list t lyskom-view-text no-such-text lyskom-end-of-command] 11 (#$ . 392476) (list (lyskom-read-number (lyskom-get-string (quote read-normally-read)) 1))]) (byte-code "P‡" [lyskom-clientversion-long "$Id: edit-text.el,v 44.0 1996/08/30 14:46:11 davidk Exp $\n" nil] 2) #@41 Mode map for the mode LysKOM edites in. (defvar lyskom-edit-mode-mode-map nil (#$ . 393311)) #@19 Name of the mode. (defvar lyskom-edit-mode-name "LysKOM edit" (#$ . 393410)) #@37 Status variable for an edit-window. (defvar lyskom-is-dedicated-edit-window nil (#$ . 393493)) #@67 Status variable for an edit-buffer. See lyskom-edit-handler-data. (defvar lyskom-edit-handler nil (#$ . 393594)) #@62 Status variable for an edit-buffer. See lyskom-edit-handler. (defvar lyskom-edit-handler-data nil (#$ . 393713)) #@37 Status variable for an edit-buffer. (defvar lyskom-edit-return-to-configuration nil (#$ . 393832)) (byte-code "###" [put lyskom-edit-text-abort error-conditions (error lyskom-error lyskom-edit-error lyskom-abort-edit) lyskom-unknown-header (error lyskom-error lyskom-edit-error lyskom-unknown-header) lyskom-no-subject (error lyskom-error lyskom-edit-error lyskom-no-subject)] 4) #@415 Edit a text in a new buffer. PROC is the associated process. MISC-LIST is the default misc-list. SUBJECT is subject (a string). BODY is the default text-body (a string, normally empty.) HANDLER is a function to call when the text has been created. DATA is extra data to send to the function. HANDLER is called with (apply HANDLER text-no DATA) where text-no is the number of the text. Does lyskom-end-of-command. (defalias 'lyskom-edit-text #[(proc misc-list subject body &optional handler &rest data) " \f &" [t lyskom-is-writing lyskom-dispatch-edit-text proc misc-list subject body handler data] 7 (#$ . 394234)]) #@72 Same as lyskom-edit-text except that it doesn't set lyskom-is-writing. (defalias 'lyskom-dispatch-edit-text #[(proc misc-list subject body &optional handler &rest data) " ! !!P!  B p!\"!/;E!E!!!=T!=k =k !=!!! !!!!\" $%&#eb*!,!d#!db!\"+!q" [process-buffer proc generate-new-buffer buffer-name "-edit" current-window-configuration config buffer buf lyskom-list-of-edit-buffers process-kill-without-query get-buffer-process t bufferp kom-write-texts-in-window get-buffer-window select-window switch-to-buffer other switch-to-buffer-other-window other-frame selected-frame next-frame select-frame new-frame make-local-variable lyskom-is-dedicated-edit-window switch-to-buffer-other-frame lyskom-edit-mode lyskom-proc lyskom-edit-handler lyskom-edit-handler-data lyskom-edit-return-to-configuration handler data lyskom-edit-insert-miscs misc-list subject body re-search-forward "\\(" regexp-quote lyskom-header-subject "\\|" lyskom-swascii-header-subject "\\)" end looking-at "\\s-*$" lyskom-message "%s" lyskom-get-string press-C-c-C-c] 6 (#$ . 394869)]) #@172 Insert MISC-LIST into header of text. recpt -> Mottagare: <%d> %s. cc-recpt -> Extra kopia: <%d> %s. comm-to -> Kommentar till text %d. footn-to -> Fotnot till text %d. (defalias 'lyskom-edit-insert-miscs #[(misc-list subject body) "p \n! qA@@@A=9\"!\f$~=Q\"!\f$~=i\"!\f$~=~\"!\f$A* %\f\" q\fb+" [point-min-marker process-buffer lyskom-proc main-buffer where-put-misc edit-buffer misc-list data key recpt lyskom-edit-insert-misc-conf blocking-do get-conf-stat lyskom-get-string recipient cc-recpt carbon-copy comm-to lyskom-edit-get-commented-author get-text-stat comment footn-to footnote princ lyskom-format text-mass subject kom-emacs-knows-iso-8859-1 lyskom-header-separator lyskom-swascii-header-separator body lyskom-header-subject lyskom-swascii-header-subject] 8 (#$ . 396080)]) #@34 Positions the editing at MARKER. (defalias 'lyskom-edit-goto-char #[(marker) "p\n!qËq)" [curbuf marker-buffer marker ((goto-char marker))] 2 (#$ . 397003)]) #@321 Insert Mottagare: or Extra kopia: in edit-buffer. Args: CONF-STAT STRING STREAM NUMBER CONF-STAT is the conf-stat of the conference that is about to be put in, STRING is the string that is inserted. STREAM is the buffer or a marker telling the position. NUMBER is the number of the person. Used if the conf-stat is nil. (defalias 'lyskom-edit-insert-misc-conf #[(conf-stat string stream number) " !  ! !q !\" b 8  Aʜ): \" L  A̜)MR \"+" [bufferp stream markerp marker-buffer buf princ string format " <%d> " conf-stat 0 number 1 "" "\n"] 7 (#$ . 397174)]) (defalias 'lyskom-edit-get-commented-author #[(text-stat string stream number) "AĜ)\" $ $" [text-stat lyskom-edit-insert-commented-author blocking-do get-conf-stat 2 string stream number nil] 6]) (defalias 'lyskom-edit-insert-commented-author #[(conf-stat string stream number) " \f  Aǜ)\"$ \"" [princ lyskom-format comment-to-by string number conf-stat by 1 "" stream] 10]) #@680 Create a misc-list. Note that a misc-list is very different from a misc-info-list. A misc-list is used when creating a new text, and sent to the server. A misc-info-list is what is received from the server. Although the server has the same format for the two things, this client uses two quite different formats. The arguments to this function is any number of pairs of data. The first item in each pair should be one of recpt, cc-recpt, comm-to or footn-to. The second item should be the corresponding conf- or text-no. The result is a list of dotted pairs: ('recpt . conf-no) ('cc-recpt . conf-no) ('comm-to . text-no) ('footn-to . text-no). First element is a type-tag. (defalias 'lyskom-create-misc-list #[(&rest misc-pairs) "B \n @ A@BB AA\n)" [MISC-LIST nil result misc-pairs] 4 (#$ . 398199)]) #@270 *List of functions to be called when entering lyskom-edit-mode. Watch out! None of these functions are allowed to do kill-all-local-variables because kom-edit-send and other functions depend on some variables to be able to enter the text in the correct lyskom-process. (defvar lyskom-edit-mode-hook nil (#$ . -399028)) #@386 *List of functions to be called when entering lyskom-edit-mode. Watch out! None of these functions are allowed to do kill-all-local-variables because kom-edit-send and other functions depend on some variables to be able to enter the text in the correct lyskom-process. This one differs from lyskom-edit-mode-hook in that it is called before the lyskom-special key bindings are added. (defvar lyskom-edit-mode-mode-hook nil (#$ . -399354)) #@796 \Mode for editing texts for LysKOM. Commands: \[kom-edit-send] sends the text when you are ready. The buffer will be deleted if (and only if) the server accepts the text. \[kom-edit-quit] aborts the editing. You will get back to the LysKOM buffer. \[kom-edit-show-commented] shows the commented text in a temporary buffer. \[kom-edit-add-recipient] asks for another recipient and adds him to the header. \[kom-edit-add-copy] as \[kom-edit-add-recipient] but adds him as copy-recipient. \[kom-edit-insert-commented] inserts the commented of footnoted text. \[kom-edit-insert-text] inserts the shown text, you tell the number. The mode is based on the mode in the lyskom-edit-mode-mode-hook or fundamental. Entry to this mode runs lyskom-edit-mode-hook. (defalias 'lyskom-edit-mode #[nil "  !  !\n \f\"!!!!!!!!!!!" [lyskom-clear-vars ("LysKOM (server: %b)") mode-line-buffer-identification text-mode run-hooks lyskom-edit-mode-mode-hook current-local-map copy-keymap lyskom-edit-mode-mode-map lyskom-edit-mode major-mode lyskom-edit-mode-name mode-name use-local-map overlay-map lyskom-edit-mode-map auto-save-mode 1 auto-fill-mode make-local-variable paragraph-start paragraph-separate lyskom-proc "^" regexp-quote lyskom-header-separator "$\\|^" lyskom-swascii-header-separator "$\\|" lyskom-edit-mode-hook] 6 (#$ . 399801) nil]) #@42 Send the text anonymously to the server. (defalias 'kom-edit-send-anonymous #[nil "!" [lyskom-edit-send initiate-create-anonymous-text] 2 (#$ . 401256) nil]) #@30 Send the text to the server. (defalias 'kom-edit-send #[nil "!" [lyskom-edit-send initiate-create-text] 2 (#$ . 401423) nil]) #@55 Send the text to the server by calling SEND-FUNCTION. (defalias 'lyskom-edit-send #[(send-function) "" [err (byte-code " !!pʼn \n   A\" @)Θ^`ebHJ#`U]\")\"u A\") !!q !!$Q\n%.( !+)0! !qdb" [mode-name lyskom-edit-mode-name j-or-n-p lyskom-get-string already-sent nil message subject misc-list headers buffer lyskom-edit-parse-headers apply lyskom-create-misc-list "" old re-search-forward kom-emacs-knows-iso-8859-1 lyskom-header-subject lyskom-swascii-header-subject t signal lyskom-no-subject (enter-subject-idi) lyskom-edit-send-check-recipients extra-headers lyskom-send-transform-text lyskom-edit-extract-text "LysKOM sending" process-buffer lyskom-proc kom-created-texts-are-read lyskom-dont-change-prompt lyskom-is-writing lyskom-tell-internat kom-tell-send send-function sending lyskom-create-text-handler "\n" kom-dont-restore-window-after-editing bury-buffer boundp lyskom-is-dedicated-edit-window error (delete-frame) ((error)) set-window-configuration lyskom-edit-return-to-configuration window-buffer selected-window] 7) ((lyskom-abort-edit (byte-code "\n\"" [apply lyskom-message err] 3)) (lyskom-no-subject (byte-code " !\n\nb\nA@!\"ȏ" [lyskom-beep lyskom-ding-on-no-subject err lyskom-message "%s" lyskom-get-string arg (byte-code " !q\fŘ=) c*" ["" text process-buffer lyskom-proc lyskom-server-name "kom.lysator.liu.se" lyskom-pers-no 698 "rende, IDI!"] 2) ((error))] 4)) (lyskom-unknown-header (byte-code " A@!\"" [lyskom-message "%s" lyskom-get-string err] 4)))] 3 (#$ . 401558)]) #@181 Check that the recipients of this text are OK. Ask the user to confirm multiple recipients; check that the author of the commented text is a member of some recipient of this text. (defalias 'lyskom-edit-send-check-recipients #[(misc-list subject) "  !q\n)  AG\\A =cA \"A#WH@=A B@=@=A >A =A \"Tn, !q \")." [nil comm-to-list recipient-list author-list author-is-member make-collector collector extra-headers process-buffer lyskom-proc lyskom-pers-no me 0 num-me __i__ misc-list __sequence__ __len__ misc comm-to recpt cc-recpt kom-confirm-multiple-recipients before 1 lyskom-j-or-n-p lyskom-format comment-all-relevant-p t signal lyskom-edit-text-abort "%s" lyskom-get-string please-edit-recipients kom-check-commented-author-membership lyskom-message checking-rcpt mapcar #[(x) "\n\"AĜ)" [blocking-do get-text-stat x text-stat 2] 4] delq #[(author-number) "!\f\"#!A) ?C\nU?C\n\")\"C\nD" [lyskom-collect sending mapcar #[(conference-number) " \f$" [initiate-query-read-texts sending nil author-number conference-number] 5] recipient-list lyskom-list-use collector-push collector lyskom-wait-queue author-is-member author-number 0 lyskom-j-or-n-p nil kom-deferred-printing lyskom-format add-recipient-p t recpt extra-headers] 5]] 6 (#$ . 403264)]) (defalias 'lyskom-send-transform-text #[(message) " Ï\f" [lyskom-format-experimental err (byte-code "!Î\nq\fceb!eb!`d{\f* P+\f+" [generate-new-buffer "lyskom-enriched" buf ((kill-buffer buf)) message format-encode-buffer text/enriched search-forward "\n\n" "enriched:\n" buffer-string] 2) ((error message)) message] 3]) #@61 Kill the text (if any) written so far and continue reading. (defalias 'kom-edit-quit #[nil "p \f (!\fǏ) ! !qdb !pюq *! ) " [edit-buffer kom-dont-restore-window-after-editing bury-buffer boundp lyskom-is-dedicated-edit-window error (delete-frame) ((error)) set-window-configuration lyskom-edit-return-to-configuration window-buffer selected-window nil lyskom-is-writing lyskom-tell-internat kom-tell-regret __buffer__ ((set-buffer __buffer__)) delete-auto-save-file-if-necessary kill-buffer lyskom-count-down-edits garbage-collect] 3 (#$ . 405343) nil]) #@44 Show the commented text in another window. (defalias 'kom-edit-show-commented #[nil "!" [lyskom-edit-get-commented lyskom-edit-show-commented] 2 (#$ . 405948) nil]) #@55 Insert the commented text with '>' first on each line (defalias 'kom-edit-insert-commented #[nil "!" [lyskom-edit-get-commented lyskom-edit-insert-commented] 2 (#$ . 406122) nil]) (defalias 'kom-edit-insert-digit-text #[nil " B\"" [last-command-event unread-command-events call-interactively kom-edit-insert-text nil] 3 nil nil]) #@55 Insert the text number NO with '>' first on each line (defalias 'kom-edit-insert-text #[(no) "p\n!q$q!)" [buffer process-buffer lyskom-proc initiate-get-text edit lyskom-edit-insert-commented no sit-for 0] 5 (#$ . 406467) (list (cond ((null current-prefix-arg) (string-to-int (read-from-minibuffer (format "%s" (lyskom-get-string (quote which-text-include)))))) ((prefix-numeric-value current-prefix-arg))))]) #@52 Get the commented text and then do THENDO with it. (defalias 'lyskom-edit-get-commented #[(thendo) "`pď 2 @= @=* A@Ɖ AAOb !q $ qV!\",!)" [p buffer err (byte-code " A" [lyskom-edit-parse-headers] 1) ((lyskom-edit-error)) headers nil no comm-to footn-to process-buffer lyskom-proc initiate-get-text edit thendo lyskom-message "%s" lyskom-get-string no-such-text-m sit-for 0] 6 (#$ . 406898)]) #@58 Adds a conference as recipient to the text being edited. (defalias 'kom-edit-add-recipient #[nil "!!\"" [lyskom-edit-add-recipient/copy lyskom-get-string added-recipient recipient] 4 (#$ . 407355) nil]) #@68 Adds a conference to which a copy of the edited text will be sent. (defalias 'kom-edit-add-copy #[nil "!!\"" [lyskom-edit-add-recipient/copy lyskom-get-string added-carbon-copy carbon-copy] 4 (#$ . 407570) nil]) #@75 Adds a new recipient or a cc-recipient to the text which is being edited. (defalias 'lyskom-edit-add-recipient/copy #[(prompt string) " p \n% \np ̎!qAϜ)U<$\" ! ڐAќ)Aޜ)#!!!$!)$)." [point-min-marker lyskom-read-conf-stat prompt (all) nil "" t conf-stat insert-at edit-buffer marker __buffer__ ((set-buffer __buffer__)) process-buffer lyskom-proc 10 text-no 0 lyskom-edit-insert-misc-conf string blocking-do get-text text get-buffer-window current-window-configuration win-config "*Motd*" princ lyskom-format conf-has-motd-no 1 j-or-n-p lyskom-get-string still-want-to-add set-window-configuration] 10 (#$ . 407794)]) #@198 Check if point is at the beginning of a header of type HEADER. Return the corresponding number (conf no etc.) if MATCH-NUMBER is non-nil. If MATCH-NUMBER is 'angled, only match a number inside <>. (defalias 'lyskom-looking-at-header #[(header match-number) "\n! =ł P!% $Ȕȕ{!ɇ" [looking-at lyskom-get-string header match-number angled "[^0-9]*<\\([0-9]+\\)>" "[^0-9]*\\([0-9]+\\)" string-to-int 1 t] 4 (#$ . 408525)]) #@303 Parse the headers of an article. They are returned as a list where the first element is the subject, and the rest is a list (HEADER DATA HEADER DATA ...), where HEADER is either 'recpt, 'cc-recpt, 'comm-to or 'footn-to. This is to make it easy to use the result in a call to `lyskom-create-misc-list'. (defalias 'lyskom-edit-parse-headers #[nil "ebB\f !ye`}eb`dW \n\" ?\n D\" S\n D\" g\n D\" {\n D\f!\"\n `D\"*y)\n)" ["" nil result search-forward kom-emacs-knows-iso-8859-1 lyskom-header-separator lyskom-swascii-header-separator 0 t n case-fold-search lyskom-looking-at-header recipient-prefix angled recpt carbon-copy-prefix cc-recpt comment-prefix comm-to footnote-prefix footn-to lyskom-header-subject regexp-quote lyskom-swascii-header-subject lyskom-edit-extract-subject signal lyskom-unknown-header unknown-header 1] 4 (#$ . 408971)]) #@75 Find the subject. Point must be located on the line where the subject is. (defalias 'lyskom-edit-extract-subject #[nil "!”•{" [re-search-forward ": \\(.*\\)" 1] 2 (#$ . 409933)]) #@23 Get text as a string. (defalias 'lyskom-edit-extract-text #[nil "eb\n \f!d#/\n \f! !d#/\"G`TdSb!B!5u`{)" [re-search-forward regexp-quote kom-emacs-knows-iso-8859-1 lyskom-header-separator lyskom-swascii-header-separator nil signal lyskom-internal-error "Altered lyskom-header-separator line." looking-at "\\s-" backward-char 1] 4 (#$ . 410124)]) #@36 Handle an attempt to write a text. (defalias 'lyskom-create-text-handler #[(text-no edit-buffer) "!!\f4!#! !#\" q!\f\"!Y\f!\f#$\"\\ q  !}#! !qdb'!q  \f#*p) q * ! " [lyskom-tell-internat kom-tell-silence message "" text-no lyskom-insert-before-prompt lyskom-format could-not-create-text lyskom-errno lyskom-get-error-text beep lyskom-message "%s" edit-buffer lyskom-edit-mode-name mode-name sit-for 0 text-created kom-created-texts-are-read lyskom-is-read initiate-get-text-stat background lyskom-mark-as-read lyskom-run set lyskom-dont-change-prompt nil lyskom-set-mode-line lyskom-edit-handler lyskom-edit-handler-data dta hnd get-buffer-window set-window-configuration lyskom-edit-return-to-configuration window-buffer selected-window process-buffer lyskom-proc apply __buffer__ ((set-buffer __buffer__)) delete-auto-save-file-if-necessary kill-buffer lyskom-count-down-edits] 7 (#$ . 410516)]) #@286 Handles the TEXT from the return of the call of the text. The EDITING-BUFFER is the buffer the editing is done in. If this buffer is not displayed nothing is done. If displayed then this buffer is chosen then the with-output-to-temp-buffer command is issued to make them both apear. (defalias 'lyskom-edit-show-commented #[(text editing-buffer) ")\n!)\nqÐ AƜ)'AƜ)!!" [text get-buffer-window editing-buffer "*Commented*" princ kom-emacs-knows-iso-8859-1 1 iso-8859-1-to-swascii] 6 (#$ . 411531)]) #@123 Handles the TEXT from the return of the call of the text. The text is inserted in the buffer with '>' first on each line. (defalias 'lyskom-edit-insert-commented #[(text editing-buffer) "N qncl!`AĜ)\"AĜ)TO c `XLy Dcy5+!\"" [text editing-buffer "\n" open-line 1 pb string-match as nil te 0 kom-cite-string 62 -1 lyskom-message "%s" lyskom-get-string no-get-text] 5 (#$ . 412061)]) #@187 Counts down the number of edit sessions. Returns non-nil if there are sessions left. Can be called from any of the lyskom-associated buffers. At least the main buffer and edit buffers. (defalias 'lyskom-count-down-edits #[nil "p!!\n!\np#!q ; @ >; A ) I\"O\") )" [get-buffer-process boundp lyskom-proc processp signal lyskom-internal-error "lyskom-count-down-edits called from " proc process-buffer lyskom-list-of-edit-buffers buffer-list process-kill-without-query t nil] 5 (#$ . 412501)]) #@220 Returns a map that is the union of OLDMAP and NEWMAP. NEW-MAP has priority. This function chooses whether the returned map is a list or an array. Currently always same type as oldmap. BUG: does not descend in the maps. (defalias 'overlay-map #[(oldmap newmap) " !\n\n! !!%\n\"\f\"d\nA@!d \nA@GWZ\nA@ HS !\nA@ H# T6\nAA\"\n! \nGW\n H !\n H# Tk\nA\"*" [keymapp oldmap newmap copy-keymap 0 r map fboundp map-keymap #[(event function) " !\f#" [define-key map vector event function] 4] string-match "^19" emacs-version arrayp define-key char-to-string mapcar #[(ele) " \n@\n@!\n@!\nA#" [define-key map ele char-to-string vector] 4] #[(ele) " \n@\n@!\n@!\nA#" [define-key map ele char-to-string vector] 4]] 6 (#$ . 413054)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: filter.el,v 44.0 1996/08/30 14:46:34 davidk Exp $\n" nil] 2) #@107 Creates and returns a filter structure. Optional P and A initialize pattern and attributes, respectively. (defalias 'make-filter #[(&optional p a) "\n \n!#D" [filter vector p a lyskom-create-compile-filter-function] 6 (#$ . 413998)]) #@31 Create a copy of the filter F (defalias 'copy-filter #[(f) " !! !!\"" [make-filter copy-tree filter->pattern f filter->attribute-list] 5 (#$ . 414242)]) #@36 Returns T if f looks like a filter (defalias 'filter-p #[(f) "< @=" [f filter] 2 (#$ . 414407)]) #@41 Extract the patterns part of a filter F (defalias 'filter->pattern #[(f) "œ" [f 1 0] 2 (#$ . 414516)]) #@34 Extract the attribute list of F. (defalias 'filter->attribute-list #[(f) "" [f 1] 2 (#$ . 414630)]) #@96 From filter F, extract the value of attribute A. Returns nil if no such attribute is present. (defalias 'filter->attribute #[(f a) "\n!A" [a filter->attribute-list f] 3 (#$ . 414742)]) #@34 Set the patterns part of F to P. (defalias 'set-filter->pattern #[(f p) " I" [f 1 0 p] 3 (#$ . 414938)]) #@41 Set the attribute list of filter F to L (defalias 'set-filter->attribute-list #[(f l) "\nI" [f 1 l] 3 (#$ . 415054)]) #@48 Set the value in filter F of attribute A to V. (defalias 'set-filter->attribute #[(f a v) "\n! \f\n\fB\n!B\")" [a filter->attribute-list f x v set-filter->attribute-list] 6 (#$ . 415183)]) #@31 Get the function for filter F (defalias 'filter->function #[(f) "œ" [f 1 2] 2 (#$ . 415394)]) #@37 Set the function for filter F to FN (defalias 'set-filter->function #[(f fn) " I" [f 1 2 fn] 3 (#$ . 415499)]) #@114 Variable to busy-wait on to get the filter action. Set to invalid-value until a filter action has been selected. (defvar lyskom-filter-hack nil (#$ . 415622)) (defalias 'lyskom-filter-text-p #[(text-no) "#\n= \n# \n" [lyskom-filter-list invalid-value lyskom-filter-hack initiate-get-text-stat filter lyskom-filter-text-p-2 text-no accept-process-output nil lyskom-apo-timeout-s lyskom-apo-timeout-ms] 4]) (defalias 'lyskom-filter-text-p-2 #[(text-stat) "!AƜ)#AȜ)# Aʜ) G\f  function filter-list author recipient-list subject text-stat text tmp] 7) ((error))] 4]) (defalias 'lyskom-filter-is-member '(macro . #[(testfn arg list selector) " DD BEBBBBBBBB" [let found objlist list while (and objlist (not found)) and testfn arg selector ((car objlist)) ((setq found t)) ((setq objlist (cdr objlist))) (found)] 9])) (defalias 'lyskom-create-compile-filter-function #[(pattern) "!!!" [pattern byte-compile (lambda (filter author recipient-list subject text-stat text) nil) lyskom-create-filter-function] 3]) (defalias 'lyskom-create-filter-function #[(pattern) "\f!BE" [lambda (filter author recipient-list subject text-stat text) and lyskom-create-filter-function-body pattern] 5]) (defalias 'lyskom-create-filter-function-body #[(pattern) " \fĂT < @< !\"T @@ @A \n =O\nattribute filter (quote action))) lyskom-error "%s" lyskom-get-string filter-error-specification form args key not filter-error-bad-not t author lyskom-filter-check-args stringp string-match regexp-quote ((conf-stat->name author)) author-re regexpp ((conf-stat->name author)) author-no integerp = ((conf-stat->conf-no author)) recipient lyskom-filter-is-member (recipient-list conf-stat->name) recipient-re (recipient-list conf-stat->name) recipient-no (recipient-list conf-stat->conf-no) subject (subject) subject-re (subject) text (text) text-re (text) filter-error-unknown-key lyskom-create-filter-function-body] 5]) (defalias 'lyskom-filter-check-args #[(fn arg) " !?! #" [fn arg lyskom-error lyskom-get-string filter-error-key-arg] 4]) (defalias 'lyskom-filter-prompt #[(text-no prompt) "\f\"v\fDA˜)DD!\f͜\fΜuAΜ)\"PAΜ)͉OYAΜ)pA˜)$ +*ʼn" [t lyskom-filter-hack blocking-do get-text-stat text-no nil subject text-stat lyskom-blocking-do-multiple get-text get-conf-stat 2 multiple-bind-sym 0 1 conf-stat text string-match "\n" lyskom-format-insert prompt lyskom-scroll] 7]) #@58 Add the filter FILTER to the LysKOM filtering mechanism. (defalias 'lyskom-add-filter #[(filter) " \" B \fBp!!!$ \nB\n" [filter->attribute filter expire kom-session-filter-list kom-permanent-filter-list lyskom-save-options lyskom-get-string filter-edit-saving filter-edit-saving-done filter-edit-saving-error lyskom-filter-list] 6 (#$ . 419435)]) #@64 Read a filter action from the minibuffer, returning its symbol (defalias 'lyskom-filter-read-action #[nil "! !ʉ!# @A&24 \"@)" [t completion-ignore-case rassoc completing-read lyskom-get-string filter-action lyskom-reverse-pairs kom-emacs-knows-iso-8859-1 lyskom-filter-actions lyskom-swascii-filter-actions nil] 8 (#$ . 419811)]) #@88 Ask the user is a filter is permanent and return t in this case. Otherwise return nil. (defalias 'lyskom-filter-read-permanent #[nil "!!" [lyskom-j-or-n-p lyskom-get-string filter-permanent] 3 (#$ . 420187)]) #@72 Interactively filter a subject. Optional SUBJECT is subject to filter. (defalias 'kom-filter-subject #[(&optional subject) "!Ž U? \"ȉ \n \f ( ! \"  B\nB\n!AĜ)ZA֜)B[%\fUn\fB\nB\n   \n B ?BD\"!-)" [lyskom-start-of-command kom-filter-subject ((lyskom-end-of-command)) lyskom-current-conf 0 blocking-do get-conf-stat conf-stat nil action filter perm conf subject lyskom-current-subject read-from-minibuffer lyskom-get-string filter-subject lyskom-read-conf-no filter-in-conf (all) t 1 "" recipient-no lyskom-filter-read-action lyskom-filter-read-permanent lyskom-add-filter make-filter expire] 7 (#$ . 420406) nil]) #@33 Interactively filter an author. (defalias 'kom-filter-author #[nil "!ŽÉ \fDDD!͜ќDA՜)\" ! ] Aќ)B^%UqBB!Aќ)B%UBB   B\f?BD\"!.\n" [lyskom-start-of-command kom-filter-author ((lyskom-end-of-command)) nil permanent action filter conf author auth-stat lyskom-blocking-do-multiple get-text-stat lyskom-current-text 0 get-conf-stat lyskom-current-conf multiple-bind-sym 1 conf-stat text-stat blocking-do 2 lyskom-read-conf-no lyskom-get-string filter-author (pers) t "" author-no filter-in-conf (all) recipient-no lyskom-filter-read-action lyskom-filter-read-permanent lyskom-add-filter make-filter expire] 7 (#$ . 421104) nil]) #@87 Skip all texts and comments that share the subject and recipient of the current text (defalias 'kom-super-jump #[nil "!Ž  U!D \"ɉ\n/\nU?/\n\"\f AҜ)G<@AĜ)=|A؜)BAĜ)=A؜)BAVWHAĜ)=A؜)BAĜ)=A؜)BT,\f\n> \n>\n@@ %!CB BDBBD\"!! #-)" [lyskom-start-of-command kom-super-jump ((lyskom-end-of-command)) lyskom-current-text 0 lyskom-insert-string have-to-read blocking-do get-text-stat nil lyskom-current-conf get-conf-stat conf-stat filter-recipient cc-recipients recipients text-stat __i__ 6 __sequence__ __len__ misc misc-info RECPT 1 CC-RECPT no-recipient lyskom-add-filter make-filter subject lyskom-current-subject recipient-no action skip-tree expire t lyskom-format-insert super-jump copy-sequence] 8 (#$ . 421860) nil]) #@76 Interactively filter on text contents. Optional TEXT is subject to filter. (defalias 'kom-filter-text #[(&optional text) "!Ž U? \"lj \n \f!-\"BB!\f\fAĜ)Y\f\fA֜)BZ% Um BB \n  \nB ?BD\"!-)" [lyskom-start-of-command kom-filter-text ((lyskom-end-of-command)) lyskom-current-conf 0 blocking-do get-conf-stat nil filter perm action conf conf-stat read-from-minibuffer lyskom-get-string filter-which-text text "" lyskom-read-conf-no filter-in-conf (all) t 1 recipient-no lyskom-filter-read-action lyskom-filter-read-permanent lyskom-add-filter make-filter expire] 7 (#$ . 422815) nil]) #@21 Display all filters (defalias 'kom-list-filters #[nil "!Ž db!!=!!8db@!A&!!+" [lyskom-start-of-command kom-list-filters ((lyskom-end-of-command)) lyskom-filter-list nil filter filters lyskom-insert lyskom-get-string no-filters view-filters-header lyskom-format-filter-pattern view-filters-footer] 4 (#$ . 423483) nil]) (byte-code "P‡" [lyskom-clientversion-long "$Id: filter-edit.el,v 44.0 1996/08/30 14:46:28 davidk Exp $\n" nil] 2) #@59 List of filters currently being edited in a filter editor (defvar filter-edit-currently-edited-filter-entry-list nil (#$ . 423969)) (byte-code "! B! B!  B!- B‡" [boundp filter-edit-change-flag nil current-load-list filter-edit-filter-list filter-edit-list-start filter-edit-list-end] 2) #@24 Copy the filter list L (defalias 'copy-filter-list #[(l) "@!A!B" [l nil copy-filter copy-filter-list] 3 (#$ . 424298)]) #@39 Reverse the pairs in the assoc list L (defalias 'lyskom-reverse-pairs #[(l) "\n\"" [mapcar #[(e) "A@B" [e] 2] l] 3 (#$ . 424435)]) #@35 Get starting position of entry E. (defalias 'filter-entry->start #[(e) "H" [e 0] 2 (#$ . 424578)]) #@40 Set starting position of entry E to S. (defalias 'set-filter-entry->start #[(e s) "\nI" [e 0 s] 3 (#$ . 424686)]) #@30 Get end position of entry E. (defalias 'filter-entry->end #[(e) "H" [e 1] 2 (#$ . 424809)]) #@35 Set end position of entry E to S. (defalias 'set-filter-entry->end #[(e s) "\nI" [e 1 s] 3 (#$ . 424910)]) #@33 Get line start list of entry E. (defalias 'filter-entry->lines #[(e) "H" [e 2] 2 (#$ . 425026)]) #@38 Set line start list of entry E to P. (defalias 'set-filter-entry->lines #[(e p) "\nI" [e 2 p] 3 (#$ . 425132)]) #@24 Get filter of entry E. (defalias 'filter-entry->filter #[(e) "H" [e 3] 2 (#$ . 425253)]) #@29 Set filter of entry E to P. (defalias 'set-filter-entry->filter #[(e p) "\nI" [e 3 p] 3 (#$ . 425351)]) #@70 Create an filter entry with START, END, LINES and PATTERN as values. (defalias 'make-filter-entry #[(start end lines pattern) " \n \f$" [vector start end lines pattern] 5 (#$ . 425464)]) #@49 Return non-nil if FILTER is a valid filter list (defalias 'lyskom-verify-filter-list #[(filter) "< ‡@!‡@!!#A!" [filter t nil filter-p lyskom-verify-filter-pattern filter->pattern lyskom-verify-filter-list] 3 (#$ . 425659)]) #@52 Return non-nil if FILTER is a valid filter pattern (defalias 'lyskom-verify-filter-pattern #[(filter) "GU@9Ç@<@@=.@AAB!@@=N@@=N@@=N@@=[@A!A!@@={@@={@@={@@=@A;A!@@=@@=@AA!" [filter nil 1 t not lyskom-verify-filter-pattern author-re recipient-re subject-re text-re lyskom-filter-verify-regexp author subject recipient text author-no recipient-no] 3 (#$ . 425913)]) #@35 Return t if RE is a valid regexp. (defalias 'lyskom-filter-verify-regexp #[(re) "" [error (byte-code " \"Ç" [string-match re "teststring" t] 3) ((error))] 3 (#$ . 426380)]) #@165 Return the line number at WHERE in the entry ENTRY. -1 means the header. 0 is the first line. Any number higher than the number of lines means outside the pattern. (defalias 'lyskom-filter-edit-lineno #[(where entry) "\n!\n!B\" G \n!Y< < @W1ĉ AT+" [append filter-entry->lines entry filter-entry->end nil lines -1 line current-line where filter-entry->start] 5 (#$ . 426569)]) #@84 Locate the entry at character position WHERE. nil means WHERE is not in any entry. (defalias 'lyskom-filter-edit-locate #[(where) " !U?\f\n)" [lyskom-filter-edit-locate-no where entry-no -1 filter-edit-currently-edited-filter-entry-list] 3 (#$ . 426991)]) #@158 Find the filter-edit-currently-edited-filter-entry-list index of the entry covering the character position WHERE. -1 means WHERE is not covered y any entry. (defalias 'lyskom-filter-edit-locate-no #[(where) "\n 0 @!Y& @!X& ɉ T A\n\f+" [0 -1 filter-edit-currently-edited-filter-entry-list l entry-no i where filter-entry->start filter-entry->end nil] 4 (#$ . 427263)]) #@164 Format the filter list FILTERS and insert the result into the current buffer. The buffer variable FILTER-EDIT-CURRENTLY-EDITED-FILTER-ENTRY-LIST is also updated. (defalias 'lyskom-format-filter-list #[(filters) "\f!\n)" [nil buffer-read-only filter-edit-currently-edited-filter-entry-list lyskom-format-filter-list-2 filters] 2 (#$ . 427667)]) #@79 Format the filter list FILTERS and insert the result into the current buffer. (defalias 'lyskom-format-filter-list-2 #[(filters) "@! BA!" [filters nil lyskom-format-filter-pattern filter-edit-currently-edited-filter-entry-list lyskom-format-filter-list-2] 2 (#$ . 428028)]) #@125 Format and insert the filter pattern PAT into the current buffer. Returns an filter-entry structure representing the entry. (defalias 'lyskom-format-filter-pattern #[(pat) " \"!\" c\f \n$," [t nil lines end start inhibit-read-only point-marker lyskom-filter-format-entry-header pat lyskom-format-filter-pattern-2 filter->pattern "\n" make-filter-entry] 5 (#$ . 428321)]) #@164 Format and insert the body of the filter pattern PAT into the current buffer. Accumulate line starts in LINES. If NEG is non-nil, the first line will be negated. (defalias 'lyskom-format-filter-pattern-2 #[(pat lines &optional neg) " @@=@AAB # B\"A \"" [pat lines not lyskom-format-filter-pattern-2 t point-marker lyskom-format-filter-pattern-insert neg] 4 (#$ . 428728)]) #@85 Format and insert the first pattern in PAT. If NEG is non-nil, format the negation. (defalias 'lyskom-format-filter-pattern-insert #[(pat neg) " Ă @A;Ƃ @@ %\n' \"A\f2͂3 @A$c @@=I @@=i!Tq @A\") Aל)\"cc)" [nil tmp format lyskom-emacs19-p " %s %s %S" pat " %s %s \"%s\"" " %s %s %s" assoc kom-emacs-knows-iso-8859-1 lyskom-filter-what lyskom-swascii-filter-what neg " != " " = " recipient-no author-no boundp lyskom-buffer blocking-do get-conf-stat " <%s>" conf-stat 1 "\n"] 6 (#$ . 429135)]) #@129 Format the header of a filter entry. FILTER is the filter to format. If NEWLINE is non-nil, insert a newline after the header. (defalias 'lyskom-filter-format-entry-header #[(filter &optional newline action) " \" \"?\f \nA '(!#c 3c)" [nil permanent filter->attribute filter action expire format "--- %s %s" kom-emacs-knows-iso-8859-1 lyskom-filter-actions lyskom-swascii-filter-actions lyskom-get-string temporary newline "\n"] 5 (#$ . 429700)]) #@60 Move to the ARGth next pattern line in the current buffer. (defalias 'lyskom-filter-edit-next-pattern #[(arg) "W[!U?`!U? @6 @!b!! `\"U!d!@ Ty!!!!GSU T!!!!TbS**" [arg 1 0 lyskom-filter-edit-prev-entry lyskom-filter-edit-locate-no nil tmp entry-no -1 filter-edit-currently-edited-filter-entry-list filter-entry->start lyskom-error lyskom-get-string filter-edit-empty-list entry lyskom-filter-edit-lineno lineno filter-entry->lines filter-edit-end-of-list] 4 (#$ . 430187) "p"]) #@64 Move to the ARGth previous pattern line in the current buffer. (defalias 'lyskom-filter-edit-prev-pattern #[(arg) "W[!U?`!U? @6 @!b!! `\"UUc!! S!GS!@!U!!SbS**" [arg 1 0 lyskom-filter-edit-next-entry lyskom-filter-edit-locate-no nil tmp entry-no -1 filter-edit-currently-edited-filter-entry-list filter-entry->start lyskom-error lyskom-get-string filter-edit-empty-list entry lyskom-filter-edit-lineno lineno filter-edit-start-of-list filter-entry->lines] 4 (#$ . 430817) "p"]) #@53 Move to the ARGth next entry in the current buffer. (defalias 'lyskom-filter-edit-next-entry #[(arg) "W[!U?]`!U;@2@!bY!!Y T\fR\f!bSX!!))" [arg 1 0 lyskom-filter-edit-prev-entry lyskom-filter-edit-locate-no entry-no -1 filter-edit-currently-edited-filter-entry-list filter-entry->start lyskom-error lyskom-get-string filter-edit-empty-list tmp filter-edit-end-of-list] 4 (#$ . 431431) "p"]) #@57 Move to the ARGth previous entry in the current buffer. (defalias 'lyskom-filter-edit-prev-entry #[(arg &optional noerror) "?" [fail (byte-code "W[!U?v`!UE@2@!bE ?\"E!! Ua X\"r!!r SS!b))" [arg 1 0 lyskom-filter-edit-next-entry lyskom-filter-edit-locate-no entry-no -1 filter-edit-currently-edited-filter-entry-list filter-entry->start noerror throw fail t lyskom-error lyskom-get-string filter-edit-empty-list filter-edit-start-of-list tmp] 4)] 2 (#$ . 431889) "p"]) #@37 Move to the first entry in the list (defalias 'lyskom-filter-edit-beginning-of-list #[nil "\n!! @!b" [filter-edit-currently-edited-filter-entry-list lyskom-error lyskom-get-string filter-edit-empty-list push-mark filter-entry->start] 3 (#$ . 432446) nil]) #@36 Move to the last entry in the list (defalias 'lyskom-filter-edit-end-of-list #[nil "\n!!GS \f!\f!GS\"\f!b)" [filter-edit-currently-edited-filter-entry-list lyskom-error lyskom-get-string filter-edit-empty-list entry push-mark filter-entry->lines filter-entry->start] 3 (#$ . 432720) nil]) #@37 Add an entry to the end of the list (defalias 'lyskom-filter-edit-insert-entry #[nil " \f\f ! \n \f =GS!bcAb! $\f!! \f \"AB ?BD\"\n \n\" \n$GSBBb.\n" [nil t lyskom-reverse-pairs kom-emacs-knows-iso-8859-1 lyskom-filter-actions lyskom-swascii-filter-actions entry end start tmp filter permanent action rev-actions completion-ignore-case buffer-read-only filter-edit-currently-edited-filter-entry-list filter-entry->end "\n" filter-edit-list-end completing-read lyskom-get-string filter-edit-filter-how lyskom-j-or-n-p filter-permanent make-filter assoc expire point-marker lyskom-filter-format-entry-header make-filter-entry filter-edit-change-flag] 10 (#$ . 433035) nil]) #@47 Add a pattern line to the current list entry. (defalias 'lyskom-filter-edit-insert-pattern #[nil "`!U!!)Ɖ &\n( !\f !\f$\"$#!\f\"A======!====!!\"B\"AB`!`\"!U\f!GU\"!B\"G!@S!!BG\"!GU[!bd!byc@=|A~B@=\"u!yU !B\"S! !Blj;. " [lyskom-filter-edit-locate-no entry-no -1 lyskom-error lyskom-get-string filter-edit-outside-entry nil t lyskom-reverse-pairs kom-emacs-knows-iso-8859-1 lyskom-filter-what lyskom-swascii-filter-what rev-what completion-ignore-case buffer-read-only pat filter entry lineno argstring arg pred what completing-read filter-edit-filter-what lyskom-format filter-edit-insert-pred lyskom-filter-predicate-list read-from-minibuffer filter-edit-insert-arg assoc author subject text recipient author-no recipient-no string-to-int author-re subject-re text-re recipient-re lyskom-filter-verify-regexp filter-edit-bad-argument not lyskom-filter-edit-locate lyskom-filter-edit-lineno filter-entry->filter filter->pattern 0 set-filter->pattern filter-entry->lines filter-entry->end "\n" lyskom-format-filter-pattern-insert delete-char 1 set-filter-entry->lines point-marker filter-edit-change-flag] 13 (#$ . 433828) nil]) #@108 Delete ARG pattern lines, starting with the one at point. Only lines in the current entry will be deleted. (defalias 'lyskom-filter-edit-delete-pattern #[(arg) "`! ! !! U?` \"\f , \fV\f !GW S ` \"\fy`)`)T|\f !GSUey\fU !A\" !A\"\fS !\fT !\fS !!\fT !!!!)+" [nil buffer-read-only lyskom-filter-edit-locate entry filter-entry->filter filter lyskom-error lyskom-get-string filter-edit-outside-list arg 0 lyskom-filter-edit-lineno lineno 1 -1 filter-entry->lines set-filter-entry->lines set-filter->pattern filter->pattern t filter-edit-change-flag filter-edit-end-of-pattern] 5 (#$ . 435308) "p"]) #@185 Delete ARG entries, starting with the one covering point. If optional WHICH is non-nil, start with entry number WHICH. If NOERROR is non-nil, return nil instead of signaling an error. (defalias 'lyskom-filter-edit-delete-entry #[(arg &optional which noerror) "Í)?" [nil buffer-read-only fail (byte-code "U? `! U1 +\"1!! !!T| USAb S T GU~\"v\"S*" [arg 1 0 which lyskom-filter-edit-locate-no entry-no nil entry -1 noerror throw fail t lyskom-error lyskom-get-string filter-edit-end-of-list filter-edit-currently-edited-filter-entry-list filter-entry->start filter-entry->end filter-edit-change-flag lyskom-filter-edit-prev-entry] 3)] 2 (#$ . 436014) "p"]) #@56 Quit filter edit mode and ask to save changes (if any) (defalias 'lyskom-filter-edit-quit #[nil "\n\f!!  !)" [nil save filter-edit-change-flag lyskom-j-or-n-p lyskom-get-string filter-edit-save-p lyskom-filter-edit-save set-window-configuration lyskom-edit-return-to-configuration] 3 (#$ . 436776) nil]) #@46 Delete all entries that are completely empty (defalias 'lyskom-filter-edit-expunge #[nil "# @!\n#\nT A*" [filter-edit-currently-edited-filter-entry-list 0 index e filter-entry->lines lyskom-filter-edit-delete-entry 1 t nil] 5 (#$ . 437103) nil]) #@58 Return non-nil if the entry list contains empty entries. (defalias 'lyskom-filter-empty-patterns-p #[nil "  @! A\n*" [filter-edit-currently-edited-filter-entry-list nil result e filter-entry->lines t] 3 (#$ . 437381)]) #@34 Save changes in filter edit mode (defalias 'lyskom-filter-edit-save #[nil " !! Ɖ a @! @!!!\" @!\"=ǂ> @! @!\"SUBL A q\"!\"!!!$," [lyskom-filter-empty-patterns-p lyskom-j-or-n-p lyskom-get-string filter-edit-remove-empty lyskom-filter-edit-expunge filter-edit-currently-edited-filter-entry-list nil xtemporary-list xpermanent-list e set-filter->function filter-entry->filter lyskom-create-compile-filter-function filter->pattern filter->attribute expire lyskom-buffer append kom-permanent-filter-list kom-session-filter-list lyskom-filter-list filter-edit-change-flag lyskom-message "%s" filter-edit-saving lyskom-save-options filter-edit-saving-done filter-edit-saving-error] 7 (#$ . 437630) nil]) #@37 Discard changes and restart editing (defalias 'lyskom-filter-edit-revert #[nil ".!!.|bc\f!! )" [filter-edit-change-flag lyskom-j-or-n-p lyskom-get-string filter-edit-restart-p nil buffer-read-only filter-edit-currently-edited-filter-entry-list filter-edit-list-start filter-edit-list-end "\n" lyskom-format-filter-list copy-filter-list lyskom-filter-list lyskom-filter-edit-beginning-of-list] 3 (#$ . 438430) nil]) #@48 Toggle the permanent flag of the current entry (defalias 'lyskom-filter-edit-toggle-permanent #[nil "`!U!!   ! !\"?# !b``)| !!," [lyskom-filter-edit-locate-no nil buffer-read-only entry-no -1 lyskom-error lyskom-get-string filter-edit-outside-entry filter-edit-currently-edited-filter-entry-list entry set-filter->attribute filter-entry->filter expire filter->attribute t filter-edit-change-flag filter-entry->start lyskom-filter-format-entry-header] 7 (#$ . 438886) nil]) #@48 Toggle the filter action of the current entry. (defalias 'lyskom-filter-edit-toggle-action #[nil "`!U!!  \n\" $\f  !\"  >A@> @ !@# !b``)| !!." [lyskom-filter-edit-locate-no nil buffer-read-only entry-no -1 lyskom-error lyskom-get-string filter-edit-outside-entry filter-edit-currently-edited-filter-entry-list entry kom-emacs-knows-iso-8859-1 lyskom-filter-actions lyskom-swascii-filter-actions action-list filter->attribute filter-entry->filter action new-action t filter-edit-change-flag set-filter->attribute filter-entry->start lyskom-filter-format-entry-header] 5 (#$ . 439407) nil]) #@43 Display a help message in the minibuffer. (defalias 'lyskom-filter-edit-brief-help #[nil "!\"" [lyskom-message "%s" lyskom-get-string filter-edit-help] 4 (#$ . 440066) nil]) #@1283 \Mode for editing LysKOM filters. Entry to this mode runs lyskom-filter-edit-hook Commands: \[lyskom-filter-edit-prev-pattern] Moves up in the pattern list. \[lyskom-filter-edit-next-pattern] Moves down in the pattern list. \[lyskom-filter-edit-prev-entry] Moves up one filter in the list. \[lyskom-filter-edit-next-entry] Moves down one filter in the list. \[lyskom-filter-edit-beginning-of-list] Moves to the beginning of the list. \[lyskom-filter-edit-end-of-list] Moves to the end of the list. \[lyskom-filter-edit-delete-pattern] Deletes the pattern line at point. \[lyskom-filter-edit-delete-entry] Deletes the filter containing point. \[lyskom-filter-edit-insert-pattern] Inserts a pattern line at point. \[lyskom-filter-edit-insert-entry] Inserts a new filter into the list. \[lyskom-filter-edit-expunge] Deletes all empty filters from the list. \[lyskom-filter-edit-revert] Discards all changes to the list. \[lyskom-filter-edit-toggle-action] Toggles the filter action of the filter containing point. \[lyskom-filter-edit-toggle-permanent] Toggles between permanent and temporary. \[lyskom-filter-edit-save] Saves the filters. \[lyskom-filter-edit-quit] Quit and return to LysKOM. All key bindings: \{lyskom-filter-edit-map}  (defalias 'lyskom-filter-edit-mode #[nil " !!!!!!!\np!!!" [kill-all-local-variables make-local-variable filter-edit-currently-edited-filter-entry-list filter-edit-change-flag filter-edit-filter-list filter-edit-list-start filter-edit-list-end lyskom-buffer lyskom-edit-return-to-configuration t buffer-read-only nil buffer-disable-undo use-local-map lyskom-filter-edit-map "LysKOM Filter Edit" mode-name lyskom-filter-edit-mode major-mode lyskom-filter-edit-abbrev-table local-abbrev-table run-hooks lyskom-filter-edit-hook] 2 (#$ . 440253) nil]) (defalias 'kom-filter-edit #[nil "p !!!\fed|) \f !\f\"c c!! )  ," [lyskom-filter-list lyskom-server-name current-window-configuration curwin server-name filters buf pop-to-buffer get-buffer-create lyskom-get-string filter-edit-buffer-name nil buffer-read-only lyskom-filter-edit-mode lyskom-buffer filter-edit-filter-list format filter-edit-header point-marker filter-edit-list-start "\n" lyskom-format-filter-list copy-filter-list point-max-marker filter-edit-list-end lyskom-edit-return-to-configuration lyskom-filter-edit-beginning-of-list] 4 nil nil]) #@858 Add a new action to the popup menu for a class of objects. Arguments are TYPE, the type of object to adjust, TEXT the menu text for the action and FUNC, the function to call when the action is selected. By default TYPE may be any one of text, conf, pers or url although users can add other types. FUNC must be a function with three arguments, BUFFER, ARGUMENT and TEXT. BUFFER is the LysKOM buffer that the command should use, TEXT is the text of the selected button and ARGUMENT is the data argument associated with the object. For button type text it is a text number. For types conf and pers it is the conference number for the object. For URLs it is the text of the URL (a string) or NIL. For other (user-defined) types, it is a string. For more information on button types and arguments, see the documentation for the variable lyskom-text-buttons. (defalias 'lyskom-add-button-action #[(type text func) " \n8 \fBC" [3 type lyskom-button-actions text func] 3 (#$ . 442737)]) #@200 Set the default action for buttons of the type TYPE to FUNC. FUNC must be a valid button action function. For more information on such functions see the documentation for lyskom-add-button-action. (defalias 'lyskom-set-default-button-action #[(type func) " A \nB)" [type lyskom-button-actions el func 3] 5 (#$ . 443731)]) #@67 Move the cursor to the previous active area in the LysKOM buffer. (defalias 'kom-previous-link #[(num) "V2`\"*\f\"\f\"\f%\fb*eb)S" [num 0 previous-single-property-change lyskom-button-text where get-text-property 1] 4 (#$ . 444069) "p"]) #@63 Move the cursor to the next active area in the LysKOM buffer. (defalias 'kom-next-link #[(num) "V2`\"*\f\"\f\"\f%\fb*db)S" [num 0 next-single-property-change lyskom-button-text where get-text-property 1] 4 (#$ . 444346) "p"]) #@41 Simulate a mouse button press at point. (defalias 'kom-key-mouse-2 #[nil "`!" [lyskom-mouse-2] 2 (#$ . 444611) nil]) #@64 Execute the default action of the active area under the mouse. (defalias 'kom-mouse-2 #[(click) "A@)\nA@!)" [click event start lyskom-mouse-2] 3 (#$ . 444736) "@e"]) #@74 Pop up a menu of actions to be taken at the active area under the mouse. (defalias 'kom-mouse-3 #[(event) "A@) A@\")" [event start lyskom-mouse-3] 4 (#$ . 444914) "@e"]) #@13 Do nothing. (defalias 'kom-mouse-null #[(event) "" [nil] 1 (#$ . 445097) "e"]) #@39 Internal function used by kom-mouse-3 (defalias 'lyskom-mouse-3 #[(pos event) " \" \" \" \" \n !P!)!\" 8 Ӝ D bN b X b m !m!\"9y! qBBB\" #*." [get-text-property pos lyskom-button-type type lyskom-button-arg arg lyskom-button-text text lyskom-buffer buf lyskom-button-actions data lyskom-format lyskom-get-string intern-soft symbol-name "-popup-title" generic-popup-title title 3 actl get-buffer lyskom-message "%s" no-such-buffer "" nil menu x-popup-menu event result] 6 (#$ . 445184)]) #@62 Execute the default action of the active area at POS if any. (defalias 'lyskom-mouse-2 #[(pos) " \" \" \" \" \" \f , 5 5 Ϝ@ bp J bp _ !_!\"p h q #." [get-text-property pos lyskom-button-type type lyskom-button-arg arg lyskom-button-text text lyskom-buffer buf lyskom-button-hint hint lyskom-button-actions data kom-use-button-hints 2 act get-buffer lyskom-message "%s" lyskom-get-string no-such-buffer] 5 (#$ . 445784)]) #@121 Add text properties to the string TEXT according to the definition of lyskom-text-buttons. Returns the modified string. (defalias 'lyskom-button-transform-text #[(text) "‰@\f #\fʜ&\fʜ.\f˜=J\f\"\f\"\f!$\f˜=e\f\"\f\"\f!$\f˜=\f\"\f\"\f!$\f˜=\f\"\f!$$A ," [lyskom-text-buttons 0 nil props el start blist string-match text add-text-properties 2 1 lyskom-generate-button lyskom-button-get-arg lyskom-button-get-text lyskom-button-get-face conf pers url] 10 (#$ . 446283)]) #@91 Get the button argument for button type EL from TEXT according to the current match-data. (defalias 'lyskom-button-get-arg #[(el text) "\f O)" [el 3 0 no text] 3 (#$ . 446876)]) #@87 Get the button text for button type EL from TEXT according to the current match-data. (defalias 'lyskom-button-get-text #[(el text) "\f O)" [el 2 0 no text] 3 (#$ . 447072)]) #@87 Get the button face for button type EL from TEXT according to the current match-data. (defalias 'lyskom-button-get-face #[(el) "" [el 4] 2 (#$ . 447265)]) #@55 Get the hint to be used right now (if any) from HINTS (defalias 'lyskom-get-button-hint #[(hints) " l\nl @ A @5\f Ŝ= Ɯ. Ɯ= Ȝ @ A @9 \n\n @= A\n*" [nil hint result hints lyskom-current-function 1 2 lyskom-current-function-phase 3 lyskom-executing-command lyskom-current-command] 3 (#$ . 447430)]) #@188 Generate the properties for a button of type TYPE with argument ARG. Optional argument TEXT is the button text to be saved as a property and FACE is the default text face for the button. (defalias 'lyskom-generate-button #[(type arg &optional text face) "!\n !\n\nq ) ( 4 ;3 !4 \n E ̜  ! =[ =~\f=qӂ~>}Ղ~ \n\f = \n\f = \n\f \n\fDBB\"." [boundp lyskom-pers-no lyskom-buffer -1 persno arg string-to-number nil numarg type lyskom-button-actions data 4 hints lyskom-get-button-hint the-hint conf pers face kom-me-face kom-friends kom-friends-face kom-active-face mouse-face kom-highlight-face lyskom-button-text text lyskom-button-type lyskom-button-arg kom-text-no-face url props append rear-nonsticky t lyskom-button-hint] 13 (#$ . 447805)]) #@200 Generate a button of type TYPE from data in ARG. ARG can be almost any type of data and is converted to the proper argument type for buttons of type TYPE before being send to lyskom-generate-button. (defalias 'lyskom-default-button #[(type arg) "/\f=[)=F Aʜ) A̜)/ AΜ) AϜ)(T((\f=)= AΜ) AϜ)()=AΜ)(((\f=;!(!()=AΜ)AΜ)!((\f=#;((\f \n$*" [kom-text-properties nil text xarg type conf arg object CONF-STAT conf-stat 2 conf-type 3 pers 0 1 "" PERS-STAT pers-stat string-to-number number-to-string TEXT-STAT text-stat url lyskom-generate-button] 6 (#$ . 448747)]) #@109 In the LysKOM buffer BUF, view the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-view-text #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-view] 2 (#$ . 449534)]) #@109 In the LysKOM buffer BUF, view the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-review-tree #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-review-tree] 2 (#$ . 449774)]) #@109 In the LysKOM buffer BUF, view the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-find-root #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-find-root] 2 (#$ . 450023)]) #@112 In the LysKOM buffer BUF, comment the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-comment-text #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-write-comment] 2 (#$ . 450268)]) #@129 In the LysKOM buffer BUF, write a private comment the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-private-comment-text #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-private-answer] 2 (#$ . 450523)]) #@109 In the LysKOM buffer BUF, mark the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-mark-text #[(buf arg text) "Ž\f!!#)" [arg nil ((lyskom-end-of-command)) pop-to-buffer buf lyskom-start-of-command kom-mark-text lyskom-mark-text 1] 4 (#$ . 450804)]) #@111 In the LysKOM buffer BUF, unmark the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-unmark-text #[(buf arg text) "Ž\f!!#)" [arg nil ((lyskom-end-of-command)) pop-to-buffer buf lyskom-start-of-command kom-unmark-text lyskom-mark-text 0] 4 (#$ . 451128)]) #@121 In the LysKOM buffer BUF, view the presentation of ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-view-conf-presentation #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-review-presentation] 2 (#$ . 451458)]) #@125 In the LysKOM buffer BUF, view the status of conference ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-view-conf-status #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-status-conf] 2 (#$ . 451738)]) #@116 In the LysKOM buffer BUF, go to the conference ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-goto-conf #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-go-to-conf] 2 (#$ . 452008)]) #@55 In the LysKOM buffer buf, add self to conference ARG. (defalias 'lyskom-button-add-self #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-add-self] 2 (#$ . 452260)]) #@57 In the LysKOM buffer buf, sub self from conference ARG. (defalias 'lyskom-button-sub-self #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-sub-self] 2 (#$ . 452448)]) #@128 In the LysKOM buffer BUF, view the presentation of person ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-view-pers-presentation #[(buf arg text) " \n #" [lyskom-button-view-conf-presentation buf arg text] 4 (#$ . 452639)]) #@122 In the LysKOM buffer BUF, view the status of person ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-view-pers-status #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-status-person] 2 (#$ . 452918)]) #@123 In the LysKOM buffer BUF, send mail to the conference ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-mail #[(buf arg text) " !!" [arg nil pop-to-buffer buf kom-send-letter] 2 (#$ . 453187)]) #@66 In the LysKOM buffer BUF, send a personal message to person ARG. (defalias 'lyskom-button-send-message #[(buf arg text) " !\"" [arg nil pop-to-buffer buf kom-send-message] 3 (#$ . 453442)]) #@102 In the LysKOM buffer BUF, ignore ARG and copy TEXT to the kill ring. This is a LysKOM button action. (defalias 'lyskom-button-copy-url #[(but arg text) " !" [kill-new text] 2 (#$ . 453652)]) #@95 In the LysKOM buffer BUF, ignore ARG and open TEXT as an URL. This is a LysKOM button action. (defalias 'lyskom-button-open-url #[(buf arg text) " \" ljO !!db\f˜ \f\"+" [text url nil protocol url-manager string-match ":" 0 lyskom-get-url-manager lyskom-error "Can't find URL viewer" 3] 4 (#$ . 453851)]) #@66 Get the URL manager for PROTOCOL (a string). Returns a function. (defalias 'lyskom-get-url-manager #[(protocol) " \f> >7 7 @@\f@\"0 @A@\"0 @ A\fA\n +" [kom-url-managers kom-url-viewer-preferences nil result preferences managers string-match protocol] 4 (#$ . 454184)]) #@57 Tell the user that the URL manager MANAGER is starting. (defalias 'lyskom-url-manager-starting #[(manager) "! Ɯ\"\"" [lyskom-message "%s" lyskom-format lyskom-get-string starting-program manager 2] 6 (#$ . 454494)]) #@64 View the URL URL using W3. Second argument MANAGER is ignored. (defalias 'lyskom-view-url-w3 #[(url manager) " !" [w3-fetch url] 2 (#$ . 454723)]) #@67 View the URL URL using dired. Second argument MANAGER is ignored. (defalias 'lyskom-view-url-dired #[(url manager) "\n\"ÔĔŔ!\nŔŕO\nÕO\n \f \"< ÉO \f\"ZĔZ\fĔĕO\n\fÕO\f\fϘh !u\n\f !+" [string-match "\\(file\\|ftp\\)://\\([^/:]*\\)\\(:[0-9]*\\)?\\(/\\|$\\)" url 0 1 2 lyskom-error "Bad URL" nil "anonymous" user path host ";type=.$" "\\([^@]*\\)@" "localhost" find-file "/" "@" ":/"] 7 (#$ . 454878)]) #@68 View the URL URL using telnet. Second argument MANAGER is ignored. (defalias 'lyskom-view-url-telnet #[(url manager) "\n\"ÔĔ!\nĔĕOǔ*\nǔTǕO+ɔ7\nɔɕSO \f \f_\f\"_\fĔĕO \fɔɕO\f Q!," [string-match "telnet://\\([^@]*@\\)?\\([^/:]*\\)\\(:[0-9]*\\)?" url 0 2 lyskom-error "Bad URL" 3 "" 1 nil password user port host "^\\([^:]*\\):\\(.*\\)" telnet " "] 5 (#$ . 455354)]) #@79 View the URL URL using mail in Emacs. The second argument MANAGER is ignored. (defalias 'lyskom-view-url-mailmode #[(url manager) "\n\"\fÔ!\nÔÕO\"" [string-match "mailto:\\([^@]+@.*\\)$" url 1 lyskom-error "Bad URL" mail nil] 5 (#$ . 455782)]) #@213 View the URL URL using Netscape Navigator. The second argument MANAGER is the URL manager that started Netscape. This function attempts to load the URL in a running Netscape, but failing that, starts a new one. (defalias 'lyskom-view-url-netscape #[(url manager) "\f<\f@\f\f<\"\fA \"D\") \"D%\n\f !\f=K \n!\f9\n! \f= =\f\n" misc misc-info 0 RECPT lyskom-get-string Recipient Extra-recipient conf-no 2 9 send-at lyskom-return-date-and-time 8 sent-by 3 recieved-at] 7 (#$ . 466316)]) #@175 Ask server for what is needed to print the references to commenting texts and prints the references. Used at the bottom of the text. Args: TEXT-STAT of the text being read. (defalias 'lyskom-view-text-handle-saved-comments #[(text-stat) "\nAÜ)G\f<`\f\f@A) =C XA͜)\"X =XAϜ)\")\fA W\f HA) = A͜)\" =AϜ)\") Ta," [0 __i__ text-stat 6 __sequence__ __len__ nil misc misc-info type COMM-IN lyskom-show-comments lyskom-print-header-comm 5 FOOTN-IN 7] 4 (#$ . 466762)]) #@48 Get author of TEXT-NO and print a header line. (defalias 'lyskom-print-header-comm #[(text misc) "Aœ)  ! \" '\"B G&\"!)AԜ)YAԜ)!\"Aל)mAל)\"*" [misc misc-info 0 kom-deferred-printing cache-get-text-stat text blocking-do get-text-stat text-stat type lyskom-insert-header-comm lyskom-create-defer-info lyskom-insert-deferred-header-comm point-max-marker lyskom-defer-indicator nil defer-info lyskom-format-insert "%#1s\n" lyskom-defer-insertion 9 send-at lyskom-return-date-and-time 8 sent-by] 9 (#$ . 467347)]) (defalias 'lyskom-insert-deferred-header-comm #[(text-stat defer-info) " A)\f!Aǜ)\n =?\n/͂0\n AϜ) =^\nNтO\n AӜ) =}\nmՂn\n Aל) =\nق\n Aۜ) \f\n\"\f \n#-" [text-stat 2 author defer-info->data defer-info misc misc-info 0 type nil fmt data COMM-TO comment-to-text-by comment-to-text 4 FOOTN-TO footnote-to-text-by footnote-to-text 6 COMM-IN comment-in-text-by comment-in-text 5 FOOTN-IN footnote-in-text-by footnote-in-text 7 set-defer-info->format lyskom-replace-deferred] 5]) #@48 Get author of TEXT-NO and print a header line. (defalias 'lyskom-insert-header-comm #[(text-stat misc) " A)\nAĜ) =)\nAʜ)\"b ==\nA͜)\"b =Q\nAМ)\"b =b\nAӜ)\"o\"r!*" [text-stat 2 misc misc-info 0 type author COMM-TO lyskom-format-insert comment-to-text 4 FOOTN-TO footnote-to-text 6 COMM-IN comment-in-text 5 FOOTN-IN footnote-in-text 7 written-by lyskom-insert-at-point "\n"] 5 (#$ . 468513)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: async.el,v 44.0 1996/08/30 14:45:09 davidk Exp $\n" nil] 2) #@698 Parse an asynchronous message from the server. The message consists of TOKENS tokens. Unknown messages are skipped. Actions are taken to perform the various tasks that is required on reciept of an asynchronous message. If variable kom-presence-messages is non-nil or some minibuffer editing is going on then nothing is printed on the message area. This function is called with the lyskom-unparsed-buffer as current-buffer. All calls using the lyskom-variables have to be made using the buffer BUFFER. Be careful when editing this. All parsing is done with the buffer this function is called with as the current-buffer, while all calls from this function shall be with current-buffer the BUFFER. (defalias 'lyskom-parse-async #[(tokens buffer) " =  !pǎq !,{ =-\f!{ =:\f!{ =G\f!{ =T\f!{ = pՎqU\"#!AI*)  #\"%\"$-{ = )pq?U?)!+{ =/pq !\"!13 !!7?+\"*{ =<\f!{ = =>pqtUt>Ut@AB>#U?CDEF=#,{ G=pHqIJ!!*{ K= LMNpOqNU@PML%Q!@M#@N#RPL#-{ S=w =>pTqZUZ>UZ K%Z@AU>=$sU?sVEW=#,{\f!)" [lyskom-parse-num msg-no 0 text-no lyskom-parse-text-stat text-stat __buffer__ ((set-buffer __buffer__)) buffer lyskom-async-new-text 1 lyskom-skip-tokens tokens 2 3 4 5 lyskom-parse-string new-name old-name conf-no ((set-buffer __buffer__)) lyskom-pers-no lyskom-format-insert-before-prompt you-changed-name-to lyskom-default-button conf cache-get-conf-stat cached-stat newval conf-stat lyskom-is-in-minibuffer kom-presence-messages lyskom-message "%s" lyskom-format name-has-changed-to-name kom-presence-messages-in-buffer name-has-changed-to-name-r 6 lyskom-parse-who-info info ((set-buffer __buffer__)) cache-add-who-info 7 ((set-buffer __buffer__)) lyskom-get-string database-sync mode-line-saving mode-line-process t lyskom-is-saving set-buffer-modified-p buffer-modified-p sit-for lyskom-pending-calls initiate-get-time async nil 8 9 session-no pers-no ((set-buffer __buffer__)) initiate-get-conf-stat follow lyskom-show-logged-in-person lyskom-who-info-buffer-is-on initiate-get-session-info who-buffer cache-add-session-info 11 ((set-buffer __buffer__)) lyskom-insert-before-prompt lyskom-is-full 12 message sender recipient ((set-buffer __buffer__)) lyskom-handle-personal-message lyskom-collect lyskom-use 13 ((set-buffer __buffer__)) lyskom-show-logged-out-person lyskom-run cache-del-who-info] 8 (#$ . 469094)]) #@42 Visa p} kommandoraden vem som loggat in. (defalias 'lyskom-show-logged-in-person #[(conf-stat) "  !\"\" :.\f,#!\f9#" [lyskom-is-in-minibuffer kom-presence-messages lyskom-message "%s" lyskom-format has-entered conf-stat lyskom-get-string secret-person kom-presence-messages-in-buffer lyskom-format-insert-before-prompt has-entered-r kom-text-properties (face kom-presence-face) (face kom-presence-face)] 6 (#$ . 471821)]) #@42 Visa p} kommandoraden vem som loggat ut. (defalias 'lyskom-show-logged-out-person #[(conf-stat session-no) "  !\"\" :.\f,#!\f9#" [lyskom-is-in-minibuffer kom-presence-messages lyskom-message "%s" lyskom-format has-left conf-stat lyskom-get-string secret-person kom-presence-messages-in-buffer lyskom-format-insert-before-prompt has-left-r kom-text-properties (face kom-presence-face) (face kom-presence-face)] 6 (#$ . 472293)]) #@46 Tells the user what another person is doing. (defalias 'lyskom-show-changed-person #[(personconfstat conf-num doing) "x K\nK U =KGUK Aʜ)!!OPDH!)#=x U^ =xGU?x!!OP#" [personconfstat lyskom-is-in-minibuffer kom-presence-messages conf-num 0 lyskom-current-conf doing lyskom-message "%s %s" conf-stat 1 char-to-string string-to-char nil string kom-emacs-knows-iso-8859-1 iso-8859-1-to-swascii kom-presence-messages-in-buffer t lyskom-format-insert-before-prompt "%#1M %#2s\n"] 8 (#$ . 472771)]) #@64 Returns non-nil if I am using the minibuffer for some reading. (defalias 'lyskom-is-in-minibuffer #[nil " U?" [lyskom-inhibit-minibuffer-messages minibuffer-depth 0] 2 (#$ . 473345)]) #@447 Insert a personal message into the lyskom buffer. Args: SENDER: conf-stat for the person issuing the broadcast message or a string that is the sender. RECIPIENT: 0 if this message is for everybody, otherwise the conf-stat of the recipient. MESSAGE: A string containing the message. WHEN: Optional time of arrival. Same format as (current-time-string) NOBEEP: True means don't beep. No matter what. (defalias 'lyskom-show-personal-message #[(sender recipient message &optional when nobeep) " \n \f % ;  Aǜ)\n=\n=?=\nAɜ)\n=?=\nAǜ) !" [lyskom-insert-personal-message sender recipient message when nobeep conf-stat 1 lyskom-last-personal-message-sender 0 lyskom-pers-no lyskom-last-group-message-recipient run-hooks lyskom-personal-message-hook] 7 (#$ . 473543)]) #@400 Insert a personal message in the current buffer. Arguments: SENDER RECIPIENT MESSAGE. SENDER is a conf-stat (possibly nil) or a string. RECIPIENT is 0 if the message is public, otherwise the pers-no of the user. MESSAGE is a string containing the message. WHEN, if given, is the time when the message arrived. It must be of the same format at (current-time-string) Non-nil NOBEEP means don't beep. (defalias 'lyskom-insert-personal-message #[(sender recipient message &optional when nobeep) "\n \f %\nAȜ)#" [lyskom-handle-as-personal-message lyskom-format-as-personal-message sender recipient message when nobeep conf-stat 0 nil] 8 (#$ . 474392)]) #@405 Formats a personal message, returning it as a string. Arguments: SENDER RECIPIENT MESSAGE. SENDER is a conf-stat (possibly nil) or a string. RECIPIENT is 0 if the message is public, otherwise the pers-no of the user. MESSAGE is a string containing the message. WHEN, if given, is the time when the message arrived. It must be of the same format at (current-time-string) Non-nil NOBEEP means don't beep. (defalias 'lyskom-format-as-personal-message #[(sender recipient message &optional when nobeep) " O OO!O-=V7\n! ;D Q N Q!$Aœ)Uo! ;|   !$! ;   !;!%" [when current-time-string 0 10 4 19 11 recipient nobeep lyskom-beep kom-ding-on-common-messages lyskom-format message-broadcast sender lyskom-get-string unknown message conf-stat lyskom-pers-no kom-ding-on-personal-messages message-from kom-ding-on-group-messages message-from-to] 7 (#$ . 475058)]) #@211 Insert STRING as a personal message and beep if not from me and supposed to. The buffer, is chosen according to the kom-show-personal-messages-in-buffer variable value. The text is converted, before insertion. (defalias 'lyskom-handle-as-personal-message #[(string from &optional filter) " \"= \"=?Ppǎ=* !GG!qdb B E !!Op!*" [filter string-match "^Remote-command: [0-9]+ [0-9]+\n" string 0 "^Auto-reply:\n" __buffer__ ((set-buffer __buffer__)) kom-show-personal-messages-in-buffer t lyskom-insert-before-prompt get-buffer-create lyskom-insert kom-emacs-knows-iso-8859-1 iso-8859-1-to-swascii kom-pop-personal-messages display-buffer] 3 (#$ . 476075)]) #@72 Print a message if the user was waiting. Change the prompt. run hooks. (defalias 'lyskom-default-new-text-hook #[(text-stat) " !\f?00 ?0  AΜ)\"\")" [lyskom-dont-change-prompt lyskom-executing-command lyskom-update-prompt nil no-message run-hooks lyskom-new-text-hook lyskom-is-waiting lyskom-is-in-minibuffer lyskom-message "%s" lyskom-format text-is-created text-stat 0] 7 (#$ . 476782)]) #@58 Take care of a message that a new text has been created. (defalias 'lyskom-async-new-text #[(text-stat) " Aœ)! AŜ)G <%@  AÜ)\n=C\n=d  AМ) AÜ)  Aœ)%\n=z  AӜ)!\n=  AŜ)!\nE\")A$\fW%\fH  AÜ)\n=\n=  AМ) AÜ)  Aœ)%\n=  AӜ)!\n=  AŜ)!\nE\")\fT, #\"" [cache-del-pers-stat text-stat 2 0 __i__ 6 __sequence__ __len__ nil misc-info type RECPT CC-RECPT initiate-get-conf-stat async lyskom-add-new-text 1 COMM-TO cache-del-text-stat 4 FOOTN-TO signal lyskom-internal-error lyskom-async-new-text "Unexpected misc-info in new text " lyskom-run lyskom-default-new-text-hook lyskom-prefetch-and-print-prompt] 8 (#$ . 477211)]) #@503 RECIPIENT is a conf-stat and recipient of TEXT-NO. Args: RECIPIENT TEXT-NO LOCAL-NO. LOCAL-NO is the texts local number in RECIPIENT. This info is used to update the no-of-texts field in the cache. Also add this info in lyskom-to-do-list if info about RECIPIENT as been fetched. Does not try to print prompt or do any prefetch. That will be done after all the confs has been handled. If recipient is nil this means we are crossposting to a protected conference. In that case, just discard this call. (defalias 'lyskom-add-new-text #[(recipient text-no local-no) "Aœ) AĜ)[\\\\]AI*AȜ)!AȜ)!!\f #AȜ)!AМ)\fC)BӉ &.B \"AȜ)U  AB*) " [recipient conf-stat 14 local-no 13 -1 newval lyskom-conf-fetched-p 0 lyskom-visible-membership lyskom-member-p read-list-enter-text text-no lyskom-to-do-list CONF membership 2 texts TEXT-LIST nil forward comm-to text-list priority type READ-INFO vector info read-list-enter-read-info lyskom-current-conf lyskom-reading-list read-list read-info lyskom-set-mode-line] 10 (#$ . 478013)]) (byte-code "P!\f Bć" [lyskom-clientversion-long "$Id: completing-read.el,v 44.1 1996/09/03 16:01:25 byers Exp $\n" boundp lyskom-name-hist nil current-load-list] 2) #@34 Temporary cache of who-info data (defvar lyskom-completing-who-info-cache nil (#$ . 479331)) #@35 Temporary cache of server queries (defvar lyskom-completing-lookup-name-cache nil (#$ . 479430)) (defalias 'lyskom-completing-clear-cache #[nil "" [nil lyskom-completing-who-info-cache lyskom-completing-lookup-name-cache] 2]) #@134 Get information about who is on, first checking the cache. Returns what (blocking-do 'who-is-on) would, but as a list, not a vector (defalias 'lyskom-completing-who-is-on #[nil "! \")" [lyskom-completing-who-info-cache blocking-do who-is-on vector append nil] 3 (#$ . 479669)]) (defalias 'lyskom-completing-cache-completion #[(string data) " !\n\f\"\nB\fB *" [lyskom-unicase string downs assoc lyskom-completing-lookup-name-cache tmp data] 4]) #@94 Look up STRING as a name. Same as (blocking-do 'lookup-z-name ...) but first checks a cache. (defalias 'lyskom-completing-lookup-z-name #[(string want-conf want-pers) " !\n\f\" A\"  $\n B\fB *" [lyskom-unicase string downs assoc lyskom-completing-lookup-name-cache tmp blocking-do lookup-z-name want-conf want-pers] 6 (#$ . 480146)]) #@39 Keymap used for reading LysKOM names. (defvar lyskom-minibuffer-local-completion-map (byte-code " !\n#\n)" [copy-keymap minibuffer-local-completion-map map define-key " " nil] 4) (#$ . 480504)) #@39 Keymap used for reading LysKOM names. (defvar lyskom-minibuffer-local-must-match-map (byte-code " !\n#\n)" [copy-keymap minibuffer-local-must-match-map map define-key " " nil] 4) (#$ . 480711)) #@173 Read a conference name from the minibuffer with completion and return its number or zero if nothing was matched. See lyskom-read-conf for a description of the parameters. (defalias 'lyskom-read-conf-no #[(prompt type &optional empty initial mustmatch) " \n \f %ǂ7;ǂ7)=3\nAǜ)7!)" [lyskom-read-conf prompt type empty initial mustmatch conf-z-info 0 object CONF-STAT conf-stat conf-z-info->conf-no] 7 (#$ . 480919)]) #@175 Read a conference name from the minibuffer with completion and return its conf-stat or nil if nothing was matched. See lyskom-read-conf for a description of the parameters. (defalias 'lyskom-read-conf-stat #[(prompt type &optional empty initial mustmatch) " \n \f %ǂ3;ǂ3)=,3!\")" [lyskom-read-conf prompt type empty initial mustmatch conf-z-info nil object CONF-STAT blocking-do get-conf-stat conf-z-info->conf-no] 7 (#$ . 481377)]) #@140 Read a conference name from the minibuffer with completion and return its name. See lyskom-read-conf for a description of the parameters. (defalias 'lyskom-read-conf-name #[(prompt type &optional empty initial mustmatch) " \n \f %ǂ8;8)=4\nA˜)8!)" [lyskom-read-conf prompt type empty initial mustmatch conf-z-info "" object CONF-STAT conf-stat 1 conf-z-info->name] 7 (#$ . 481853)]) #@788 Completing read a conference or person from the minibuffer. PROMPT is the prompt type type. TYPE is the type of conferences to return. It is a list of one or more of the following: all Return any conference, conf Return conferences (not letterboxes), pers Return persons (letterboxes), login Return persons who are also logged-in, and none Return names that do not match anything in the database. Optional arguments EMPTY allow nothing to be entered. INITIAL initial contents of the minibuffer MUSTMATCH if non-nil, the user must enter a valid name. The return value may be one of A conf-z-info: The conf-z-info associated with the name entered, nil: Nothing was entered, or A string: A name that matched nothing in the database. (defalias 'lyskom-read-conf #[(prompt type &optional empty initial mustmatch) "   \n \f&\n.ɂ?\nԘ9ɂ?\n\" ?J ?\f ." [lyskom-completing-clear-cache t completion-ignore-case lyskom-proc lyskom-blocking-process lyskom-minibuffer-local-completion-map minibuffer-local-completion-map lyskom-minibuffer-local-must-match-map minibuffer-local-must-match-map nil read-string result keep-going completing-read prompt lyskom-read-conf-internal type mustmatch initial lyskom-name-hist "" lyskom-lookup-conf-by-name empty] 8 (#$ . 482281)]) #@90 Used internally by lyskom-read-conf-internal to get a list of persons who are logged on. (defalias 'lyskom-read-conf-get-logins #[nil " \"" [mapcar #[(el) "Aœ)" [el who-info 0] 3] lyskom-completing-who-is-on] 3 (#$ . 483659)]) #@121 Used internally by lyskom-read-conf-internal to expand person and conference number specifications to something useful. (defalias 'lyskom-read-conf-expand-specials #[(string predicate login-list x-list &optional return-cs) "! \"G \"!\"\nE\n\fA͜)\n\fAΜ)%EC\nE C*! \" \"!\"oA͜)\"\n\n\fA͜)\n\fAΜ)%\n C+" [string-match lyskom-get-string person-or-conf-no-regexp string string-to-int match-string 1 no blocking-do get-conf-stat cs lyskom-read-conf-internal-verify-type conf-stat 0 2 predicate login-list x-list return-cs session-no-regexp get-session-info si session-info] 7 (#$ . 483902)]) #@118 Used internally by lyskom-read-conf-internal to look up conf-stats from person and conference number specifications. (defalias 'lyskom-read-conf-lookup-specials #[(string predicate login-list x-list) " \n \f%" [lyskom-read-conf-expand-specials string predicate login-list x-list t] 6 (#$ . 484599)]) #@168 Return the conf-z-info associated with STRING that also satisfies PREDICATE or nil if no name matches. See lyskom-read-conf-internal for a documentation of PREDICATE. (defalias 'lyskom-lookup-conf-by-name #[(string predicate) " \nØ?\n #)" [lyskom-blocking-process lyskom-proc string "" lyskom-read-conf-internal predicate lyskom-lookup] 4 (#$ . 484909)]) #@592 Complete the name STRING according to PREDICATE and ALL. STRING is a string to complete. PREDICATE is a list of name types to return. Valid types are all Any existing name may be returned, pers Names of persons may be returned, conf Names of conferences may be returned, login Names of logged-in persons may be returned, and none Names that match nothing may be returned. ALL is set by try-completion and all-completions. See the Emacs lisp manual for a description. Special value 'lyskom-lookup makes the function work as a name-to-conf-stat translator. (defalias 'lyskom-read-conf-internal #[(string predicate all) "\f ˜\f‡= ˜ć=( ˜(ć>1  ˉ#\fJ\f!\")G<@!! %BAhWH!! %BT,=H\"  $GU@DGV  \" G \"GZD  $D! \")ĂD! \"6ĂDĉ %D *=  $GUeGV\" \"})ĂGUĂ! \"Ă! \"Ăĉ %)&\"  $\"\"\"! \"Ă\"! \"Ă\"ĉ %! C\"*p  $@@l! \"MĂl! \"ZĂlĉ %kl)\"  $'((( (\"(GU (GU(@! \"Ă! \"Ă(!\f\"ĉ % C+-" [all string "" lyskom-lookup nil lambda login predicate lyskom-read-conf-get-logins login-list lyskom-completing-lookup-z-name 1 x-list conf-z-info-list->conf-z-infos vector append candidate-list lyskom-read-conf-internal-result-list result-list 0 __i__ __sequence__ __len__ el lyskom-read-conf-internal-verify-type conf-z-info->conf-no conf-z-info->conf-type mapcar conf-z-info->name lyskom-read-conf-expand-specials specials names lyskom-completing-member lyskom-read-conf-lookup-specials string-match lyskom-get-string person-or-conf-no-regexp session-no-regexp t found name-list lyskom-completing-cache-completion lyskom-complete-string] 7 (#$ . 485283)]) #@56 Check case-insensitively if STRING is a member of LIST (defalias 'lyskom-completing-member #[(string list) "\n! !\f!\n@!\n\nA )" [nil result list lyskom-unicase string] 4 (#$ . 487386)]) (defalias 'lyskom-read-conf-internal-verify-type #[(conf-no conf-type predicate logins x-list) " >\n\nR >\f\fAŜ)?R >3\f3\fAŜ)R >D\fD\n>R >R\n?R\n?" [all predicate conf-no conf conf-type 3 pers login logins none x-list] 3]) #@112 Find the longest common prefix of all strings in STRING-LIST according to the LysKOM rules of string matching. (defalias 'lyskom-complete-string #[(string-list) "!\" \n \f  \"H=\nH=dJ=\\J=d !+H\"H=~LL !+H=\n\fU\n\fT\fH\" !+H=\nH\"\fV\fS\fU  !+\fV;H=H=H=;\n \f\"\f+H=_J=TJ=_\n !+H=qH=\fUJ=J=- \" \n !L+H=\n !+H=-\"+\n=  @= A  > >G)*)S\"B/\"/ \") G\"234 5G675 @\" A \fW> H\" T&," [0 __i__ data-list __sequence__ __len__ nil el lyskom-complete-string-close-parens-2 depth] 4]) (defalias 'lyskom-complete-string-close-parens-2 #[(el depth) "\nVSHH#&ÉI\nSHH#DÉI\nTHIÉ)" [nil tmp depth 0 string-match "[^(]*)" el 2 "[^)]*(" 1] 6]) (defalias 'lyskom-complete-string-next-char #[(state data-list) "p ʎ\f!q\"*\nI7I III [[I hI\fuIII." [nil t xchar char spacep matchp close-paren-p open-paren-p eofp __buffer__ ((set-buffer __buffer__)) process-buffer lyskom-blocking-process mapcar #[(x) "HHYEHHH=$ EHHH=6 EHHH=E ygHHHH)yHHHH)=" [x 0 1 t eofp nil matchp 2 40 open-paren-p 41 close-paren-p 32 spacep char xchar c lyskom-collate-table] 5] data-list state 1 0 eof open-paren-match close-paren-match match space-mismatch open-paren-mismatch mismatch] 7]) (defalias 'lyskom-read-session-no #[(prompt &optional empty initial only-one) "\n Ă\f%! GV( ( !* )" [lyskom-session-from-conf lyskom-read-conf-no prompt kom-permissive-completion (pers) (login) empty initial t possible-matches 1 only-one lyskom-read-session-resolve-ambiguity] 8]) (defalias 'lyskom-session-from-conf #[(conf-no) " ) @AŜ)=\" @Aǜ)\nB A \n99[C:\n*" [lyskom-completing-who-is-on nil sessions who-list who-info 0 conf-no 2 kom-permissive-completion] 3]) (defalias 'lyskom-read-session-resolve-ambiguity #[(sessions) "!\"\"Tɉ#\n# \n!!$\n!!$ Z\"P!\"\" Z\"P!G\"! !@@&Ϙh\"A&Aל.C" [lyskom-insert "\n" apply max mapcar #[(x) " !G" [int-to-string x] 2] sessions s-width lyskom-info-line-format-string "s" format-string-s "P" "M" format-string-p lyskom-format-insert "" lyskom-get-string lyskom-name is-in-conf from-machine is-doing make-string lyskom-window-width 2 45 nil #[(el) "\n\" AƜ)\" A̜) A̜) =.΂/# AМ)AƜ)HK!$ ! Aל)Q$ A̜)! *B" [blocking-do get-session-info el info get-conf-stat session-info 1 confconfstat lyskom-format-insert format-string-p format "%d%s" 2 lyskom-session-no "*" " " 0 conf-stat lyskom-get-string not-present-anywhere "" lyskom-return-username "(" 3 ")" number-to-string] 8] sort < who-info result lyskom-format total-users lyskom-scroll completing-read resolve-session t assoc session-info] 8]) (byte-code "P!\f B‡" [lyskom-clientversion-long "$Id: prioritize.el,v 44.0 1996/08/30 14:47:37 davidk Exp $\n" boundp lyskom-prioritize-mode-line ("" mode-line-modified mode-line-buffer-identification " " global-mode-string " %[(" mode-name mode-line-process minor-mode-alist ")%] " lyskom-prioritize-mode-line-selected "--" (-3 . "%p") "-%-") current-load-list] 2) #@36 List of entries to be prioritized. (defvar lyskom-prioritize-entry-list nil (#$ . 493846)) #@54 List of selected entries in the prioritization list. (defvar lyskom-prioritize-selection nil (#$ . 493943)) #@44 String showing number of selected entries. (defvar lyskom-prioritize-mode-line-selected "" (#$ . 494057)) (defalias 'make-prioritize-entry #[(prio conf-stat) " \nÉ$" [vector prio conf-stat nil] 5]) (defalias 'prioritize-entry->priority #[(el) "H" [el 0] 2]) (defalias 'prioritize-entry->name #[(el) "HA)" [el 1 conf-stat] 3]) (defalias 'prioritize-entry->conf-stat #[(el) "H" [el 1] 2]) (defalias 'prioritize-entry->selected #[(el) "H" [el 2] 2]) (defalias 'set-prioritize-entry->priority #[(el prio) "\nI" [el 0 prio] 3]) (defalias 'set-prioritize-entry->conf-stat #[(el conf) "\nI" [el 1 conf] 3]) (defalias 'set-prioritize-entry->selected #[(el marks) "\nI" [el 2 marks] 3]) #@64 Destructively emove the element at index ELEM from the list L. (defalias 'lyskom-prioritize-remove-from-list #[(elem l) " GV #U AS T " [elem l error "Args out of range: %S, %d" 0] 4 (#$ . 494769)]) #@66 At the position ELEM, add DATA to the list L using side effects. (defalias 'lyskom-prioritize-add-to-list #[(elem data l) " GV #U BS  B " [elem l error "Args out of range: %S, %d" 0 data] 4 (#$ . 494995)]) #@73 Move element from position FROM to position TO in list L using side-fx. (defalias 'lyskom-prioritize-move-element #[(from to l) "S SW?  \f \"#)" [from to 0 l elem lyskom-prioritize-add-to-list lyskom-prioritize-remove-from-list] 6 (#$ . 495230)]) #@45 Get the entry on the line containing point. (defalias 'lyskom-prioritize-current-entry #[nil "`\"T Z!" [lyskom-prioritize-get-entry-from-no count-lines 1 lyskom-prioritize-header-lines] 4 (#$ . 495498)]) #@47 Get entry number NO from the prioritize list. (defalias 'lyskom-prioritize-get-entry-from-no #[(no) " S" [lyskom-prioritize-entry-list no] 2 (#$ . 495712)]) #@54 Get the index of entry ENTRY in the prioritize list. (defalias 'lyskom-prioritize-get-no-from-entry #[(entry) "G >GZT" [lyskom-prioritize-entry-list entry] 3 (#$ . 495878)]) #@37 Get a list of all selected entries. (defalias 'lyskom-prioritize-get-selected #[nil "" [lyskom-prioritize-selection] 1 (#$ . 496061)]) #@34 Go to the line containing ENTRY. (defalias 'lyskom-prioritize-goto-entry #[(entry) " !\\!yŇ" [goto-line lyskom-prioritize-header-lines lyskom-prioritize-get-no-from-entry entry 0 nil] 4 (#$ . 496204)]) #@49 Redraw the prioritize entry ENTRY in the buffer (defalias 'lyskom-prioritize-redraw-entry #[(entry) "\n!\\ !y`)`)|\n!c+" [lyskom-prioritize-header-lines lyskom-prioritize-get-no-from-entry entry t inhibit-read-only lineno goto-line 0 nil lyskom-prioritize-format-entry] 3 (#$ . 496419)]) #@62 Return a string representation of the prioritize entry ENTRY (defalias 'lyskom-prioritize-format-entry #[(entry) " !\fĂ !UȂ !\" !$" [lyskom-format "%#1s %3#2s %#3M" prioritize-entry->selected entry "*" " " prioritize-entry->priority 0 "-" format "%d" prioritize-entry->conf-stat] 7 (#$ . 496731)]) #@35 Update the entire buffer contents (defalias 'lyskom-prioritize-redraw-buffer #[nil " c\"*" [t inhibit-read-only erase-buffer lyskom-prioritize-header mapcar #[(el) " !Pc" [lyskom-prioritize-format-entry el "\n"] 2] lyskom-prioritize-entry-list] 3 (#$ . 497059)]) (defalias 'lyskom-prioritize-move-entry #[(from to &optional dontset forceup) "\n U\n!`\"T \n$!!\n #z T! S!\n V` z !\n!Uz\n !\"zz!\n!Uz\n!\"\n\\!y`)`)T| \\!\n!Pc!,\n!!)" [nil buffer-read-only from to lyskom-prioritize-get-entry-from-no count-lines 1 start before after entry error lyskom-get-string cant-move-nothing-nowhere lyskom-prioritize-move-element lyskom-prioritize-entry-list dontset prioritize-entry->priority set-prioritize-entry->priority goto-line lyskom-prioritize-header-lines 0 lyskom-prioritize-format-entry "\n" forceup lyskom-prioritize-redraw-entry] 7]) (defalias 'lyskom-prioritize-update-selection #[(entry arg) "\f\" ) " [nil result mapcar #[(x) " ! \nB" [prioritize-entry->selected x result] 2] lyskom-prioritize-entry-list lyskom-prioritize-selection lyskom-prioritize-update-mode-line] 3]) (defalias 'lyskom-prioritize-select #[(entry arg) " \n\" \n\"" [set-prioritize-entry->selected entry arg lyskom-prioritize-update-selection] 3]) #@36 Get brief help on prioritize mode. (defalias 'kom-prioritize-help #[nil "!\"" [lyskom-message "%s" lyskom-get-string prioritize-help] 4 (#$ . 498431) nil]) #@31 Deselect all selected entries (defalias 'kom-prioritize-deselect-all #[nil "\n\n@ \" !)" [nil entry lyskom-prioritize-selection lyskom-prioritize-select lyskom-prioritize-redraw-entry] 3 (#$ . 498598) nil]) #@155 Select the record on the line containing point. If ARG is null, toggle selection. Positive arg means always select and negative arg means always deselect (defalias 'kom-prioritize-select #[(&optional arg) " \n\nU' ! \"! \" !S\nV? !?S \" !S\nWS !S \" !)" [lyskom-prioritize-current-entry entry arg 0 prioritize-entry->selected lyskom-prioritize-select nil t lyskom-prioritize-redraw-entry] 3 (#$ . 498827) "P"]) #@25 Move forward ARG lines. (defalias 'kom-prioritize-next-line #[(arg) "y `\" W T!\n!GV& G\\! )" [arg lyskom-prioritize-current-entry entry count-lines 1 lyskom-prioritize-header-lines goto-line lyskom-prioritize-get-no-from-entry lyskom-prioritize-entry-list] 3 (#$ . 499291) "p"]) #@26 Move backward ARG lines. (defalias 'kom-prioritize-previous-line #[(arg) " [!" [kom-prioritize-next-line arg] 2 (#$ . 499601) "p"]) #@42 Move to the beginning of the entry list. (defalias 'kom-prioritize-beginning #[nil "`!\nT!" [set-mark goto-line lyskom-prioritize-header-lines] 2 (#$ . 499741) nil]) #@36 Move to the end of the entry list. (defalias 'kom-prioritize-end #[nil "`!\n G\\!" [set-mark goto-line lyskom-prioritize-header-lines lyskom-prioritize-entry-list] 3 (#$ . 499917) nil]) #@96 Move to the first entry with priority ARG. Asks for a priority if no prefix argument is given. (defalias 'kom-prioritize-goto-priority #[(arg) " !#Ɖ \n  GWE !!\nX<  G  T T\\![ \\!," [arg lyskom-read-num-range 0 255 lyskom-get-string priority-prompt nil lineno entry where prio lyskom-prioritize-entry-list lyskom-prioritize-get-entry-from-no prioritize-entry->priority goto-line lyskom-prioritize-header-lines] 6 (#$ . 500113) "P"]) #@157 Move current entry up ARG steps. If the entry is at the top of a priority group, change its priority to the same as the entry above it, but to not move it. (defalias 'kom-prioritize-move-up #[(arg) " y VW !SY! -!!P ! !VG  !\" !P \"y S+)" [lyskom-prioritize-current-entry entry 0 arg lyskom-prioritize-get-no-from-entry start target 1 lyskom-prioritize-get-entry-from-no before error lyskom-get-string beginning-of-list prioritize-entry->priority set-prioritize-entry->priority lyskom-prioritize-redraw-entry lyskom-prioritize-move-entry -1] 5 (#$ . 500614) "p"]) #@159 Move current-entry down ARG steps. If the entry is at the top of a priority group, change its priority to the same as the entry above it, but to not move it. (defalias 'kom-prioritize-move-down #[(arg) " y VY !TGX ! /!!R ! !WI  !\" !R \"y S+)" [lyskom-prioritize-current-entry entry 0 arg lyskom-prioritize-get-no-from-entry start target lyskom-prioritize-entry-list lyskom-prioritize-get-entry-from-no after error lyskom-get-string end-of-list prioritize-entry->priority set-prioritize-entry->priority lyskom-prioritize-redraw-entry lyskom-prioritize-move-entry 1] 5 (#$ . 501238) "p"]) #@43 Set priority of all selected conferences. (defalias 'kom-prioritize-set-priority #[(arg) "!\n \n!$  # C : @ \" A ) !+" [set-mark-command nil arg lyskom-read-num-range 0 255 lyskom-get-string priority-prompt t priority lyskom-prioritize-current-entry entry lyskom-prioritize-get-selected entry-list lyskom-prioritize-set-priority lyskom-prioritize-goto-entry] 6 (#$ . 501886) "P"]) (defalias 'lyskom-prioritize-set-priority #[(entry priority) " !U !VS < @!Y/ AG GZT\nB \" !\nˉ$ !W } @!Vq A]G GZ`\nG \" !\nˉ$*" [lyskom-prioritize-entry-list nil target list prioritize-entry->priority entry priority 1 set-prioritize-entry->priority lyskom-prioritize-move-entry lyskom-prioritize-get-no-from-entry t] 6]) #@49 Reprioritize all entries with a given priority. (defalias 'kom-prioritize-reprioritize #[nil " \n !! %\n!$\f \n=2\nu\fuGXl!!\nUc\f\" cT> !." [lyskom-prioritize-current-entry tmp prioritize-entry->priority default lyskom-read-num-range 0 255 lyskom-get-string reprioritize-from t prio-from reprioritize-to prio-to nil buffer-read-only 1 where elem lyskom-prioritize-entry-list lyskom-prioritize-get-entry-from-no set-prioritize-entry->priority lyskom-prioritize-sort-entries lyskom-prioritize-redraw-buffer lyskom-prioritize-goto-entry] 7 (#$ . 502724) nil]) #@42 Move all marked entries to before point. (defalias 'kom-prioritize-yank #[nil "   ! @ ƂV R @! !W9S @ \"͉$ A ! !." [lyskom-prioritize-current-entry old-entry lyskom-prioritize-get-selected entry-list prioritize-entry->priority prio nil from to start lyskom-prioritize-get-no-from-entry set-prioritize-entry->priority lyskom-prioritize-move-entry t lyskom-prioritize-goto-entry] 5 (#$ . 503372) nil]) #@44 Save changes in the prioritization buffer. (defalias 'kom-prioritize-save #[nil " " [lyskom-prioritize-tell-server] 1 (#$ . 503834) nil]) #@36 Quit from the prioritization mode. (defalias 'kom-prioritize-quit #[nil " !" [lyskom-prioritize-tell-server bury-buffer switch-to-buffer lyskom-buffer] 2 (#$ . 503980) nil]) #@57 Returns membership for a persons membership in CONF-NO. (defalias 'lyskom-get-membership-in-conf #[(conf-no) " @AÜ)\fU A #\" @)" [lyskom-membership l membership 1 conf-no signal lyskom-internal-error (membership-is-corrupt lyskom-get-membership-in-conf)] 4 (#$ . 504168)]) #@237 Re-prioritize all conferences you are a member in. Show memberships last visited, priority, unread and name in a buffer. In that buffer you can use various commands to chande ordering and priorities of conferences you are a member of. (defalias 'kom-prioritize #[nil "!p\n!P! Ɏ\n\"\"\":!!G!! Qq!!!\n! \nq$%G&'%<%%@''+A)$%A%$&W%$H''+A)$$T$,!p.!A) db3c)!!,." [lyskom-start-of-command kom-prioritize buffer get-buffer-create buffer-name "-prioritize" tmp-buffer make-collector collector ((byte-code "q " [buffer lyskom-end-of-command] 1)) lyskom-membership-is-read signal lyskom-internal-error (membership-isnt-read kom-prioritize) blocking-do get-pers-stat lyskom-pers-no get-membership membership-list pers-stat lyskom-insert lyskom-get-string cannot-get-membership cannot-get-pers-stat pers-no lyskom-mode-name-from-host " prioritize: " lyskom-server-name string make-local-variable lyskom-buffer lyskom-prioritize-entry-list nil mode-line-buffer-identification lyskom-prioritize-mode 0 __i__ __sequence__ __len__ memb-ship initiate-get-conf-stat prioritize lyskom-prioritize-handle-get-conf-stat membership 1 lyskom-wait-queue __buffer__ ((set-buffer __buffer__)) switch-to-buffer lyskom-prioritize-sort-entries lyskom-prioritize-redraw-buffer buffer-read-only " " lyskom-prioritize-goto-entry lyskom-prioritize-get-entry-from-no] 6 (#$ . 504472) nil]) (defalias 'lyskom-prioritize-handle-get-conf-stat #[(conf-stat collector) "\nAÜ)!AŜ)\n\"\")" [make-prioritize-entry lyskom-get-membership-in-conf conf-stat 0 membership 2 tmp collector-push collector] 5]) #@37 Sort the prioritization entry list. (defalias 'lyskom-prioritize-sort-entries #[nil " \" q\f\")" [sort lyskom-prioritize-entry-list #[(x y) " !\n!V" [prioritize-entry->priority x y] 3] lyskom-buffer lyskom-membership lyskom-membership-<] 3 (#$ . 506243)]) #@820 \Mode for prioritizing conferences in LysKOM. Commands: \[kom-prioritize-move-up] Move conference on current line up one line. \[kom-prioritize-move-down] Move conference on current line down one line. \[kom-prioritize-yank] Move all selected conferences to near the current line. \[kom-prioritize-select] Toggle selection of the conference on the current line. \[kom-prioritize-goto-priority] Move cursor to an entry with a certain priority. \[kom-prioritize-set-priority] Alter the priority of the selected conferences. \[kom-prioritize-repriorize] Change one priority to another. \[kom-prioritize-save] Save changes to priorities. \[kom-prioritize-quit] Save changes and return to LysKOM. All bindings: \{lyskom-prioritize-mode-map} Entry to this mode runs lyskom-prioritize-mode-hook. (defalias 'lyskom-prioritize-mode #[nil "!!!\n !!" [lyskom-prioritize-mode major-mode "Prioritize" mode-name make-local-variable lyskom-prioritize-entry-list lyskom-prioritize-mode-line-selected lyskom-prioritize-selection "" nil lyskom-prioritize-mode-line mode-line-format lyskom-prioritize-update-mode-line t buffer-read-only use-local-map lyskom-prioritize-mode-map run-hooks lyskom-prioritize-mode-hook] 2 (#$ . 506519) nil]) (defalias 'lyskom-prioritize-update-mode-line #[nil " GU!! G\" " [lyskom-prioritize-get-selected 0 lyskom-get-string no-selection format selection lyskom-prioritize-mode-line-selected force-mode-line-update] 3]) #@104 Tell the server about the changes. If optional arg ENTRY is given, only tell server about that entry. (defalias 'lyskom-prioritize-tell-server #[(&optional entry) " \"!AƜ)!S \nq!! A I*! &," [entry mapcar #[(x) "!" [x lyskom-prioritize-tell-server] 2] lyskom-prioritize-entry-list prioritize-entry->conf-stat conf-stat 0 conf-no lyskom-prioritize-get-no-from-entry entry-number lyskom-buffer lyskom-get-membership-in-conf prioritize-entry->priority newval membership 2 initiate-add-member priority lyskom-prioritize-handler lyskom-pers-no] 8 (#$ . 508042)]) #@31 Arg: RES. Barf if RES is nil. (defalias 'lyskom-prioritize-handler #[(res) "\n!\"" [res lyskom-error "%s" lyskom-get-string prio-died] 4 (#$ . 508659)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: flags.el,v 44.0 1996/08/30 14:46:38 davidk Exp $\n" nil] 2) (defalias 'original-user-variable-p #[(x) "" [nil] 1]) (byte-code "KM" [original-user-variable-p user-variable-p] 2) (defalias 'lyskom-user-variable-p #[(symbol) " ! !\" !\"" [original-user-variable-p symbol string-match "^kom-" symbol-name "^lyskom-"] 4]) (defalias 'lyskom-Edit-options-modify #[(modfun) "!u`\n`S}\nbp!)\nbyu \n !L!@\fq L)! Jp\"-" [nil tmp pos var buffer-read-only re-search-backward "^;; \\|\\`" 3 read 1 modfun boundp lyskom-buffer kill-sexp prin1] 4]) #@33 Text mass when reading options. (defvar lyskom-options-text nil (#$ . 509477)) #@44 Save options that have been set somewhere. (defalias 'kom-save-options #[nil "!Ž\f\fp!!!$)" [lyskom-start-of-command kom-save-options ((lyskom-end-of-command)) lyskom-save-options lyskom-buffer lyskom-get-string saving-settings saving-settings-done could-not-save-options] 6 (#$ . 509562) nil]) #@37 Edit options for the lyskom client. (defalias 'kom-edit-options #[nil "KMp  KM!!\f \n\"\"*KM" [user-variable-p lyskom-user-variable-p current-window-configuration curwin buf edit-options Edit-options-modify lyskom-Edit-options-modify make-local-variable lyskom-buffer lyskom-edit-return-to-configuration local-set-key "" kom-edit-options-send " " kom-edit-quit original-user-variable-p] 3 (#$ . 509877) nil]) #@69 Finishes the edit options and sends the new settings to the server. (defalias 'kom-edit-options-send #[nil "=\n!p!\\ p# #Q #q!\"!!\"$!\"% %,p q!\"!\")" [major-mode Edit-options-mode error "You are not in the correct buffer. (Couldn't fool me this time." buffer-modified-p lyskom-buffer mapconcat #[(var) "\n!O\nJł\"" [lyskom-format-objects symbol-name var 4 nil "1" "0"] 4] lyskom-global-boolean-variables "\n" #[(var) "\n!O\nJ!\"" [lyskom-format-objects symbol-name var 4 nil prin1-to-string] 4] lyskom-global-non-boolean-variables #[(var) "\n!\nJ!\"" [lyskom-format-objects symbol-name var prin1-to-string] 4] lyskom-elisp-variables elisp-block common-block optbuf buf lyskom-start-of-command lyskom-get-string saving-settings t lyskom-insert-string hang-on initiate-create-text options lyskom-edit-options-send apply lyskom-format-objects "common" "elisp" mapcar car lyskom-other-clients-user-areas cdr lyskom-create-misc-list no-changes lyskom-edit-options-done] 13 (#$ . 510326) nil]) #@70 Handles the call after the options text has been sent to the buffer. (defalias 'lyskom-edit-options-send #[(text-no optbuf) "\f\f %! " [text-no initiate-set-user-area options lyskom-edit-options-done lyskom-pers-no optbuf lyskom-insert-string could-not-create-area lyskom-end-of-command] 6 (#$ . 511425)]) #@119 Handles the return from the set user area call. If successful then set the buffer not-modified. Else print a warning. (defalias 'lyskom-edit-options-done #[(success optbuf) "\n! q !) \" " [success cache-del-pers-stat lyskom-pers-no optbuf not-modified set-window-configuration lyskom-edit-return-to-configuration lyskom-format-insert could-not-set-user-area lyskom-errno lyskom-end-of-command] 3 (#$ . 511751)]) #@55 When we have read all options this is turned non-nil. (defvar lyskom-options-done nil (#$ . 512192)) (defalias 'lyskom-save-options #[(kombuf start-message done-message error-message) "\n# #Q# \nq \"\"$ \"% \n&+" [mapconcat #[(var) "\n!O\nJł\"" [lyskom-format-objects symbol-name var 4 nil "1" "0"] 4] lyskom-global-boolean-variables "\n" #[(var) "\n!O\nJ!\"" [lyskom-format-objects symbol-name var 4 nil prin1-to-string] 4] lyskom-global-non-boolean-variables #[(var) "\n!\nJ!\"" [lyskom-format-objects symbol-name var prin1-to-string] 4] lyskom-elisp-variables elisp-block common-block kombuf lyskom-message "%s" start-message initiate-create-text options lyskom-save-options-2 apply lyskom-format-objects "common" "elisp" mapcar car lyskom-other-clients-user-areas cdr lyskom-create-misc-list done-message error-message] 12]) (defalias 'lyskom-save-options-2 #[(text-no kombuf done-message error-message) "\f & q!!\")" [text-no initiate-set-user-area options lyskom-save-options-3 lyskom-pers-no kombuf done-message error-message lyskom-insert-string could-not-save-options lyskom-message "%s" lyskom-get-string] 8]) (defalias 'lyskom-save-options-3 #[(success kombuf done-message error-message) "q  !\" \"\n\")" [kombuf success cache-del-pers-stat lyskom-pers-no lyskom-message "%s" done-message lyskom-format-insert could-not-set-user-area lyskom-errno error-message] 3]) #@70 Reads the user-area and sets the variables according to the choises. (defalias 'lyskom-read-options #[nil "@U?@\"!?\fAɜ)U3 ˉ\f?\fAɜ)\"!)" [lyskom-pers-no 0 blocking-do get-pers-stat pers-stat lyskom-insert-string you-dont-exist nil lyskom-other-clients-user-areas 5 lyskom-tell-phrases-validate t lyskom-options-done lyskom-read-options-eval get-text] 6 (#$ . 513694)]) #@47 Handles the call from where we have the text. (defalias 'lyskom-read-options-eval #[(text) "lA) \n \n\f \f\n\nGVa  ΘA\nY ϘO\nY \nBB\nT\n),\nGV=  \n ʼn\nGV  P!>ט!>PB\",5\n  ʼn\nGV   \"+5(@A\nU(A4@ )\nT\nj \"!\"B#jA@A;eAUš.%" [text 1 lyskom-options-text lyskom-read-options-eval-get-holerith pointers nil common-no elisp-no rest working r word no 2 "common" "elisp" lyskom-other-clients-user-areas value gname name "kom-" intern-soft lyskom-global-boolean-variables "1" "t" "nil" lyskom-global-non-boolean-variables "UNK-" lyskom-set-var-from-string pos append kom-permanent-filter-list kom-session-filter-list lyskom-filter-list kom-do-when-done lyskom-do-when-done t lyskom-options-done] 5 (#$ . 514111)]) (defalias 'lyskom-read-options-eval-get-holerith #[nil "\nO\"\nO\n!\n\"Õ \n \\O\n \\O*" [string-match "\\s-" lyskom-options-text 0 1 nil string-to-int "[0-9]+H" start len] 5]) #@102 This is a wrapper aroud read-from-string. It returns nil, and writes a message when an error occurs. (defalias 'lyskom-set-var-from-string #[(var string) " !ď@L" [intern var err (read-from-string string) ((invalid-read-syntax (byte-code "! \f#Ň" [lyskom-format-insert lyskom-get-string error-in-options var string nil] 4)))] 4 (#$ . 515293)]) (byte-code "P‡" [lyskom-clientversion-long "$Id: messages.el,v 44.0 1996/08/30 14:47:22 davidk Exp $\n" nil] 2) #@674 A list of personal message handlers. Each element of the list is a function of four arguments, MESSAGE-TYPE SENDER RECIPIENT and TEXT. MESSAGE-TYPE is one of personal, group or common and denotes the type of message. SENDER is the conf-stat of the sender of the message. RECIPIENT is the conf-stat of the message recipient or zero for common messages. The functions may use the lyskom-set-current-message-text function to modify the message text. A non-nil return value from the function indicates that the message was handlerd and no other handlers need to be called and a nil return value means that the message was not handled and should be sent to the next handler. (defvar lyskom-personal-message-handlers nil (#$ . 515769)) #@95 The text of the current message. Use lyskom-set-current-message-text to modify this variable. (defvar lyskom-message-current-text "" (#$ . 516508)) #@77 Set the current message text to TEXT. For use by personal message handlers. (defalias 'lyskom-set-current-message-text #[(text) "" [text lyskom-message-current-text] 2 (#$ . 516662)]) #@196 Handle a personal message. SENDER is the sender of the message (a conf-stat) RECIPIENT is the recipient of the message (a conf-stat or zero for common messages. TEXT is the text of the message. (defalias 'lyskom-handle-personal-message #[(sender recipient text) "=\n‚A)\fUł\n \f \nG G @ \f$\n A (\n?T\f#," [recipient 0 common conf-stat lyskom-pers-no personal group text lyskom-personal-message-handlers nil done handlers lyskom-message-current-text message-type sender lyskom-show-personal-message] 6 (#$ . 516857)]) #@551 Add HANDLER to the queue of personal message handlers. Optional argument PLACE can be one of 'before or 'after. Optional argument RELATIVE can be another handler in the queue. IF fourth argument NEW is t, the handler is only added if it does not already exist in the list. The new handler is placed first in the queue if PLACE is 'before and RELATIVE is not specified; last if PLACE is 'after and RELATIVE is not specified; or before or after the handler RELATIVE in the queue, depending on the value of PLACE. If PLACE is nil, 'after is assumed. (defalias 'lyskom-add-personal-message-handler #[(handler &optional place relative new) " \n>? =Ă\n>*\nG\n>GZG =G\n T\nBi =iViS\n \nB\n =\nGS\n B\n = \nB\nGS\n B)\n" [new handler lyskom-personal-message-handlers place before after relative pos 0 nil] 5 (#$ . 517437)]) (defalias 'lyskom-info-request-handler #[(message-type sender recipient text) " Aǜ)  #$̇" [text " " initiate-send-message follow nil sender conf-stat 0 format "emacs-version: %s\nclient-version: %s" emacs-version lyskom-clientversion t] 9]) (byte-code "\" PB" [lyskom-add-personal-message-handler lyskom-info-request-handler before lyskom-clientversion-long "$Id: ansaphone.el,v 44.0 1996/08/30 14:45:01 davidk Exp $\n" "Auto-reply:\n" lyskom-ansaphone-tag current-load-list] 3) #@45 Change the default automatic reply message. (defalias 'kom-change-auto-reply #[(&optional message) "!Ž !!!\"*" [lyskom-start-of-command kom-change-auto-reply ((lyskom-end-of-command)) message read-from-minibuffer lyskom-get-string ansaphone-new-message kom-ansaphone-default-reply lyskom-format-insert ansaphone-message] 4 (#$ . 518879) nil]) #@48 Toggle automatic replies to personal messages. (defalias 'kom-toggle-auto-reply #[nil "!Ž ?! ǂ!\" ) \n!\f\")" [lyskom-start-of-command kom-toggle-auto-reply ((lyskom-end-of-command)) kom-ansaphone-on lyskom-format-insert lyskom-get-string ansaphone-state-r state-on state-off current-time-string lyskom-ansaphone-when-set ansaphone-message kom-ansaphone-default-reply] 4 (#$ . 519248) nil]) #@25 List collected messages (defalias 'kom-list-messages #[nil "!Ž !!$!! !\"!!)" [lyskom-start-of-command kom-list-messages ((lyskom-end-of-command)) lyskom-ansaphone-messages lyskom-format-insert lyskom-get-string ansaphone-no-messages ansaphone-message-list-start mapcar #[(msg) " Ĝ\" Ŝ\" Ɯ ǜ%" [lyskom-show-personal-message blocking-do get-conf-stat msg 0 1 2 3 nobeep] 6] reverse ansaphone-message-list-end] 4 (#$ . 519671) nil]) #@26 Erase collected messages (defalias 'kom-erase-messages #[nil "!Ž!\"lj)" [lyskom-start-of-command kom-erase-messages ((lyskom-end-of-command)) lyskom-message "%s" lyskom-get-string ansaphone-messages-gone nil lyskom-ansaphone-messages] 4 (#$ . 520142) nil]) (defalias 'lyskom-ansaphone-send-message #[(recipient message) " \f  AŜ)P$" [initiate-send-message async nil recipient conf-stat 0 lyskom-ansaphone-tag message] 7]) #@150 Personal message handler. Automatically reply to certain personal messages and strip auto-reply identification from messages. See kom-ansaphone-on (defalias 'lyskom-ansaphone-message-handler #[(message-type sender recipient text) " \n\"= Q\n\"\nȔȕO! t\nt t\ft \nAÜ) F O AÜ)\n$sМs!\"МP\n\") \n\n #) ?" [string-match lyskom-ansaphone-tag text 0 is-automatic "^" "\\(\\(.\\|\n\\)*\\)" lyskom-set-current-message-text 1 kom-ansaphone-on sender recipient lyskom-ansaphone-find-reply message-type conf-stat reply 4 lyskom-format lyskom-get-string ansaphone-message-header lyskom-ansaphone-when-set lyskom-ansaphone-send-message kom-ansaphone-record-messages lyskom-ansaphone-record-message lyskom-message-current-text kom-ansaphone-show-messages] 6 (#$ . 520600)]) #@194 Find an automatic reply suitable for messages of type MESSAGE-TYPE from SENDER to RECIPIENT consisting of TEXT. See the documentation for kom-ansaphone-default-reply and kom-ansaphone-replies. (defalias 'lyskom-ansaphone-find-reply #[(message-type sender recipient text) "| @Ĝ @Ĝ =u @Ɯ; @Ɯ=; @Ɯu @Ȝ^ @Ȝ =^ @Ȝu @ʜp @ʜ\f\"u @ \n =*" [kom-ansaphone-replies nil result exprs 0 message-type 1 sender 2 recipient 3 string-match text personal kom-ansaphone-default-reply] 6 (#$ . 521464)]) (defalias 'lyskom-ansaphone-record-message #[(sender recipient text) " Aœ)  Aœ) \f FB" [sender conf-stat 0 recipient text current-time-string lyskom-ansaphone-messages] 5]) (byte-code "$ P B Ç" [lyskom-add-personal-message-handler lyskom-ansaphone-message-handler before nil t lyskom-clientversion-long "$Id: remote-control.el,v 44.0 1996/08/30 14:47:45 davidk Exp $\n" (("set message" . lyskom-remote-set-message) ("list messages" . lyskom-remote-list-messages) ("erase messages" . lyskom-remote-erase-messages) ("autoreply" . lyskom-remote-autoreply) ("quit" . lyskom-remote-quit)) lyskom-remote-commands current-load-list] 5) #@255 Remotely turn on or off the auto-reply facility of another client. Optional argument SESSION-NO specifies the target session. Optional argument STATE can be one of 'on, 'off or nil. on means turn auto-reply on, off turn it off and nil toggle its state. (defalias 'kom-remote-autoreply #[(&optional session-no state) "!Ž !lj$@ *! lj& \" \"AӜ)  =L؂X =WڂX$#*" [lyskom-start-of-command kom-remote-autoreply ((lyskom-end-of-command)) session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t state assoc completing-read remote-control-autoreply lyskom-onoff-table blocking-do get-session-info info lyskom-send-message session-info 0 format "Remote-command: %d %d\nautoreply\n%s" lyskom-session-no on "on" off "off" ""] 9 (#$ . 522713) nil]) #@167 Remotely set the default reply message of another client. Optional argument SESSION-NO specifies the target session. Optional argument MESSAGE specifies the message. (defalias 'kom-remote-set-message #[(&optional session-no message) "!Ž !lj$@ !! \"Aќ)  $#*" [lyskom-start-of-command kom-remote-set-message ((lyskom-end-of-command)) session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t message lyskom-read-string message-prompt blocking-do get-session-info info lyskom-send-message session-info 0 format "Remote-command: %d %d\nset message\n%s" lyskom-session-no] 8 (#$ . 523533) nil]) #@119 List messages collected from a remote auto-reply facility. Optional argument SESSION-NO specifies the target session. (defalias 'kom-remote-list-messages #[(&optional session-no) "!Ž !lj$@ \"   AΜ) ##*" [lyskom-start-of-command kom-remote-list-messages ((lyskom-end-of-command)) session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t blocking-do get-session-info info lyskom-send-message session-info 0 format "Remote-command: %d %d\nlist messages\n" lyskom-session-no] 7 (#$ . 524188) nil]) #@115 Erase stored messages on a remote auto-reply facility. Optional argument SESSION-NO specifies the target session. (defalias 'kom-remote-erase-messages #[(&optional session-no) "!Ž !lj$@ \"   AΜ) ##*" [lyskom-start-of-command kom-remote-erase-messages ((lyskom-end-of-command)) session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t blocking-do get-session-info info lyskom-send-message session-info 0 format "Remote-command: %d %d\nerase messages\n" lyskom-session-no] 7 (#$ . 524735) nil]) #@82 Quit a remote client. Optional argument SESSION-NO specifies the target session. (defalias 'kom-remote-quit #[(&optional session-no) "!Ž !lj$@ \"   AΜ) ##*" [lyskom-start-of-command kom-remote-quit ((lyskom-end-of-command)) session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t blocking-do get-session-info info lyskom-send-message session-info 0 format "Remote-command: %d %d\nquit\n" lyskom-session-no] 7 (#$ . 525280) nil]) #@82 Personal message handler. Handler to implement remote control of the ansaphone. (defalias 'lyskom-remote-handler #[(message-type sender recipient text) "\f\"=\fȔȕO! U\n+\f˔˕O! U\f\f\"=AŜ)>UUAŜ)=\n\f! \f%\"!!\"\"\fޔޕO\fO!#\"$$A!\f$+ ! !!\"\"." [nil error string-match "^Remote-command: \\([0-9]+\\) \\([0-9]+\\)\n" text 0 is-remote string-to-number 1 lyskom-session-no is-from-me 2 is-to-me "^Remote-command: \\([0-9]+\\) \\([0-9]+\\)\n\\(.*\\)\n\\(\\(\n\\|.\\)*\\)$" is-valid sender conf-stat kom-remote-controllers kom-self-control lyskom-pers-no is-trusted lyskom-ansaphone-send-message lyskom-format lyskom-get-string illegal-remote current-time-string recipient illegal-remote-reply remote-not-in-list remote-bad-command 3 command 4 arg assoc lyskom-remote-commands desc remote-unknown-error] 9 (#$ . 525762)]) (defalias 'lyskom-remote-set-message #[(arg sender recipient text) "   !P\"! $!ˇ̇" [arg kom-ansaphone-default-reply current-time-string lyskom-ansaphone-when-set lyskom-ansaphone-send-message sender lyskom-get-string ansaphone-new-message lyskom-insert-before-prompt lyskom-format remote-set-message nil remote-bad-command] 6]) (defalias 'lyskom-remote-autoreply #[(arg sender recipient text) "\fĘ ?! +˂,!\"\"! B˂C!$!Ň" [arg "on" t kom-ansaphone-on "off" nil lyskom-ansaphone-send-message sender lyskom-format lyskom-get-string ansaphone-state state-on state-off lyskom-insert-before-prompt remote-set-ansaphone current-time-string] 7]) (defalias 'lyskom-remote-list-messages #[(arg sender recipient text) "\n!\"?!!8@˜#@̜#A)\n#ʇ" [lyskom-ansaphone-messages lyskom-ansaphone-send-message sender lyskom-get-string ansaphone-no-messages lyskom-collect follow reverse tmp initiate-get-conf-stat nil 0 1 lyskom-use lyskom-remote-list-messages-1] 6]) (defalias 'lyskom-remote-list-messages-1 #[(sender &rest pairs) "\n!ÉE@A@AA \f@ʜ@˜$9̂:QA\f\"! #!," ["" reverse lyskom-ansaphone-messages nil to from tmp message pairs lyskom-format-as-personal-message 2 3 "\n\n" lyskom-ansaphone-send-message sender lyskom-insert-before-prompt lyskom-format lyskom-get-string remote-list-messages current-time-string] 7]) (defalias 'lyskom-remote-erase-messages #[(arg sender recipient text) "! #!" [nil lyskom-ansaphone-messages lyskom-insert-before-prompt lyskom-format lyskom-get-string remote-erase-messages sender current-time-string] 5]) (defalias 'lyskom-remote-quit #[(arg sender recipient text) "!\f #! " [lyskom-insert-before-prompt lyskom-format lyskom-get-string remote-quit sender current-time-string lyskom-quit] 5]) (lyskom-add-personal-message-handler (quote lyskom-remote-handler) (quote before) (quote lyskom-ansaphone-message-handler) t) #@46 Mode map for the `slow' lyskom command mode. (defvar lyskom-slow-mode-map (make-sparse-keymap) (#$ . 528777)) (byte-code " # # #" [define-key lyskom-slow-mode-map " " kom-parse-command-and-execute " " kom-expand-slow-command " " kom-expand-slow-or-next-command] 4) #@167 Get the text that the user has entered after the last prompt. Note that this function leaves point at the end of the prompt. If no text is entered, nil is returned. (defalias 'lyskom-get-entered-slow-command #[nil "dbd}\n!)\nGu!u`dU?'`d{" [lyskom-last-viewed search-backward lyskom-prompt-text looking-at "\\s-" 1] 2 (#$ . 529061)]) #@235 Tries to complete the command at point. If the completion was exact return a pair `(COMMAND . POINT)' where COMMAND is the command and POINT is the point where the command text starts. If the completion was not exact it returns nil. (defalias 'kom-expand-slow-command #[nil " \"   \"  /! A!!! GUk @WY\"@`B `d| @c GV  \"=`d| @c;  #\"`d|c\") -" [lyskom-get-entered-slow-command text t completion-ignore-case mapcar reverse kom-emacs-knows-iso-8859-1 lyskom-commands lyskom-swascii-commands alternatives all-completions completes nil command lyskom-beep lyskom-insert-before-prompt lyskom-get-string no-such-command 1 reverse-assoc try-completion longest lyskom-format-insert-before-prompt command-completions mapconcat identity "\n " signal lyskom-internal-error] 7 (#$ . 529422) nil]) #@115 If any part of a slow command has been entered, call `kom-expand-slow-command'. Otherwise, do `kom-next-command'. (defalias 'kom-expand-slow-or-next-command #[nil "  " [lyskom-get-entered-slow-command kom-expand-slow-command kom-next-command] 1 (#$ . 530340) nil]) #@67 Reads a command from the last line in the buffer and executes it. (defalias 'kom-parse-command-and-execute #[nil "   !! ! Ad| @!*" [lyskom-get-entered-slow-command text kom-expand-slow-command command call-interactively kom-next-command] 3 (#$ . 530620) nil]) #@31 Starts the slow-command-mode. (defalias 'kom-slow-mode #[nil "! ! " [lyskom-start-of-command kom-slow-mode use-local-map lyskom-slow-mode-map lyskom-end-of-command] 2 (#$ . 530906) nil]) #@32 Starts the quick-command-mode. (defalias 'kom-quick-mode #[nil "! ! " [lyskom-start-of-command kom-quick-mode use-local-map lyskom-mode-map lyskom-end-of-command] 2 (#$ . 531106) nil]) (byte-code " B B!" [newtext current-load-list string provide] 2) #@595 Replace first match of REGEXP in STRING with NEWTEXT. If no match is found, nil is returned instead of the new string. Optional arg LITERAL non-nil means to take NEWTEXT literally. If LITERAL is nil, character `\' is the start of one of the following sequences: \\ will be replaced by a single \. \& will be replaced by the text which matched the regexp. \N where N is a number and 1 <= N <= 9, will be replaced by the Nth subexpression in REGEXP. Subexpressions are grouped inside \( \). Optional arg GLOBAL means to replace all matches instead of only the first. (defalias 'string-replace-match #[(regexp string newtext &optional literal global) " Ž YƉ \n\f  #GŔŕ\n  O;= Q\n U\n  OP,|\f #| ʼnOsu  ŕOQ*" [match-data data ((store-match-data data)) global "" 0 nil matchend matchbeginning start result string-match regexp string literal newtext elib-string-expand-newtext] 5 (#$ . 531377)]) (defalias 'elib-string-expand-newtext #[nil " G\fWp HUb THU1 OfY[X[Z V   OW)f!f!)P T +" [0 newtext "" expanded-newtext len pos c 92 38 string 49 57 48 n char-to-string] 5]) #@156 Splitting on regexp PATTERN, turn string STRING into a list of substrings. Optional third arg LIMIT (>= 1) is a limit to the length of the resulting list. (defalias 'string-split #[(pattern string &optional limit) " Ž\f \" OC\nǕ X\f1\n\fWX\f  #Xǔ\nT\n  OBǕ #\ff\n\fWu u  OB." [match-data data ((store-match-data data)) string-match pattern string start 0 result 1 count end limit nil] 5 (#$ . 532629)]) (byte-code "P######!1BЇ" [lyskom-clientversion-long "$Id: lyskom-rest.el,v 44.1 1996/09/03 16:01:32 byers Exp $\n" put lyskom-protocol-error error-conditions (error lyskom-error lyskom-protocol-error) error-message "LysKOM protocol error:" lyskom-internal-error (error lyskom-error lyskom-internal-error) "Internal LysKOM error." lyskom-format-error (error lyskom-error lyskom-format-error) "Internal LysKOM format error." boundp lyskom-unread-mode-line nil current-load-list] 4) #@54 Get a string which is the error ERRNO in plain text. (defalias 'lyskom-get-error-text #[(errno) " \n\" A \")" [assoc errno lyskom-error-texts pair lyskom-format error-not-found] 4 (#$ . 533640)]) #@48 Handles a void return from call to the server. (defalias 'lyskom-report-command-answer #[(answer) "!!!#" [answer lyskom-insert-string done nope lyskom-format-insert error-code lyskom-get-error-text lyskom-errno] 4 (#$ . 533854)]) #@78 Retrieve the phrase indexed by the key from the kom-tell-phrases assoc list. (defalias 'lyskom-tell-string #[(key) " \n\"A@" [assoc key kom-tell-phrases] 3 (#$ . 534108)]) #@65 Same as lyskom-tell-server, but use a key to a list of phrases. (defalias 'lyskom-tell-internat #[(key) "\n!!" [lyskom-tell-server lyskom-tell-string key] 3 (#$ . 534288)]) #@46 Get the command name for the command COMMAND (defalias 'lyskom-command-name #[(command) " \n\n \f\"A@" [assoc command kom-emacs-knows-iso-8859-1 lyskom-commands lyskom-swascii-commands] 3 (#$ . 534470)]) #@61 Returns non-nil if it is ok to do such a command right now. (defalias 'lyskom-ok-command #[(alternative administrator) " A@\n>? A@ >?" [administrator alternative lyskom-admin-removed-commands lyskom-noadmin-removed-commands] 2 (#$ . 534687)]) #@52 Read a LysKOM function name and call the function. (defalias 'kom-extended-command #[nil "  @! )" [lyskom-read-extended-command fnc call-interactively kom-next-command] 3 (#$ . 534942) nil]) (defalias 'lyskom-read-extended-command #[nil "\f\f \"!EE%\"@\f4 6\"+" [t completion-ignore-case mapcar reverse kom-emacs-knows-iso-8859-1 lyskom-commands lyskom-swascii-commands alternatives completing-read lyskom-get-string extended-command lambda (alternative) lyskom-ok-command alternative lyskom-is-administrator nil name reverse-assoc all-completions] 9]) #@104 Try to recover from an error. If the optional argument REFETCH is non-nil, `lyskom-refetch' is called. (defalias 'kom-recover #[(&optional refetch) " !\" W( I T ) \f 7 ! " [lyskom-init-parse lyskom-buffer nil lyskom-call-data lyskom-pending-calls make-vector 10 lyskom-output-queues 0 i lyskom-queue-create lyskom-number-of-pending-calls lyskom-is-parsing refetch lyskom-refetch lyskom-tell-internat kom-tell-recover lyskom-end-of-command] 4 (#$ . 535555) "p"]) #@75 Scroll the bottom to the top and run the next command if it should be run (defalias 'kom-page-next-command #[nil "d!db! !! " [pos-visible-in-window-p recenter 0 lyskom-next-command move-to-window-line -1 lyskom-set-last-viewed] 2 (#$ . 536066) nil]) #@38 Run next command or scroll one page. (defalias 'kom-next-command #[nil "d! ! " [pos-visible-in-window-p lyskom-next-command move-to-window-line -1 lyskom-set-last-viewed lyskom-scroll] 2 (#$ . 536340) nil]) #@38 Run next command or scroll one line. (defalias 'kom-line-next-command #[nil "d! ! " [pos-visible-in-window-p lyskom-next-command move-to-window-line 1 lyskom-set-last-viewed lyskom-scroll] 2 (#$ . 536567) nil]) #@19 Run next command. (defalias 'lyskom-next-command #[nil "\n= ^\n= ^\n=# ^\n=. ^\n=L  ;D !H !)^\n=Z!!^\")" [t lyskom-doing-default-command lyskom-command-to-do next-pri-text lyskom-view-priority-text next-text kom-view-next-text next-conf kom-go-to-next-conf next-pri-conf lyskom-go-to-pri-conf when-done lyskom-what-to-do-when-done command execute-kbd-macro call-interactively unknown lyskom-insert lyskom-get-string wait-for-server signal lyskom-internal-error (kom-next-command)] 4 (#$ . 536798)]) (defalias 'kom-initial-digit-view #[nil " B\"" [last-command-event unread-command-events call-interactively kom-view nil] 3 nil nil]) #@27 View text number TEXT-NO. (defalias 'kom-view #[(text-no) "!!)$<\"@$3! \"\n<>\n>B!!\"!)" [((lyskom-end-of-command)) nil kom-page-before-command lyskom-start-of-command kom-view lyskom-tell-internat kom-tell-review text-no lyskom-read-number lyskom-get-string review-text-q lyskom-current-text recenter 1 lyskom-format-insert review-text-no lyskom-view-text] 3 (#$ . 537499) "P"]) #@80 Display next new text (putting all review constructs at the end of this conf). (defalias 'kom-view-next-new-text #[nil "GS) e\fVeA)Aǜ)=6=6==!^=K=\\AX AA)^)\fS * " [lyskom-reading-list read-list nil finished len 1 read-info 0 type REVIEW REVIEW-TREE REVIEW-MARK read-list-rotate COMM-IN FOOTN-IN t kom-view-next-text] 3 (#$ . 537944) nil]) #@47 Display next text (from lyskom-reading-list). (defalias 'kom-view-next-text #[nil "!Ž!=A)7 U,!0!ΉA)Aќ)A@Aʜ)A)AԜ)===?Aќ)\"?A)Aߜ)?&!\"\"\". *" [lyskom-start-of-command kom-view-next-text ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-read next-text action lyskom-reading-list read-list lyskom-current-conf 0 lyskom-insert-string completely-read-conf not-in-any-conf nil tri read-info 3 text-no type 2 priority REVIEW-TREE is-review-tree REVIEW REVIEW-MARK is-review mark-as-read delq lyskom-view-text kom-read-depth-first 1 lyskom-is-read read-list-delete-text lyskom-to-do-list] 9 (#$ . 538356) nil]) #@75 Display the first text from the next conference on the lyskom-to-do-list. (defalias 'lyskom-view-priority-text #[nil "!Ž! A)A) Aʜ)  A̜) A)@! AӜ) &+!)" [lyskom-start-of-command kom-view-next-text ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-read lyskom-to-do-list read-list tri lyskom-reading-list read-info 2 priority 3 text-list text-no lyskom-is-read lyskom-view-text t nil 1 lyskom-wait-queue main] 9 (#$ . 539142)]) #@307 Remove TEXT-NO from the list of texts to read. Deletes TEXT-NO from lyskom-reading-list and lyskom-to-do-list. Adds info in lyskom-membership. This function only modifies the internal state of the client. It does not mark the text as read in the server. That function is performed by lyskom-mark-as-read. (defalias 'lyskom-is-read #[(text-no) " \n\" \" # B" [read-list-delete-text text-no lyskom-reading-list lyskom-to-do-list initiate-get-text-stat main lyskom-is-read-handler lyskom-normally-read-texts] 4 (#$ . 539634)]) #@59 Update lyskom-membership for all recipients to TEXT-STAT. (defalias 'lyskom-is-read-handler #[(text-stat) "\nAÜ)G\fB&'B'UT&(\"(c&(>c&(B( ." [conf lyskom-current-conf 0 lyskom-get-string not-present-anywhere initiate-get-conf-stat modeline lyskom-set-mode-line nil object CONF-STAT conf-stat 1 "" -1 read-info-list len letters total-unread unread name lyskom-to-do-list read-list read-info 3 text-list lyskom-pers-no lyskom-session-priority format "(%d/%d:%d) " "(%d/%d) " make-string 27 32 mode-line-conf-name kom-emacs-knows-iso-8859-1 iso-8859-1-to-swascii delq lyskom-buffer lyskom-sessions-with-unread lyskom-sessions-with-unread-letters force-mode-line-update] 7 (#$ . 542891)]) #@129 Returns non-nil if conference CONF-NO is present on lyskom-membership. The value is actually the membership for the conference. (defalias 'lyskom-member-p #[(conf-no) "\n\" \"\f @AƜ)U @ A\n*" [lyskom-membership nil found list conf-no membership 1] 4 (#$ . 543977)]) #@60 Trim the size of a lyskom buffer to lyskom-max-buffer-size (defalias 'lyskom-trim-buffer #[nil "$ V$ Zeb`\nW ye`|))" [kom-max-buffer-size buffer-size delchars 1] 2 (#$ . 544269)]) #@89 Scroll screen if necessary. The position lyskom-last-viewed will always remain visible. (defalias 'lyskom-scroll #[nil " !p= ‰@d!?@db!!?@ \"!! ?@u)" [window-buffer selected-window nil win pos-visible-in-window-p recenter -1 lyskom-last-viewed set-window-start move-to-window-line vertical-motion 1] 4 (#$ . 544475)]) #@358 Insert STRING last in current buffer. Leaves the point at the end of the buffer if possible without scrolling past lyskom-last-viewed (generally the most recent prompt.) Leaves the point at the end of the window if not possible. If buffer is not on screen then doesn't move point. The text is converted according to the value of kom-emacs-knows-iso-8859-1. (defalias 'lyskom-insert #[(string) "`)dUdb\f  !c) )p! B Bd \";dbB B *" [nil was-at-max t inhibit-read-only kom-emacs-knows-iso-8859-1 string iso-8859-1-to-swascii lyskom-trim-buffer get-buffer-window window pos-visible-in-window-p kom-continuous-scrolling lyskom-scroll] 4 (#$ . 544839)]) #@123 Insert STRING in the current buffer at point. The text is converted according to the value of kom-emacs-knows-iso-8859-1. (defalias 'lyskom-insert-at-point #[(string) "\n\n !c) " [nil buffer-read-only kom-emacs-knows-iso-8859-1 string iso-8859-1-to-swascii lyskom-trim-buffer] 2 (#$ . 545530)]) #@202 Insert STRING just before the prompt of if no prompt then just buffers. If prompt on screen then do the scroll if necessary. The strings buffered are printed before the prompt by lyskom-update-prompt. (defalias 'lyskom-insert-before-prompt #[(string) " =   C\" dby\n /3!c)b)p!\\`\"?\\ Ҏ!!*)" [lyskom-executing-command lyskom-is-waiting t lyskom-to-be-printed-before-prompt lyskom-queue-create lyskom-queue-enter string point-marker oldpoint 0 inhibit-read-only kom-emacs-knows-iso-8859-1 iso-8859-1-to-swascii get-buffer-window window pos-visible-in-window-p selected-window save-selected-window-window ((select-window save-selected-window-window)) select-window recenter -1] 4 (#$ . 545844)]) #@101 Like message, but converts iso-8859/1 texts to swascii if necessary. Args: FORMAT-STRING &rest ARGS (defalias 'lyskom-message #[(format-string &rest args) "\n # \f\"\f!\")" [apply format format-string args str kom-emacs-knows-iso-8859-1 message "%s" iso-8859-1-to-swascii] 4 (#$ . 546606)]) #@99 Like error, but converts iso-8859/1 texts to swascii if necessary. Args: FORMAT-STRING &rest ARGS (defalias 'lyskom-error #[(format-string &rest args) "\n # \f\"\f!\")" [apply format format-string args str kom-emacs-knows-iso-8859-1 error "%s" iso-8859-1-to-swascii] 4 (#$ . 546918)]) (defalias 'lyskom-set-last-viewed #[nil "!`)" [vertical-motion 0 lyskom-last-viewed] 2]) #@38 regexp matching format string parts. (defvar lyskom-format-format "%\\(=\\)?\\(-?[0-9]+\\)?\\(#\\([0-9]+\\)\\)?\\(:\\)?\\([][@MmPpnrtsdoxc]\\)" (#$ . 547320)) #@77 Find the string corresponding to ATOM and insert it into the LysKOM buffer. (defalias 'lyskom-insert-string #[(atom) "\n!!" [lyskom-insert lyskom-get-string atom] 3 (#$ . 547485)]) #@53 Get the string corresponding to ATOM and return it. (defalias 'lyskom-get-string #[(atom &optional assoc-list) ";\n \"DD\"!\fA)" [atom assoc assoc-list lyskom-strings format-pair signal lyskom-internal-error lyskom-get-string ": string not found"] 6 (#$ . 547675)]) (defalias 'lyskom-format #[(format-string &rest argl) " \n\"AĜ)" [lyskom-do-format format-string argl arg 4] 4]) #@126 Format and insert a string according to FORMAT-STRING. The string is inserted at the end of the buffer with `lyskom-insert'. (defalias 'lyskom-format-insert #[(format-string &rest argl) " \n#d\fAǜ)\fAʜ)!K@ \f \f  !\\ϓ \f\" !A*+" [lyskom-do-format format-string argl t state start arg 6 deferred lyskom-insert 4 make-marker m defer-info defer-info->pos nil set-defer-info->pos lyskom-defer-insertion] 5 (#$ . 548090)]) #@89 Format and insert a string according to FORMAT-STRING. The string is inserted at point. (defalias 'lyskom-format-insert-at-point #[(format-string &rest argl) " \n#`\fAǜ)\fAʜ)!K@ \f \f  !\\ϓ \f\" !A*+" [lyskom-do-format format-string argl t state start arg 6 deferred lyskom-insert-at-point 4 make-marker m defer-info defer-info->pos nil set-defer-info->pos lyskom-defer-insertion] 5 (#$ . 548559)]) #@276 Format and insert a string according to FORMAT-STRING. The string is inserted just before the prompt, and if the prompt is not currently visible the text is queued to be inserted when the prompt reappears. Note that it is not allowed to use deferred insertions in the text. (defalias 'lyskom-format-insert-before-prompt #[(format-string &rest argl) "\n \"AŜ)!" [lyskom-insert-before-prompt lyskom-do-format format-string argl arg 4] 5 (#$ . 549010)]) #@65 Do the actual formatting and return the resulting format-state. (defalias 'lyskom-do-format #[(format-string &optional argl allow-defer) "; 9!\"D\"8!2\n2\nq͏) *" [format-string lyskom-get-string nil state fmt signal lyskom-internal-error lyskom-format-insert ": bad format string" boundp lyskom-buffer error (byte-code "\n\f$\"" [lyskom-format-aux make-format-state fmt 0 argl "" allow-defer state] 6) ((lyskom-format-error (byte-code "\nA@8$" [error "LysKOM internal error formatting %s: %s%s" format-string 2] 6)))] 5 (#$ . 549474)]) (defalias 'lyskom-format-aux #[(format-state allow-defer) "Aœ)GÉ \n\fDA˜)\nWD Aœ)A˜)#{AΜ)Aœ)A˜)OPAI*Aœ)GAI*AΜ)Aœ)A˜)”OPAI*•AI*˔єAœ)єѕO!ΔAœ)ΔΕO! ӔԔAœ)ԔHAœ)D\"U•AI*  є;Aœ)єH=;ۂ<&.!" [format-state arg 0 nil abort-format equals-flag colon-flag format-letter pad-length arg-no format-length 1 string-match lyskom-format-format 4 output-list pos 2 string-to-int 5 6 signal lyskom-internal-error lyskom-format-aux 93 t lyskom-format-aux-help 48 32 allow-defer lyskom-tweak-format-state] 10]) (defalias 'lyskom-format-aux-help #[(format-state pad-length arg-no format-letter equals-flag colon-flag pad-letter allow-defer) "\nAĜ)G ! W [!  \n \fG\nA͜)\fWGD\"\fX\fS\nAҜ)8 )=s AԜ)\n A)U ; 9 !D\" QUUU ܉\" \"D\" QU !D\" QU QU\nAĜ)G B\nA)B\nA\nI*QU.\n'\" QU<U ;E U o Uo+,^,jUij \"U'/  !13  !+!9  3 !>G !]>G9,&?\n?\nA@)BAA@AI*>*1BAԜ))U 7C \"B*U$D% \"3BBAԜ))U E)F=O BAԜ)UD\" +Q E)F=n QGHUIJ \"\n\"\nQKULU  ! E)F= BA)!D\" +QGHLUIJ \"\n\"\nQMUB  !( E)N=\" OA)!(D\" +QGHP \"\n\"\nQQU ;XR !^D\" +QST!QGUTD\n\"\nQVU ;W ! E)X=W PAԜ)!D\" QYUG ; B3  !+Z9[ \"\\ 3 !>G !]>G\"] 9\")\n \nA@)BAA@AI*> Qށ^D\"   GV_ GZ`\"a W GZ[ aP  GZ a P )3 GW O  \nAĜ) PbAbI*\ncd \\\nAĜ)G\\\n\nAĜ)$.\n" [nil 0 format-state arg 4 pad-length abs-length oldpos prop-adjust-end prop-adjust-start propl result arg-no 3 signal lyskom-format-error lyskom-format ": too few arguments" 2 format-props 1 format-letter 115 symbol-name ": argument error" 100 111 120 format "%%%c" lyskom-internal-error 99 char-to-string 37 "%" 64 5 91 lyskom-format-aux allow-defer 77 80 t colon-flag lyskom-default-conf-string person-is-anonymous conference-does-not-exist kom-deferred-printing cache-get-conf-stat tmp "%#2@%" equals-flag "=" "" int-to-string "#1" ":" format-element lyskom-create-defer-info get-conf-stat lyskom-deferred-insert-conf abs lyskom-defer-indicator defer-info 6 string conf-stat blocking-do person-does-not-exist object CONF-STAT append lyskom-default-button pers conf 109 112 110 TEXT-STAT text-stat text 114 lyskom-button-transform-text lyskom-face-default-p kom-subject-face face 116 lyskom-format-text-body TEXT 68 "s" set-defer-info->pos set-defer-info->del-chars set-defer-info->format lyskom-format-help make-string pad-letter padstring output-list kom-text-properties add-text-properties] 9]) (defalias 'lyskom-tweak-format-state #[(format-state) "Aœ)+ @@AŜ)G @AAŜ)$ A\fAI+" [format-state arg 5 dp add-text-properties 4 nil propl] 7]) (byte-code "! B‡" [boundp lyskom-format-experimental nil current-load-list] 2) #@75 Format a text for insertion. Does parsing of special markers in the text. (defalias 'lyskom-format-text-body #[(text) "T \"(Ə(! ʎ q Oc +!P \"P! Ҏ q Oc !+ !] ! " [lyskom-format-experimental string-match "\\`html:" text e (byte-code "!" [require w3] 2) ((error)) generate-new-buffer "lyskom-html" tmpbuf ((kill-buffer tmpbuf)) 5 nil w3-preview-this-buffer fboundp format-decode-buffer "\\`enriched:" "lyskom-enriched" ((kill-buffer tmpbuf)) 10 lyskom-button-transform-text buffer-string kom-text-properties] 3 (#$ . 553607)]) #@273 Beep. ARG is how to beep. nil means don't beep. t means beep once. A number means beep that number of times (.1 second delay between beeps). A string means start the command kom-audio-player with the string as argument. A symbol other than t means call it as a function. (defalias 'lyskom-beep #[(arg) "?H=!)VH!!S;6 $9F!F͏ " [arg t ding 0 sit-for 0.10000000000000001 start-process "audio" nil kom-audio-player fboundp err (funcall arg) ((error (byte-code "! " [message "Error in beep function" beep] 2))) beep] 6 (#$ . 554198)]) #@50 Return t if f1 is undefined or the default face. (defalias 'lyskom-face-default-p #[(f1) " !? \"" [facep f1 face-equal default] 3 (#$ . 554792)]) #@116 *This is a table of the chars corresponding value in SWASCII. Used by the function iso-8859-1-to-swascii function. (defvar iso-8859-1-table " \n \f\n !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~ \n \f\n !c#$Y|$\"c+?!-R~C+23'u$-,10?????AAAA[][CE@EEIIIIDNOOOO\\*\\UUU^YTBaaaa{}{ce`eeiiiidnoooo|/|uuu~yty" (#$ . -554952)) #@121 Returns a string without characters with code > 127. What chars are converted to is controlled by the iso-8859-1-table. (defalias 'iso-8859-1-to-swascii #[(string) " ! G\f W \f \fHHI\fT\n +" [copy-sequence string 0 len i tmp iso-8859-1-table] 6 (#$ . 555385)]) #@78 Searches backwards for a text start and recenters with that text at the top. (defalias 'backward-text #[(&optional arg) " !)yŇ" [lyskom-text-start paragraph-start backward-paragraph arg 0 nil] 2 (#$ . 555668) "p"]) #@76 Searches forward for a text start and recenters with that text at the top. (defalias 'forward-text #[(&optional arg) " !)" [lyskom-text-start paragraph-start forward-paragraph arg] 2 (#$ . 555896) "p"]) #@296 Saves/appends the article before point to a file. The article is determined by a search-backward the same as backward-text and then a forward-text. With an argument ARG the search is done over that number of texts. The name of the file is read using the minibuffer and the default is kom-text. (defalias 'kom-save-text #[(&optional arg) " !` !y`  !\"& !\"! ! $  !F ! !P  !#  ," [backward-text arg forward-text 0 read-file-name kom-emacs-knows-iso-8859-1 lyskom-format save-on-file-q file-name-nondirectory lyskom-saved-file-name iso-8859-1-to-swascii file-name-directory nil name p2 p1 file-directory-p file-name-as-directory append-to-file expand-file-name] 8 (#$ . 556110) "p"]) #@180 Return the number of conferences the user is a member of minus 1. This is the highest index in lyskom-membership that contains data, if positions are counted from 0, as they are. (defalias 'lyskom-membership-highest-index #[nil "GS" [lyskom-membership] 1 (#$ . 556851)]) (put (quote lyskom-membership-highest-index) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@770 This function is run at the beginning of every LysKOM command. It moves the cursor one line down, and +++ later it will tell the server that the previous text has been read. Argument FUNCTION is a string the string will be written in the buffer on start of the command. If it is a symbol it searches for the corresponding command name in lyskom-commands and writes this in the message buffer. If optional argument MAY-INTERRUPT is present and non-nil, don't signal an error if this call is interrupting another command. Special: if lyskom-is-waiting then we are allowed to break if we set lyskom-is-waiting nil. This function checks if lyskom-doing-default-command and lyskom-first-time-around are bound. The text entered in the buffer is chosen according to this (defalias 'lyskom-start-of-command #[(function &optional may-interrupt) " !\"  < , ,!\"!7\fh ;J!9!d!)|dbG[!))!!d!db )! !p=dS!db!!$$<$>!" [lyskom-proc lyskom-error "%s" lyskom-get-string dead-session lyskom-is-waiting nil lyskom-end-of-command lyskom-executing-command may-interrupt wait-for-prompt boundp lyskom-doing-default-command lyskom-first-time-around function lyskom-insert lyskom-command-name name lyskom-current-prompt t inhibit-read-only delete-char lyskom-prompt-text lyskom-prompt-executing-default-command-text mode-line-working mode-line-process pos-visible-in-window-p lyskom-set-last-viewed lyskom-current-command "\n" window-buffer selected-window sit-for 0 run-hooks lyskom-before-command-hook kom-page-before-command recenter 1] 5 (#$ . 557235)]) #@44 Print prompt, maybe scroll, prefetch info. (defalias 'lyskom-end-of-command #[nil "!\f \f! d\f!@!\f!) \n !d \"= !N\"U " [message "" 0 start lyskom-to-be-printed-before-prompt lyskom-queue->first lyskom-insert lyskom-queue-delete-first nil lyskom-executing-command lyskom-current-command lyskom-current-prompt lyskom-scroll lyskom-get-string mode-line-waiting mode-line-process pos-visible-in-window-p selected-window lyskom-set-last-viewed lyskom-prefetch-and-print-prompt run-hooks lyskom-after-command-hook lyskom-idle-time-flag initiate-user-active background kom-inhibit-typeahead discard-input] 3 (#$ . 558931)]) #@133 Print prompt if the client knows which command will be default. Set lyskom-current-prompt accordingly. Tell server what I am doing. (defalias 'lyskom-update-prompt #[nil " \n? =- =K !K=D =K !K=A)AҜ)=fԂAҜ)=xւAҜ)=؂UۂAҜ)=݂AҜ)=߂)K=\"A)AҜ)=\"A)A)%AҜ)UK=:)+!!..!5.;0.!!5.\")K=FK\"  j 9b !c !9Pk`d=;<=dby?<@ @@=> @@B @N AB," [lyskom-do-when-done now all next commandp lambda command nochange] 2) ((error (byte-code "!!!LJ" [lyskom-insert-before-prompt lyskom-get-string error-in-kom-do-when-done lyskom-beep t ((kom-edit-options kom-display-time) kom-edit-options kom-display-time) lyskom-do-when-done kom-display-time] 3)))] 3 (#$ . 562523)]) #@63 Prefetch info if needed. Print prompt if not already printed. (defalias 'lyskom-prefetch-and-print-prompt #[nil " W\n \f\f<\f! " [lyskom-known-texts lyskom-prefetch-conf-tresh lyskom-prefetch-conf lyskom-prefetch-text lyskom-is-waiting eval nil lyskom-update-prompt] 2 (#$ . 563174)]) #@73 Count how many unread texts the user have, that the client knows about. (defalias 'lyskom-known-texts #[nil "\fA)\"\"" [apply + mapcar #[(x) "Aœ)GS" [x read-info 3] 3] lyskom-to-do-list read-list] 6 (#$ . 563488)]) #@38 Gets all conferences using prefetch. (defalias 'lyskom-prefetch-all-confs #[nil " ?  *#" [lyskom-prefetch-done lyskom-max-int lyskom-prefetch-confs lyskom-prefetch-conf-tresh lyskom-prefetch-conf accept-process-output nil lyskom-apo-timeout-s lyskom-apo-timeout-ms] 4 (#$ . 563721)]) #@1419 Fetch conf-stats for next few conferences from lyskom-membership. This is the main prefetch things function. This is initiated by lyskom-refetch. The following variables and functions are involved: lyskom-last-conf-fetched, lyskom-last-conf-received, lyskom-last-conf-done (this functions variables). lyskom-membership, lyskom-unread-confs (set at login). Functions: lyskom-prefetch-conf, starts the ball going, later verifies that everything is done. lyskom-prefetch-handle-conf, starts the ball for a conf. Idea: This functions fetches one conf from lyskom-unread-confs, creates an empty read-list entry and fires away a lyskom-prefetch-handle-conf. The lyskom-prefetch-handle-conf fills the read-list entry with articles to be read. When all articles are fetched then lyskom-prefetch-handle-conf will increase lyskom-last-conf-done and call lyskom-prefetch-conf that fetches the next conf. If we start reading before everything is fetched then two things will happen. For every thing we do (every prompt we get) there will be another lyskom-prefetch-conf started and possibly another thread of lyskom-prefetch-handle-conf. This will not be a problem. List news and other things that require the correct count of articles will have to wait. The correct way of waiting is to use lyskom-prefetch-all-confs. If we just want to know wether we have fetched all info or not we do the test (lyskom-prefetch-done). (defalias 'lyskom-prefetch-conf #[nil " \nGSW ZW T\n AŜ)Aɜ)GU?u\nAɜ) G\fr\n\fWr \nUjωM\nT\nK,*\fAŜ)\f$TT T))" [lyskom-prefetch-confs lyskom-last-conf-fetched lyskom-membership lyskom-last-conf-received membership 1 lyskom-unread-confs conf-no-list conf-no 0 r list len nil yes t initiate-get-conf-stat main lyskom-prefetch-handle-conf lyskom-last-conf-done] 6 (#$ . 564033)]) #@47 Returns t if lyskom has fetched all its info. (defalias 'lyskom-prefetch-done #[nil " GSY" [lyskom-last-conf-done lyskom-membership] 2 (#$ . 565929)]) #@80 Check if there is any unread texts in a conference. Args: CONF-STAT MEMBERSHIP (defalias 'lyskom-prefetch-handle-conf #[(conf-stat membership) "T\n!T AĜ) AŜ)\\\\\nAǜ)VT A˜)\nAǜ)T AŜ) AĜ)\\\nAǜ)[\\\n &\fT\f " [lyskom-last-conf-received lyskom-visible-membership membership conf-stat 13 14 -1 3 initiate-get-map prefetch lyskom-prefetch-handle-map 0 lyskom-last-conf-done lyskom-prefetch-and-print-prompt] 9 (#$ . 566088)]) #@271 Add info about unread texts in a conf to the lyskom-to-do-list. Args: MAP MEMBERSHIP CONF-STAT. MAP is the mapping from local to global text-nos for (at least) all texts after membership->last-text-read. MEMBERSHIP is info about the user's membership in the conference. (defalias 'lyskom-prefetch-handle-map #[(map membership conf-stat) "T\n \"E AȜ)\f  )Bˉ\f  \f&.B\") " [lyskom-last-conf-done lyskom-list-unread map membership unread read-list-enter-read-info CONF conf-stat 2 texts TEXT-LIST nil forward comm-to text-list priority type READ-INFO vector lyskom-to-do-list lyskom-prefetch-and-print-prompt] 11 (#$ . 566558)]) #@85 Args: MAP MEMBERSHIP. Return a list of unread texts. The list consists of text-nos. (defalias 'lyskom-list-unread #[(map membership) " Aœ) AÜ)\fAŜ)\fAƜ)G\fAƜ) \n \fVkSU1 \\ X1 \\\n\"1\fB\f1\f." [nil membership 3 4 map 0 1 the-map i first read last-read res lyskom-vmemq] 8 (#$ . 567238)]) #@42 Return t if CONF-NO has been prefetched. (defalias 'lyskom-conf-fetched-p #[(conf-no) "\n& Y& Aǜ)U  S\n*" [lyskom-last-conf-received nil result n 0 lyskom-membership membership 1 conf-no t] 3 (#$ . 567599)]) #@66 Make sure that at least lyskom-prefetch-texts texts are fetched. (defalias 'lyskom-prefetch-text #[nil " \nA)\"\fA)\"" [lyskom-prefetch-from-rlist lyskom-prefetch-texts lyskom-reading-list read-list lyskom-to-do-list] 5 (#$ . 567839)]) #@126 Prefetch first N-TEXTS texts from RLIST. Returns number of texts that could not be fetched. RLIST is a list of reading-info. (defalias 'lyskom-prefetch-from-rlist #[(n-texts rlist) "W‡  @Aǜ)A\" A\"" [n-texts 1 0 rlist lyskom-prefetch-from-rlist lyskom-prefetch-from-list read-info 3] 6 (#$ . 568089)]) #@193 Prefetch first N-TEXTS texts from LIST. Returns number of texts that could not be fetched. RLIST is a list of text-nos. Texts whose text-no is present on lyskom-fetched-texts are not fetched. (defalias 'lyskom-prefetch-from-list #[(n-texts list) "- V-@ >$@#@#@ BA S " [list n-texts 0 lyskom-fetched-texts initiate-get-text-stat prefetch lyskom-prefetch-comment-stats initiate-get-text nil] 4 (#$ . 568417)]) #@55 Prefetch the text-stats of the comments to this text. (defalias 'lyskom-prefetch-comment-stats #[(text-stat) "A)\n@AĜ)=)\n@Aɜ)#\n@AĜ)=F\n@A˜)#\n@AĜ)=c\n@A͜)#\n@AĜ)=\n@A)#\n@AĜ)=\n@AĜ)=\n@AҜ)#\nA\f)" [text-stat 6 misc misc-info 0 COMM-IN initiate-get-text-stat prefetch nil 5 FOOTN-IN 7 COMM-TO 4 FOOTN-TO RCPT CC-RCPT initiate-get-conf-stat 1] 6 (#$ . 568859)]) #@53 Return t if ELT is a member of (present in) VECTOR. (defalias 'lyskom-vmemq #[(elt vector) " G\nV \nS \nH= *" [nil vector i found 0 elt t] 3 (#$ . 569330)]) #@249 Read a number from the minibuffer. Args: LOW HIGH &optional PROMPT SHOW-RANGE with default value DEFAULT. The read number must be within the range [LOW HIGH]. If SHOW-RANGE is non-nil, the prompt will include the range for information to the user. (defalias 'lyskom-read-num-range #[(low high &optional prompt show-range default) "SW \nV2\f\f!(\n#)P \" )" [low number high lyskom-read-number prompt lyskom-get-string give-a-number show-range format "(%d-%d) " "" default] 7 (#$ . 569515)]) #@264 Read a number from the minibuffer. Optional arguments: PROMPT DEFAULT If DEFAULT is non-nil, it is written within parenthesis after the prompt. DEFAULT could also be of the type which (interactive P) generates. If quit is typed it executes lyskom-end-of-command. (defalias 'lyskom-read-number #[(&optional prompt default) "<@\fm47! B \"CP!ΘX X $ \"g !$ #\f," [default nil quit numstr number numdefault t lyskom-read-string prompt lyskom-get-string give-a-number format " (%d) " " " "" string-match "\\`[0-9]+\\'" string-to-int beep] 6 (#$ . 570047)]) #@62 Read a string from the minibuffer. Arguments: PROMPT INITIAL (defalias 'lyskom-read-string #[(prompt &optional initial) " \n\f\n!\f\"" [read-string kom-emacs-knows-iso-8859-1 prompt iso-8859-1-to-swascii initial] 3 (#$ . 570686)]) #@187 Same as yes-or-no-p but language-dependent. Uses lyskom-message, lyskom-read-string to do interaction and lyskom-get-string to retrieve regexps for answer and string for repeated query. (defalias 'ja-or-nej-p #[(prompt &optional initial-input) "! \"5! \"5\n%!\"!!P\"! \"*?" ["" nil nagging answer string-match lyskom-get-string yes-regexp no-regexp lyskom-message "%s" yes-or-no-nag sit-for 2 lyskom-read-string prompt yes-or-no initial-input t] 4 (#$ . 570932)]) #@69 Look up the character CHAR in the current local and global keymaps. (defalias 'lyskom-lookup-key #[(char) " ! \n\" \n\")" [vector char tmp lookup-key current-local-map current-global-map] 3 (#$ . 571443)]) #@184 Same as y-or-n-p but language-dependent. Uses lyskom-message, lyskom-read-string to do interaction and lyskom-get-string to retrieve regexps for answer and string for repeated query. (defalias 'j-or-n-p #[(prompt &optional quittable) " !!!\"d =! !=&d 2!3!Q\" B  )=Z !=_r =r !!!\"+??" [0 t nil nagging cursor-in-echo-area input-char string-match regexp-quote char-to-string lyskom-get-string y-or-n-instring 7 lyskom-lookup-key keyboard-quit quittable lyskom-message "%s" j-or-n-nag "" prompt j-or-n beep inhibit-quit read-char quit-flag 12 recenter y-instring] 7 (#$ . 571666)]) #@62 Same as j-or-n-p but performs lyskom-end-of-command if quit. (defalias 'lyskom-j-or-n-p #[(prompt &optional quittable) "" [error (j-or-n-p prompt quittable) ((quit (byte-code "\"" [signal quit "In lyskom-j-or-n-p"] 3)))] 3 (#$ . 572335)]) #@65 Same as ja-or-nej-p but performs lyskom-end-of-command if quit. (defalias 'lyskom-ja-or-nej-p #[(prompt &optional initial-input) "" [error (ja-or-nej-p prompt initial-input) ((quit (byte-code "\"" [signal quit "In lyskom-ja-or-nej-p"] 3)))] 3 (#$ . 572589)]) #@70 Retuns t if A has a higher priority than B. A and B are memberships. (defalias 'lyskom-membership-< #[(a b) "Aœ) Aœ)V" [a membership 2 b] 4 (#$ . 572863)]) (defalias 'impl #[nil "!" [error "Not implemented"] 2]) #@128 Calls a hook with parameters. If HOOK-NAME is bound, it is either a function name or a list of functions to apply to the ARGS. (defalias 'lyskom-call-hook #[(hook-name &rest args) " !! !! !< !\" !\"" [boundp hook-name eval mapcar #[(fn) " \n\"" [apply fn args] 3] apply args] 4 (#$ . 573093)]) #@185 Is this conference visible? Return t is MEMBERSHIPs priority is higher than or equal to lyskom-session-priority and nil otherwise. If MEMBERSHIPs prioriy is 0, it always returns nil. (defalias 'lyskom-visible-membership #[(membership) "A)V\n\fY)" [membership 2 priority 0 lyskom-session-priority] 3 (#$ . 573415)]) #@37 Receive replies from LysKOM server. (defalias 'lyskom-filter #[(proc output) "! pŎȏ+" [sit-for 0 match-data lyskom-filter-old-buffer old-match-data ((byte-code " !\nq" [store-match-data old-match-data lyskom-filter-old-buffer] 2)) error (byte-code "\n+ $\fŜ=\fǜ=+\n\f#+\n\f#\n!q\f\"?VW\fGWW\fGZ\f\"?o?o֎ُ)" [nil lyskom-quit-flag lyskom-debug-communications-to-buffer lyskom-debug-what-i-am-doing output 0 58 1 53 lyskom-debug-insert proc "-----> " process-buffer princ lyskom-unparsed-marker quit-flag inhibit-quit lyskom-string-bytes-missing string-match "\n" lyskom-is-parsing t ((byte-code " !q‡" [process-buffer proc nil lyskom-is-parsing] 2)) error-type (lyskom-parse-unparsed) ((lyskom-parse-incomplete))] 4) ((quit (byte-code "" [t lyskom-quit-flag] 2)))] 3 (#$ . 573749)]) #@40 Handles changes in the lyskom-process. (defalias 'lyskom-sentinel #[(proc sentinel) " \n\" !q!\"\n\"!\f " [delq proc lyskom-sessions-with-unread process-buffer lyskom-start-of-command lyskom-get-string process-signal t lyskom-format-insert closed-connection sentinel mode-line-down mode-line-process beep lyskom-scroll] 3 (#$ . 574629)]) (defalias 'lyskom-debug-insert #[(proc prefix string) " !\n\"8 Ȏ !m\ndb\")\n4db,L\nqdb\")*" [get-buffer-create lyskom-debug-communications-to-buffer-buffer buf get-buffer-window visible win selected-window save-selected-window-window ((select-window save-selected-window-window)) select-window move "\n" format "%s" proc prefix string] 5]) (defalias 'lyskom-really-serious-bug #[nil "!)" [t debug-on-error error "Congratulations! You found a serious bug in lyskom.el.\nPress q to leave this buffer, and please run M-x kom-bug-report afterwards."] 2]) #@158 Arguments: (&rest ARGS). Format ARGS to correct format to send to server. Strings are converted to Hollerith strings. Other objects are converted correctly. (defalias 'lyskom-format-objects #[(&rest args) "\f\"\"" [apply concat mapcar lyskom-format-object args] 5 (#$ . 575601)]) (defalias 'lyskom-format-object #[(object) " ;\f !u  !u Ău \"!!)D!15!)DE\"!!\"\"\"\"\"\"\"\"\"\"\"+\",!" [lyskom-unread-mode-line global-mode-string append ("" lyskom-unread-mode-line) lyskom-sessions-with-unread lyskom-get-string mode-line-unread str kom-emacs-knows-iso-8859-1 iso-8859-1-to-swascii lyskom-sessions-with-unread-letters mode-line-letters " " mapcar #[(pair) "@A@!D" [pair iso-8859-1-to-swascii] 3] lyskom-commands lyskom-swascii-commands lyskom-header-separator lyskom-swascii-header-separator lyskom-header-subject lyskom-swascii-header-subject #[(pair) "@A!B" [pair iso-8859-1-to-swascii] 3] lyskom-filter-actions lyskom-swascii-filter-actions #[(pair) "@A!B" [pair iso-8859-1-to-swascii] 3] lyskom-filter-what lyskom-swascii-filter-what lyskom-set-queue-priority blocking 9 main sending follow deferred 6 background modeline async 3 prefetch 0 string-match "^19" emacs-version lyskom-emacs19-p run-hooks lyskom-after-load-hook] 4)