;ELC ;;; Compiled by eripe839@sunray-1.student.liu.se on Mon Aug 27 08:49:52 2001 ;;; from file /home/eripe839/lyskom-0.46.1/lyskom-0.46.1.el ;;; in Emacs version 20.5.1 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`lyskom-0.46.1.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\300!\203X\302\301!\203X\303\304\305 \"\2032\306W\204X\306U\203& \307W\204X\310U\2032 \311W\204X\303\304\305 \"\204\\\312W\204X\312U\203L \313W\204X\306U\203\\ \314W\203\\\315\316!\210\302\300!\203n\302\301!\203n\306W\203r\315\317!\210\302\207" [emacs-major-version emacs-minor-version boundp string-match "XEmacs" emacs-version 20 4 21 1 19 34 2 error "Emacs 19.34, XEmacs 21.1 or later, or Emacs 20.2 or later is required" "LysKOM was compiled for a newer version of Emacs"] 3) #@39 Version for every file in the client. (defconst lyskom-clientversion-long "$Id: defvar.el,v 44.11 1999/11/19 13:37:43 byers Exp $\n" (#$ . 1150)) (byte-code "\301\302!\210\303B\301\207" [current-load-list provide lyskom kom-dont-read-saved-variables] 2) #@52 List of variables to make local in a LysKOM buffer (defvar lyskom-local-variables nil (#$ . 1412)) #@49 List of hooks to make local in a LysKOM buffer. (defvar lyskom-local-hooks nil (#$ . 1517)) #@55 List of variables that are protected from kill-buffer (defvar lyskom-protected-variables nil (#$ . 1615)) #@52 List of variables inherited from the LysKOM buffer (defvar lyskom-inherited-variables nil (#$ . 1727)) #@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. (defvar lyskom-elisp-variables nil (#$ . 1837)) #@93 These are variables that should be set in the minibuffer by lyskom-with-lyskom-minibuffer. (defvar lyskom-minibuffer-variables nil (#$ . 2040)) #@68 Dynamic binding of values that minibuffer variables are to take on (defvar lyskom-minibuffer-values nil (#$ . 2191)) #@222 Save the values and property list of symbols in VAR-LIST and execute FORMS The symbol value, property list and buffer-local property of all variables is saved before executing FORMS and restored when FORMS have finished. (defalias 'lyskom-save-variables '(macro . #[(var-list &rest forms) "\306\307!\306\310!\306\311!\306\312!\313\n\314\fDD \315\316\nED\315\317\nED \315\320\nEDF\321\322 B\323 \324\325 D\326\325\nDDE\327\325\nD\325 DE\330\325\nD\325DE\331 \332 D\n\332\nD \332 D\332D\257 \257EE,\207" [sym4 sym3 sym2 sym1 var-list forms make-symbol "lyskom-saved-variables" "lyskom-saved-symbols" "lyskom-saved-local" "lyskom-saved-plist" let* quote mapcar 'symbol-value 'symbol-plist #'(lambda (v) (local-variable-p v (current-buffer))) unwind-protect progn while if car make-local-variable set setplist setq cdr] 19 (#$ . 2315)])) (put 'lyskom-save-variables 'edebug-form-spec '(sexp body)) #@72 Run FORMS after ensuring that LysKOM minibuffer variables will be set. (defalias 'lyskom-with-lyskom-minibuffer '(macro . #[(&rest forms) "\301\302\303\304\305BB\306BBE\207" [forms let* ((lyskom-minibuffer-values (mapcar 'symbol-value lyskom-minibuffer-variables))) unwind-protect progn (add-hook 'minibuffer-setup-hook 'lyskom-setup-minibuffer-variables) ((remove-hook 'minibuffer-setup-hook 'lyskom-setup-minibuffer-variables))] 6 (#$ . 3224)])) (put 'lyskom-with-lyskom-minibuffer 'edebug-form-spec '(body)) (defalias 'lyskom-setup-minibuffer-variables #[nil "  \205\304 @!\210 @\n@L\210 A\nA\202*\207" [lyskom-minibuffer-variables lyskom-minibuffer-values vals syms make-local-variable] 2]) #@766 Define a variable with name NAME and initial value VALUE. Remaining args, ARGS may be A string Used as the documentation string for the variable A symbol A predefined property of the variable A list A widget specification for the variable Predefined properties are the following server Save the variable in the elisp block. Implies local. local Make the variable buffer-local. inherited The variable is inherited from parent buffer. Implies protected protected The variable is marked as permanent local. Implies local. minibuffer Inherit the variable as a local variable in the minibuffer. server-hook A hook stored in the server. local-hook A hook variable that is made local in LysKOM buffers. (defalias 'def-kom-var '(macro . #[(name value &rest args) "\306\211\211\211\211\211\2113 \203, @;\203# @\202% @:\203<\307\310\311\3124 @DD\313BBEC\202% @9\203 @\314=\203u\315\316\317\320\3124D\321BBD\317\320\3124D\322BBDE\323\324\3124DEE\323\325\3124DED3\202% @\326=\203\220\323\327\3124DE\323\330\3124DED3\202% @\331=\203\263\332\3124D\333BB\323\334\3124DE\323\335\3124DEE\202% @\336=\203\335\323\337\3124DE\332\3124D\340BB\323\341\3124DE\323\342\3124DEF\202% @\343=\203\360\323\344\3124DEC\202% @\345=\203\323\346\3124DEC\202% @\302=\203\323\347\3124DEC\202%\350\351 @\"\210\202%\350\352 @\"\210 A\211\204\353\354\315\316\355\3124DD\356BB\323\357\3124DEED\36045 F\361\3623 \n\f\257\".BBB\207" [args arglist minibuffer doc-string widget-spec buffer-local nil setq lyskom-custom-variables cons quote (lyskom-custom-variables) server if and not memq (lyskom-global-boolean-variables) (lyskom-global-non-boolean-variables) add-to-list 'lyskom-elisp-variables 'lyskom-local-variables server-hook 'lyskom-elisp-variables 'lyskom-local-hooks protected put ('permanent-local t) 'lyskom-protected-variables 'lyskom-local-variables inherited 'lyskom-inherited-variables ('permanent-local t) 'lyskom-protected-variables 'lyskom-local-variables local 'lyskom-local-variables local-hook 'lyskom-local-hooks 'lyskom-minibuffer-variables error "LysKOM: Unknown variable property: %S" "LysKOM: Strange variable argument type: %S" progn dont-compile boundp ((or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) 'kom-dont-read-saved-variables defvar apply append elisp-block name value] 12 (#$ . 3936)])) (byte-code "\301\302\303\304#\210\305\306!\210\307P\301\207" [lyskom-clientversion-long put def-kom-var edebug-form-spec (&define name form &rest sexp) provide lyskom-defvar "$Id: feature.el,v 1.3 1999/11/19 13:37:56 byers Exp $\n"] 4) (if (and (boundp 'lyskom-feature-defaults) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-feature-defaults)) #@52 Alist with default values of all feature variables (defvar lyskom-feature-defaults nil (#$ . 6871)) (defalias 'lyskom-feature-variable #[(name) "\301\302\303\"!\207" [name intern format "lyskom-%s-feature-flag"] 4]) #@59 Define a feature variable NAME with default value DEFAULT (defalias 'lyskom-define-feature '(macro . #[(name default) "\302\303\304\305\211\306D E\307BBE\310\311! \312BBBE\207" [name default progn setq lyskom-feature-defaults cons quote (lyskom-feature-defaults) def-kom-var lyskom-feature-variable ("LysKOM feature flag variable." inherited minibuffer local)] 7 (#$ . 7094)])) #@40 Set the value of feature NAME to VALUE (defalias 'lyskom-set-feature '(macro . #[(name value) "\302\303! E\207" [name value setq lyskom-feature-variable] 3 (#$ . 7480)])) #@43 Return non-nil if feature NAME is non-nil (defalias 'lyskom-have-feature '(macro . #[(name) "\301!\207" [name lyskom-feature-variable] 2 (#$ . 7658)])) #@34 Return the value of feature NAME (defalias 'lyskom-feature-value '(macro . #[(name) "\301!\207" [name lyskom-feature-variable] 2 (#$ . 7817)])) #@45 Set the feature variables to their defaults (defalias 'lyskom-clear-features #[nil "\301\302\"\207" [lyskom-feature-defaults mapcar #[(feature) "\301@!AL\207" [feature lyskom-feature-variable] 2]] 3 (#$ . 7968)]) #@40 List all feature values. mapcar ROCKS! (defalias 'lyskom-list-features #[nil "\301\302\301\303\304\305\301\306\"\301\307\301\310\301\306\"\"\"#\"\"\207" [lyskom-feature-defaults mapcar lyskom-insert-before-prompt #[(x) "\301\302\303#\207" [x apply format "%S: %S\n"] 4] mapcar2 list car symbol-value lyskom-feature-variable] 14 (#$ . 8190)]) #@52 Non-nil if call CALL-NO is supported by the server (defalias 'lyskom-have-call '(macro . #[(call-no) "\301\302BB\207" [call-no <= ((lyskom-feature-value highest-call))] 3 (#$ . 8541)])) (byte-code "\301\302BB\302\207" [lyskom-feature-defaults bcc-misc nil] 2) (if (and (boundp 'lyskom-bcc-misc-feature-flag) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-bcc-misc-feature-flag)) #@31 LysKOM feature flag variable. (defvar lyskom-bcc-misc-feature-flag nil (#$ . 9033)) (byte-code "\301\302\303\"\210\304\303\305\306#\210\301\307\303\"\210\301\310\303\"\210\301\310\303\"\210\301\311\303\"\210\312\313BB\313\207" [lyskom-feature-defaults add-to-list lyskom-inherited-variables lyskom-bcc-misc-feature-flag put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables aux-items nil] 4) (if (and (boundp 'lyskom-aux-items-feature-flag) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-aux-items-feature-flag)) #@31 LysKOM feature flag variable. (defvar lyskom-aux-items-feature-flag nil (#$ . 9704)) (byte-code "\301\302\303\"\210\304\303\305\306#\210\301\307\303\"\210\301\310\303\"\210\301\310\303\"\210\301\311\303\"\210\312\313BB\301\207" [lyskom-feature-defaults add-to-list lyskom-inherited-variables lyskom-aux-items-feature-flag put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables highest-call 0] 4) (if (and (boundp 'lyskom-highest-call-feature-flag) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-highest-call-feature-flag)) #@31 LysKOM feature flag variable. (defvar lyskom-highest-call-feature-flag 0 (#$ . 10384)) (byte-code "\301\302\303\"\210\304\303\305\306#\210\301\307\303\"\210\301\310\303\"\210\301\310\303\"\210\301\311\303\"\210\312\313BB\313\207" [lyskom-feature-defaults add-to-list lyskom-inherited-variables lyskom-highest-call-feature-flag put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables local-to-global nil] 4) (if (and (boundp 'lyskom-local-to-global-feature-flag) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-local-to-global-feature-flag)) #@31 LysKOM feature flag variable. (defvar lyskom-local-to-global-feature-flag nil (#$ . 11080)) (byte-code "\301\302\303\"\210\304\303\305\306#\210\301\307\303\"\210\301\310\303\"\210\301\310\303\"\210\301\311\303\"\210\312\313BB\313\207" [lyskom-feature-defaults add-to-list lyskom-inherited-variables lyskom-local-to-global-feature-flag put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables dynamic-session-info nil] 4) (if (and (boundp 'lyskom-dynamic-session-info-feature-flag) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-dynamic-session-info-feature-flag)) #@31 LysKOM feature flag variable. (defvar lyskom-dynamic-session-info-feature-flag nil (#$ . 11799)) (byte-code "\301\302\303\"\210\304\303\305\306#\210\301\307\303\"\210\301\310\303\"\210\301\310\303\"\210\301\311\303\"\210\312\313BB\313\207" [lyskom-feature-defaults add-to-list lyskom-inherited-variables lyskom-dynamic-session-info-feature-flag put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables idle-time nil] 4) (if (and (boundp 'lyskom-idle-time-feature-flag) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-idle-time-feature-flag)) #@31 LysKOM feature flag variable. (defvar lyskom-idle-time-feature-flag nil (#$ . 12495)) (byte-code "\301\302\303\"\210\304\303\305\306#\210\301\307\303\"\210\301\310\303\"\210\301\310\303\"\210\301\311\303\"\210\312\313BB\313\207" [lyskom-feature-defaults add-to-list lyskom-inherited-variables lyskom-idle-time-feature-flag put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables long-conf-types nil] 4) (if (and (boundp 'lyskom-long-conf-types-feature-flag) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-long-conf-types-feature-flag)) #@31 LysKOM feature flag variable. (defvar lyskom-long-conf-types-feature-flag nil (#$ . 13187)) (byte-code "\301\302\303\"\210\304\303\305\306#\210\301\307\303\"\210\301\310\303\"\210\301\310\303\"\210\301\311\303\"\210\312\313!\210\314P\301\207" [lyskom-clientversion-long add-to-list lyskom-inherited-variables lyskom-long-conf-types-feature-flag put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables provide lyskom-feature "$Id: vars.el.in,v 44.129 2001/01/03 22:03:05 qha Exp $\n"] 4) #@70 Non-nil if the client was compiled with multibyte characters enabled (defvar lyskom-mule-compiled t (#$ . 13726)) (byte-code "\300\301!\210\302\303\304\"\207" [provide lyskom require lyskom-defvar "defvar"] 3) #@124 List of flags that are to be saved as booleans in the common block. Don't change these. They are defined by the protocol. (defconst lyskom-global-boolean-variables '(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) (#$ . 13943)) #@182 List of flags that are to be saved in the common block. These are the non-boolean ones. See: lyskom-global-boolean-variables. Don't change these. They are defined by the protocol. (defconst lyskom-global-non-boolean-variables '(kom-default-mark) (#$ . 14333)) (defalias 'lyskom-protect-variable #[(sym) "\301\302\303#\210\304!\210\305\306\"\207" [sym put permanent-local t lyskom-local-variable add-to-list lyskom-protected-variables] 4]) (defalias 'lyskom-local-variable #[(sym) "\301\302\"\207" [sym add-to-list lyskom-local-variables] 3]) (defalias 'lyskom-inherited-variable #[(sym) "\301\302\"\210\303!\207" [sym add-to-list lyskom-inherited-variable lyskom-protect-variable] 3]) (defalias 'lyskom-setup-local-variables #[nil "\302\303\"\210\302\304 \"\207" [lyskom-local-variables lyskom-local-hooks mapcar make-local-variable make-local-hook] 3]) #@38 Non-nil when lyskom has been loaded. (defvar lyskom-is-loaded nil (#$ . 15201)) (if (and (boundp 'kom-dont-read-saved-variables) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-dont-read-saved-variables)) #@149 *Non-nil means don't read some variables from the server. t means don't read any variables. A list means don't read variables that are in the list. (defvar kom-dont-read-saved-variables '(kom-dont-read-saved-variables lyskom-login-hook) (#$ . -15513)) (if (and (boundp 'kom-allow-incompleteness) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-allow-incompleteness)) #@201 *If nil, commands like kom-list-news will wait for the prefetch. If this flag is set to t, some commands may give incomplete answers, but it might make them faster, especially during the login phase. (defvar kom-allow-incompleteness nil (#$ . -15987)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-allow-incompleteness add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-bury-buffers) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-bury-buffers)) #@241 *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. (defvar kom-bury-buffers t (#$ . -16675)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-bury-buffers add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-write-texts-in-window) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-write-texts-in-window)) #@443 *Where to edit texts. One of nil, 'other, 'new-frame, 'other-frame, a string or a buffer. nil means edit texts in the same window as the LysKOM buffer. 'other means edit in another window, creating it if necessary. 'other-frame means edit in another frame, if there is one. 'new-frame means create a new frame for editing. The frame will be removed when editing is finished. A string or buffer means edit in the indicated buffer. (defvar kom-write-texts-in-window nil (#$ . -17403)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-write-texts-in-window add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-view-commented-in-window) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-view-commented-in-window)) #@76 *Where to view commented texts. See kom-write-texts-in-window for details. (defvar kom-view-commented-in-window 'other (#$ . -18358)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-view-commented-in-window add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-edit-filters-in-window) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-edit-filters-in-window)) #@77 *Where to edit filters. See kom-write-texts-in-window for more information. (defvar kom-edit-filters-in-window nil (#$ . -18951)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-edit-filters-in-window add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-list-membership-in-window) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-list-membership-in-window)) #@80 *Where to list membership. See kom-write-texts-in-window for more information. (defvar kom-list-membership-in-window 'other (#$ . -19544)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-list-membership-in-window add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-personal-messages-in-window) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-personal-messages-in-window)) #@91 *Where to display personal messages. See kom-write-texts-in-window for more information. (defvar kom-personal-messages-in-window 'other (#$ . -20153)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-personal-messages-in-window add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-customize-format) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-customize-format)) #@57 *Format of the customize buffer. Must be long or short. (defvar kom-customize-format 'long (#$ . -20755)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-customize-format add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-user-prompt-format) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-user-prompt-format)) #@50 *Format of LysKOM prompt when waiting for input. (defvar kom-user-prompt-format "%[%c% %m%] - " (#$ . -21304)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-user-prompt-format add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-user-prompt-format-executing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-user-prompt-format-executing)) #@59 *Format of LysKOM prompt when executing a default command (defvar kom-user-prompt-format-executing "%[%c% %m%]." (#$ . -21880)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-user-prompt-format-executing add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-enabled-prompt-format) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-enabled-prompt-format)) #@48 *Format of LysKOM prompt when in enabled mode. (defvar kom-enabled-prompt-format "%[%c% %m%] # " (#$ . -22469)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-enabled-prompt-format add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-enabled-prompt-format-executing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-enabled-prompt-format-executing)) #@77 *Format of LysKOM prompt when executing a default command in enabled mode. (defvar kom-enabled-prompt-format-executing "%[%c% %m%]." (#$ . -23055)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-enabled-prompt-format-executing add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-anonymous-prompt-format) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-anonymous-prompt-format)) #@56 *Format of the LysKOM prompt when running anonymously. (defvar kom-anonymous-prompt-format "%[%c% %m%] (%a) - " (#$ . -23672)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-anonymous-prompt-format add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-anonymous-prompt-format-executing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-anonymous-prompt-format-executing)) #@68 *Format of the LysKOM prompt when executing a command anonymously. (defvar kom-anonymous-prompt-format-executing "%[%c% %m%] (%a)." (#$ . -24279)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-anonymous-prompt-format-executing add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-show-week-number) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-week-number)) #@64 *If non-nil show the ISO week number when displaying the time. (defvar kom-show-week-number t (#$ . -24882)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-week-number add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-cite-string) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-cite-string)) #@57 *String to insert before each line of a commented text. (defvar kom-cite-string ">" (#$ . -25420)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-cite-string add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-created-texts-are-saved) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-created-texts-are-saved)) #@121 *If non-nil, save all created texts to a file. The value of this variable is the file name on which to save new texts. (defvar kom-created-texts-are-saved nil (#$ . -25968)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-created-texts-are-saved put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-created-texts-are-read) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-created-texts-are-read)) #@66 *Non-nil means automatically mark texts that you create as read. (defvar kom-created-texts-are-read t (#$ . -26752)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-created-texts-are-read add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-customize-in-window) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-customize-in-window)) #@60 *Where to customize LysKOM. See kom-write-texts-in-window. (defvar kom-customize-in-window nil (#$ . -27320)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-customize-in-window add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-prioritize-in-window) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-prioritize-in-window)) #@66 *Where to prioritize conferences. See kom-write-texts-in-window. (defvar kom-prioritize-in-window nil (#$ . -27880)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-prioritize-in-window add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-default-mark) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-default-mark)) #@75 *If non-nil (must be an integer), the user is not asked for type of mark. (defvar kom-default-mark 100 (#$ . -28432)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-default-mark add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-reading-puts-comments-in-pointers-last) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-reading-puts-comments-in-pointers-last)) #@70 *If non-nil, the texts are shown with comment references at the end. (defvar kom-reading-puts-comments-in-pointers-last t (#$ . -29029)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-reading-puts-comments-in-pointers-last put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-postpone-default) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-postpone-default)) #@49 *The number of articles to postpone by default. (defvar kom-postpone-default 17 (#$ . -29778)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-postpone-default add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-dashed-lines) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-dashed-lines)) #@63 *If non-nil, all texts will be surrounded by lines of dashes. (defvar kom-dashed-lines t (#$ . -30304)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-dashed-lines put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-long-lines) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-long-lines)) #@58 *If non-nil, some lines and borders will be made longer. (defvar kom-long-lines nil (#$ . -30982)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-long-lines put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-text-footer-dash-length) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-text-footer-dash-length)) #@257 *If non-nil, the total length of the text footer, when dashes are in use. Note that the footer may end up longer than this if one or more elements together are longer than this length. This length is currently ignored when kom-text-footer-format is used. (defvar kom-text-footer-dash-length 52 (#$ . -31680)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-text-footer-dash-length put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-text-header-dash-length) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-text-header-dash-length)) #@114 *If non-nil, the total length of the dashes before a text body. If kom-dashed-lines is non-nil, this is ignored. (defvar kom-text-header-dash-length 60 (#$ . -32602)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-text-header-dash-length put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-text-footer-format) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-text-footer-format)) #@1301 *If non-nil, this specifies the format of a text footer. The following format directives are legal: %n The text number. %p The number of the author. %P The name of the author %- A bunch of dashes %f Information about the text in parentheses. Format letters can be prefixed with a number specifying the minimum field width. The field width can be prefixed with an equals sign which means that the field is exactly as wide as specified (contents may be truncated). A negative field width means left justify the contents. The field width of %- is special. It specifies the maximum number of dashes printed. The actual number will be the maximum minus the length of the author's name, if it is included anywhere in the format string. When set, this variable overrides kom-dashed-lines and kom-show-author-at-end. The default format is equivalent to the following strings, depending on the settings of kom-dashed-lines and kom-show-author-at-end. kom-dashed-lines kom-show-author-at-end Format t t "(%n) /%P/%42-%f" t nil "(%n) %42-%f" nil t "(%n) /%P/ %f" nil nil "(%n) %f"  (defvar kom-text-footer-format nil (#$ . -33372)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-text-footer-format put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-show-creating-software) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-creating-software)) #@69 *If non-nil, show the creating software of each text, if specified. (defvar kom-show-creating-software nil (#$ . -35326)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-show-creating-software put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-show-author-at-end) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-author-at-end)) #@64 *If non-nil, the author will be shown at the end of each text. (defvar kom-show-author-at-end t (#$ . -36048)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-show-author-at-end put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-truncate-threshold) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-truncate-threshold)) #@156 *If non-nil, truncate long texts when reviewing. If the text is longer (in lines), the threshold it will be truncated to `kom-truncate-show-lines' length. (defvar kom-truncate-threshold nil (#$ . -36756)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-truncate-threshold add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-truncate-show-lines) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-truncate-show-lines)) #@187 *How many lines to show after truncating. If the text is truncated by `kom-truncate-threshold', show this many lines. If this is greater than the threshold, the threshold will be used. (defvar kom-truncate-show-lines 10 (#$ . -37409)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-truncate-show-lines add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-print-number-of-unread-on-entrance) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-print-number-of-unread-on-entrance)) #@92 *If non-nil, print automatically the number of unread articles when entering a conference. (defvar kom-print-number-of-unread-on-entrance t (#$ . -38123)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-print-number-of-unread-on-entrance add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-show-unread-in-frame-title) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-unread-in-frame-title)) #@82 *If non-nil, show an unread indicator in the frame title of each LysKOM session. (defvar kom-show-unread-in-frame-title t (#$ . -38755)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-unread-in-frame-title add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-presence-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-presence-messages)) #@580 *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, no message is printed. A list of integers means show messages for those users. The value 'friends means show messages for the users in kom-friends. The value 'morons means show messages for the users in kom-morons. The value 'friends-and-morons means show messages for the users in kom-friends and kom-morons. If you want the messages in the buffer, you could set the variable kom-presence-messages-in-buffer. (defvar kom-presence-messages t (#$ . -39344)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-presence-messages add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-presence-messages-in-buffer) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-presence-messages-in-buffer)) #@251 *If t, LysKOM prints information about what other people are doing in the buffer. All printing is done just before the prompt. If nil no messages are printed. If 'presence, messages about people logging in, out and people changing name are printed. (defvar kom-presence-messages-in-buffer nil (#$ . -40433)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-presence-messages-in-buffer add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-show-where-and-what) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-where-and-what)) #@97 *Non-nil means kom-who-is-on shows from which machine the user is running and what he is doing. (defvar kom-show-where-and-what t (#$ . -41198)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-where-and-what add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-show-since-and-when) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-since-and-when)) #@89 *Non-nil means kom-who-is-on shows when the user connected and when he last was active. (defvar kom-show-since-and-when nil (#$ . -41791)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-since-and-when add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-idle-hide) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-idle-hide)) #@151 *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'. (defvar kom-idle-hide 30 (#$ . -42359)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-idle-hide add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-show-footnotes-immediately) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-footnotes-immediately)) #@63 *Non-nil means show footnotes immediately following the text. (defvar kom-show-footnotes-immediately t (#$ . -43001)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-footnotes-immediately add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-follow-comments-outside-membership) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-follow-comments-outside-membership)) #@145 *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. (defvar kom-follow-comments-outside-membership nil (#$ . -43605)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-follow-comments-outside-membership add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-follow-attachments) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-follow-attachments)) #@54 *Follow attachments as if they are regular comments. (defvar kom-follow-attachments t (#$ . -44276)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-follow-attachments add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-read-depth-first) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-read-depth-first)) #@74 *Non-nil means read comments and footnotes to a text before other texts. (defvar kom-read-depth-first t (#$ . -44818)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-read-depth-first add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-continuous-scrolling) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-continuous-scrolling)) #@142 *Non-nil means scroll LysKOM window as text is inserted. The last viewed position (generally the most recent prompt) will always be visible. (defvar kom-continuous-scrolling t (#$ . -45385)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-continuous-scrolling add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-deferred-printing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-deferred-printing)) #@136 *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. (defvar kom-deferred-printing t (#$ . -46022)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-deferred-printing add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-defer-indicator) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-defer-indicator)) #@64 String to display while LysKOM is waiting for the real string. (defvar lyskom-defer-indicator "[...]" (#$ . 46648)) (if (and (boundp 'kom-review-priority) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-review-priority)) #@163 *If non-nil, the priority to use when reviewing texts. Set this to 255 or higher to avoid texts and conferences with higher priority to break in while reviewing. (defvar kom-review-priority nil (#$ . -46976)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-review-priority add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-higher-priority-breaks) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-higher-priority-breaks)) #@232 *Non-nil means allow texts from conferences with higher priority to break in. If the value is 'express, texts are allowed to break in the middle of a comment chain. Otherwise we don't let them in until the end of the comment tree. (defvar kom-higher-priority-breaks nil (#$ . -47636)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-higher-priority-breaks add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-server-priority-breaks) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-server-priority-breaks)) #@934 *Non-nil means allow servers with a higher priority to break in. Valid values are 'express, 'express-letters, 'letters, 'after-conf, 'after-conf-letters, t and 'when-done. 'express means break immediately when a text arrives in a prioritized session. 'express-letters means break immediately when a letter arrives in a prioritized session. t means break after the current comment chain when a text arrives in a prioritized session. 'letters means break after the current comment chain when a letter arrives in a prioritized session. 'after-conf means break after the current conference when a text arrives in a prioritized session. 'after-conf-letters means break after the current conference when a letter arrives in a prioritized session. 'when-done means prompt user to go to the next session with unreads after everything has been read. This overrides kom-do-when-done as long as there are sessions with unread texts.  (defvar kom-server-priority-breaks nil (#$ . -48379)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-server-priority-breaks add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-view-text-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-view-text-hook)) #@207 *Hook that is called before a text is shown. When the hooks are called, lyskom-view-text-text is bound to the text mass of the text and lyskom-view-text-text-stat to the text-stat of the text to be shown. (defvar lyskom-view-text-hook nil (#$ . -49814)) (add-to-list 'lyskom-local-hooks 'lyskom-view-text-hook) (if (and (boundp 'lyskom-send-message-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-send-message-hook)) #@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 '(lyskom-send-message-trim-newlines) (#$ . -50348)) (add-to-list 'lyskom-local-hooks 'lyskom-send-message-hook) (if (and (boundp 'lyskom-send-message-setup-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-send-message-setup-hook)) #@72 *Hook that is called when the minibuffer is entered to read a message. (defvar lyskom-send-message-setup-hook nil (#$ . -51100)) (add-to-list 'lyskom-local-hooks 'lyskom-send-message-setup-hook) (if (and (boundp 'lyskom-send-message-exit-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-send-message-exit-hook)) #@77 *Hook that is called when the minibuffer is exited after reading a message. (defvar lyskom-send-message-exit-hook nil (#$ . -51526)) (add-to-list 'lyskom-local-hooks 'lyskom-send-message-exit-hook) (if (and (boundp 'lyskom-send-text-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-send-text-hook)) #@132 *Hook that is called before sending a text. Hook functions return t to signal success and nil to prevent the text from being sent. (defvar lyskom-send-text-hook nil (#$ . -51940)) (add-to-list 'lyskom-local-hooks 'lyskom-send-text-hook) (if (and (boundp 'lyskom-after-load-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-after-load-hook)) #@43 *Hook to run once after LysKOM is loaded. (defvar lyskom-after-load-hook nil (#$ . -52394)) (if (and (boundp 'lyskom-change-conf-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-change-conf-hook)) #@178 *Hook to run when changing conferences. The functions in this list are run with two arguments. The first is the current conf-no and the second is the conf-no being changed to. (defvar lyskom-change-conf-hook nil (#$ . -52706)) (add-to-list 'lyskom-local-hooks 'lyskom-change-conf-hook) (if (and (boundp 'lyskom-login-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-login-hook)) #@175 *What to do when logged in. This hook is called after we have logged in but before any command is accepted from the keyboard. It is called immediately before kom-login-hook. (defvar lyskom-login-hook nil (#$ . -53201)) (add-to-list 'lyskom-local-hooks 'lyskom-login-hook) (if (and (boundp 'kom-login-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-login-hook)) #@180 *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. (defvar kom-login-hook nil (#$ . -53675)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-login-hook add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-confirm-add-recipients) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-confirm-add-recipients)) #@69 *When non-nil, offer to add cc-recipient instead of full recipient. (defvar kom-confirm-add-recipients t (#$ . -54341)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-confirm-add-recipients add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-do-when-done) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-do-when-done)) #@498 *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 "Command:" (name of function or definition of lambda expression) keyboard macro "Command:" (keyboard macro definition) (defvar kom-do-when-done '(kom-review-all-marked-texts kom-display-time) (#$ . -54899)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-do-when-done add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-page-before-command) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-page-before-command)) #@145 *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. (defvar kom-page-before-command nil (#$ . -55926)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-page-before-command add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-permissive-completion) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-permissive-completion)) #@153 *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. (defvar kom-permissive-completion t (#$ . -56574)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-permissive-completion add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-unsubscribe-makes-passive) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-unsubscribe-makes-passive)) #@133 *If non-nil subtracting oneself from a conference makes the membership passive. A second leave will actually remove the membership. (defvar kom-unsubscribe-makes-passive t (#$ . -57240)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-unsubscribe-makes-passive add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-membership-default-priority) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-membership-default-priority)) #@204 *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. (defvar kom-membership-default-priority 'ask (#$ . -57898)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-membership-default-priority add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-membership-default-placement) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-membership-default-placement)) #@261 *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 conference is entered after all conferences. (defvar kom-membership-default-placement 'last (#$ . -58636)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-membership-default-placement add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-current-prompt) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-prompt)) #@165 The current prompt or nil. This is either nil, indicating that there is currently no prompt, or a symbol indicating which command is prompted in the LysKOM buffer. (defvar lyskom-current-prompt nil (#$ . 59412)) (add-to-list 'lyskom-local-variables 'lyskom-current-prompt) (if (and (boundp 'lyskom-current-prompt-text) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-prompt-text)) #@161 The current prompt text or nil. This is either nil, indicating that there is currently no prompt, or a string indicating the prompt shown in the LysKOM buffer. (defvar lyskom-current-prompt-text nil (#$ . 59911)) (add-to-list 'lyskom-local-variables 'lyskom-current-prompt-text) (if (and (boundp 'lyskom-current-prompt-args) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-prompt-args)) #@85 The current prompt arguments These are arguments used to format the current prompt. (defvar lyskom-current-prompt-args nil (#$ . 60415)) (add-to-list 'lyskom-local-variables 'lyskom-current-prompt-args) (if (and (boundp 'lyskom-need-prompt-update) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-need-prompt-update)) #@44 Non-nil if all prompts need to be updated. (defvar lyskom-need-prompt-update nil (#$ . 60841)) (add-to-list 'lyskom-local-variables 'lyskom-need-prompt-update) (if (and (boundp 'kom-show-personal-messages-in-buffer) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-personal-messages-in-buffer)) #@225 *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. (defvar kom-show-personal-messages-in-buffer t (#$ . -61247)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-personal-messages-in-buffer add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-pop-personal-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-pop-personal-messages)) #@137 *Non-nil means pop up a buffer with personal messages as they arrive. kom-show-personal-messages-in-buffer decides which buffer to pop. (defvar kom-pop-personal-messages nil (#$ . -61999)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-pop-personal-messages add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ding-pause-amount) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ding-pause-amount)) #@51 *Amount of time to wait between successive beeps. (defvar kom-ding-pause-amount 0.1 (#$ . -62634)) (if (and (boundp 'kom-ding-on-new-letter) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ding-on-new-letter)) #@111 *Non-nil means ding if a message arrives in the letter box. See kom-ding-on-priority-break for valid values. (defvar kom-ding-on-new-letter nil (#$ . -62951)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ding-on-new-letter add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ding-on-priority-break) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ding-on-priority-break)) #@183 *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. (defvar kom-ding-on-priority-break 1 (#$ . -63565)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ding-on-priority-break add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ding-on-wait-done) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ding-on-wait-done)) #@208 *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. (defvar kom-ding-on-wait-done 1 (#$ . -64247)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ding-on-wait-done add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ding-on-common-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ding-on-common-messages)) #@421 *Non-nil means ding as alarm 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. A list consisting of pairs (KEY . VALUE) is used for fine-grained control. The list is searched for a pair where KEY matches the sender identity. The corresponding VALUE is used as the specification on how to beep. (defvar kom-ding-on-common-messages 0 (#$ . -64956)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ding-on-common-messages add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ding-on-group-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ding-on-group-messages)) #@423 *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. A list consisting of pairs (KEY . VALUE) is used for fine-grained control. The list is searched for a pair where KEY matches the recipient identity. The corresponding VALUE is used as the specification on how to beep. (defvar kom-ding-on-group-messages 1 (#$ . -65888)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ding-on-group-messages add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ding-on-personal-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ding-on-personal-messages)) #@423 *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. A list consisting of pairs (KEY . VALUE) is used for fine-grained control. The list is searched for a pair where KEY matches the sender identity. The corresponding VALUE is used as the specification on how to beep. (defvar kom-ding-on-personal-messages 2 (#$ . -66826)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ding-on-personal-messages add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ding-on-no-subject) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ding-on-no-subject)) #@217 *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. (defvar kom-ding-on-no-subject 2 (#$ . -67756)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ding-on-no-subject add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-audio-player) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-audio-player)) #@31 *Program to play audio files. (defvar kom-audio-player "audioplay" (#$ . -68453)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-audio-player add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ignore-message-senders) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ignore-message-senders)) #@72 *List of senders whose personal, group and alarm messages are ignored. (defvar kom-ignore-message-senders nil (#$ . -68982)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ignore-message-senders add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ignore-message-recipients) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ignore-message-recipients)) #@56 *List of recipients you do not want group messages to. (defvar kom-ignore-message-recipients nil (#$ . -69570)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ignore-message-recipients add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-show-personal-message-date) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-personal-message-date)) #@45 *Show date on personal messages is non-nil. (defvar kom-show-personal-message-date t (#$ . -70150)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-personal-message-date add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-default-message-recipient) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-default-message-recipient)) #@409 *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. (defvar kom-default-message-recipient 'group (#$ . -70718)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-default-message-recipient add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-filter-outgoing-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-filter-outgoing-messages)) #@101 *t if outgoing remote-control messages and automatic replies are not to be displayed in the buffer. (defvar lyskom-filter-outgoing-messages t (#$ . -71657)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables lyskom-filter-outgoing-messages add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-friends) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-friends)) #@73 *List of people whose names should be formatted using kom-friends-face. (defvar kom-friends nil (#$ . -72246)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-friends add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-morons) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-morons)) #@72 *List of people whose names should be formatted using kom-morons-face. (defvar kom-morons nil (#$ . -72767)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-morons add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-dont-check-commented-authors) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-dont-check-commented-authors)) #@133 *List of recipients who do not need to be added to comments that they might not see. Typically this list consists of import agents. (defvar kom-dont-check-commented-authors nil (#$ . -73330)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-dont-check-commented-authors put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'kom-default-face-scheme) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-default-face-scheme)) #@49 *Face scheme to use per default for new logins. (defvar kom-default-face-scheme nil (#$ . -74130)) (if (and (boundp 'kom-smileys) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-smileys)) #@45 *Non-nil means to reformat smileys in text. (defvar kom-smileys t (#$ . -74424)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-smileys add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-text-properties) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-text-properties)) #@91 *Non-nil means to insert text properties in the Emacs buffer for various LysKOM elements. (defvar kom-text-properties t (#$ . -74933)) (if (and (boundp 'kom-use-button-hints) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-use-button-hints)) #@65 *Non-nil means use button hints for overriding default actions. (defvar kom-use-button-hints t (#$ . -75281)) (if (and (boundp 'kom-autowrap) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-autowrap)) #@117 *Non-nil means auto wrap articles with discretion. A number means wrap articles shorter than the number (in bytes). (defvar kom-autowrap t (#$ . -75589)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-autowrap add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-keep-alive-interval) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-keep-alive-interval)) #@81 *The number of seconds between periodic requests used to keep the session alive (defvar kom-keep-alive-interval 180 (#$ . -76180)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-keep-alive-interval add-to-list lyskom-elisp-variables lyskom-local-variables] 3) #@116 Dynamically bound to non-nil when transforming text in which text, conference and person buttons are not expected. (defvar lyskom-transforming-external-text nil (#$ . 76547)) (if (and (boundp 'lyskom-url-protocol-regexp) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-url-protocol-regexp)) #@45 Regexp to match the protocol part of a URL. (defvar lyskom-url-protocol-regexp "\\(file\\|ftp\\|gopher\\|http\\|https\\|news\\|wais\\|mailto\\|telnet\\):" (#$ . 76947)) (if (and (boundp 'lyskom-text-buttons) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-text-buttons)) #@525 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 be used as the button argument. FACE is the text face to apply to the button, or nil to use the default face. (defvar lyskom-text-buttons '(("\\(\\<[0-9][0-9][0-9][0-9]\\([0-9]\\)?\\([0-9]\\)?\\([0-9]\\)?\\>\\)" text 0 1 nil) ("\\(\\b\\|^\\)[^()<>@,;:\"\\\\- ]+@[^- <>;,.'\"!:?) \n\f]+\\(\\.[^- <>;,.'\"!:?)]+\\)+" email 0 0 kom-url-face) ("\\(www\\|ftp\\|home\\)\\.[^ \n\f\"<>|\\]*[^ \n\f\"<>|.,!(){}?'`:]" pseudo-url 0 nil kom-url-face) ("\\(file://\\|ftp://\\|gopher://\\|http://\\|https://\\|news:\\|wais://\\|mailto:\\|telnet:\\)[^ \n\f\"<>|\\]*[^ \n\f\"<>|.,!(){}?'`:]" url 0 nil kom-url-face) ("]*\\)\\s-*>" url 1 1 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) ("\\*Note[ \n ]+\\([^:\n]*\\(\n[^:\n]*\\)?\\):\\s-*\\(\\(([^)]+)\\)?[^., \n]*\\(\n[^., \n]*\\)?\\)[., ]" info-node 1 3 kom-url-face)) (#$ . 77328)) (if (and (boundp 'kom-url-viewer-preferences) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-url-viewer-preferences)) #@591 *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 a 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. (defvar kom-url-viewer-preferences '("emacs" "windows" "w3") (#$ . -78933)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-url-viewer-preferences add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-url-managers) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-url-managers)) #@441 List of URL managers. Each element is a list consisting of (MANAGER-REGEXP PROTOCOLS NAME VIEW-FUNCTION). When LysKOM attempts to view a 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. (defvar kom-url-managers '(("default" ".*" "Browse-URL" lyskom-view-url-browse-url) ("w3" "\\(http\\|gopher\\|ftp\\)" "Emacs W3" lyskom-view-url-w3) ("windows" ".*" "web browser" lyskom-view-url-windows) ("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\\|telnet\\)" "NCSA Mosaic" lyskom-view-url-mosaic) ("lynx" "\\(http\\|gopher\\|ftp\\|mailto\\|news\\|wais\\|file\\|telnet\\)" "Lynx" lyskom-view-url-lynx)) (#$ . 80037)) (if (and (boundp 'kom-mosaic-command) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-mosaic-command)) #@34 *Command to run to start Mosaic. (defvar kom-mosaic-command "/usr/local/bin/mosaic" (#$ . -81412)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-mosaic-command add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-netscape-command) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-netscape-command)) #@377 *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") (defvar kom-netscape-command "netscape" (#$ . -81949)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-netscape-command add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-lynx-terminal) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-lynx-terminal)) #@123 *Where to start Lynx. Valid values are 'xterm (start Lynx in an xterm) and 'terminal (start Lynx in Emacs terminal mode). (defvar kom-lynx-terminal 'xterm (#$ . -82814)) (if (and (boundp 'kom-lynx-xterm-command) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-lynx-xterm-command)) #@262 *Command to run to start Lynx in an xterm. Must be a list of strings, where the first element is the name of the xterm program, and the remaining elements are arguments to the xterm. The last elements should be "-e" "lynx", or something similar, to start Lynx. (defvar kom-lynx-xterm-command '("xterm" "-geometry" "90x50+100+100" "-e" "lynx") (#$ . -83202)) (if (and (boundp 'kom-lynx-terminal-command) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-lynx-terminal-command)) #@207 *Command to run Lynx in Emacs terminal mode. This can be either a string, to start Lynx with no arguments, or a list of strings, where the first element is the command, and the rest are arguments to Lynx. (defvar kom-lynx-terminal-command "lynx" (#$ . -83784)) (if (and (boundp 'kom-confirm-multiple-recipients) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-confirm-multiple-recipients)) #@288 *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. (defvar kom-confirm-multiple-recipients 'after (#$ . -84282)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-confirm-multiple-recipients add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-check-for-new-comments) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-check-for-new-comments)) #@307 *Non-nil means check that no new comments have been written to a commented texts since the last check. A list means check in all conferences except those listed. A function means call the function and check if non-nil is returned. The function is called with the commented text's text-stat as an argument. (defvar kom-check-for-new-comments t (#$ . -85094)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-check-for-new-comments add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-check-commented-author-membership) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-check-commented-author-membership)) #@161 *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. (defvar kom-check-commented-author-membership t (#$ . -85932)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-check-commented-author-membership add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-inhibit-typeahead) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-inhibit-typeahead)) #@88 *If non-nil, discard keyboard input that arrives while a LysKOM command is executing.  (defvar kom-inhibit-typeahead nil (#$ . -86613)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-inhibit-typeahead add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-max-buffer-size) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-max-buffer-size)) #@67 *If non-nil, ensure that buffers won't grow any larger than this. (defvar kom-max-buffer-size nil (#$ . -87187)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-max-buffer-size add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-print-complex-dates) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-print-complex-dates)) #@63 If non-nil, print today and yesterday using a special format. (defvar lyskom-print-complex-dates t (#$ . 87750)) (if (and (boundp 'kom-show-namedays) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-namedays)) #@121 *Non-nil means display namedays when running in Swedish. This variable will eventually be replaced with something else. (defvar kom-show-namedays nil (#$ . -88071)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-namedays add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-www-proxy) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-www-proxy)) #@645 *Non-nil indicates a WWW proxy to use for the connection. This is useful behind a firewall if the proxy supports the CONNECT method. If this variable is a string, it is assumed to be a proxy specification for all LysKOM servers. If it is a list, it is assumed to be a list of pairs, (SERVER . PROXY), where SERVER is the server for which PROXY specification is to be used. The special value t can be used for SERVER to indicate a default proxy. A proxy specification has the form "HOST:PORT" where HOST is the host name of the proxy and PORT is the port to connect to. The :PORT part is optional. If it is not specified, port 80 is assumed. (defvar kom-www-proxy nil (#$ . -88659)) (if (and (boundp 'kom-www-proxy-headers) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-www-proxy-headers)) #@464 *Headers to send to the proxy when connecting to LysKOM through a WWW proxy. The value of this variable should either be a single string, which is sent verbatim to the proxy, or a list of strings which will be sent to the proxy separated by CRLF, or a list of elements like (NAME H1 H2 ... Hn) where NAME is the name of a proxy and the remaining elements are headers to send when connecting through that proxy. Do not use this variable for proxy authentication. (defvar kom-www-proxy-headers "User-Agent: Mozilla/4.7C-CCK-MCD [en] (X11; I; SunOS 5.6 sun4u)" (#$ . -89560)) (if (and (boundp 'kom-server-aliases) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-server-aliases)) #@66 *An alist mapping server names to shorter identification strings (defvar kom-server-aliases '(("kom.lysator.liu.se" . "LysKOM") ("kom.ludd.luth.se" . "LuddKOM") ("kom.hem.liu.se" . "RydKOM") ("kom.csd.uu.se" . "CSD-KOM") ("striterax.medio.mh.se" . "MedioKOM") ("kom.mds.mdh.se" . "MdS-KOM") ("kom.stacken.kth.se" . "TokKOM") ("com.helsinki.fi" . "HelKOM") ("kom.cd.chalmers.se" . "CD-KOM") ("community.roxen.com" . "Roxen Community KOM")) (#$ . -90344)) (if (and (boundp 'kom-ansaphone-on) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ansaphone-on)) #@60 t if automatic replies to personal messages are in effect. (defvar kom-ansaphone-on nil (#$ . 91003)) (add-to-list 'lyskom-local-variables 'kom-ansaphone-on) (if (and (boundp 'kom-silent-ansaphone) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-silent-ansaphone)) #@71 *Non-nil if messages should not cause beeps when the ansaphone is on. (defvar kom-silent-ansaphone nil (#$ . -91374)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-silent-ansaphone add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ansaphone-record-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ansaphone-record-messages)) #@56 *t if messages are recorded while the ansaphone is on. (defvar kom-ansaphone-record-messages t (#$ . -91949)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ansaphone-record-messages add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ansaphone-show-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ansaphone-show-messages)) #@56 *t if messages are to be shown when they are recorded. (defvar kom-ansaphone-show-messages t (#$ . -92521)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ansaphone-show-messages add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-ansaphone-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-ansaphone-messages)) #@111 Messages collected by the automatic reply facility. The most recent message is the first message in the list. (defvar lyskom-ansaphone-messages nil (#$ . 93086)) (add-to-list 'lyskom-local-variables 'lyskom-ansaphone-messages) (if (and (boundp 'lyskom-ansaphone-when-set) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-ansaphone-when-set)) #@48 Time when the auto-reply facility was enabled. (defvar lyskom-ansaphone-when-set (current-time-string) (#$ . 93536)) (add-to-list 'lyskom-local-variables 'lyskom-ansaphone-when-set) (if (and (boundp 'kom-remote-control) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-remote-control)) #@42 *t if LysKOM may be remotely controlled. (defvar kom-remote-control t (#$ . -93927)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-remote-control add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-remote-controllers) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-remote-controllers)) #@145 *Persons who may control LysKOM using messages. By default you can always control your own sessions. See kom-self-control for more information. (defvar kom-remote-controllers nil (#$ . -94454)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-remote-controllers add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-self-control) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-self-control)) #@116 *If non-nil, remote control commands are accepted from sessions logged in as the same user as the current session. (defvar kom-self-control t (#$ . -95082)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-self-control add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ansaphone-replies) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ansaphone-replies)) #@862 *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. (defvar kom-ansaphone-replies '((group nil nil nil nil) (common nil nil nil nil)) (#$ . -95677)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ansaphone-replies add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-agree-text) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-agree-text)) #@341 *If non-nil, the default text to use when agreeing with a text. This variable can be a string, function or list. If a string, the string is used as the message. If a function, the function is called and the return value is used. If a list, one of the elements is selected at random and used. This element may be a string, function or list. (defvar kom-agree-text nil (#$ . -97064)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-agree-text add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-default-language) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-default-language)) #@42 *Which language to use for new sessions. (defvar kom-default-language nil (#$ . -97879)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\2046\304 >\2046\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-default-language put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'lyskom-language) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-language)) #@32 The language currently in use. (defvar lyskom-language kom-default-language (#$ . 98605)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-language put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-edit-mode-map) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-edit-mode-map)) #@27 Mode map for LysKOM edit. (defvar lyskom-edit-mode-map nil (#$ . 99204)) (add-to-list 'lyskom-local-variables 'lyskom-edit-mode-map) (if (and (boundp 'lyskom-edit-prefix) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-edit-prefix)) #@32 Mode map for LysKOM edit mode. (defvar lyskom-edit-prefix nil (#$ . 99546)) (if (and (boundp 'lyskom-customize-map) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-customize-map)) #@33 Keymap for the customize buffer (defvar lyskom-customize-map nil (#$ . 99835)) (add-to-list 'lyskom-local-variables 'lyskom-customize-map) (if (and (boundp 'lyskom-command-alternatives) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-command-alternatives)) #@31 Possible command completions. (defvar lyskom-command-alternatives nil (#$ . 100201)) (byte-code "\300\301\302\"\210\300\303\302\"\207" [add-to-list lyskom-local-variables lyskom-command-alternatives lyskom-minibuffer-variables] 3) (if (and (boundp 'kom-trim-buffer-minimum) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-trim-buffer-minimum)) #@89 *This number of bytes rounded to a whole line is the amount of text trimmed each time . (defvar kom-trim-buffer-minimum 4096 (#$ . -100651)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-trim-buffer-minimum add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-onoff-table) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-onoff-table)) #@47 A completion table for on and off selections. (defvar lyskom-onoff-table nil (#$ . 101230)) (add-to-list 'lyskom-local-variables 'lyskom-onoff-table) (if (and (boundp 'lyskom-language-codes) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-language-codes)) #@34 A list of ISO 639 language codes (defvar lyskom-language-codes nil (#$ . 101595)) (byte-code "\300\301\302\"\210\303\302\304\305#\207" [add-to-list lyskom-local-variables lyskom-language-codes put lyskom-language-force t] 4) (if (and (boundp 'lyskom-filter-predicate-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-filter-predicate-list)) #@47 A list of legal filter comparison predicates. (defvar lyskom-filter-predicate-list nil (#$ . 102049)) (add-to-list 'lyskom-local-variables 'lyskom-filter-predicate-list) (if (and (boundp 'lyskom-filter-what) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-filter-what)) #@69 A list of legal filter conditions and their textual representation. (defvar lyskom-filter-what nil (#$ . 102428)) (add-to-list 'lyskom-local-variables 'lyskom-filter-what) (if (and (boundp 'lyskom-filter-actions) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-filter-actions)) #@65 A list of legal filter actions an their textual representation. (defvar lyskom-filter-actions nil (#$ . 102815)) (add-to-list 'lyskom-local-variables 'lyskom-filter-actions) (if (and (boundp 'lyskom-filter-edit-map) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-filter-edit-map)) #@32 Keymap for LysKOM filter edit. (defvar lyskom-filter-edit-map nil (#$ . 103206)) (add-to-list 'lyskom-local-variables 'lyskom-filter-edit-map) (if (and (boundp 'lyskom-prioritize-mode-map) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-prioritize-mode-map)) #@40 Keymap used in lyskom-prioritize-mode. (defvar lyskom-prioritize-mode-map nil (#$ . 103574)) (add-to-list 'lyskom-local-variables 'lyskom-prioritize-mode-map) (if (and (boundp 'lyskom-prioritize-header-lines) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-prioritize-header-lines)) #@61 Number of lines in the header of the prioritization buffer. (defvar lyskom-prioritize-header-lines nil (#$ . 103966)) (add-to-list 'lyskom-local-variables 'lyskom-prioritize-header-lines) (if (and (boundp 'lyskom-prioritize-header) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-prioritize-header)) #@41 Header for the reprioritization buffer. (defvar lyskom-prioritize-header nil (#$ . 104375)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-prioritize-header put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'kom-ansaphone-default-reply) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ansaphone-default-reply)) #@52 *Default message to send when the ansaphone is on. (defvar kom-ansaphone-default-reply nil (#$ . -104924)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-ansaphone-default-reply add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-ispell-dictionary) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-ispell-dictionary)) #@40 *Dictionary to use for spell checking. (defvar kom-ispell-dictionary nil (#$ . -105479)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-ispell-dictionary put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'lyskom-button-actions) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-button-actions)) #@1241 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 "lyskom-add-button-action". (defvar lyskom-button-actions '((text text-popup-title lyskom-button-view-text ((lyskom-button-view-text-action . lyskom-button-view-text) (lyskom-button-review-noconversion-action . lyskom-button-review-noconversion) (lyskom-button-review-tree-action . lyskom-button-review-tree) (lyskom-button-find-root-action . lyskom-button-find-root) (lyskom-button-comment-text-action . lyskom-button-comment-text) (lyskom-button-private-comment-text-action . lyskom-button-private-comment-text) (lyskom-button-mark-text-action . lyskom-button-mark-text) (lyskom-button-unmark-text-action . lyskom-button-unmark-text) (lyskom-button-save-text-action . lyskom-button-save-text) (lyskom-button-save-text-body-action . lyskom-button-save-text-body)) nil) (conf conf-popup-title lyskom-button-view-conf-presentation ((lyskom-button-view-conf-presentation-action . lyskom-button-view-conf-presentation) (lyskom-button-view-conf-status-action . lyskom-button-view-conf-status) (lyskom-button-goto-conf-action . lyskom-button-goto-conf) (lyskom-button-send-message-action . lyskom-button-send-message) (lyskom-button-add-self-action . lyskom-button-add-self) (lyskom-button-sub-self-action . lyskom-button-sub-self)) ((kom-list-news . lyskom-button-goto-conf) (kom-membership . lyskom-button-goto-conf))) (pers pers-popup-title lyskom-button-view-pers-presentation ((lyskom-button-view-pers-presentation-action . lyskom-button-view-pers-presentation) (lyskom-button-view-pers-status-action . lyskom-button-view-pers-status) (lyskom-button-mail-action . lyskom-button-mail) (lyskom-button-send-message-action . lyskom-button-send-message)) nil) (url url-popup-title lyskom-button-open-url ((lyskom-button-open-url-action . lyskom-button-open-url) (lyskom-button-copy-url-action . lyskom-button-copy-url)) nil) (info-node generic-popup-title lyskom-button-goto-info-node ((lyskom-button-goto-info-node-action . lyskom-button-goto-info-node)) nil) (email generic-popup-title lyskom-button-open-email ((lyskom-button-open-email-action . lyskom-button-open-email) (lyskom-button-copy-email-action . lyskom-button-copy-email)) nil) (aux aux-popup-title lyskom-button-info-aux ((lyskom-button-info-aux-action . lyskom-button-info-aux) (lyskom-button-delete-aux-action . lyskom-button-delete-aux)) nil) (aux-edit-menu nil aux-edit-menu-text ((lyskom-edit-toggle-secret-aux-action . lyskom-edit-toggle-secret-aux) (lyskom-edit-toggle-anonymous-aux-action . lyskom-edit-toggle-anonymous-aux) (lyskom-edit-toggle-inherit-aux-action . lyskom-edit-toggle-inherit-aux) (lyskom-edit-delete-aux-action . lyskom-edit-delete-aux)) nil) (prioritize-flag-menu nil lyskom-prioritize-flag-toggle ((lyskom-prioritize-flag-toggle-action . lyskom-prioritize-flag-toggle) (lyskom-prioritize-flag-set-action . lyskom-prioritize-flag-set) (lyskom-prioritize-flag-clear-action . lyskom-prioritize-flag-clear)) nil) (func nil lyskom-button-apply nil nil)) (#$ . 106163)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-button-actions put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'kom-show-imported-envelope-sender) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-imported-envelope-sender)) #@75 *If non-nil, show the envelope sender of texts imported by komimportmail. (defvar kom-show-imported-envelope-sender t (#$ . -110811)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-imported-envelope-sender add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-show-imported-importer) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-imported-importer)) #@65 *If non-nil, show the name of the importer of an imported text. (defvar kom-show-imported-importer t (#$ . -111409)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-imported-importer add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-show-imported-external-recipients) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-show-imported-external-recipients)) #@64 *If non-nil, show the external recipients to an imported text. (defvar kom-show-imported-external-recipients t (#$ . -112005)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-show-imported-external-recipients add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-complete-numbers-before-names) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-complete-numbers-before-names)) #@293 *If non-nil, reading conference and user names accepts the special forms ``m 4711'' or ``p 42'' as numeric references to conference 4711 and person 42 instead of trying to look for an object with a matching name. If nil, any name matching the input will be preferred to a numeric reference. (defvar kom-complete-numbers-before-names t (#$ . -112615)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-complete-numbers-before-names add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-mercial) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-mercial)) #@187 *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. (defvar kom-mercial nil (#$ . -113402)) (byte-code "\304>\204\304 >\204\305\306\304\"\210\305\307\304\"\210\310\302 B\304\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables lyskom-commands current-load-list kom-mercial add-to-list lyskom-elisp-variables lyskom-local-variables (describe-mode kom-slow-mode kom-quick-mode kom-send-message kom-create-conf kom-delete-conf kom-delete-text kom-display-time kom-go-to-conf kom-go-to-next-conf kom-jump kom-list-created-conferences kom-list-conferences kom-list-persons kom-list-news kom-list-re kom-membership kom-list-marks kom-postpone kom-set-session-priority kom-prioritize kom-status-person kom-status-conf kom-add-self kom-change-priority kom-list-summary kom-sub-self kom-quit kom-recover kom-start-anew kom-view kom-find-root-review kom-review-comments kom-review-tree kom-review-clear kom-review-last-normally-read kom-review-noconversion kom-review-next kom-find-root kom-review-by-to kom-review-more kom-review-first kom-review-all kom-view-commented-text kom-view-previous-commented-text kom-review-stack kom-review-presentation kom-review-backward kom-view-next-text kom-who-is-on kom-who-is-on-in-conference kom-who-am-i kom-list-clients kom-busy-wait kom-write-comment kom-comment-previous kom-write-footnote kom-private-answer kom-private-answer-previous kom-set-unread kom-write-text kom-send-letter kom-change-name kom-change-parenthesis kom-change-password kom-change-supervisor kom-change-presentation kom-get-appreciation kom-get-abuse kom-mark-text kom-unmark-text kom-review-marked-texts kom-review-all-marked-texts kom-add-recipient kom-add-copy kom-add-bcc kom-sub-recipient kom-move-text kom-add-comment kom-sub-comment kom-add-member kom-sub-member kom-change-conf-motd kom-set-garb-nice kom-set-super-conf kom-set-permitted-submitters kom-unset-conf-motd kom-save-text kom-save-text-body kom-save-options kom-shutdown-server kom-sync-database kom-enable-adm-caps kom-disable-adm-caps kom-set-motd kom-remove-motd kom-force-logout kom-filter-author kom-filter-subject kom-filter-text kom-super-jump kom-filter-edit kom-list-filters kom-show-user-area kom-change-conf-type kom-change-auto-reply kom-toggle-auto-reply kom-list-messages kom-erase-messages kom-remote-autoreply kom-remote-set-message kom-remote-list-messages kom-remote-erase-messages kom-remote-quit kom-status-session kom-customize kom-change-language kom-calculate kom-where-is kom-next-kom kom-previous-kom kom-next-unread-kom kom-send-alarm kom-agree kom-fast-reply kom-add-faq kom-del-faq kom-review-faq kom-add-footnote kom-sub-footnote kom-add-private-answer kom-add-no-comments kom-add-request-confirm kom-review-mail-headers kom-become-anonymous kom-become-nonanonymous kom-keep-alive kom-stop-keep-alive kom-is-person-member-of-conference kom-change-conf-faq)] 3) #@37 Version of the LysKOM elisp client. (defconst lyskom-clientversion "0.46.1" (#$ . 116434)) #@65 The largest int Emacs, and thus this LysKOM client, can handle. (defconst lyskom-max-int 8388607 (#$ . 116531)) #@431 List describing which features a certain server has. Each element is a list containing the protocol version and what it supports. The format of each element is: (VERSION . SUPPORTS) Version is simply a protocol version. Protocol equal to or above the version support the supports list. SUPPORTS is a list of pairs and symbols. Cons pairs are treated as arguments to setq, symbols are interpreted as variable names set to 't'. (defconst lyskom-server-features '((10 lyskom-bcc-flag lyskom-extended-types-flag) (9 lyskom-accept-async-flag lyskom-dynamic-session-info-flag lyskom-idle-time-flag) (8 lyskom-long-conf-types-flag lyskom-set-last-read-flag lyskom-uconf-stats-flag lyskom-set-last-read-flag) (7 lyskom-z-lookup-flag)) (#$ . 116650)) (if (and (boundp 'lyskom-server-version) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-server-version)) #@98 The version of the server. A list of three integers: major version, minor version and revision. (defvar lyskom-server-version '(0 0 0) (#$ . 117611)) (add-to-list 'lyskom-local-variables 'lyskom-server-version) (if (and (boundp 'lyskom-server-coding-system) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-server-coding-system)) #@63 The default coding system used by the server for all strings. (defvar lyskom-server-coding-system 'iso-8859-1 (#$ . 118050)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-server-coding-system put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-max-packet-size) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-max-packet-size)) #@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 (#$ . 118626)) (if (and (boundp 'lyskom-pending-commands) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-pending-commands)) #@312 Commands pending to be executed. When a command finishes, it checks this variable to see if another command should be run. It should be a list where each element should be either a symbol or an expression. If it is a symbol, it is invoked with `call-interactively', and an expression is evaluated with `eval'. (defvar lyskom-pending-commands nil (#$ . 119136)) (add-to-list 'lyskom-local-variables 'lyskom-pending-commands) (if (and (boundp 'lyskom-do-when-done) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-do-when-done)) #@31 Internal of kom-do-when-done. (defvar lyskom-do-when-done nil (#$ . 119772)) (add-to-list 'lyskom-local-variables 'lyskom-do-when-done) (if (and (boundp 'lyskom-do-when-starting) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-do-when-starting)) #@45 Internal of kom-do-when-starting. Obsolete. (defvar lyskom-do-when-starting nil (#$ . 120127)) (if (and (boundp 'lyskom-sessions-with-unread) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-sessions-with-unread)) #@70 List of LysKOM sessions with unread texts. This is not buffer-local. (defvar lyskom-sessions-with-unread nil (#$ . 120449)) (if (and (boundp 'lyskom-sessions-with-unread-letters) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-sessions-with-unread-letters)) #@72 List of LysKOM sessions with unread letters. This is not buffer-local. (defvar lyskom-sessions-with-unread-letters nil (#$ . 120816)) (if (and (boundp 'lyskom-session-has-unread-letters) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-session-has-unread-letters)) #@45 Non-nil if this session has unread letters. (defvar lyskom-session-has-unread-letters nil (#$ . 121189)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-session-has-unread-letters put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-session-has-unreads) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-session-has-unreads)) #@43 Non-nil if this session has unread texts. (defvar lyskom-session-has-unreads nil (#$ . 121833)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-session-has-unreads put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-buffer) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-buffer)) #@40 The LysKOM buffer we are connected to. (defvar lyskom-buffer nil (#$ . 122435)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\207" [add-to-list lyskom-inherited-variables lyskom-buffer put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables] 4) (if (and (boundp 'lyskom-buffer-type) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-buffer-type)) #@29 Type of the current buffer. (defvar lyskom-buffer-type nil (#$ . 122989)) (byte-code "\300\301\302\303#\210\304\305\301\"\210\304\306\301\"\210\304\306\301\"\207" [put lyskom-buffer-type permanent-local t add-to-list lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'output) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'output)) #@34 Uaark. Just to omit a warning... (defvar output nil (#$ . 123445)) (if (and (boundp 'lyskom-errno) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-errno)) #@29 Errno of last lyskom error. (defvar lyskom-errno nil (#$ . 123709)) (add-to-list 'lyskom-local-variables 'lyskom-errno) (if (and (boundp 'lyskom-err-stat) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-err-stat)) #@32 Err-stat of last lyskom error. (defvar lyskom-err-stat nil (#$ . 124032)) (add-to-list 'lyskom-local-variables 'lyskom-err-stat) (if (and (boundp 'lyskom-parse-pos) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-parse-pos)) #@22 Position of parsing. (defvar lyskom-parse-pos nil (#$ . 124366)) (if (and (boundp 'lyskom-unparsed-buffer) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-unparsed-buffer)) #@57 Buffer containing unparsed information from the server. (defvar lyskom-unparsed-buffer nil (#$ . 124648)) (add-to-list 'lyskom-local-variables 'lyskom-unparsed-buffer) (if (and (boundp 'lyskom-unparsed-marker) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-unparsed-marker)) #@29 Where we now are inserting. (defvar lyskom-unparsed-marker nil (#$ . 125033)) (add-to-list 'lyskom-local-variables 'lyskom-unparsed-marker) (if (and (boundp 'lyskom-to-be-printed-before-prompt) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-to-be-printed-before-prompt)) #@60 Contains the strings to be printed before the next prompt. (defvar lyskom-to-be-printed-before-prompt nil (#$ . 125414)) (add-to-list 'lyskom-local-variables 'lyskom-to-be-printed-before-prompt) (if (and (boundp 'lyskom-other-clients-user-areas) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-other-clients-user-areas)) #@106 Contains the parts of the user areas of unknown clients. The area is a pair: name . info (both strings). (defvar lyskom-other-clients-user-areas nil (#$ . 125845)) (add-to-list 'lyskom-local-variables 'lyskom-other-clients-user-areas) (if (and (boundp 'lyskom-pending-calls) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-pending-calls)) #@236 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 (#$ . 126294)) (add-to-list 'lyskom-local-variables 'lyskom-pending-calls) (if (and (boundp 'lyskom-output-queues) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-output-queues)) #@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 (#$ . 126851)) (add-to-list 'lyskom-local-variables 'lyskom-output-queues) (if (and (boundp 'lyskom-max-pending-calls) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-max-pending-calls)) #@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 (#$ . -127405)) (if (and (boundp 'lyskom-number-of-pending-calls) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-number-of-pending-calls)) #@61 Number of pending calls that are transmitted to the server. (defvar lyskom-number-of-pending-calls 0 (#$ . 127886)) (add-to-list 'lyskom-local-variables 'lyskom-number-of-pending-calls) #@112 This variable controls whether calls are passed to the server. If it is nil, all outgoing calls are inhibited. (defvar lyskom-ok-to-send-new-calls t (#$ . 128079)) (if (and (boundp 'lyskom-ref-no) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-ref-no)) #@84 Next ref-no to use. These ref-nos are used to keep track of the different packets. (defvar lyskom-ref-no 0 (#$ . 128442)) (if (and (boundp 'lyskom-pers-no) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-pers-no)) #@34 The pers-no of the current user. (defvar lyskom-pers-no 0 (#$ . 128765)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-pers-no put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-session-no) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-session-no)) #@51 Session number in the server for this connection. (defvar lyskom-session-no 0 (#$ . 129265)) (add-to-list 'lyskom-local-variables 'lyskom-session-no) (if (and (boundp 'kom-default-session-priority) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-default-session-priority)) #@334 *The default session priority. Only texts in conferences with a priority equal to or higher than this will be shown by default. To set the session priority in a running session, set the variable lyskom-session-priority instead. The value of this variable is used to initialize lyskom-session-priority when a new session is started. (defvar kom-default-session-priority 1 (#$ . -129645)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-default-session-priority add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-server-priority) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-server-priority)) #@314 *The default server priority. When kom-server-priority-breaks is set, this priority is used to decide when to go to a prioritized session. For a session to be prioritized its priority must be higher than the current session's kom-server-priority and higher than the priority of whatever is currently being read. (defvar kom-server-priority -1 (#$ . -130497)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-server-priority add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-session-priority) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-session-priority)) #@112 *This sessions priority. Only texts in conferences with a priority equal to or higher than this will be shown. (defvar lyskom-session-priority 0 (#$ . -131302)) (add-to-list 'lyskom-local-variables 'lyskom-session-priority) (if (and (boundp 'lyskom-proc) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-proc)) #@71 The process (network connection) that is associated with this buffer. (defvar lyskom-proc nil (#$ . 131721)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\300\310\302\"\207" [add-to-list lyskom-inherited-variables lyskom-proc put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-minibuffer-variables] 4) (if (and (boundp 'lyskom-server-info) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-server-info)) #@24 Info about the server. (defvar lyskom-server-info nil (#$ . 132302)) (add-to-list 'lyskom-local-variables 'lyskom-server-info) (if (and (boundp 'lyskom-server-version-info) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-server-version-info)) #@39 Version information about the client. (defvar lyskom-server-version-info nil (#$ . 132654)) (add-to-list 'lyskom-local-variables 'lyskom-server-version-info) (if (and (boundp 'lyskom-server-name) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-server-name)) #@25 The name of the server. (defvar lyskom-server-name "" (#$ . 133021)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-server-name put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-server-port) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-server-port)) #@31 The port we are connected to. (defvar lyskom-server-port nil (#$ . 133523)) (add-to-list 'lyskom-local-variables 'lyskom-server-port) (if (and (boundp 'lyskom-buffer-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-buffer-list)) #@29 List of all LysKOM buffers. (defvar lyskom-buffer-list nil (#$ . 133866)) (if (and (boundp 'lyskom-static-session-info-cache) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-static-session-info-cache)) #@19 Cache of session. (defvar lyskom-static-session-info-cache nil (#$ . 134177)) (add-to-list 'lyskom-local-variables 'lyskom-static-session-info-cache) (if (and (boundp 'lyskom-conf-cache) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-conf-cache)) #@31 Cache of conference statuses. (defvar lyskom-conf-cache nil (#$ . 134534)) (add-to-list 'lyskom-local-variables 'lyskom-conf-cache) (if (and (boundp 'lyskom-uconf-cache) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-uconf-cache)) #@37 Cache of small conference statuses. (defvar lyskom-uconf-cache nil (#$ . 134875)) (add-to-list 'lyskom-local-variables 'lyskom-uconf-cache) (if (and (boundp 'lyskom-pers-cache) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-pers-cache)) #@27 Cache of person statuses. (defvar lyskom-pers-cache nil (#$ . 135222)) (add-to-list 'lyskom-local-variables 'lyskom-pers-cache) (if (and (boundp 'lyskom-text-cache) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-text-cache)) #@25 Cache of text statuses. (defvar lyskom-text-cache nil (#$ . 135557)) (add-to-list 'lyskom-local-variables 'lyskom-text-cache) (if (and (boundp 'lyskom-text-mass-cache) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-text-mass-cache)) #@17 Cache of texts. (defvar lyskom-text-mass-cache nil (#$ . 135900)) (add-to-list 'lyskom-local-variables 'lyskom-text-mass-cache) (if (and (boundp 'lyskom-marked-text-cache) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-marked-text-cache)) #@59 Cache of marks of all texts the current user has marked.  (defvar lyskom-marked-text-cache nil (#$ . 136249)) (add-to-list 'lyskom-local-variables 'lyskom-marked-text-cache) (if (and (boundp 'lyskom-who-info-cache) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-who-info-cache)) #@48 Cache of people presently logged in in LysKOM. (defvar lyskom-who-info-cache nil (#$ . 136638)) (add-to-list 'lyskom-local-variables 'lyskom-who-info-cache) (if (and (boundp 'lyskom-who-info-buffer) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-who-info-buffer)) #@39 Buffer for the who info presentation. (defvar lyskom-who-info-buffer nil (#$ . 137012)) (add-to-list 'lyskom-local-variables 'lyskom-who-info-buffer) (if (and (boundp 'lyskom-who-info-buffer-is-on) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-who-info-buffer-is-on)) #@56 Says whether we are collecting who-information or not. (defvar lyskom-who-info-buffer-is-on nil (#$ . 137391)) (add-to-list 'lyskom-local-variables 'lyskom-who-info-buffer-is-on) (if (and (boundp 'lyskom-is-parsing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-is-parsing)) #@105 True when parsing a result. This is used to prevent parallel parsing since the parser is not reentrant. (defvar lyskom-is-parsing t (#$ . 137778)) (add-to-list 'lyskom-local-variables 'lyskom-is-parsing) (if (and (boundp 'lyskom-string-bytes-missing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-string-bytes-missing)) #@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 (#$ . 138210)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-string-bytes-missing put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-last-viewed) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-viewed)) #@139 Position 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 (#$ . 139020)) (add-to-list 'lyskom-local-variables 'lyskom-last-viewed) (if (and (boundp 'lyskom-mode-map) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-mode-map)) #@29 Keymap used in LysKOM mode. (defvar lyskom-mode-map nil (#$ . 139463)) (add-to-list 'lyskom-local-variables 'lyskom-mode-map) (if (and (boundp 'lyskom-reading-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-reading-list)) #@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 (#$ . 139801)) (add-to-list 'lyskom-local-variables 'lyskom-reading-list) (if (and (boundp 'lyskom-to-do-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-to-do-list)) #@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 already been prefetched. 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 (#$ . 141013)) (add-to-list 'lyskom-local-variables 'lyskom-to-do-list) (if (and (boundp 'lyskom-quit-flag) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-quit-flag)) #@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 (#$ . 141709)) (if (and (boundp 'lyskom-ignoring-async-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-ignoring-async-list)) #@240 A list of async messages we are currently ignoring. Each element is a list. The car of the list is the message and the remaining elements are whatever is suitable for that type of message. See the checks in lyskom-parse-async for details. (defvar lyskom-ignoring-async-list nil (#$ . 142093)) (add-to-list 'lyskom-local-variables 'lyskom-ignoring-async-list) (if (and (boundp 'lyskom-inhibit-minibuffer-messages) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-inhibit-minibuffer-messages)) #@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 (#$ . 142694)) (if (and (boundp 'lyskom-is-saving) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-is-saving)) #@63 A flag indicating whether the server is saving at the moment. (defvar lyskom-is-saving nil (#$ . 143100)) (if (and (boundp 'lyskom-prefetch-conf-tresh) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-prefetch-conf-tresh)) #@125 If fewer than lyskom-prefetch-conf-tresh texts are known, ask for more conf-stats from server. This is currently not used. (defvar lyskom-prefetch-conf-tresh 50 (#$ . 143432)) (add-to-list 'lyskom-local-variables 'lyskom-prefetch-conf-tresh) (if (and (boundp 'lyskom-prefetch-confs) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-prefetch-confs)) #@99 Number of confs to ask about at once when checking for unread texts. This is currently not used. (defvar lyskom-prefetch-confs 10 (#$ . 143890)) (add-to-list 'lyskom-local-variables 'lyskom-prefetch-confs) (if (and (boundp 'lyskom-fetch-map-nos) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-fetch-map-nos)) #@58 Number of text-nos lyskom will fetch when fetching maps. (defvar lyskom-fetch-map-nos 50 (#$ . 144310)) (add-to-list 'lyskom-local-variables 'lyskom-fetch-map-nos) (if (and (boundp 'lyskom-fetch-membership-length) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-fetch-membership-length)) #@344 *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. (defvar lyskom-fetch-membership-length 6 (#$ . -144708)) (if (and (boundp 'lyskom-prefetch-limit) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-prefetch-limit)) #@74 Number of prefetch requests the client will try to keep going at a time. (defvar lyskom-prefetch-limit 10 (#$ . 145323)) (if (and (boundp 'lyskom-membership) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-membership)) #@49 Sorted membership list of the logged in person. (defvar lyskom-membership nil (#$ . 145651)) (add-to-list 'lyskom-local-variables 'lyskom-membership) (if (and (boundp 'lyskom-unread-confs) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-unread-confs)) #@35 List containing all unread confs. (defvar lyskom-unread-confs nil (#$ . 146012)) (add-to-list 'lyskom-local-variables 'lyskom-unread-confs) (if (and (boundp 'lyskom-dont-change-prompt) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-dont-change-prompt)) #@37 Non-nil during the entry of a text. (defvar lyskom-dont-change-prompt nil (#$ . 146375)) (add-to-list 'lyskom-local-variables 'lyskom-dont-change-prompt) (if (and (boundp 'lyskom-command-to-do) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-command-to-do)) #@73 Atom describing what command to do. See the function lyskom-what-to-do. (defvar lyskom-command-to-do 'unknown (#$ . 146742)) (add-to-list 'lyskom-local-variables 'lyskom-command-to-do) (if (and (boundp 'lyskom-is-waiting) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-is-waiting)) #@294 If non-nil, this is the condition for the waiting to be stopped. If t, however, it means that the user is waiting for a text with a 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 (#$ . 147135)) (add-to-list 'lyskom-local-variables 'lyskom-is-waiting) (if (and (boundp 'lyskom-current-conf) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-conf)) #@59 Current conference. 0 means user is not reading any conf. (defvar lyskom-current-conf 0 (#$ . 147741)) (add-to-list 'lyskom-local-variables 'lyskom-current-conf) (if (and (boundp 'lyskom-current-text) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-text)) #@56 Text-no of current text. nil means no text is current. (defvar lyskom-current-text nil (#$ . 148114)) (add-to-list 'lyskom-local-variables 'lyskom-current-text) (if (and (boundp 'lyskom-last-written) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-written)) #@58 Text-no of last text written. nil means no text written. (defvar lyskom-last-written nil (#$ . 148486)) (add-to-list 'lyskom-local-variables 'lyskom-last-written) (if (and (boundp 'lyskom-last-seen-written) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-seen-written)) #@216 Text-no of last text read or written by the current user. When a new text is written, this is set to the text number of that text. When a text is read that was written by the current user, this is set to that text. (defvar lyskom-last-seen-written nil (#$ . 148871)) (add-to-list 'lyskom-local-variables 'lyskom-last-seen-written) (if (and (boundp 'lyskom-previous-text) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-previous-text)) #@46 Text-no of previous text. Nil means no text. (defvar lyskom-previous-text nil (#$ . 149415)) (add-to-list 'lyskom-local-variables 'lyskom-previous-text) (if (and (boundp 'lyskom-normally-read-texts) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-normally-read-texts)) #@80 Stack of texts that are read normally. Used for kom-review-last-normally-read. (defvar lyskom-normally-read-texts nil (#$ . 149793)) (add-to-list 'lyskom-local-variables 'lyskom-normally-read-texts) (if (and (boundp 'lyskom-current-subject) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-subject)) #@18 Current subject. (defvar lyskom-current-subject "" (#$ . 150209)) (add-to-list 'lyskom-local-variables 'lyskom-current-subject) (if (and (boundp 'lyskom-last-added-rcpt) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-added-rcpt)) #@66 The default conference when adding a recipient or moving a text. (defvar lyskom-last-added-rcpt 0 (#$ . 150554)) (add-to-list 'lyskom-local-variables 'lyskom-last-added-rcpt) (if (and (boundp 'lyskom-last-added-ccrcpt) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-added-ccrcpt)) #@51 The default conference when adding a ccrecipient. (defvar lyskom-last-added-ccrcpt 0 (#$ . 150950)) (add-to-list 'lyskom-local-variables 'lyskom-last-added-ccrcpt) (if (and (boundp 'lyskom-last-added-bccrcpt) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-added-bccrcpt)) #@52 The default conference when adding a bccrecipient. (defvar lyskom-last-added-bccrcpt 0 (#$ . 151337)) (add-to-list 'lyskom-local-variables 'lyskom-last-added-bccrcpt) (if (and (boundp 'lyskom-last-sub-rcpt) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-sub-rcpt)) #@51 The default conference when removing a recipient. (defvar lyskom-last-sub-rcpt 0 (#$ . 151717)) (add-to-list 'lyskom-local-variables 'lyskom-last-sub-rcpt) (if (and (boundp 'kom-saved-file-name) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-saved-file-name)) #@51 *The default file name when saving a LysKOM text. (defvar kom-saved-file-name (concat default-directory "kom-text") (#$ . -152084)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-saved-file-name add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-saved-file-name) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-saved-file-name)) #@69 After saving once, the default file name when saving a LysKOM text. (defvar lyskom-saved-file-name nil (#$ . 152658)) (add-to-list 'lyskom-local-variables 'lyskom-saved-file-name) (if (and (boundp 'lyskom-mode-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-mode-hook)) #@43 *Hook to run when lyskom-mode is entered. (defvar lyskom-mode-hook nil (#$ . -153043)) (if (and (boundp 'kom-quit-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-quit-hook)) #@58 *Hook to run when the LysKOM session is correctly ended. (defvar kom-quit-hook nil (#$ . -153329)) (byte-code "\300\301\302\"\210\300\303\302\"\207" [add-to-list lyskom-elisp-variables kom-quit-hook lyskom-local-hooks] 3) (if (and (boundp 'kom-quit-when-idle) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-quit-when-idle)) #@75 Non-nil to automatically quit when LysKOM is full and the session is idle (defvar kom-quit-when-idle t (#$ . 153760)) (if (and (boundp 'kom-permanent-filter-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-permanent-filter-list)) #@41 List of patterns to filter permanently. (defvar kom-permanent-filter-list nil (#$ . 154101)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-permanent-filter-list add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'kom-session-filter-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-session-filter-list)) #@49 List of patterns to filter during this session. (defvar kom-session-filter-list nil (#$ . 154644)) (add-to-list 'lyskom-local-variables 'kom-session-filter-list) (if (and (boundp 'kom-prompt-for-text-no) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-prompt-for-text-no)) #@71 *Commands that prompt for a text number rather than assume a default. (defvar kom-prompt-for-text-no '(kom-delete-text kom-view kom-write-footnote kom-mark-text kom-unmark-text kom-add-recipient kom-add-copy kom-add-bcc kom-sub-recipient kom-move-text kom-add-comment kom-sub-comment kom-save-text-body kom-add-footnote kom-sub-footnote kom-add-faq kom-add-no-comments kom-add-private-answer kom-add-request-confirm) (#$ . -155023)) (byte-code "\302\303\304\"\210\305\304\306\307#\210\302\310\304\"\210\302\311\304\"\210\304>\204&\304 >\204&\302\312\304\"\210\302\311\304\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables add-to-list lyskom-inherited-variables kom-prompt-for-text-no put permanent-local t lyskom-protected-variables lyskom-local-variables lyskom-elisp-variables] 4) (if (and (boundp 'lyskom-filter-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-filter-list)) #@37 List of patterns that are filtered. (defvar lyskom-filter-list nil (#$ . 156044)) (add-to-list 'lyskom-local-variables 'lyskom-filter-list) (if (and (boundp 'lyskom-create-text-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-create-text-hook)) #@617 Hook to run before creating a new text. This hook is run just before the server call to create the text is made. The hook is currently called with the following arguments: MESSAGE The message text MISC-LIST The misc-info list AUX-LIST The aux-item list BUFFER The edit buffer IS-ANONYMOUS Non-nil if the user is currently anonymous. &rest RESERVED Additional arguments may be added in the future. The hook can change the message by modifying the variable full-message, the misc-info list by modifying misc-list and the aux-item list by modifying aux-list. This is not encouraged. (defvar lyskom-create-text-hook nil (#$ . 156404)) (add-to-list 'lyskom-local-hooks 'lyskom-create-text-hook) (if (and (boundp 'lyskom-new-text-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-new-text-hook)) #@223 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. (defvar lyskom-new-text-hook nil (#$ . 157344)) (add-to-list 'lyskom-local-hooks 'lyskom-new-text-hook) (if (and (boundp 'lyskom-deleted-text-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-deleted-text-hook)) #@144 Hook to run when a text is deleted. This hook is run after the prompt is removed if it shall be changed but before the new prompt is printed. (defvar lyskom-deleted-text-hook nil (#$ . 157892)) (add-to-list 'lyskom-local-hooks 'lyskom-deleted-text-hook) (if (and (boundp 'lyskom-new-recipient-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-new-recipient-hook)) #@260 Hook to run when a text receives a new recipient. This hook is run after the prompt is removed if it shall be changed but before the new prompt is printed. It is not run if the text has been marked as read in any conference other than the person's letterbox. (defvar lyskom-new-recipient-hook nil (#$ . 158371)) (add-to-list 'lyskom-local-hooks 'lyskom-new-recipient-hook) (if (and (boundp 'lyskom-personal-message-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-personal-message-hook)) #@297 *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. (defvar lyskom-personal-message-hook nil (#$ . -158974)) (add-to-list 'lyskom-local-hooks 'lyskom-personal-message-hook) (if (and (boundp 'lyskom-executing-command) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-executing-command)) #@105 Non-nil means the client is executing a command. Most commands can't be interrupted by another command. (defvar lyskom-executing-command t (#$ . 159613)) (add-to-list 'lyskom-local-variables 'lyskom-executing-command) (if (and (boundp 'lyskom-current-command) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-command)) #@39 The command currently being executed. (defvar lyskom-current-command nil (#$ . 160048)) (add-to-list 'lyskom-local-variables 'lyskom-current-command) (if (and (boundp 'lyskom-current-function) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-function)) #@66 Sometimes set to the current high-level function being executed. (defvar lyskom-current-function nil (#$ . 160417)) (add-to-list 'lyskom-local-variables 'lyskom-current-function) (if (and (boundp 'lyskom-current-function-phase) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-function-phase)) #@79 Sometimes set to the phase of the current high-level function being executed. (defvar lyskom-current-function-phase nil (#$ . 160827)) (add-to-list 'lyskom-local-variables 'lyskom-current-function-phase) (if (and (boundp 'kom-low-priority) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-low-priority)) #@172 *Priority that the current conference is set to when aborted. nil means don't alter priority. (This means that kom-go-to-next-conf might go to the same conference again.) (defvar kom-low-priority -1 (#$ . -161237)) (if (and (boundp 'lyskom-membership-is-read) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-membership-is-read)) #@38 t when the membership has been read. (defvar lyskom-membership-is-read nil (#$ . 161675)) (add-to-list 'lyskom-local-variables 'lyskom-membership-is-read) (if (and (boundp 'lyskom-is-writing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-is-writing)) #@36 t when the user is writing a text. (defvar lyskom-is-writing nil (#$ . 162037)) (add-to-list 'lyskom-local-variables 'lyskom-is-writing) (if (and (boundp 'lyskom-debug-communications-to-buffer) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-debug-communications-to-buffer)) #@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 (#$ . 162422)) (if (and (boundp 'lyskom-backtrace-list) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-backtrace-list)) #@40 List containing debugging information. (defvar lyskom-backtrace-list nil (#$ . 162842)) (if (and (boundp 'lyskom-debug-what-i-am-doing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-debug-what-i-am-doing)) #@77 Non-nil means asynchronous message 5 will be logged to the debug buffer.  (defvar lyskom-debug-what-i-am-doing t (#$ . 163159)) (if (and (boundp 'lyskom-is-anonymous) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-is-anonymous)) #@124 Non-nil means be a bit secretive about things. Not totally secretive of course, since the server doesn't allow that yet. (defvar lyskom-is-anonymous nil (#$ . 163501)) (add-to-list 'lyskom-local-variables 'lyskom-is-anonymous) (if (and (boundp 'lyskom-debug-communications-to-buffer-buffer) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-debug-communications-to-buffer-buffer)) #@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" (#$ . 163992)) (if (and (boundp 'lyskom-doing-default-command) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-doing-default-command)) #@53 Non-nil if LysKOM is executing the default command. (defvar lyskom-doing-default-command nil (#$ . 164426)) (add-to-list 'lyskom-local-variables 'lyskom-doing-default-command) (if (and (boundp 'lyskom-first-time-around) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-first-time-around)) #@56 Non-nil if LysKOM is being entered for the first time. (defvar lyskom-first-time-around nil (#$ . 164823)) (add-to-list 'lyskom-local-variables 'lyskom-first-time-around) (if (and (boundp 'lyskom-experimental-features) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-experimental-features)) #@55 If non-nil, LysKOM is likely to blow up in your face. (defvar lyskom-experimental-features nil (#$ . 165223)) (add-to-list 'lyskom-local-variables 'lyskom-experimental-features) (if (and (boundp 'lyskom-format-experimental) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-format-experimental)) #@57 If non-nil, LysKOM is likely to make a fool out of you. (defvar lyskom-format-experimental nil (#$ . 165626)) (add-to-list 'lyskom-local-variables 'lyskom-format-experimental) (if (and (boundp 'lyskom-count-var) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-count-var)) #@95 This variable is used for counting things in the client, such as unread texts in list-unread. (defvar lyskom-count-var 0 (#$ . 166007)) (add-to-list 'lyskom-local-variables 'lyskom-count-var) (if (and (boundp 'lyskom-default-conf-string) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-default-conf-string)) #@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 (#$ . 166425)) (if (and (boundp 'lyskom-default-pers-string) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-default-pers-string)) #@194 The default string to use for an unknown person. Set this locally when inserting a conference name using lyskom-format-insert if you want to replace the usual description of an unknown person. (defvar lyskom-default-pers-string nil (#$ . 166906)) (if (and (boundp 'lyskom-is-administrator) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-is-administrator)) #@76 This variable is t if the user is in administrator mode and nil otherwise. (defvar lyskom-is-administrator nil (#$ . 167372)) (byte-code "\300\301\302\"\210\300\303\302\"\207" [add-to-list lyskom-local-variables lyskom-is-administrator lyskom-minibuffer-variables] 3) (if (and (boundp 'lyskom-last-personal-message-sender) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-personal-message-sender)) #@51 Name of sender of last personal message received. (defvar lyskom-last-personal-message-sender "" (#$ . 167883)) (add-to-list 'lyskom-local-variables 'lyskom-last-personal-message-sender) (if (and (boundp 'lyskom-last-group-message-recipient) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-group-message-recipient)) #@49 Name of target for last group message received. (defvar lyskom-last-group-message-recipient "" (#$ . 168313)) (add-to-list 'lyskom-local-variables 'lyskom-last-group-message-recipient) (if (and (boundp 'lyskom-last-message-recipient) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-message-recipient)) #@49 Number of last async message recipient sent to. (defvar lyskom-last-message-recipient nil (#$ . 168729)) (add-to-list 'lyskom-local-variables 'lyskom-last-message-recipient) (if (and (boundp 'lyskom-is-new-user) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-is-new-user)) #@46 An internal variable used in kom-start-anew. (defvar lyskom-is-new-user nil (#$ . 169112)) (if (and (boundp 'lyskom-apo-timeout-s) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-apo-timeout-s)) #@44 Seconds timeout for accept-process-output. (defvar lyskom-apo-timeout-s 1 (#$ . 169416)) (if (and (boundp 'lyskom-apo-timeout-ms) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-apo-timeout-ms)) #@49 Microseconds timeout for accept-process-output. (defvar lyskom-apo-timeout-ms nil (#$ . 169720)) (if (and (boundp 'lyskom-collate-table) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-collate-table)) #@51 Table mapping characters to an equivalence class. (defvar lyskom-collate-table nil (#$ . 170030)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-collate-table put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-char-classes) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-char-classes)) #@96 An assoc list from character to a list of equivalent strings. See lyskom-compute-char-classes. (defvar lyskom-char-classes nil (#$ . 170565)) (byte-code "\300\301\302\"\210\303\302\304\305#\210\300\306\302\"\210\300\307\302\"\207" [add-to-list lyskom-inherited-variables lyskom-char-classes put permanent-local t lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-dont-read-user-area) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-dont-read-user-area)) #@53 If non-nil the user area will not be read on login. (defvar lyskom-dont-read-user-area nil (#$ . 171157)) (add-to-list 'lyskom-local-variables 'lyskom-dont-read-user-area) (if (and (boundp 'lyskom-allow-missing-subject) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-allow-missing-subject)) #@42 If non-nil allow texts without subjects. (defvar lyskom-allow-missing-subject nil (#$ . 171558)) (if (and (boundp 'kom-w3-simplify-body) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'kom-w3-simplify-body)) #@41 *Strip color information from body tag. (defvar kom-w3-simplify-body t (#$ . -171868)) (byte-code "\302>\204\302 >\204\303\304\302\"\210\303\305\302\"\207" [lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-w3-simplify-body add-to-list lyskom-elisp-variables lyskom-local-variables] 3) (if (and (boundp 'lyskom-format-special) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-format-special)) #@183 AList of (FORMAT . FUNCTION) specifying functions that format texts of that type. FORMAT is a symbol and FUNCTION is a function taking one argument and returning a formatted string. (defvar lyskom-format-special '(("html" . lyskom-format-html) ("enriched" . lyskom-format-enriched) ("text/html" . lyskom-format-html) ("text/enriched" . lyskom-format-enriched) ("text/plain") ("x-kom/basic") ("x-kom/\\." . lyskom-format-)) (#$ . 172397)) (if (and (boundp 'lyskom-send-text-transform-function) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-send-text-transform-function)) #@181 Function to call to transform text before sending it to the server. The function should accept a single argument and return the transformed texts that is to be sent to the server. (defvar lyskom-send-text-transform-function nil (#$ . 173083)) (if (and (boundp 'lyskom-slow-mode) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-slow-mode)) #@28 Non-nil when in slow mode. (defvar lyskom-slow-mode nil (#$ . 173531)) (add-to-list 'lyskom-local-variables 'lyskom-slow-mode) (if (and (boundp 'lyskom-saved-read-only) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-saved-read-only)) #@52 Saved value of buffer-read-only when in slow mode. (defvar lyskom-saved-read-only nil (#$ . 173875)) (add-to-list 'lyskom-local-variables 'lyskom-saved-read-only) #@63 Characters that may start a line in a paragraph to be broken. (defvar lyskom-line-start-chars-string "\"$&'()*+-./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]_`abcdefghijklmnopqrstuvwxyzÁāŁƁǁȁɁʁˁ́́΁ρЁсҁӁԁՁց؁فځہ܁݁ށ߁" (#$ . 174044)) (if (and (boundp 'lyskom-line-start-chars) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-line-start-chars)) #@56 Computer-friendly version of lyskom-line-start-string. (defvar lyskom-line-start-chars nil (#$ . 174630)) (if (and (boundp 'lyskom-last-text-format-flags) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-last-text-format-flags)) #@133 List of flags specifying how the last text was reformatted. This variable should be dynamically bound whenever it needs to be used. (defvar lyskom-last-text-format-flags nil (#$ . 174968)) (byte-code "\302\300!\204 \303\304\305\"\300 B\302\207" [lyskom-xface-cache current-load-list boundp make-vector 29 0] 3) (if (and (boundp 'lyskom-add-membership-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-add-membership-hook)) #@47 Functions to call when a membership is added. (defvar lyskom-add-membership-hook nil (#$ . 175507)) (add-to-list 'lyskom-local-hooks 'lyskom-add-membership-hook) (if (and (boundp 'lyskom-replace-membership-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-replace-membership-hook)) #@50 Functions to call when a membership is replaced. (defvar lyskom-replace-membership-hook nil (#$ . 175902)) (add-to-list 'lyskom-local-hooks 'lyskom-replace-membership-hook) (if (and (boundp 'lyskom-remove-membership-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-remove-membership-hook)) #@49 Functions to call when a membership is removed. (defvar lyskom-remove-membership-hook nil (#$ . 176306)) (add-to-list 'lyskom-local-hooks 'lyskom-remove-membership-hook) (if (and (boundp 'lyskom-new-membership-list-hook) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-new-membership-list-hook)) #@64 Functions to call when the entire membership list is replaced. (defvar lyskom-new-membership-list-hook nil (#$ . 176711)) (add-to-list 'lyskom-local-hooks 'lyskom-new-membership-list-hook) #@389 *A list of phrases describing what the client is doing. Each element in the list is a pair (KEY . PHRASE) where KEY is one of the keywords in lykom-tell-phrases-validation-keyword-list and PHRASE is the phrase to sent to the server then the client is doing what KEY describes. If the value of this variable is nil, suitable defaults for the currently selected language will be selected. (defvar kom-tell-phrases nil (#$ . -176907)) #@107 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 '((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)) (#$ . 177347)) (byte-code "\303\300 B\304\302 B\300\207" [lyskom-admin-removed-commands current-load-list lyskom-noadmin-removed-commands (kom-enable-adm-caps) (kom-disable-adm-caps kom-remove-motd kom-set-motd kom-shutdown-server kom-sync-database)] 2) (if (and (boundp 'lyskom-default-server) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-default-server)) #@25 *Default LysKOM server. (defvar lyskom-default-server "kom.lysator.liu.se" (#$ . -178358)) (if (and (boundp 'lyskom-default-user-name) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-default-user-name)) #@28 *Default LysKOM user name. (defvar lyskom-default-user-name nil (#$ . -178670)) (add-to-list 'lyskom-local-variables 'lyskom-default-user-name) (if (and (boundp 'lyskom-default-password) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-default-password)) #@26 Default LysKOM password. (defvar lyskom-default-password nil (#$ . 179033)) (add-to-list 'lyskom-local-variables 'lyskom-default-password) (if (and (boundp 'mode-line-conf-name) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'mode-line-conf-name)) #@45 Conf name that is present on the mode-line. (defvar mode-line-conf-name nil (#$ . 179383)) (add-to-list 'lyskom-local-variables 'mode-line-conf-name) (if (and (boundp 'lyskom-faces) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-faces)) #@47 This is a list of the faces that LysKOM uses. (defvar lyskom-faces '(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-morons-face kom-presence-face kom-first-line-face kom-warning-face kom-mark-face) (#$ . 179730)) (if (and (boundp 'lyskom-face-schemes) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-face-schemes)) #@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 turn 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 '((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-morons-face default "blue3" "yellow") (kom-presence-face italic "dim gray" nil) (kom-mark-face bold "blue3" "lavender") (kom-warning-face bold "red" 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-morons-face default "yellow" nil) (kom-presence-face italic "grey" nil) (kom-mark-face default "gold" "black") (kom-warning-face bold "red" 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-morons-face strikethrough nil nil) (kom-presence-face italic nil nil) (kom-mark-face bold nil "black") (kom-warning-face bold 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-morons-face default nil "red") (kom-presence-face italic "dim gray" nil) (kom-mark-face default nil "black") (kom-warning-face bold nil nil) (kom-first-line-face default nil nil)) (highlight (kom-active-face default nil "aliceblue") (kom-url-face default nil "yellow") (kom-me-face bold "darkblue" "thistle") (kom-highlight-face highlight nil nil) (kom-text-face default nil nil) (kom-text-no-face default nil nil) (kom-friends-face default "darkblue" "thistle") (kom-morons-face strikethrough "red" "seagreen") (kom-subject-face default nil nil) (kom-presence-face italic "dim gray" nil) (kom-mark-face bold "darkblue" "thistle") (kom-warning-face bold "yellow" "red") (kom-first-line-face default nil "lavender"))) (#$ . 180237)) (byte-code "\306\300!\204\307\300 B\306\302!\204\307\302 B\306\303!\204 \307\303 B\306\304!\204,\307\304 B\306\305!\2048\307\305 B\310 \311 B\312 \313 B\314 \315 B\316\317!\210\320P\321\322!\210\321\323!\207" [lyskom-command-history current-load-list lyskom-expression-history lyskom-message-history lyskom-language-history lyskom-fast-reply-history boundp nil (COMM-IN FOOTN-IN) lyskom-comment-types-list (RECPT CC-RECPT BCC-RECPT) lyskom-recpt-types-list (REVIEW REVIEW-TREE REVIEW-MARK) lyskom-review-types-list provide lyskom-vars "$Id: macros.el,v 44.26 2000/12/03 22:31:33 ceder Exp $\n" require custom widget lyskom-clientversion-long] 2) #@87 Bind ATOM to each element in SEQUENCE and execute BODY. Value returned is always nil. (defalias 'lyskom-traverse '(macro . #[(atom sequence &rest body) "\303\304\305D\306 \307B\310BBBB\311\312\313\314\305\315 \316BB\317\n\320\"BBB\314\321\315 \322BB\317\n\323\"BBBF\324BBBB\207" [sequence atom body let* (__i__ 0) __sequence__ (__len__ (or (listp __sequence__) (length __sequence__))) (nil) ((__result__ nil)) (setq __result__ __result__) if (listp __sequence__) while setq ((car __sequence__)) append ((setq __sequence__ (cdr __sequence__))) (< __i__ __len__) ((aref __sequence__ __i__)) ((setq __i__ (1+ __i__))) (__result__)] 12 (#$ . 184134)])) #@33 Break a current lyskom-traverse (defalias 'lyskom-traverse-break '(macro . #[(&optional result) "\301\302\303\304\305\306\307BBEF\207" [result progn (setq __len__ 0) (setq __sequence__ nil) setq __result__ or (__result__)] 8 (#$ . 184790)])) #@87 Bind ATOM to each element in SEQUENCE and execute BODY. Value returned is always nil. (defalias 'lyskom-traverse-aux '(macro . #[(atom sequence &rest body) "\304\305!\306 D\n\307BD\310\311\n\312DE\313\314\315\316\nDDD BB\311\317DE\257E)\207" [seq sequence atom body make-symbol "aux-items" let (nil) while setq car if not aux-item-flags->deleted aux-item->flags cdr] 10 (#$ . 185039)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\207" [put lyskom-traverse-aux edebug-form-spec (sexp form body) lisp-indent-hook 2 lyskom-traverse (sexp form body)] 4) #@47 Save-excursion without saving point and mark. (defalias 'lyskom-save-excursion '(macro . #[(&rest forms) "\301\302C\303\304B\305EE\207" [forms let (__buffer__ (current-buffer)) unwind-protect progn (set-buffer __buffer__)] 5 (#$ . 185631)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put lyskom-save-excursion edebug-form-spec t lisp-indent-hook 0] 4) #@75 Return t if the character CHAR is member of STRING. Otherwise return nil. (defalias 'char-in-string '(macro . #[(char string) "\302\303\304\305\306DD EDD\207" [char string null not string-match regexp-quote char-to-string] 6 (#$ . 186005)])) #@50 Increment the variable VAR and return the value. (defalias '++ '(macro . #[(var) "\301\302DE\207" [var setq 1+] 4 (#$ . 186254)])) #@50 Decrement the variable VAR and return the value. (defalias '-- '(macro . #[(var) "\301\302DE\207" [var setq 1-] 4 (#$ . 186393)])) (byte-code "\301\302!\204\302\303M\210\304\302\305#\210\304\302\306\307#\210\301\310!\204,\310\311M\210\304\310\305#\210\304\310\306\307#\210\301\207" [lisp-indent-function fboundp when (macro . #[(expr &rest body) "\302\303 BE\207" [expr body if progn] 4 "Execute BODY if EXPR evaluates to non-nil"]) put 1 edebug-form-spec t unless (macro . #[(expr &rest body) "\302\303\304E \"\207" [expr body append if nil] 4 "Execute BODY if EXPR evaluates to non-nil"])] 4) #@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 any symbols are bound. (defalias 'blocking-do-multiple '(macro . #[(bind-list &rest body) "\304\305\306 \307\310\311\312\n\"BDDC\306\311\313\n\" BBE*\207" [index bindsym bind-list body multiple-bind-sym 0 let lyskom-blocking-do-multiple list mapcar #[(x) "\301\302A@@DA@ABB\207" [x list quote] 3] #[(bpat) "@\303 \nED\nT\207" [bpat bindsym index elt] 4]] 7 (#$ . 187004)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put blocking-do-multiple edebug-form-spec (sexp body) lisp-indent-function 1] 4) (defalias 'lyskom-ignoring-async '(macro . #[(async &rest body) "\302\303\304\305B\306BBDC BB\207" [async body let lyskom-ignoring-async-list cons list (lyskom-ignoring-async-list)] 5])) (byte-code "\302\303\304\305#\210\302\303\306\307#\210\310\300!\204\311\300 B\311\207" [lyskom-expected-unresolved-functions current-load-list put lyskom-ignoring-async edebug-form-spec (sexp body) lisp-indent-function 1 boundp nil] 4) (defalias 'lyskom-external-function '(macro . #[(fn) "\301\302\303\304\305D\306BBED\207" [fn eval-when-compile setq lyskom-expected-unresolved-functions cons quote (lyskom-expected-unresolved-functions)] 6])) (defalias 'lyskom-end-of-compilation '(macro . #[nil "\300\207" [(eval-when-compile (progn (if (and (boundp 'byte-compile-unresolved-functions) (consp (car-safe byte-compile-unresolved-functions)) (symbolp (car-safe (car-safe byte-compile-unresolved-functions)))) (progn (mapcar #'(lambda (x) (setq byte-compile-unresolved-functions (delq (assq x byte-compile-unresolved-functions) byte-compile-unresolved-functions))) lyskom-expected-unresolved-functions) (mapcar #'(lambda (x) (setq byte-compile-unresolved-functions (delq (assq x byte-compile-unresolved-functions) byte-compile-unresolved-functions))) lyskom-compatibility-definitions))) (if lyskom-compatibility-definitions (message "Compatibility definitions: %s" (mapconcat '(lambda (sym) (symbol-name sym)) lyskom-compatibility-definitions ", ")))))] 1])) #@140 Use keymap KEYMAP as local map in this buffer. KEYMAP is made local in the current buffer, and its value is copied from the LysKOM buffer. (defalias 'lyskom-use-local-map '(macro . #[(keymap) "\301\302\303DD\304\305\303DDE\306DF\207" [keymap progn make-local-variable quote setq lyskom-default-value use-local-map] 7 (#$ . 189284)])) (defalias 'lyskom-widget-wrapper '(macro . #[(fn file) "\302\303\304\305\306DDD\307\306D EED\207" [fn file eval-and-compile if not fboundp quote autoload] 6])) (byte-code "\300\301!\204 \302\301\303\"\210\300\304!\204\302\304\305\"\210\300\306!\204!\302\306\305\"\210\300\307!\204,\302\307\305\"\210\300\310!\2047\302\310\305\"\210\300\311!\204B\302\311\305\"\210\300\312!\204M\302\312\305\"\210\300\313!\204X\302\313\305\"\210\300\314!\204c\302\314\305\"\210\300\315!\204n\302\315\305\"\210\300\207" [fboundp define-widget autoload "widget" widget-at "wid-edit" widget-value widget-button-click widget-setup widget-value-set widget-insert widget-create widget-get widget-put] 3) (defalias 'lyskom-ignore-errors '(macro . #[(&rest forms) "\301\302\303B\304BBB\207" [forms condition-case nil progn ((error nil))] 4])) (put 'ignore-errors 'edebug-form-spec '(sexp form body)) (defalias 'lyskom-setq-default '(macro . #[(name value) "\302\303D E\207" [name value lyskom-set-default quote] 3])) (byte-code "\301\302!\210\303P\301\207" [lyskom-clientversion-long provide lyskom-macros "$Id: compatibility.el,v 44.46 2000/12/02 15:09:11 ceder Exp $\n"] 2) #@74 Functions defined or redefined because they are incompatible with LysKOM (defvar lyskom-compatibility-definitions nil (#$ . 190795)) #@61 If PREDICATE is nil, evaluate FORMS at compile and run time (defalias 'lyskom-compatibility-forms '(macro . #[(predicate &rest forms) "\302\303\304D\305 BED\207" [predicate forms eval-and-compile if not progn] 5 (#$ . 190934)])) #@278 If PREDICATE is nil, evaluate DEFINITION at compile and run time. Definition should be a function definition of some kind, with syntax similar to defun or defmacro. To simply define a function if it is not already defined, used one of the lyskom-provide-* functions instead. (defalias 'lyskom-compatibility-definition '(macro . #[(predicate definition) "\302\303\304\305D\302 \306\307\310\311 A@D\312BBEEEDD\207" [predicate definition progn eval-and-compile if not setq lyskom-compatibility-definitions cons quote (lyskom-compatibility-definitions)] 11 (#$ . 191171)])) (defalias 'lyskom-provide '(macro . #[(definer name rest) "\303\304\305\306\307DDD\310\311\312\313\307D\314BBE \nBBEED\207" [name definer rest eval-and-compile if not fboundp quote progn setq lyskom-compatibility-definitions cons (lyskom-compatibility-definitions)] 9])) #@55 If NAME is not already defined, define it as a macro. (defalias 'lyskom-provide-macro '(macro . #[(name &rest rest) "\302\303 F\207" [name rest lyskom-provide defmacro] 4 (#$ . 192024)])) #@58 If NAME is not already defined, define it as a function. (defalias 'lyskom-provide-function '(macro . #[(name &rest rest) "\302\303 F\207" [name rest lyskom-provide defun] 4 (#$ . 192219)])) #@58 If NAME is not already defined, define it as a defsubst. (defalias 'lyskom-provide-subst '(macro . #[(name &rest rest) "\302\303 F\207" [name rest lyskom-provide defsubst] 4 (#$ . 192417)])) #@55 Eval XEMACS-FORM in XEmacs and GNU-FORM in Gnu Emacs. (defalias 'lyskom-xemacs-or-gnu '(macro . #[(xemacs-form gnu-form) "\302\303\304 \"\203\n\207 \207" [xemacs-form gnu-form string-match "XEmacs" emacs-version] 3 (#$ . 192615)])) (byte-code "\304\305\306\307#\210\310\311\312\217\204\313\314M\210\313B\315\316!\204#\316B\316\317M\210\315\320!\2041\320B\320\321M\210\315\322!\204?\322B\322\323M\210\315\324!\204I\324\325M\210\315\326!\204W\326B\326\327M\210\315\330!\204e\330B\330\331M\210\315\332!\204s\332B\332\333M\210\334\301\nB\335\303\nB\310\207" [lyskom-compatibility-definitions lyskom-gnu-keysym current-load-list lyskom-xemacs-keysym put lyskom-xemacs-or-gnu edebug-form-spec (form form) nil (byte-code "\300\301!\302\232\206 \303\304!\207" [read-kbd-macro "" [down-mouse-2] error "Bad definition of kbd"] 2) ((error)) kbd (macro . #[(keys) ";\204 \301!\203\302!\207\302D\207" [keys vectorp read-kbd-macro] 2 "Convert KEYS to the internal Emacs key representation.\nKEYS should be a string in the format used for saving keyboard macros\n(see `insert-kbd-macro')."]) fboundp char-before (macro . #[(&optional pos buffer) "\302\303\304\305\205\f\306DC \203)\307\310\311 \312BB\313 \314BBE\315\316 D\317BBBB\202*\320C\"BBD\207" [buffer pos save-excursion save-restriction (widen) append set-buffer if or > ((point-max)) <= ((point-min)) nil goto-char ((preceding-char)) (if (<= (point) (point-min)) nil (preceding-char))] 11]) characterp #[(obj) "\250\207" [obj] 1] int-to-char #[(obj) "\207" [obj] 1] frame-width screen-width signum #[(num) "\301W\203\302\207\301V\203\303\207\301\207" [num 0 -1 1] 2] map-keymap #[(fn keymap &optional sort-first) "\303\304 !\203# GW\205( H\203\n H\"\210T\211\202 \305\306 A\")\207" [r keymap fn 0 vectorp mapcar #[(x) " @ A\"\207" [fn x] 3]] 5] set-keymap-parent #[(keymap new-parent) "\211\203 A\203 A@\300=\204 A\211\204 \205! \n\241)\207" [keymap tail new-parent] 3] ((button1 . "") (button2 . "") (button3 . "") (button1up . "") (button2up . "") (button3up . "") ( . [229]) ( . [197]) (C- . [(control 229)]) (C- . [(control 197)]) ( . [228]) ( . [196]) ( . [246]) ( . [214])) ((button1 . "") (button2 . "") (button3 . "") (button1up . "") (button2up . "") (button3up . "") (C- . [(control aring)]) (C- . [(control Aring)]) ( . [aring]) ( . [Aring]) ( . [adiaeresis]) ( . [Adiaeresis]) ( . [odiaeresis]) ( . [Odiaeresis]))] 4) #@42 Look up the key description for key SYM. (defalias 'lyskom-keys #[(sym) " \236A\207" [sym lyskom-gnu-keysym] 2 (#$ . 195245)]) (byte-code "\303\304!\204\304B\304\305M\210\303\306!\204\306B\306\307M\210\303\310!\204*\310B\310\311M\210\312\301!\2042\313\301\nB\303\314!\204D\314B\314\315M\210\303\316!\204R\316B\316\317M\210\303\320!\204`\320B\320\321M\210\303\322!\204n\322B\322\323M\210\303\324!\204|\324B\324\325M\210\303\326!\204\212\326B\326\327M\210\303\330!\204\230\330B\330\331M\210\303\332!\204\246\332B\332\333M\210\303\334!\204\264\334B\334\335M\210\303\336!\204\302\336B\336\337M\210\303\340!\204\320\340B\340\341M\210\303\342!\204\336\342B\342\343M\210\303\344!\204\354\344B\344\345M\210\313\207" [lyskom-compatibility-definitions enable-multibyte-characters current-load-list fboundp map-extents #[(&rest args) "\300\207" [nil] 1] next-text-property-bounds #[(count pos prop &optional object) "\204p;\203\303\202e;\203G\202d\304\305\215*\207" [object end begin 0 hit-end (byte-code "\306V\203F\306V\2037 \nY\203\307\310\311\"\210\2020\312 \f#\203)\313 \f\n$\313 \f\n$S\211\202 \nW\205\206 \313 \f\n$B\207\306W\203x X\203Z\307\310\311\"\210\202q\312 S \f#\203j\314 \f $\314 \f $T\211\202G V\205\206\314 \f $ B\207" [count pos end prop object begin 0 throw hit-end nil get-char-property next-single-property-change previous-single-property-change] 7)] 2 "Return the COUNTth bounded property region of property PROP after POS.\nIf COUNT is less than zero, search backwards. This returns a cons\n(START . END) of the COUNTth maximal region of text that begins after POS\n(starts before POS) and has a non-nil value for PROP. If there aren't\nthat many regions, nil is returned. OBJECT specifies the buffer or\nstring to search in."] char-to-int #[(c) "\207" [c] 1] boundp nil set-buffer-multibyte #[(arg) "\302\301\303\304#\210\305\301!\210\211\207" [arg enable-multibyte-characters put permanent-local t make-local-variable] 4] set-process-coding-system #[(proc &optional encoding decoding) "\300\207" [nil] 1] encode-coding-string #[(str coding-system) "\301!\207" [str copy-sequence] 2] decode-coding-string #[(str coding-system) "\301!\207" [str copy-sequence] 2] string-bytes #[(str) "G\207" [str] 1] check-coding-system #[(name) "\300\301!\207" [error "No such coding system"] 2] string-width #[(str) "G\207" [str] 1] char-width #[(c) "\300\207" [1] 1] find-charset-string #[(str) "\300\207" [(ascii)] 1] string-as-unibyte #[(str) "\207" [str] 1] string-make-unibyte #[(str) "\207" [str] 1] string-make-multibyte #[(str) "\207" [str] 1] multibyte-string-p #[(str) "\300\207" [nil] 1]] 2) (defalias 'lyskom-buggy-encode-coding-string #[(str coding-system) "\207" [str] 1]) (byte-code "\301\302\303\")=\203\304\302KM\210\302\305M\210\302\207" [test "TEM" encode-coding-string raw-text lyskom-buggy-encode-coding-string #[(str coding-system) "\302\303 \"!\207" [str coding-system copy-sequence lyskom-buggy-encode-coding-string] 4]] 3) (defalias 'lyskom-buggy-decode-coding-string #[(str coding-system) "\207" [str] 1]) (byte-code "\301\302\303\")=\203\304\302KM\210\302\305M\210\306\307M\207" [test "TEM" decode-coding-string raw-text lyskom-buggy-decode-coding-string #[(str coding-system) "\302\303 \"!\207" [str coding-system copy-sequence lyskom-buggy-decode-coding-string] 4] lyskom-encode-coding-char #[(c system) "\303 \"\211\205\nG\304U\205\n\305\234)\207" [c system s encode-coding-char 1 0] 4]] 3) (defalias 'lyskom-string-width #[(str) "\302!\203 \204\303\304!!\207\302!\204 \203 \303\305!!\207\303!\207" [str enable-multibyte-characters multibyte-string-p string-width string-make-unibyte string-make-multibyte] 3]) (byte-code "\301\302KM\210\303\304KM\210\305\306!\204\306B\306\307M\210\305\310!\204&\310B\310\311M\210\305\312!\2044\312B\312\313M\210\305\314!\204B\314B\314\315M\210\305\316!\204P\316B\316\317M\210\305\320!\204^\320B\320\321M\210\301\207" [lyskom-compatibility-definitions lyskom-completing-read completing-read lyskom-read-from-minibuffer read-from-minibuffer fboundp minibuffer-message #[(message) "\301!\207" [message temp-minibuffer-message] 2] last #[(x &optional n) "\2032\304 \n:\203 T\nA\211\202 \304X\203!\n\2020 W\203/ Z \233\2020 *\207 A:\203? A\211\2023 \207" [n x p m 0] 3 "Returns the last link in the list LIST.\nWith optional argument N, returns the Nth-to-last link (default 1)."] plist-member #[(plist prop) "\203@ =\204AA\211\204\205\302\207" [plist prop t] 3 "Return non-nil if PLIST has the property PROP.\nPLIST is a property list, which is a list of the form\n(PROP1 VALUE1 PROP2 VALUE2 ...). PROP is a symbol.\nUnlike `plist-get', this allows you to distinguish between a missing\nproperty and a property with the value nil."] reset-face #[(face &optional locale tag-set exact-p) "\300\207" [nil] 1] face-background-name #[(face) "\301!\207" [face face-background] 2] find-face #[(face) "\301!\205\207" [face facep] 2]] 2) #@26 Like make-face in XEmacs (defalias 'lyskom-make-face #[(name temporary) "\301!\207" [name make-face] 2 (#$ . 200348)]) (byte-code "\301\302!\204\303\302!\210\304\302\305\"\210\306\307!\204\307B\307\310M\210\306\311!\204+\311B\311\312M\210\306\313!\2049\313B\313\314M\210\301\207" [lyskom-compatibility-definitions find-face strikethrough make-face set-face-underline-p t fboundp event-point #[(e) "\211A@)A@\207" [e event] 2 "Return the character position of the given mouse event.\nIf the event did not occur over a window, or did not occur over text,\nthen this returns nil. Otherwise, it returns an index into the buffer\nvisible in the event's window."] event-closest-point #[(e) "\211A@)A@\207" [e event] 2 "Return the character position closest to the mouse event EVENT."] event-glyph #[(e) "\300\207" [nil] 1]] 3) #@118 Return windows currently displaying BUFFER, or nil if none. See `walk-windows' for the meaning of MINIBUF and FRAME. (defalias 'lyskom-get-buffer-window-list #[(buffer &optional minibuf frame) "\304!\203\n\202 \305!\306\307\310\n #\210 *\207" [buffer windows minibuf frame bufferp get-buffer nil walk-windows #[(window) "\303! =\205 \nB\211\207" [window buffer windows window-buffer] 2]] 4 (#$ . 201194)]) (byte-code "\301\302!\204\302B\302\303M\210\301\304!\204\304B\304\305M\210\306\307\310\"\207" [lyskom-compatibility-definitions fboundp replace-in-string #[(str regexp newtext &optional literal) ";\204\n\306\307\"\210 ;\204\306\310 \"\210\311\312\313\211\211\314 #\211\203I \312\225\n O\203> \202C\315\316 \311#Q\202 \313OP-\207" [str newtext prev-start match special start error "(replace-in-string): First argument must be a string: %s" "(replace-in-string): 3rd arg must be a string: %s" "" 0 nil string-match mapconcat #[(c) "\203E\303 \304=\203\305\207 \306=\203\n\307\224\307\225O\207 \310Y\203A \311X\203A \312 G\310\\V\2036\313\314 \"\207 \310Z\n \224 \225O\207\315 !\207 \304=\203O\316\303\207\315 !\207" [special c str nil 92 "\\" 38 0 48 57 match-data error "(replace-in-string) Invalid match num: %c" char-to-string t] 3] rtn-str regexp literal] 6 "Replaces all matches in STR for REGEXP with NEWTEXT string.\nOptional LITERAL non-nil means do a literal replacement.\nOtherwise treat \\ in NEWTEXT string as special:\n \\& means substitute original matched text,\n \\N means substitute match for (...) number N,\n \\\\ means insert one \\."] buffer-live-p #[(object) "\301!\205 \302!\207" [object bufferp buffer-name] 2 "T of OBJECT is an editor buffer that has not been deleted."] require lyskom-vars "vars"] 3) #@172 A alist of defined languages. Each entry is a pair (SYMBOL . (NAME NAME ...)) where symbol is the symbol used for identification, and the NAMEs are names of the language. (defvar lyskom-languages nil (#$ . 203002)) #@17 Categories used (defvar lyskom-language-categories nil (#$ . 203223)) #@45 A list of all language-dependent variables. (defvar lyskom-language-vars nil (#$ . 203299)) #@42 Defines a language-local variable value. (defalias 'lyskom-language-var-internal #[(var language val) " >\204\n B\306N \n\236\211\203\f \241\202%\307\306 B\nB#*\207" [var lyskom-language-vars alist language entry val lyskom-language-var put] 6 (#$ . 203397)]) (defalias 'lyskom-language-var '(macro . #[(var language val) "\303\304D\304 D\304\nDF\207" [var language val lyskom-language-var-internal quote] 5])) (put 'lyskom-language-var 'lisp-indent-function 2) (defalias 'lyskom-set-language-vars #[(language) "\301\302\"\207" [lyskom-language-vars mapcar #[(var) "J\203 \302N\205\303 \304N\236A!L\207" [var language lyskom-language-force eval lyskom-language-var] 5]] 3]) #@45 A list of all language-dependent variables. (defvar lyskom-language-keymaps nil (#$ . 204098)) #@42 Defines a language-local variable value. (defalias 'lyskom-language-keymap-internal #[(keymap language langmap) "\306!\204 \307 L\210 >\204 B\310N \n\236\211\203'\f \241\2020\311\310 B\nB#*\207" [keymap lyskom-language-keymaps alist language entry langmap eval make-sparse-keymap lyskom-language-keymap put] 6 (#$ . 204199)]) (defalias 'lyskom-language-keymap '(macro . #[(keymap language langmap) "\303\304D\304 D\304\nDF\207" [keymap language langmap lyskom-language-keymap-internal quote] 5])) (put 'lyskom-language-keymap 'lisp-indent-function 2) (defalias 'lyskom-set-language-keymaps #[(language) "\301\302\"\207" [lyskom-language-keymaps mapcar #[(map) "\302J\303 \304N\236A!\"\207" [map language set-keymap-parent eval lyskom-language-keymap] 6]] 3]) #@144 Associates names to symbols. CATEGORY and LANGUAGE determines what kind of association to create. ALIST is a mapping from symbols to strings. (defalias 'lyskom-language-strings-internal #[(category language alist) " >\204\n B\304N\305\306 \"\210\307\304\n#)\207" [category lyskom-language-categories record alist lyskom-language-symbols mapcar #[(pair) "@A N \f\236 >\204 B\203(\n\241\2021\306 \nB\fB#,\207" [pair symbol string category llist language put entry record] 5] put] 4 (#$ . 204984)]) (defalias 'lyskom-language-strings '(macro . #[(category language alist) "\303\304D\304 D\nF\207" [category language alist lyskom-language-strings-internal quote] 4])) (defalias 'lyskom-language-missing-string-internal #[(category string languages) "\304 N\236\211\203\n\305 \nA\"\241\202\306 \304 B NB#)\207" [string category old-missing languages lyskom-missing-languages append put] 7]) (defalias 'lyskom-language-ending-mismatch-internal #[(category string l1 l2) "\305 N\236\211\203\n\306 \fB\f BD\nA\"\241\202+\307 \305 \fB\f BDB NB#)\207" [string category old-mismatch l1 l2 lyskom-ending-mismatch append put] 8]) (defalias 'lyskom-language-missing-string '(macro . #[(category string &rest languages) "\303\304D\304 D\304\nDF\207" [category string languages lyskom-language-missing-string-internal quote] 5])) (defalias 'lyskom-language-ending-mismatch '(macro . #[(category string l1 l2) "\304\305D\305 D\305\nD\305 D\257\207" [category string l1 l2 lyskom-language-ending-mismatch-internal quote] 6])) (put 'lyskom-language-strings 'lisp-indent-function 2) #@78 Retrieve the phrase indexed by the key from the kom-tell-phrases assoc list. (defalias 'lyskom-tell-string #[(key) "\300\301\302\217\207" [nil (byte-code "\301\302\"\207" [key lyskom-get-string kom-tell-phrases] 3) ((lyskom-internal-error (message "Bad kom-tell-phrases: missing %s" key) ""))] 3 (#$ . 206604)]) (put 'lyskom-tell-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lyskom-get-string-internal #[(symbol category) " \nN\236A\207" [lyskom-language symbol category] 3]) (put 'lyskom-get-string-internal 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lyskom-get-string-error #[(function symbol category) "\303\304 \n\305ED\"\207" [function symbol category signal lyskom-internal-error ": string not found"] 6]) (put 'lyskom-get-string-error 'byte-optimizer 'byte-compile-inline-expand) #@39 Returns string associated with SYMBOL (defalias 'lyskom-get-string #[(symbol &optional category) " \206\304\n N\236A*\206&\305 \206\304\306\307  \310ED\"+\207" [symbol category lyskom-language function lyskom-message lyskom-get-string signal lyskom-internal-error ": string not found"] 6 (#$ . 207431)]) #@115 Returns string associated with SYMBOL If kom-long-lines is set, return the long form of the string, if it exists. (defalias 'lyskom-get-string-sol #[(symbol &optional category) "\203\305\306 !\307P!\n\206\310 \nN\236A*\206B \n\206\"\310 \nN\236A*\206B\311 \n\2065\310\312\313\f \n\314ED\"+\207" [kom-long-lines symbol category lyskom-language function intern symbol-name "-long" lyskom-message lyskom-get-string signal lyskom-internal-error ": string not found"] 6 (#$ . 207756)]) #@132 Returns an alist of (symbol . string) pairs according to CATEGORY and lyskom-language. Kind of inverse to lyskom-define-language. (defalias 'lyskom-get-strings #[(symbols &optional category) "\301\302\"\207" [symbols mapcar #[(symbol) "\302 \"B\207" [symbol category lyskom-get-string] 4]] 3 (#$ . 208262)]) #@121 Returns the name of a menu(item) Looks for the 'lyskom-menu category, or 'lyskom-command if 'lyskom-menu is not found. (defalias 'lyskom-get-menu-string #[(symbol) "\304\305\n N\236A*\206-\306\n N\236A*\206-\307\305\310\311  \312ED\"+\313\"\207" [symbol category lyskom-language function encode-coding-string lyskom-menu lyskom-command lyskom-get-menu-string signal lyskom-internal-error ": string not found" iso-8859-1] 7 (#$ . 208581)]) #@71 Returns list of names for the category, and their supported languages (defalias 'lyskom-string-check-category #[(category) "\301\302\303N\"\207" [category mapcar #[(symbol) " N\211\205\303\304\n\"B)\207" [symbol category info mapcar car] 5] lyskom-language-symbols] 4 (#$ . 209042)]) (defalias 'lyskom-define-language #[(language coding &rest names) " \236\211\203\n \241\210\202 B B)\f\203 \204\"\306\307#\207" [language lyskom-languages match names lyskom-language kom-default-language put lyskom-language-coding coding] 5]) (defalias 'lyskom-language-coding #[(language) "\301N\206\302\207" [language lyskom-language-coding raw-text] 2]) #@68 Return the name of language code LANGUAGE in the current language. (defalias 'lyskom-language-name #[(language) "\212\203q\210 \n\236A\206\303\304\n\236A\305 !\")\207" [lyskom-buffer language lyskom-language-codes lyskom-format -- symbol-name] 4 (#$ . 209716)]) #@39 Set the current language to LANGUAGE. (defalias 'lyskom-set-language #[(language) " \236\204\303\304\305!\"\210\306\207\307!\210\310!\210\311 \210\312\313!\210\314 \210\313\207" [language lyskom-languages lyskom-language lyskom-format-insert-before-prompt language-not-loaded lyskom-language-name nil lyskom-set-language-vars lyskom-set-language-keymaps lyskom-update-menus lyskom-update-prompt t lyskom-update-command-completion] 4 (#$ . 209990)]) (byte-code "\306\307!\210\310\311\312\"\210\310\307\313\"\210\314P\315\316\317\320#\210\321\301!\204 \322\301\nB\323\324\316\301#\210\321\303!\2042\322\303\nB \204\325 \326\303!\210\326\327!\210\326\330!\210\326\331!\210\326\332!\210\333 \334\303#\210\333 \335\336\337!!\340#\210\333 \335\336\341!!\342#\210\333 \335\336\343!!\344#\210\333 \335\336\345!!\342#\210\333 \346\331#\210\333 \347\350#\210\333 \351\327#\210\333 \352\327#\210\333 \353\327#\210\333 \354\327#\210\333 \336\355!\327#\210\333 \336\356!\327#\210\333 \357\327#\210\333 \360\327#\210\333 \361\362#\210\333 \363\364#\210\333 \365\330#\210\333 \334\366#\210\333 \367\370#\210\333 \371\372#\210\333 \373\350#\210\333 \374\375#\210\333 \376\375#\210\333 \377\350#\210\333 \201O\201P#\210\333 \201Q\201P#\210\333 \201R\201P#\210\333 \201S\201T#\210\333 \201U\201V#\210\333 \201W\201V#\210\333 \201X\201V#\210\333 \201Y\201V#\210\333 \201Z\201V#\210\333 \201[\201V#\210\333 \201\\\201V#\210\333 \201]\201V#\210\333 \201^\201V#\210\333 \201_\201`#\210\333 \201a\332#\210\333 \201b\201c#\210\333 \201b\201c#\210\333 \201d\201e#\210\333 \201f\201g#\210\333 \201h\201i#\210\333 \201j\201c#\210\333 \201j\201c#\210\333 \201k\201l#\210\333 \201m\201n#\210\333 \201o\201p#\210\333 \201q\201r#\210\333 \201s\201t#\210\333 \201u\350#\210\322\304\nB\201v\201w\316\201x#\210\201v\201y\316\201z#\210\201{\201|\316\201}#\210\201v\201~\316\201#\210\201{\201\200\316\201\201#\210\201{\201\202\316\201\203#\210\201{\201\204\316\201\205#\210\201{\201\206\316\201\207#\210\201\210\305\nB\321\201@!\204\210\322@\201@\nB\323\201\211\316\201@#\210\321\201A!\204\243\322A\201A\nB\321\201B!\204\264\322B\201B\nB\321\201C!\204\305\322C\201C\nB\321\201D!\204\326\322D\201D\nB@\204\207 \201\212 @\201\213@!\210\326\201\214!\210\326\201\215!\210\326\201\216!\210\326\201B!\210\326\201A!\210\326\201C!\210\326\201D!\210\333@\201\217\201D#\210\333@\201\220\201\216#\210\333@\201\221\201B#\210\333@\201\222\201A#\210\333@\201\223\201C#\210\333@\336\201\224!\201\215#\210\333@\336\201\225!\201\215#\210\333@\336\201\226!\201\214#\210\333@\336\201\227!\201\214#\210\333@\201\230\201\215#\210\333@\201\231\201\215#\210\333@\201\232\201\214#\210\333@\201\233\201\214#\210\333@\335\336\341!!\201\234#\210\333@\335\336\343!!\344#\210\333@\335\336\337!!\342#\210\333@\335\336\345!!\342#\210\333@\361\362#\210\333@\363\364#\210\333@\365\201\235#\210\333@\201\236\201\237#\210\333@\365\201\235#\210\333@\201\236\201\237#\210\333@\201\240\201\215#\210\333@\201\241\201\215#\210\333@\351\201\214#\210\333@\352\201\214#\210\333@\201\242\350#\210\333@\373\350#\210\333@\201\243\350#\210\333@\201\244\350#\210\333@\201\245\350#\210\333@\201\246\350#\210\333@\201\247\201\250#\210\333@\201\251\201\252#\210\333@\201\253\201\254#\210\333@\201\255\201\256#\210\333@\201\257\201\260#\210\333@\201\257\201\260#\210\333@\201\261\201\260#\210\333@\201\255\201\256#\210\333@\347\201\262#\210\333@\201\263\201\264#\210\333@\201\265\201\266#\210\333@\201\267\201\270#\210\333@\201\271\201\272#\210\333@\201\273\201\274#\210\333@\201\275\201\276#\210\333@\201\277\201\300#\210\333@\201\301\201\302#\210\333@\201\303\201\304#\210\333@\201\305\201\306#\210\333@\201\307\201\310#\210\333@\201\311\201\312#\210\333@\201\313\201\314#\210\333@\201\315\201\316#\210\333@\201\317\201\320#\210\333@\201\321\201\322#\210\333B\336\201\224!\201\323#\210\333B\336\201\225!\201\323#\210\333B\201\324\201\323#\210\333B\201\325\201\323#\210\333@\201\326\201\323#\210\333@\201\327\201\323#\210\333@\201\330\201\331#\210\333@\201\332\201\333#\210\333@\201\334\201\335#\210\333@\201\336\201\337#\210\333@\201\340\201\341#\210\333@\201\342\201\343#\210\333@\201\344\201\345#\210\333@\201\346\201\347#\210\333@\201\350\201\351#\210\333@\201\352\201\353#\210\333@\201\354\201\355#\210\333@\201\356\201\355#\210\333@\201\357\201\360#\210\333@\201\361\201\362#\210\333@\201\363\201\364#\210\333@\201\365\201\366#\210\333@\201\367\201\370#\210\333@\201\371\201\372#\210\333D\336\201\224!\201\373#\210\333D\336\201\225!\201\373#\210\333D\201\374\201\373#\210\333D\201\375\201\373#\210\333@\201\376\201\373#\210\333@\201\377\201\373#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201 #\210\333@\201\n\201 #\210\333@\201\f\201 #\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\201\201#\210\333@\376\201#\210\333@\201\201#\210\333@\201 \350#\210\333@\201!\201\"#\210\333@\201#\201$#\210\333@\201%\201&#\210\333@\201'\201(#\210\333@\201)\201*#\210\333@\201+\201,#\210\333@\201-\201.#\210\333@\201/\201.#\210\333@\2010\2011#\210\333@\2012\2013#\210\333@\2014\2015#\210\333@\2016\2017#\210\333@\2018\2019#\210\333@\201:\201;#\210\333@\201<\201=#\210\333@\201>\201?#\210\333@\201@\201A#\210\333@\201B\201C#\210\333@\201D\2015#\210\333@\201E\201F#\210\333@\201G\201H#\210\333@\201I\201J#\210\333@\201K\201L#\210\333A\336\201\224!\201M#\210\333A\336\201\225!\201M#\210\333A\201N\201M#\210\333A\201O\201M#\210\333@\201P\201M#\210\333@\201Q\201M#\210\333@\201R\201S#\210\333@\201T\201S#\210\333@\201U\201V#\210\333@\201W\201X#\210\333@\201Y\201Z#\210\333@\201[\201\\#\210\333@\201]\201^#\210\333@\201_\201`#\210\333@\201a\201b#\210\333@\201c\201b#\210\333@\201d\201b#\210\333@\201e\201b#\210\321\201E!\204\222 \322E\201E\nB\323\201f\316\201E#\210E\204 \201\212 E\201\213E!\210\326\201g!\210\333E\334\201g#\210\333E\201\277\201h#\210\333E\201\301\201i#\210\333E\201\220\201j#\210\333E\201k\201l#\210\333E\201m\201h#\210\333E\201n\201j#\210\333E\201S\201h#\210\333E\201o\201j#\210\333E\201W\201i#\210\333E\201Y\201l#\210\333E\201p\201q#\210\333E\201r\201s#\210\333E\201t\201q#\210\333E\201u\201q#\210\333E\201\267\201v#\210\333E\201w\201v#\210\333E\201x\201y#\210\333E\201z\201{#\210\333E\201|\201}#\210\333E\201~\201{#\210\333E\201\201}#\210\333E\201\356\201\200#\210\333E\201\201\201\200#\210\333E\201\202\201\203#\210\333E\201\222\201\204#\210\333E\201\265\201\205#\210\333E\201\363\201\206#\210\333E\201\251\201\207#\210\333E\347\201\210#\210\333E\201\303\201\210#\210\321\201F!\204 \322F\201F\nB\323\201\211\316\201F#\210F\204\327\f\201\212 F\201\213F!\210\333F\335\336\341!!\201\234#\210\333F\335\336\343!!\344#\210\333F\335\336\337!!\342#\210\333F\335\336\345!!\342#\210\333F\361\362#\210\333F\363\364#\210\333F\347\201\212#\210\333F\371\201\213#\210\333F\201Q\201\214#\210\333F\201\253\201\213#\210\333F\201\255\201\215#\210\333F\201\255\201\215#\210\333F\201\257\201\215#\210\333F\201\216\201\215#\210\333F\201n\201\215#\210\333F\201\217\201\220#\210\333F\201\221\201\222#\210\333F\201\223\201\220#\210\333F\201m\201\220#\210\333F\201\277\201\220#\210\333F\201\224\201\225#\210\333F\201W\201\225#\210\333F\201\226\201\225#\210\333F\201\227\201\230#\210\333F\201Y\201\230#\210\333F\201p\201\230#\210\333F\201\220\201\230#\210\333F\201~\201\231#\210\333F\201\201\232#\210\333F\201\223\201\233#\210\333F\201\265\201\234#\210\333F\201\277\201\235#\210\333F\201\222\201\236#\210\333F\201\356\201\237#\210\333F\201\201\201\237#\210\333F\365\201\235#\210\333F\365\201\235#\210\333F\201\236\201\237#\210\333F\201\236\201\237#\210\201{\201\240\316\201\241#\210\201{\201\242\316\201\243#\210\321\201G!\204\372\f\322G\201G\nB\323\201\244\316\201G#\210G\204\314 \325 G\333G\365\201\245#\210\333G\201\236\201\246#\210\333G\365\201\245#\210\333G\201\236\201\246#\210\333G\201\255\201\247#\210\333G\201\257\201\247#\210\333G\201\255\201\247#\210\333G\201\257\201\247#\210\333G\335\336\341!!\201\250#\210\333G\335\336\343!!\201\251#\210\333G\335\336\337!!\342#\210\333G\335\336\345!!\342#\210\333G\201\201\201\252#\210\333G\201\253\201\254#\210\333G\201\255\201\256#\210\333G\201\257\201\260#\210\333G\347\201\261#\210\201v\201\262\316\201\263#\210\201{\201\264\316\201\265#\210\201{\201\266\316\201\267#\210\201v\201H\316\201\270#\210\321\201H!\203H\203\201v\201H\316\201\271\201\272H\"#\210\201{\201\273\316\201\274#\210\201v\201\275\316\201\276#\210\306\201\277!\210\310\311\312\"\210\310\307\313\"\210\201\300P\315\201\301\317\201\302\201\303$\210\321\201I!\204a\322I\201I\nB\323\324\201\301\201I#\210\321\201J!\204|\322J\201J\nBI\2049\325 I\326\201J!\210\326\201\304!\210\326\201\305!\210\326\201\306!\210\326\201\307!\210\333 \335\336\337!!\340#\210\333 \335\336\341!!\342#\210\333I\335\336\343!!\344#\210\333I\335\336\345!!\342#\210\333I\334\201J#\210\333J\346\201\306#\210\333J\347\350#\210\333J\201\310\201\304#\210\333J\365\201\305#\210\333J\361\362#\210\333J\201\311\364#\210\333J\334\366#\210\333J\367\370#\210\333J\371\372#\210\333J\201\312\350#\210\333J\201\313\375#\210\333J\377\350#\210\333J\201\314\201P#\210\333J\201Q\201P#\210\333J\201R\201P#\210\333J\201S\201T#\210\333J\201U\201V#\210\333J\201W\201V#\210\333J\201X\201V#\210\333J\201Y\201V#\210\333J\201Z\201V#\210\333J\201[\201V#\210\333J\201\\\201V#\210\333J\201]\201V#\210\333J\201^\201V#\210\333J\201_\201`#\210\333J\201a\201\307#\210\333J\201\315\201c#\210\333J\201\316\201e#\210\333J\201b\201i#\210\333J\201m\201n#\210\333J\201o\201p#\210\333J\201q\201r#\210\333J\201\317\201t#\210\333J\201u\350#\210\201\320\201w\201\321\201\322#\210\201\320\201w\201\323\201\324#\210\201\320\201w\201\325\201\326#\210\201\327\201w\201\330\201\301\316$\210\201\327\201w\201\331\201\301\316$\210\201v\201w\201\301\201\332#\210\201v\201y\201\301\201\333#\210\201{\201|\201\301\201\334#\210\201v\201~\201\301\201\335#\210\201{\201\200\201\301\201\336#\210\201{\201\202\201\301\201\337#\210\201{\201\204\201\301\201\340#\210\201{\201\206\201\301\201\341#\210\322\305\nB\321\201K!\204\322K\201K\nB\323\201\211\201\301\201K#\210K\204L\201\212 K\201\213K!\210\326\201\342!\210\326\201\343!\210\326\201\344!\210\326\201\345!\210\326\201\346!\210\326\201\347!\210\326\201\350!\210\333K\201\340\201\343#\210\333K\201\223\201\342#\210\333K\201\217\201\346#\210\333K\201\220\201\344#\210\333K\201\221\201\345#\210\333K\201\222\201\347#\210\333K\201\263\201\350#\210\333K\335\336\341!!\201\234#\210\333K\335\336\343!!\344#\210\333K\335\336\337!!\342#\210\333K\335\336\345!!\342#\210\333K\361\362#\210\333K\201\311\364#\210\333K\365\201\235#\210\333K\201\236\201\237#\210\333K\201\351\350#\210\333K\201\312\350#\210\333K\201\243\350#\210\333K\201\244\350#\210\333K\201\245\350#\210\333K\201\246\350#\210\333K\201\352\201\250#\210\333K\201\202\201\252#\210\333K\201\253\201\254#\210\333K\201\257\201\260#\210\333K\201\255\201\256#\210\333K\347\201\262#\210\333K\201\334\201\264#\210\333K\201\265\201\266#\210\333K\201\251\201\270#\210\333K\201\353\201\272#\210\333K\201\354\201\274#\210\333K\201\275\201\276#\210\333K\201\277\201\300#\210\333K\201\301\201\302#\210\333K\201\261\201\304#\210\333K\201\201\306#\210\333K\201\307\201\310#\210\333K\201\355\201\312#\210\333K\201\313\201\314#\210\333K\201\356\201\316#\210\333K\201\317\201\320#\210\333K\201\321\201\322#\210\333K\201\357\201\323#\210\333K\201\330\201\331#\210\333K\201\360\201\333#\210\333K\201\354\201\335#\210\333K\201\336\201\337#\210\333K\201\361\201\341#\210\333K\201\362\201\343#\210\333K\201\363\201\345#\210\333K\201\346\201\347#\210\333K\201\364\201\351#\210\333K\201\365\201\353#\210\333K\201\356\201\355#\210\333K\201\357\201\360#\210\333K\201\361\201\362#\210\333K\201\363\201\364#\210\333K\201\366\201\366#\210\333K\201\367\201\370#\210\333K\201\367\201\373#\210\333K\201\370\201#\210\333K\201\371\201#\210\333K\201\372\201#\210\333K\201w\201#\210\333K\201\373\201 #\210\333K\201\374\201 #\210\333K\201\375\201 #\210\333K\201\376\201#\210\333K\201\377\201\372#\210\333K\201\201#\210\333K\201\201#\210\333K\201\201#\210\333K\201\201#\210\333K\201\201#\210\333K\201\201#\210\333K\201\201#\210\333K\201\201#\210\333K\201\201#\210\333K\201 \201#\210\333K\201\n\201#\210\333K\201 \201#\210\333K\201\f\201#\210\333K\201 \350#\210\333K\201\201\"#\210\333K\201\201$#\210\333K\201\201&#\210\333K\201\201*#\210\333K\201\201,#\210\333K\201\201.#\210\333K\201\2011#\210\333K\201\2017#\210\333K\201\2015#\210\333K\201\2013#\210\333K\201\201(#\210\333K\201\201A#\210\333K\201E\201F#\210\333K\201\2019#\210\333K\201\201;#\210\333K\201T\201=#\210\333K\201\201?#\210\333K\201\201C#\210\333K\201\2015#\210\333K\201\201V#\210\333K\201 \201S#\210\333K\201!\201H#\210\333K\201\"\201J#\210\333K\201K\201L#\210\333K\201G\201M#\210\333K\201W\201X#\210\333K\201Y\201Z#\210\333K\201[\201\\#\210\333K\201]\201^#\210\333K\201#\201`#\210\333K\201$\201b#\210\333K\201c\201b#\210\333K\201%\201b#\210\333K\201&\201b#\210\321\201L!\204W\322L\201L\nB\323\201f\201\301\201L#\210L\204\322\201\212 L\201\213L!\210\326\201'!\210\333L\334\201'#\210\333L\201\277\201h#\210\333L\201\301\201i#\210\333L\201\220\201j#\210\333L\201k\201l#\210\333L\201m\201h#\210\333L\201n\201j#\210\333L\201S\201h#\210\333L\201o\201j#\210\333L\201W\201i#\210\333L\201Y\201l#\210\333L\201p\201q#\210\333L\201r\201s#\210\333L\201t\201q#\210\333L\201u\201q#\210\333L\201\267\201v#\210\333L\201w\201v#\210\333L\201x\201y#\210\333L\201z\201{#\210\333L\201|\201}#\210\333L\201~\201{#\210\333L\201\201}#\210\333L\201\356\201\200#\210\333L\201\201\201\200#\210\333L\201\202\201\203#\210\333L\201\222\201\204#\210\333L\201\265\201\205#\210\333L\201\363\201\206#\210\333L\201\251\201\207#\210\333L\347\201\210#\210\333L\201\303\201\210#\210\321\201M!\204\335\322M\201M\nB\323\201\211\201\301\201M#\210M\204x\201\212 M\201\213M!\210\333M\335\336\341!!\201\234#\210\333M\335\336\343!!\344#\210\333M\335\336\337!!\342#\210\333M\335\336\345!!\342#\210\333M\361\362#\210\333M\201\311\364#\210\333M\347\201\212#\210\333M\371\201\213#\210\333M\201Q\201\214#\210\333M\201\253\201\213#\210\333M\201\255\201\215#\210\333M\201\257\201\215#\210\333M\201c\201\220#\210\333M\201(\201\222#\210\333M\201)\201\215#\210\333M\201n\201\215#\210\333M\201*\201\220#\210\333M\201m\201\220#\210\333M\201\277\201\220#\210\333M\201+\201\225#\210\333M\201W\201\225#\210\333M\201\226\201\225#\210\333M\201,\201\230#\210\333M\201Y\201\230#\210\333M\201p\201\230#\210\333M\201~\201\231#\210\333M\201\201\232#\210\333M\201\223\201\233#\210\333M\201\265\201\234#\210\333M\201\277\201\235#\210\333M\201\222\201\236#\210\333M\201\356\201\237#\210\333M\201\201\201\237#\210\333M\365\201\235#\210\333M\201\236\201\237#\210\201{\201\240\201\301\201\241#\210\201{\201\242\201\301\201-#\210\321\201N!\204\237\322N\201N\nB\323\201\244\201\301\201N#\210N\204s\325 N\333N\365\201\245#\210\333N\201\236\201\246#\210\333N\365\201\245#\210\333N\201\236\201\246#\210\333N\201\255\201\247#\210\333N\201\257\201\247#\210\333N\201\255\201\247#\210\333N\201\257\201\247#\210\333N\335\336\337!!\342#\210\333N\335\336\345!!\342#\210\333N\335\336\341!!\201\250#\210\333N\335\336\343!!\201\251#\210\333N\201\201\201\252#\210\333N\201\253\201\254#\210\333N\201\255\201\256#\210\333N\201\257\201\260#\210\333N\347\201\261#\210\201v\201\262\201\301\201.#\210\201{\201\264\201\301\201/#\210\201{\201\266\201\301\2010#\210\201v\201H\201\301\2011#\210\321\201H!\203\314H\203\314\201v\201H\201\301\201\271\2012H\"#\210\201{\201\273\201\301\2013#\210\201v\201\275\201\301\2014#\210\306\2015!\210\2016P\322\207" [lyskom-clientversion-long lyskom-sv-edit-mode-map current-load-list lyskom-sv-edit-prefix lyskom-strings-missing lyskom-keybindings-missing provide lyskom-language require lyskom-vars "vars" "language" "$Id: swedish-strings.el,v 44.152 2001/02/25 16:26:50 joel Exp $\n" lyskom-define-language sv iso-8859-1 "Svenska" boundp nil lyskom-language-keymap-internal lyskom-edit-mode-map make-sparse-keymap define-prefix-command lyskom-sv-edit-review-prefix lyskom-sv-edit-insert-prefix lyskom-sv-edit-aux-prefix lyskom-sv-edit-add-prefix define-key "" read-kbd-macro lyskom-keys button2up kom-button-click-or-yank button2 kom-mouse-null button3 kom-popup-menu button3up "" "?" lyskom-help "}" "]" "" [67108989] C- C- [(control )] [(control )] "*" kom-button-press "=" kom-menu-button-press " " kom-edit-send "" kom-ispell-message " " kom-edit-quit "}?" "} " kom-edit-show-commented "}k" " ?" lyskom-sv-mode-map lyskom-sv-S-prefix lyskom-sv-list-prefix lyskom-sv-fast-reply-prefix lyskom-sv-filter-get-prefix lyskom-sv-filter-edit-map lyskom-sv-prioritize-mode-map lyskom-sv-customize-map kom-tell-phrases lyskom-en-edit-mode-map lyskom-en-edit-prefix lyskom-en-mode-map lyskom-en-filter-edit-map lyskom-en-prioritize-mode-map lyskom-en-customize-map " " kom-edit-insert-commented "" " " "" kom-edit-insert-buglist " 1" kom-edit-insert-digit-text " 2" " 3" " 4" " 5" " 6" " 7" " 8" " 9" " " kom-edit-insert-text "" " " kom-edit-add-recipient "" kom-edit-add-copy "" kom-edit-add-bcc "" kom-edit-move-text "\n" " " kom-edit-add-comment "" kom-edit-add-cross-reference "" kom-edit-add-personal-comments "" kom-edit-add-no-comments "" kom-edit-add-read-confirm-request "?" lyskom-language-strings-internal lyskom-message ((server-q . "LysKOM-server? (%#1s) ") (try-connect . "LysKOM elisp-klient version %#1s.\nFrsker koppla upp mot %#2s.\n") (too-old-server . "Servern r fr gammal fr den hr versionen av klienten.") (connection-done . "Uppkopplingen klar. Serverns versionsnummer r %#1s.\n\n") (what-is-your-name . "Vad heter du? ") (password . "Lsenord? ") (wrong-password . "Fel lsen.\n") (wrong-password-help . "\nDu kan skicka e-mail till ngon av nedanstende adresser fr att f\nett nytt lsenord eller fr att f din gamla person raderad s att du\nkan skapa en ny:\n") (wrong-password-email . "* %#1t\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:\nWWW: \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") (you-have-deleted-yourself . "Du har utplnat dig sjlv.\n") (what-text-to-delete . "Vilket inlgg skall tas bort? ") (delete-marked-text . "Inlgget r %#1s. Ta bort nd? ") (delete-marked-by-you . "markerat av dig") (delete-marked-by-you-and-others . "markerad av dig och %#1?d%[ngon annan%]%[%#1d andra%]") (delete-marked-by-several . "markerat av %#1d person%#1?d%[%]%[er%]") (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") (no-comment-to . "Det finns inget kommenterat inlgg att titta p.\n") (who-letter-to . "Vem vill du skicka brev till? ") (who-send-text-to . "Vem vill du skicka inlgget 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 (passivt medlemskap), 1 (lg) - 255 (hg)) ") (done . "klart.\n") (cancelled . "avbrutet.\n") (nope . "det gick inte.\n") (add-already-member . "%#1P r redan medlem i %#2M.\n") (cant-find-supervisor . "Hittar inte organisatren fr %#1M.\n") (is-read-protected-contact-supervisor . "%#1M r slutet.\nSkicka ett brev till %#2P fr medlemskap.\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? ") (secret-members-allowed . "Fr man g med som hemlig medlem? ") (what-comment-no . "Kommentera text nummer: ") (what-footnote-no . "Fotnotera text nummer: ") (what-private-no . "Personligt svar till text nummer: ") (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") (session-ended-long . "\n*******************************************************************************\nLysKOM-sessionen r avslutad.\n*******************************************************************************\n") (session-auto-ended-long . "\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): ") (what-to-change-faq-you . "Vilket mte vill du ndra FAQ fr: ") (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): ") (search-re . "Ange skuttryck (reguljrt uttryck): ") (no-matching-confs . "Inga mten uppfyller skvillkoret \"%#1s\".\n") (no-matching-perss . "Inga personer uppfyller skvillkoret \"%#1s\".\n") (no-matching-anys . "Inga personer eller mten uppfyller uttrycket \"%#1s\".\n") (no-confs-exist . "Det finns inga mten i databasen.\n") (no-pers-confs-exist . "Det finns inga mten eller personer i databasen.\n") (list-confs-created-by . "Lista gda mten fr: ") (listing-confs-created-by . "gda mten fr %#1P\n S=Skapat, O=Organisatr, M=Brevlda som supermte; S=Slutet, H=Hemligt\n") (list-pers-confs-created-by . "Lista gda mten (med brevldor) fr: ") (getting-all-confs . "Hmtar en lista av alla mten frn servern...") (getting-all-pers-confs . "Hmtar en lista av alla personer och mten frn servern...") (getting-all-confs-done . "Hmtar en lista av alla mten frn servern...klart") (getting-all-pers-confs-done . "Hmtar en lista av alla personer och mten frn servern...klart") (finding-created-confs . "Sker gda mten (%#1d av %#2d klart)") (finding-created-pers-confs . "Sker gda mten (med brevldor) (%#1d av %#2d klart)") (no-created-confs . "%#1P r inte skapare, organisatr eller supermte fr ngot mte.\n") (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: ") (new-paren . "Ny parentes: ") (no-paren-in-name . "Namnet innehller ingen parentes.\n") (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...") (list-which-mark . "Lista vilken markering (0-255, RET fr alla)? ") (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 nuvarande lsenord: ") (new-passwd . "Mata in det nya lsenordet: ") (changing-passwd . "ndrar lsenordet...") (retype-dont-match . "Lsenorden r inte samma. Gr om.\n") (palindrome . " (en palindrom!)") (lyskom-name . "Anvndare") (is-in-conf . "Nrvarande i mte") (from-machine . "Kr frn") (is-doing . "Gr") (connection-time . "Loggade in") (active-last . "Aktiv senast") (active . "Aktiv") (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-add-bcc . "Vilket inlgg vill du skicka fr knnedom:") (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:") (text-to-add-footnote-to . "Vilket inlgg vill du addera en fotnot till:") (text-to-delete-footnote-from . "Vilket inlgg vill du subtrahera en fotnot frn:") (text-has-no-recipients-r . "Inlgg %#1n har inga mottagare\n") (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...") (change-priority-for-q . "ndra prioritet fr mte: ") (change-priority-for . "ndra prioritet p %#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") (passivate-done . "Du r nu passiv medlem i %#1M.\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") (weekdays . ["sndag" "mndag" "tisdag" "onsdag" "torsdag" "fredag" "lrdag" "sndag"]) (weekdays-short . ["sn" "mn" "tis" "ons" "tor" "fre" "lr" "sn"]) (time-is . "Det r %#1s%#2s (enligt servern).") (time-is-week . "Det r %#1s%#2s, vecka %#3d (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.\nDu har vl varit i julottan?") (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 anvndare (%#2s).\n") (total-users-sans-date . " Sammanlagt %#1d anvndare\n") (total-visible-users . " Sammanlagt %#1d synlig%#1?d%[%]%[a%] anvndare (%#2s).\n") (total-active-users . " Sammanlagt %#1d aktiv%#1?d%[%]%[a%] anvndare (%#2s).\n") (total-visible-active-users . " Sammanlagt %#1d synlig%#1?d%[%]%[a%] aktiv%#1?d%[%]%[a%] anvndare (%#2s).\n") (client-statistics . " Klienternas frdelning:\n") (client-statistics-line . " %=-35#1s: %3#2d") (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-add-bcc-q . "Vilket mte/person vill du addera som mottagare fr knnedom? ") (really-add-as-recpt-q . "Skall framtida kommentarer till inlgget ocks skickas till %#1M? ") (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...") (error-recipient-limit . "Text %#1n har fr mnga mottagare.\n") (error-already-recipient . "%#2M r redan mottagare till inlgg %#1n.\n") (error-permission-denied-add-recpt . "Bara frfattaren till %#1n eller organisatren fr %#2M kan ndra mottagartyp.\n") (error-permission-denied-sub-recpt . "Bara frfattaren till %#1n eller organisatren fr %#2M kan subtrahera mottagare.\n") (error-access-denied-add-recpt . "Du fr inte addera inlgg till %#2M.\n") (error-not-recipient . "%#2M r inte mottagare till inlgg %#1n.\n") (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? ") (text-to-add-footn-q . "Vilket inlgg vill du addera som fotnot? ") (text-to-remove-footn-q . "Vilket inlgg vill du subtrahera som fotnot? ") (add-comment-to . "Adderar text %#1n som kommentar till text %#2n...") (sub-comment-to . "Subtraherar text %#1n som kommentar till text %#2n...") (add-footnote-to . "Adderar text %#1n som fotnot till text %#2n...") (sub-footnote-to . "Subtraherar text %#1n som fotnot 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") (checking-comments . "Kontrollerar kommenterade texter...") (checking-comments-done . "Kontrollerar kommenterade texter...klart") (please-check-commented-texts . "terse de kommenterade texterna och deras kommentarer.") (have-unread-comment . "Skicka in trots olsta kommentarer till text %#1n? ") (duplicate-recipients . "Kan inte skicka in texten. En mottagare frekommer flera gnger (%#1M)") (no-recipients . "Kan inte skicka in texten. Inga mottagare har angivits.") (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") (no-other-lyskom-r . "Det finns inga fler aktiva LysKOM-sessioner.\n") (no-lyskom-session . "Det finns ingen aktiv LysKOM-session.") (no-other-unread-lyskom-r . "Hittar ingen annan LysKOM-session med olsta.\n") (no-unread-lyskom-r . "Hittar ingen aktiv LysKOM-session med olsta.\n") (no-unread-lyskom . "Hittar ingen aktiv LysKOM-session med olsta.") (who-is-on-in-what-conference . "Vilka i vilket mte: ") (who-is-active-and-member . "Visar endast medlemmar i %#1M.\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 . "Hemligt") (no-comments . "original") (closed . "slutet") (allow-anon . "anonymt ok") (allow-secret . "hemliga medl") (created-by . "Skapat av person %25#1p %#3s(%#2P)\n") (created-at . "Skapad:%35#1s\n") (members . "Antal medlemmar: %25#1d\n") (conf-allows-secret-members . "Hemliga medlemmar: %#1s\n") (conf-allows-anon-texts . "Anonyma inlgg: %#1s\n") (anon-texts-permitted . "Anonyma inlgg r tilltna") (anon-texts-not-permitted . "Anonyma inlgg r inte tilltna") (secret-members-permitted . "Hemliga medlemmar r tilltna") (secret-members-not-permitted . "Hemliga medlemmar r inte tilltna") (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-mship-priority . "Prioritet: %25#1n%#2?b%[ %#2s%]%[%]\n") (conf-has-motd . "\n%#1M har en lapp p drren:\n") (status-conf-generic . "%-40#1s %#2s\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") (conf-has-no-members . "\n%#1M har inga medlemmar.\n") (member-list-header . "Senast inne Osett Namn\n\n") (secret-membership . "*** Hemlig rad ***\n") (conf-membership-line . "%#1s%#2M %#3s\n") (conf-membership-line-2 . " Adderad %#1s av %#2P\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 %#4s\n") (pers-membership-line-2 . " Adderad %#1s av %#2P\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 alarmmeddelande ld:\n\n%#1t\n----------------------------------------------------------------\n") (message-sent-to-user-long . "===============================================================================\nDitt meddelande till %#2M:\n\n%#1t\n-------------------------------------------------------------------------------\n") (message-sent-to-all-long . "===============================================================================\nDitt alarmmeddelande ld:\n\n%#1t\n-------------------------------------------------------------------------------\n") (message-use-alarm-instead . "Anvnd kommandot %#1s fr att skicka alarmmeddelanden.\n") (message-all-info . "Snd alarmmeddelande\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. Ledsen.\n") (you-have-unreads . "Du har %#1d olst%#1?d%[%]%[a%] inlgg i %#2M\n") (you-have-unreads-special . "Du har %#1d okommentera%#1?d%[t%]%[de%] inlgg i %#2M\n") (you-have-no-unreads . "Du har inget olst i %#1M\n") (you-have-read-everything . "Du har sett alla nyheter.\n") (no-unreads-shown . "Hittade inga mten som matchade det kriteriet.\n") (total-unreads . "Du har totalt %#1d olst%#1?d%[%]%[a%] inlgg i %#2d mte%#2?d%[%]%[n%].\n") (shown-unreads . "Visade %#1d olst%#1?d%[%]%[a%] inlgg i %#2d mte%#2?d%[%]%[n%].\n") (list-unread-with-n-unread . "Visar endast mten med minst %#1d olsta.\n") (list-unread-with-at-most-n-unread . "Visar endast mten med som mest %#1d olsta.\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") (mark-type . "Typ") (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. ") (pers-to-check-mship-for . "Vems medlemskap vill du underska? ") (conf-to-check-mship-of . "...i vilket mte? ") (conf-is-empty . "Mtet %#1M r tomt.\n") (pers-is-member-of-conf . "Ja, %#1P r medlem i mtet %#2M.\n") (pers-is-not-member-of-conf . "Nej, %#1P r inte medlem i mtet %#2M.\n") (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: ") (no-review-done . "Du mste terse innan du kan terse mer.\n") (not-reviewing . "Du hller inte p att terse ngot nu.\n") (review-how-many . "terse hur mnga?") (review-how-many-more . "terse ytterligare 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") (review-more-info-by-to . "terse %#1s av %#2P till %#3M framt.\n") (review-rest . "resten") (review-more . "nsta %#1d") (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\n") (review-many-comments . "terse %#2?d%[en%]%[%#2d%] kommentar%#2?d%[%]%[er%] till inlgg %#1n.\n") (view-many-comments . "Ls %#2?d%[en%]%[%#2d%] kommentar%#2?d%[%]%[er%] till %#1n.\n") (view-texts-in-conf . "Totalt %#1d inlgg att lsa i %#2M.\n") (not-reading-anywhere . "Du lser inte i ngot mte.\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 inlgg 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") (more-than-one-root . "Inlgg %#1n har mer n ett urinlgg.\n") (more-than-one-root-review . "Inlgg %#1n har mer n ett urinlgg, men endast ett trd kommer att visas.\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:") (blank-carbon-copy . "Fr knnedom:") (carbon-copy-prefix . "[Ee]") (blank-carbon-copy-prefix . "[Ff]") (secret-aux-flag . "hemlig") (anonymous-aux-flag . "anonym") (inherit-aux-flag . "rvd") (aux-item-prefix . "> ") (comment-item-prefix . "#\\s-*") (text-no-comment . "%#1d %#2s /%#3d rad%#3?d%[%]%[er%]/ %#4P %#5?b%[ [anonymt]%]%[%]\n") (cant-fcc-text-file-error . "Kan inte spara inlgg %#1n till \"%#2s\" (%#3s: %#4s).\n") (cant-fcc-text . "Kan inte spara inlgg %#1n till \"%#2s\" (%#3s).\n") (header-subject . "rende: ") (header-separator . "\\--- Skriv nedan. Skicka in=\\[kom-edit-send], Avbryt=\\[kom-edit-quit], Annat se \\[describe-mode] ---") (text-mass . "%#4s%#1s\n%#2s\n%#3s") (comment-to-by . "%#1s till text %#2n%#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: ") (added-blank-carbon-copy . "Fr knnedom till: ") (text-to-comment-q . "Vilket inlgg vill du kommentera? ") (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. %#2s.\n") (no-get-text . "Du fick inte hmta texten.") (unknown-header . "Oknd information p raden") (transform-error . "Skicka in oformatterat (%#1s)? ") (cant-find-info-node . "Hittar inte info-bufferten") (line . " /1 rad/ ") (lines . " /%#1d rader/ ") (marked-by-you . "Markerad av dig (%#1d).\n") (marked-by-you-and-others . "Markerad av dig (%#2d) och %#1?d%[ngon annan%]%[%#1d andra%].\n") (marked-by-several . "Markerad av %#1d person%#1?d%[%]%[er%].\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 ") (time-hh-mm . "%02#1d:%02#2d") (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") (time-yyyy-mm-dd . "%4#1d-%02#2d-%02#3d") (text-created-at . "Skapad: %#1s\n") (text-imported-at . "Importerad: %#1s\n") (text-imported-at-by . "Importerad: %#1s av %#2P\n") (head-Subject . "rende: ") (Recipient . "Mottagare") (Extra-recipient . "Extra kopia") (Hidden-recipient . "Fr knnedom") (mx-Recipient . "Extern mottagare") (mx-Extra-recipient . "Extern kopiemottagare") (mx-Extern-reply-to . "Externa svar till") (Strange-recipient . "Underlig mottagare") (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") (attachment-to-text . "Bilaga %#3still text %#1n") (attachment-in-text . "Bilaga %#3si text %#1n") (envelope-sender . "Snt av: %#1s\n") (attachment-filename . "Bilagans filnamn: \"%#1s\"\n") (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") (lyskom-is-full-long . "===============================================================================\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 %#2s.") (has-entered-r . "%#2@Nu har %#1P gtt in i %#3s.\n") (has-left . "Nu har %#1:P gtt ur %#2s.") (has-left-r . "%#2@Nu har %#1P gtt ur %#3s.\n") (Unknown . "Oknd") (unknown . "oknd") (unknown-person . "Oknd person") (no-longer-member . "Du r inte lngre medlem i %#1M.\n") (no-longer-member-n . "Du r inte lngre medlem i mte %#1m (finns inte).\n") (have-become-member . "Du har blivit medlem i %#1M.\n") (have-become-passive-member . "Du har blivit passiv medlem i %#1M.\n") (message-broadcast . "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nAlarmmeddelande 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") (message-broadcast-long . "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nAlarmmeddelande frn %#1P (%#3s):\n\n%#2t\n-------------------------------------------------------------------------------\n") (message-from-long . "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nPersonligt meddelande frn %#1P (%#3s):\n\n%#2t\n-------------------------------------------------------------------------------\n") (message-from-to-long . "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\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]+\\)\\'") (conf-prompt . "Vilket mte/person? ") (cant-move-nothing-nowhere . "Kan inte flytta ingenting ngonstans.") (goto-priority-prompt . "Hoppa till prioritet: ") (priority-prompt . "Ny prioritet fr %#1M: ") (priority-prompt-marked . "Ny prioritet p markerade mten: ") (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 medlemskap 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 medlemskap 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. Ledsen. 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") (error-in-options-short . "Det fanns ett fel i dina instllningar. Vissa instllningar har inte lsts in.") (mode-line-unread . " Olsta ") (mode-line-letters . "brev ") (frame-title-unread . "Olsta") (frame-title-letters . " brev") (sessions-with-unreads . "Sessioner med olsta") (unread-letters . "olsta brev") (bad-text-no-prefix . "Kan inte verstta prefix `%s' till inlggsnummer") (error-code . "Felkod %#2d: %#1s.\n") (error-in-kom-do-when-done . "Variabeln kom-do-when-done har ett felaktigt vrde.\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: ") (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-one-on-file-q . "Arkivera inlgg %#1n till fil: ") (save-many-on-file-q . "Arkivera %#1d inlgg till fil: ") (saving-one-on-file . "Arkiverar inlgg %#1n i %#2s.\n") (saving-many-on-file . "Arkivera %#1d inlgg i %#2s.\n") (save-text-to-file-q . "Spara inlggstext %#1n p fil: ") (save-text-confirm . "Filen %#1s finns redan. Vill du skriva ver den? ") (saving-text . "Sparar inlgg %#1n som %#2s...") (what-save-no . "Vilket inlgg vill du spara? ") (wait-for-prompt . "Vnta p prompten.") (conference-no . "") (person-no . "") (prompt-several-messages . "(%d meddelanden)") (prompt-single-message . "(%d meddelande)") (re-edit-text-prompt . "Redigera texten som inte kunde skapas") (text-buffer-missing . "Inlggsbufferten existerar inte lngre.\n") (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") (read-next-attachment-prompt . "Lsa nsta bilaga") (go-to-conf-of-marked-prompt . "teruppta terse markerade") (go-to-conf-of-review-tree-prompt . "teruppta terse kommentarer") (go-to-conf-of-review-prompt . "teruppta terse") (go-to-next-conf-prompt . "G till nsta mte") (go-to-your-mailbox-prompt . "G till din brevlda") (next-pri-session-prompt . "G till prioriterat LysKOM \"%#1s\"") (next-unread-session-prompt . "G till LysKOM \"%#1s\"") (no-such-kom-session . "Det finns ingen sdan session med olsta.\n") (the-command . "Kommandot: %#1C") (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-string . "Ja") (no-string . "Nej") (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).") (conf-no-does-not-exist-r . "Mte %#1d finns inte.") (person-is-anonymous . "Anonym person") (process-signal . "Signal frn processen.") (closed-connection . "\n**************************************************\n%#2s\nLysKOM-sessionen onormalt stngd.\nFelmeddelande: %#1s**************************************************") (dead-session . "LysKOM-sessionen r inte aktiv.") (not-lyskom-buffer . "Detta r inte en aktiv LysKOM-session.") (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.") (nobody . "ingen") (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 %#1P") (text-created . "Text nummer %#1n r skapad.\n") (text-created-anonymous . "Text nummer %#1n r skapad (anonymt). Fr att gra det svrare fr \nandra att ta reda p att du skapade inlgget br du vnta ett tag med\natt lsa det.\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-message-long . "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-message-long . "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") (aux-popup-title . "Tillggsinformation") (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%#2?b%[ (MULE)%]%[%].\n") (who-i-am-server . "Detta r %#1s, version %#2s.\n") (who-i-am-emacs . "Det krs under %#1s%#2?b%[ (MULE)%]%[%].\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") (waiting-for-membership . "Vntar p att medlemskapslistan ska lsas in...%d/%d") (keyboard-menu-help . "Nsta: SPC Freg: DEL Utfr: RET Avbryt: ESC") (no-such-command . "Det finns inget sdant kommando.\n") (command-completions . "Du kan mena ngon av fljande:\n %#1s\n") (which-language . "ndra sprk till: ") (send-formatted . "Skicka in som formatterad text? ") (changing-language-to . "Byter till %#1s.\n") (language-set-to . "Sprket r %#1s.\n") (language-not-loaded . "%#1s finns inte tillgngligt.\n") (reformat-html . "HTML") (reformat-enriched . "enriched") (reformat-filled . "ombruten") (reformat-truncated . "nedkortad") (reformat-signature . "avsignerad") (need-library . "Paketet \"%#1s\" behvs fr att utfra detta kommando.\n") (calc-expression . "Uttryck: ") (do-send-anonymous . "Skicka in texten anonymt? ") (anonymous . "anonym") (Anonymous . "Anonym") (secret-conf-letter . "H") (protected-conf-letter . "S") (created-conf-letter . "S") (superconf-conf-letter . "M") (supervisor-conf-letter . "O") (where-is-doesnt-exist . "Kommandot %#1s finns inte") (where-is-on-no-key . "%#1s finns inte p ngon tangent") (where-is-on-key . "%#1s finns p %#2s") (content-type-aux . "Innehllstyp: %#1s") (content-type-regexp . "Innehllstyp: \\(\\S-+\\)") (agreeing . "Hller med om inlgg %#1n...") (fast-replying . "Anmrkning till inlgg %#1n...") (author-fast-replies . "Anmrkningar av frfattaren:") (author-fast-reply-aux . " \"%#1t\"") (other-fast-replies . "Anmrkningar:") (other-fast-reply-aux . " \"%#1t\" /%#2P/") (faq-for-conf-aux . "Texten r FAQ fr %#1M <%#1m>") (faq-in-text-aux . "FAQ i inlgg: %10#1n") (conf-to-add-faq . "Vilket mte vill du lgga till en FAQ fr? ") (text-to-add-as-faq . "Vilken text vill du lgga till som FAQ? ") (text-to-change-as-faq . "Vilken FAQ vill du ndra? ") (adding-faq . "Lgger till inlgg %#1n som FAQ fr %#2M...") (conf-to-del-faq . "Vilket mte vill du ta bort en FAQ frn? ") (text-to-del-as-faq . "Vilken text vill du ta bort som FAQ? ") (deleting-faq . "Tar bort inlgg %#1n som FAQ fr %#2M...") (conf-has-no-faq . "%#1M har ingen FAQ\n") (view-which-faq . "terse FAQ fr vilket mte? ") (review-faq-for-r . "terse FAQ fr %#1M.\n") (changed-faq-for-conf-done . "FAQ fr %#1M ndrad till text %#3n.\n") (changed-faq-for-conf-failed . "Kunde inte ndra FAQ fr %#1M till text %#3n.\n%#2?b%[Text %#2n r fortfarande FAQ.\n%]%[%]%#4s") (too-many-languages . "Fr mnga teckenuppsttningar fr att koda. Skicka in okodat? ") (too-many-content-types . "Kan inte avgra innehllstyp. Frenkla inlgget.") (cross-reference-text-status-aux . "Se ven inlgg: %10#1n /%#2P/") (cross-reference-conf-status-aux . "Se ven mte: <%#1m> %#1M /%#2P/") (cross-reference-pers-status-aux . "Se ven person: <%#1p> %#1P /%#2P/") (strange-cross-reference-status . "Se ven: %#1s (vad nu det betyder)") (cross-reference-text-aux . "Se ven inlgg %#1n /%#2P/") (cross-reference-conf-aux . "Se ven mte <%#1m> %#1M /%#2P/") (cross-reference-pers-aux . "Se ven person <%#1p> %#1P /%#2P/") (cross-reference-text-regexp . "Se ven inlgg \\([0-9]+\\)") (cross-reference-conf-regexp . "Se ven mte <\\([0-9]+\\)>") (cross-reference-pers-regexp . "Se ven person <\\([0-9]+\\)>") (strange-cross-reference . "Se ven %#1s, vad nu det betyder") (no-comments-aux . "Frfattaren har begrt att inte f kommentarer") (no-comments-edit-aux . "Begr att inte f kommentarer") (no-comments-regexp . "Begr att inte f kommentarer") (personal-comment-aux . "Frfattaren har begrt endast personliga svar") (personal-comment-edit-aux . "Begr endast personliga svar") (personal-comment-regexp . "Begr endast personliga svar") (request-confirmation-aux . "%#1P har begrt lsbekrftelse") (request-confirmation-edit-aux . "Begr bekrftelse om lsning") (request-confirmation-regexp . "Begr bekrftelse om lsning") (confirm-read-q . "Bekrfta lsning av inlgg %#1n? ") (read-confirm-aux . "Lst: %#1P %#2s") (redirect-email-aux . "Skicka sladdpost till %#1s") (redirect-lyskom-aux . "Skicka inlgg till mte %#1M") (label-what-kind . "Stt personligt namn p vad (inlgg, mte, person)? ") (label-what-text . "Stt personligt namn p inlgg nummer: ") (label-what-conf . "Stt personligt namn p vilket mte? ") (label-what-pers . "Stt personligt namn p vilken person? ") (label-what-label . "Personligt namn: ") (label-secret . "Skall andra kunna se namnet? ") (creating-software-aux . "Skapad med %#1s") (cant-get-aux-item . "Hittar inte tillggsinformationen") (aux-item-no-info . "Ingen information tillgnglig\n") (aux-item-info . "Nummer: %#1d %#6s\nTyp: %#2d (%#3s)\nSkapad av: %#4P <%#4p>\nSkapad: %#5s\nFlaggor: %#7s\nArvsgrns: %#8s\nInnehll: \"%#9s\"\n") (secret . "Hemlig") (deleted . "Raderad") (hide-creator . "Dold skapare") (inherit . "rvs") (unlimited-inherit . "Obegrnsat arv") (no-inheritance . "Arv r avslaget") (no-more-inheritance . "Grnsen uppndd; inget mer arv") (inherit-steps . "%#1d steg") (aux-item-for . "Tillggsinformation fr ") (conference-no . "mte <%#1m> %#1M") (text-no . "inlgg %#1n") (what-fast-reply-no . "Anmrkning till vilket inlgg? ") (fast-reply-prompt . "Anmrkning: ") (agree-prompt . "Text: ") (default-agree-string . "Hller med") (what-agree-no . "Hll med vilket inlgg? ") (person . "Person") (conference . "Mte") (text . "Inlgg") (xref-type . "Vad vill du referera till (inlgg, mte eller person)? ") (which-text-to-xref . "Lgg till referens till text nummer: ") (which-text-to-xref-err . "Hittar inte texten. Lgg till referens till text nummer: ") (which-pers-to-xref . "Lgg till referens till person: ") (which-conf-to-xref . "Lgg till referens till mte: ") (no-comments-q . "Frfattaren vill inte ha kommentarer. Kommentera nd? ") (private-answer-q . "Frfattaren har bett om personliga svar. Skriv personligt svar? ") (your-invited . "%#2P har bjudit in dig till %#1M.\nGenom att acceptera inbjudan fortstter du vara medlem i %#1M.\nDu kan ven tacka nej, och d kommer du automatiskt att g ur mtet.\n") (accept-invitation . "Vill du acceptera inbjudan och fortstta vara medlem? ") (enter-passive . "Du r passiv medlem i %#1M.\nDu mste bli aktiv medlem fr att g till mtet.\n") (convert-passive . "Vill du bli aktiv medlem i %#1M? ") (bug-secret-mship . "Du r hemlig medlem i %#1M\n") (invitation-mt-type . "inbjuden") (passive-mt-type . "passiv") (secret-mt-type . "hemlig") (Invitation-mt-type . "Inbjuden") (Passive-mt-type . "Passiv") (Secret-mt-type . "Hemlig") (not-author-try-anyway-p . "Du r inte frfattare till inlgget. Vill du frska nd? ") (what-no-comments-no . "Vilken text vill du inte ha kommentarer till: ") (adding-no-comments . "Begr att inte f kommentarer till inlgg %#1n...") (already-no-comments . "Inlgg %#1n har redan begran om inga kommentarer.\n") (what-private-answer-no . "Vilken text vill du ha personligt svar till: ") (adding-private-answer . "Begr att endast f personligt svar till inlgg %#1n...") (already-private-answer . "Inlgg %#1n har redan begran om enbart personliga svar.\n") (what-request-confirm-no . "Vilken text vill du ha lsbekrftelse till: ") (adding-request-confirm . "Begr lsbekrftelse till inlgg %#1n...") (already-request-confirm . "Inlgg %#1n har redan begran om lsbekrftelse.\n") (review-mail-headers-to-what . "Vilken texts brevhuvud vill du se? ") (no-mail-headers . "Inlgg %#1n har inget brevhuvud\n") (mail-headers-for . "Brevhuvud fr inlgg %#1n:\n") (email-name-prefix . "") (email-name-suffix . "") (you-are-anonymous . "Du r nu ngorlunda anonym.\n") (you-are-nonanonymous . "Du r inte lngre anonym.\n") (you-are-already-anonymous . "Du r redan ngorlunda anonym.\n") (you-are-already-nonanonymous . "Du r redan icke-anonym.\n") (start-keep-alive . "Snder data %#1d sekunders mellanrum fr att hlla frbindelsen aktiv.") (stop-keep-alive . "Data snds inte lngre fr att hlla frbindelsen aktiv.") (review-noconversion-q . "terse vilket inlgg omodifierat?") (review-commented-q . "terse vilket inlgg kommenterade?") (review-tree-q . "terse alla kommentarer rekursivt fr vilket inlgg?") (find-root-q . "terse urinlgget fr vilken text?") (find-root-review-q . "terse trd fr vilket inlgg?") (review-comments-q . "terse alla kommentarer till vilket inlgg?") (confusion-who-to-reply-to . "Jag frstr inte vems inlgg du vill 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") (confusion-what-to-reply-to . "Jag frstr inte vilken text du vill skriva en anmrkning till.\n") (confusion-what-to-agree-to . "Jag frstr inte vilken text du vill hlla med om.\n") (confusion-what-to-request-confirmation . "Jag frstr inte vilken text du vill ha lsbekrftelser p.\n") (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") (confusion-what-to-delete . "Jag frstr inte vilken text du vill radera.\n") (confusion-what-to-add-sub-recipient . "Jag frstr inte vilken text du vill %#1s.\n") (add-rcpt-action-name . "addera mottagare till") (add-copy-action-name . "addera extra-kopiemottagare till") (add-bcc-action-name . "addera mottagare fr knnedom till") (sub-action-name . "subtrahera mottagare frn") (move-action-name . "flytta") (confusion-what-to-add-comment-to . "Jag frstr inte vilken text du vill addera en kommentar till.\n") (confusion-what-to-sub-comment-from . "Jag frstr inte vilken text du vill subtrahera en kommentar frn.\n") (confusion-what-to-add-footnote-to . "Jag frstr inte vilken text du vill addera en fotnot till.\n") (confusion-what-to-sub-footnote-from . "Jag frstr inte vilken text du vill subtrahera en fotnot frn.\n") (confusion-what-to-mark . "Jag frstr inte vilket inlgg du vill markera.\n") (confusion-what-to-unmark . "Jag frstr inte vilket inlgg du vill avmarkera.\n") (confusion-what-to-save . "Jag frstr inte vilket inlgg du vill spara.\n") (confusion-what-to-review-mail-headers . "Jag frstr inte vilket inlggs brevhuvud du vill se.\n") (confusion-what-to-find-root . "Jag frstr inte vilket inlggs urinlgg du vill terse.\n") (confusion-what-to-find-root-review . "Jag frstr inte vilket inlggstrd du vill terse.\n") (lyskom-button-view-text-action . "terse texten") (lyskom-button-review-noconversion-action . "terse omodifierat") (lyskom-button-review-tree-action . "terse trd") (lyskom-button-find-root-action . "terse urinlgget") (lyskom-button-comment-text-action . "Kommentera texten") (lyskom-button-private-comment-text-action . "Personligt svar") (lyskom-button-mark-text-action . "Markera texten") (lyskom-button-unmark-text-action . "Avmarkera texten") (lyskom-button-save-text-action . "Arkivera inlgg") (lyskom-button-save-text-body-action . "Spara inlggstext") (lyskom-button-view-conf-presentation-action . "Visa presentation") (lyskom-button-view-conf-status-action . "Visa mtesstatus") (lyskom-button-goto-conf-action . "G till mtet") (lyskom-button-send-message-action . "Skicka gruppmeddelande") (lyskom-button-add-self-action . "Bli medlem i mtet") (lyskom-button-sub-self-action . "Uttrd ur mtet") (lyskom-button-view-pers-presentation-action . "Visa presentation") (lyskom-button-view-pers-status-action . "Visa personstatus") (lyskom-button-mail-action . "Skicka brev") (lyskom-button-send-message-action . "Snd meddelande") (lyskom-button-open-url-action . "ppna") (lyskom-button-copy-url-action . "Kopiera") (lyskom-button-goto-info-node-action . "ppna") (lyskom-button-open-email-action . "Skicka mail") (lyskom-button-copy-email-action . "Kopiera") (lyskom-button-info-aux-action . "Information") (lyskom-button-delete-aux-action . "Radera") (lyskom-edit-toggle-secret-aux-action . "Vxla \"hemlig\"") (lyskom-edit-toggle-anonymous-aux-action . "Vxla \"anonym\"") (lyskom-edit-toggle-inherit-aux-action . "Vxla \"rvd\"") (lyskom-edit-delete-aux-action . "Ta bort") (lyskom-prioritize-flag-toggle-action . "Vxla") (lyskom-prioritize-flag-set-action . "Stt p") (lyskom-prioritize-flag-clear-action . "Stng av")) lyskom-command ((describe-mode . "Hjlp") (kom-slow-mode . "Lngsamma kommandon") (kom-quick-mode . "Snabba kommandon") (kom-send-message . "Snda meddelande") (kom-send-alarm . "Skicka alarmmeddelande") (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-created-conferences . "Lista gda mten") (kom-list-conferences . "Lista mten") (kom-list-persons . "Lista personer") (kom-list-news . "Lista nyheter") (kom-list-re . "Lista (med) regexpar") (kom-membership . "Lista medlemskap") (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-change-priority . "ndra prioritet") (kom-list-summary . "Lista renden") (kom-sub-self . "Uttrda ur mte") (kom-quit . "Sluta") (kom-recover . "Starta om klienten") (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-more . "terse fler inlgg") (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-is-on-in-conference . "Vilka r inloggade i mte") (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-parenthesis . "ndra parentes") (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-add-bcc . "Addera fr knnedom") (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 . "Arkivera inlgg (till fil)") (kom-save-text-body . "Spara inlggstext (p fil)") (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-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") (kom-customize . "Instllningar (fr) LysKOM") (kom-next-kom . "Nsta LysKOM") (kom-previous-kom . "Fregende LysKOM") (kom-next-unread-kom . "Nsta olsta LysKOM") (kom-change-language . "ndra sprk") (kom-calculate . "Berkna") (kom-list-marks . "Lista markeringar") (kom-where-is . "Var finns kommandot") (kom-fast-reply . "Anmrkning (till inlgg)") (kom-agree . "Hlla med") (kom-add-faq . "Addera FAQ") (kom-del-faq . "Ta bort FAQ") (kom-review-faq . "terse FAQ") (kom-add-footnote . "Addera fotnot") (kom-sub-footnote . "Subtrahera fotnot") (kom-add-no-comments . "Frhindra kommentarer") (kom-add-private-answer . "Begr personligt svar") (kom-add-request-confirm . "Begr lsbekrftelse") (kom-review-mail-headers . "terse brevhuvud") (kom-become-anonymous . "Bli anonym") (kom-become-nonanonymous . "Bli icke-anonym (trd fram ur skuggorna)") (kom-keep-alive . "Hll frbindelsen aktiv") (kom-stop-keep-alive . "Avbryt hll frbindelsen aktiv") (kom-is-person-member-of-conference . "Kontrollera (om person r) medlem (i mte)") (kom-change-conf-faq . "ndra FAQ")) lyskom-language-var-internal lyskom-language-codes '((aa . "Afar") (ab . "Abkhasianska") (af . "Afrikaans") (am . "Amhariska") (ar . "Arabiska") (as . "Assamesiska") (ay . "Aymara") (az . "Azerbajanska") (ba . "Bashkiriska") (be . "Vitryska") (bg . "Bulgariska") (bh . "Bihariska") (bi . "Bislamska") (bn . "Bengaliska") (bo . "Tibetanska") (br . "Bretangneska") (ca . "Katalanska") (co . "Korsikanska") (cs . "Tjeckiska") (cy . "Walesiska") (da . "Danska") (de . "Tyska") (dz . "Bhutanska") (el . "Grekiska") (en . "Engelska") (eo . "Esperanto") (es . "Spanska") (et . "Estniska") (eu . "Baskiska") (fa . "Persiska") (fi . "Finska") (fj . "Fiji") (fo . "Fariska") (fr . "Franska") (fy . "Frisiska") (ga . "Irlndska") (gd . "Skotsk Gliska") (gl . "Galiciska") (gn . "Guarani") (gu . "Gujaratiska") (ha . "Hausa") (he . "Hebreiska") (hi . "Hindi") (hr . "Kroatiska") (hu . "Ungerska") (hy . "Armeniska") (ia . "Interlingua") (id . "Indonesiska") (ie . "Interlingue") (ik . "Inupiak") (is . "Islndska") (it . "Italienska") (iu . "Inuktitut") (ja . "Japanska") (jw . "Javanesiska") (ka . "Georgiska") (kk . "Kazakhstanska") (kl . "Grnlndska") (km . "Kambodianska") (kn . "Kannada") (ko . "Koreanska") (ks . "Kashmiriska") (ku . "Kurdiska") (ky . "Kirghiz") (la . "Latinska") (ln . "Lingala") (lo . "Laotesiska") (lt . "Litauiska") (lv . "Lettiska") (mg . "Malagasiska") (mi . "Maori") (mk . "Makedonska") (ml . "Malayalam") (mn . "Mongolska") (mo . "Moldaviska") (mr . "Marathi") (ms . "Malaysiska") (mt . "Maltesiska") (my . "Burmesiska") (na . "Nauruiska") (ne . "Nepalska") (nl . "Hollndska") (no . "Norska") (oc . "Occitanska") (om . "Oromo") (or . "Oriya") (pa . "Pundjabiska") (pl . "Polska") (ps . "Pashtu") (pt . "Protugisiska") (qu . "Quechua") (rm . "Rhtoromanska") (rn . "Kirundiska") (ro . "Rumnska") (ru . "Ryska") (rw . "Kiyarwanda") (sa . "Sanskrit") (sd . "Sindhi") (sg . "Sangho") (sh . "Serbokroatiska") (si . "Singhalesiska") (sk . "Slovakiska") (sl . "Slovenska") (sm . "Samoanska") (sn . "Shoniska") (so . "Somaliska") (sq . "Albanska") (sr . "Serbiska") (ss . "Siswatiska") (st . "Sesothiska") (su . "Sudanesiska") (sv . "Svenska") (sw . "Swahili") (ta . "Tamilska") (te . "Telugu") (tg . "Tajikiska") (th . "Thailndska") (ti . "Tigrinya") (tk . "Turkmenistanska") (tl . "Tagalog") (tn . "Sichuanska") (to . "Tongiska") (tr . "Turkiska") (ts . "Tsongiska") (tt . "Tatariska") (tw . "Twi") (ug . "Uiguriska") (uk . "Ukrainska") (ur . "Urdu") (uz . "Uzbekistanska") (vi . "Vietnamesiska") (vo . "Volapk") (wo . "Wolof") (xh . "Xhosa") (yi . "Yiddish") (yo . "Yorouba") (za . "Zhuang") (zh . "Kinesiska") (zu . "Zulu") (-- . "Oknt sprk (%#1s)")) lyskom-menu ((lyskom . "LysKOM") (read . "Ls") (dont-read . "Hoppa") (write . "Skriv") (conference . "Mte") (person . "Person") (other . "Annat") (marks . "Markeringar") (move . "G") (info . "Om") (send . "Snd") (recievers . "Mottagare") (commented . "Kommenterar") (kom-edit-send . "Skicka in") (kom-edit-send-anonymous . "Skicka anonymt") (kom-edit-quit . "Kasta bort") (kom-ispell-message . "Stavningskontroll") (kom-edit-add-recipient . "Addera mottagare") (kom-edit-add-copy . "Addera extra kopiemottagare") (kom-edit-show-commented . "terse det kommenterade") (kom-edit-insert-commented . "Citera det kommenterade") (kom-edit-insert-buglist . "Klistra in kommenterad buglista") (kom-edit-add-bcc . "Addera fr knnedom") (kom-edit-add-cross-reference . "Addera korsreferens") (kom-edit-add-no-comments . "Begr inga kommentarer") (kom-edit-add-personal-comments . "Begr personliga svar") (kom-edit-add-read-confirm-request . "Begr lsbekrftelse") (kom-edit-move-text . "Flytta till en ny mottagare")) lyskom-onoff-table '(("p" . on) ("av" . off)) lyskom-filter-predicate-list '(("=") ("!=" . t)) lyskom-filter-what '((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)")) lyskom-filter-actions '((skip-text . "Hoppa ver") (dontshow . "Visa inte") (skip-tree . "Hoppa ver kommentarer")) (lyskom-previous-prefix) lyskom-mode-map make-keymap suppress-keymap lyskom-sv-review-prefix lyskom-sv-change-prefix lyskom-sv-next-prefix "f" "n" "l" "s" "r" [] [] [] [] kom-button-click kom-next-link "\211" kom-previous-link "{" "[" "{?" "f?" "n?" "l?" "s?" "e" kom-set-unread "a" kom-extended-command " " kom-next-command " " kom-line-next-command "\n" kom-page-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-marks "lm" kom-list-conferences "ln" kom-list-news "lp" kom-list-persons "lr" kom-list-re "ls" kom-membership kom-list-summary [] [] "l{" "l[" "lf" kom-list-filters "lv" kom-who-is-on-in-conference "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 kom-filter-subject [] [] "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" 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 "}y" kom-review-more "}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 "}q" kom-review-faq "}am" kom-review-all-marked-texts "}a " "B" kom-review-backward "sm" kom-status-conf "sp" kom-status-person "ss" kom-status-session kom-send-message [] [] "s{" "s[" "ra" kom-fast-reply "rr" "rh" kom-agree "\360" backward-text "\356" forward-text "\220" kom-prev-prompt "\216" kom-next-prompt "st" kom-save-text [67108927] scroll-down "" [delete] [BS] lyskom-filter-edit-map lyskom-sv-filter-edit-prefix lyskom-filter-edit-prev-pattern lyskom-filter-edit-prev-entry lyskom-filter-edit-next-pattern "N" lyskom-filter-edit-next-entry "" "" "" "d" lyskom-filter-edit-delete-pattern "\344" lyskom-filter-edit-delete-entry "D" "" lyskom-filter-edit-insert-pattern "I" "\351" lyskom-filter-edit-insert-entry "<" lyskom-filter-edit-beginning-of-list ">" lyskom-filter-edit-end-of-list "\274" "\276" lyskom-filter-edit-quit "" "x" lyskom-filter-edit-expunge lyskom-filter-edit-save lyskom-filter-edit-revert lyskom-filter-edit-toggle-permanent lyskom-filter-edit-toggle-action lyskom-filter-edit-brief-help lyskom-prioritize-mode-map kom-prioritize-help kom-prioritize-select kom-prioritize-yank kom-prioritize-next-line [down] [67108927] kom-prioritize-previous-line [-67108801] kom-prioritize-deselect-all [up] [M-up] kom-prioritize-move-up "u" [M-down] kom-prioritize-move-down kom-prioritize-beginning kom-prioritize-end kom-prioritize-reprioritize kom-prioritize-goto-priority kom-prioritize-set-priority kom-prioritize-save kom-prioritize-quit lyskom-prioritize-header-lines 2 lyskom-prioritize-header " Prio Mte\n-------------------------------------------------------------------------------\n" lyskom-customize-map widget-forward widget-backward widget-button-press widget-button-click lyskom-widget-click lyskom-customize-save-and-quit " " lyskom-customize-quit "" lyskom-customize-save "" lyskom-customize-apply lyskom-customize-help lyskom-custom-strings ((which-person . "Ange en person: ") (which-conf . "Ange ett mte: ") (which-conf-or-person . "Ange en person eller ett mte: ") (which-name . "Ange ett namn: ") (some-person . "Person %#1d") (invalid-value . "Otilltet vrde (%#1S)") (unknown-command . "Oknt kommando (%#1s)") (ding . "Ljudsignal") (variable-type-help . "Kryssa i fr att spara instllningen i servern.") (default-help-echo . "ndra vrdet p %#1s.") (change-this-name . "ndra namnet p denna rad.") (show-doc . "Visa hjlptexten.") (hide-doc . "Dlj hjlptexten.") (select-command . "Vlj kommando.") (select-what-to-execute . "Exekvera kommando eller tangentbordsmakro.") (select-url-viewer . "Vlj en WWW-lsare.") (select-number . "Ange hur mnga gnger.") (select-audio-file . "Ange en ljudfil.") (select-priority . "Ange prioritet.") (select-buffer . "Ange buffert.") (select-buffer-size . "Ange buffertstorlek.") (buffer-name . "%#1s-instllningar") (other-window . "Ngot annat fnster ") (other-frame . "I en annan frame ") (new-frame . "I en ny frame ") (lyskom-window . "LysKOM-buffertens fnster ") (window-on-buffer . "Ett fnster som visar bufferten") (on . "P") (off . "Av") (yes . "Ja ") (no . "Nej") (to-file . "Till fil:") (max-text-length . "Fr inlgg kortare n: ") (friends . "Vnner och bekanta") (turned-off . "Avslaget ") (number-of-times . "Ngra gnger") (specific-spec . "Per mottagare/avsndare") (sound-file . "Ljudfil") (other-persons . "Alla andra") (selected-mark . "Markering") (conf-or-person . "Person eller mte") (ask . "Frga varje gng") (before . "Fre texten") (after . "Efter texten") (first . "Frst") (last . "Sist ") (depth-first . "I kommentarsordning") (time-order . "I tidsordning") (ar-message-type . "Meddelandetype") (ar-personal . "Personligt meddelande") (ar-group . "Gruppmeddelande") (ar-alarm . "Alarmmeddelande") (ar-any-type . "Alla meddelandetyper") (ar-sender . "Avsndare") (ar-any-sender . "Alla avsndare") (ar-specified-sender . "Specifika avsndare") (ar-pers-or-conf . "Person eller mte") (ar-recipient . "Mottagare") (ar-any-recipient . "Alla mottagare") (ar-specified-recipient . "Specifika mottagare") (ar-person . "Person") (ar-message-text . "Meddelandetext") (ar-any-message . "Alla meddelanden") (ar-matching-regexp . "Meddelanden som matchar") (ar-reply . "Automatsvar") (ar-no-reply . "Inget svar") (ar-reply-text . "Svarstext") (express-break . "Omedelbart efter de har skapats") (break . "Efter aktuell kommentarskedja ") (no-break . "Efter aktuellt mte ") (express-server-break . "Omedelbart") (express-server-letters-break . "Omedelbart om det kommer brev") (server-break . "Efter aktuell kommentarskedja") (letters-server-break . "Efter aktuell kommentarskedja om det kommer brev") (after-conf-server-break . "Efter aktuellt mte") (after-conf-letters-server-break . "Efter aktuellt mte nr det kommer brev") (when-done-server-break . "Nr allt r utlst") (no-server-break . "Aldrig") (command . "Kommando") (command-list . "Kommandolista") (some-persons . "Fr vissa personer") (name . "Namn") (page-none . "Aldrig ") (page-all . "Fre varje kommando ") (page-some . "Fre fljande kommandon") (ask-every-time . "Frga varje gng ") (fixed-priority . "Fast prioritet") (messages-in-lyskom-buffer . "I LysKOM-bufferten ") (discard-messages . "Ingenstans ") (in-named-buffer . "I namngiven buffert") (everybody-rcpt . "Alla ") (group-rcpt . "Senaste gruppmeddelandes mottagare") (sender-rcpt . "Senaste meddelandes avsndare ") (last-recipient-recpt . "Senaste mottagaren ") (viewer-program . "WWW-lsare") (no-viewer . "(ingenting valt)") (default-viewer . "Browse-URL (alla)") (netscape-viewer . "Netscape Navigator (alla)") (windows-viewer . "Windows standard eller Netscape (alla)") (emacs-w3-viewer . "Emacs W3-mode (HTTP, Goper, FTP)") (emacs-general-viewer . "Emacs (FTP, Telnet, Mail)") (emacs-dired-viewer . "Emacs Dired (FTP)") (emacs-mail-viewer . "Emacs Mail-mode (Mail)") (emacs-telnet-viewer . "Emacs Telnet-mode (telnet)") (mosaic-viewer . "NCSA Mosaic (alla)") (lynx-viewer . "Lynx (alla)") (dont-check . "Ingen bekrftelse") (check-before-open . "Bekrfta innan inlgget skrivs") (check-before-send . "Bekrfta innan inlgget snds") (no-size-limit . "Ingen begrnsning") (max-size-in-bytes . "Begrnsning (i bytes)") (execute . "Utfr") (kbd-macro . "Tangentbordmakro") (command . "Kommando") (enter-kbd-macro . "Mata in tangentbordsmakro. Avsluta med %#1s") (long-format . "Visa hjlptexter") (short-format . "Gm hjlptexter ") (truncate-threshold-lines . "Max rader") (first . "Frst") (last . "Sist") (specific-placement . "Specifik plats") (priority . "Prioritet") (same-as-conf . "Samma som aktuellt mte") (custom-format . "Eget format") (default-format . "Standardformat") (a-string . "En text") (some-string . "En slumpmssig text") (unspecified . "Ospecificerat") (lyskom . "Instllningar fr LysKOM") (lyskom-doc . "\\[lyskom-customize-save-and-quit] fr att spara och avsluta,\n\\[lyskom-customize-save] fr att spara utan att avsluta\n\\[lyskom-customize-quit] fr att avsluta utan att spara\n\\[widget-forward] flyttar till nsta instllning\n\\[widget-button-press] ndrar vrdet\n\nHjlptexter: [?] Visa hjlptext [!] Gm hjlptext\nListor mm.: [INS] Lgg till rad [DEL] Ta bort rad [*] ndra vrde\n\nOm rutan fre instllningens namn r ikryssad kommer vrdet att sparas\ni servern. Annars sparas det i din .emacs.") (section . "------------------------------------------------------------------------------\n") (look-and-feel-misc . "Diverse utseende och beteende\n") (window-locations . "Fnster\n") (windows-where . "Hur skall fnster skapas:\n") (reading . "Beteende vid lsning\n") (writing . "Beteende vid skrivning\n") (urls . "Hantering av URLer\n") (personal-messages . "Hantering av personliga meddelanden\n") (remote-control . "Fjrrstyrning av LysKOM\n") (hooks . "Hook-funktioner\n") (audio-cues . "Ljudsignaler\n") (audio-cues-when . "Ge ljudsignal:\n") (automatic-replies . "Automatiskt svar\n") (audio-cues-doc . " Efterfljande instllningar bestmmer vilken ljudsignal LysKOM skall ge \n i olika situationer. Fljande alternativ gr att vlja:\n\n Avslaget\n Ingen ljudsignal alls kommer att ges.\n\n Ngra gnger\n Emacs kommer att pipa en eller flera gnger nr hndelsen\n intrffar. Antal pip anges ocks. \n\n Ljudfil\n Emacs kommer att spela upp den angivna ljudfilen. Programmet som\n angavs ovan som ljudspelarprogram anvnds fr att spela ljudet.") (sending-doc . " Fljande instllningar slr p eller av vissa kontroller vid inskickning\n av inlgg. Kontrollerna r avsedda att hindra att man gr ngonting dumt.\n\n Bekrfta multipla mottagare\n Om ett inlgg eller kommentar har flera mottagare s kan LysKOM\n frga vilka av mottagarna som r relevanta fr inlgget. Antingen\n grs detta innan man skriver inlgget (d fr man en frga fr\n varje defaultmottagare), eller nr man skickar in inlgget (d fr\n man bekrfta alla mottagare i klump). Det gr ocks att sl av\n helt.\n\n Kontroll av kommenterad frfattares medlemskap\n Kontrollera att frfattaren till det kommenterade inlgget r\n medlem i ngon av mottagarna fr kommentaren. Om s inte r fallet,\n erbjuder LysKOM att lgga till frfattaren som mottagare till\n inlgget. \n\n Frfattare som inte kontrolleras\n En lista av frfattare som inte skall kontrolleras ven om\n kontroll av kommenterad frfattares medlemskap r pslaget.\n\n Kontroll av olsta kommentarer\n Nr detta r pslaget s kontrollerar LysKOM att det inlgg man\n kommenterar inte har ngra kommentarer man inte har lst. Detta r\n frmst anvndbart fr att undvika att man skriver ngonting som\n ngon annan redan har skrivit.") (windows-doc . " Fljande instllningar bestmmer hur fnster skapas i LysKOM. Alternativen\n som finns r fljande:\n\n Ngot annat fnster \n I ett annat fnster i samma frame som LysKOM. Om det bara finns ett\n fnster s kommer ett nytt att skapas (och tas bort nr man r klar).\n\n I en annan frame\n I en annan frame n LysKOM. Om det bara finns en frame s kommer en\n ny frame att skapas, och (tas bort nr man r klar).\n\n I en ny frame\n En ny frame skapas fr ndamlet, och tas bort nr man r klar.\n\n LysKOM-buffertens fnster \n LysKOM-buffertens fnster kommer att anvndas, och LysKOM kommer\n att terstllas till fnstret nr man r frdig.\n\n Ett fnster som visar bufferten \n Om det finns ett fnster ngonstans som visar den angivna bufferten\n s kommer detta fnster att anvndas. Det kan till exempel vara\n anvndbart om man hela tiden har ett fnster ppet, men inte bever\n det just medan man utfr ngot visst kommando.") (kom-ansaphone-replies-doc . " Den hr instllningen styr automatsvar i detalj. Det gr att stlla in \n svar fr specifika avsndare, mottagare och till och med meddelanden. Om\n meddelandet som skall besvaras inte stmmer in p ngot i den hr listan\n s anvnds svarsmeddelandet ovan istllet.\n\n Fr varje mnster gr det att stlla in meddelandetyp, avsndare som \n meddelandet skall ha, mottagare som meddelandet skall ha, ett mnster\n som meddelandet skall innehlla och vilket svar som skall skickas.\n\n Det r lmpligt att stlla in att inget svar skall skickas p ngot\n gruppmeddelande eller alarmmeddelande.") (kom-bury-buffers-doc . " Bestmmer hur bufferten hanteras nr man gr till ett annat KOM med Nsta\n LysKOM och liknande funktioner. Pslaget innebr att den aktuella bufferten\n lggs sist i buffertlistan nr man byter LysKOM.") (kom-personal-messages-in-window-doc . " Bestmmer i vilket fnster som bufferten med personliga meddelanden visas.\n Fr att den hr instllningen skall spela ngon roll s mste personliga\n meddelanden visas i en separat buffert, och bufferten mste visas varje\n gng det kommer meddelanden.") (kom-write-texts-in-window-doc . " Bestmmer i vilket fnster nya texter skrivs.") (kom-prioritize-in-window-doc . " Bestmmer i vilket fnster man prioriterar om mten.") (kom-edit-filters-in-window-doc . " Bestmmer i vilket fnster man ndrar filter.") (kom-customize-in-window-doc . " Bestmmer i vilket fnster man gr dessa instllningar.") (kom-view-commented-in-window-doc . " Bestmmer i vilket fnster man visar kommenterarer medan man skriver nya.") (kom-list-membership-in-window-doc . " Bestmmer i vilket fnster man listar medlemskap.") (kom-user-prompt-format-doc . " Format fr LysKOM-prompten. Vissa teckenkombinationer stter in speciella\n texter:\n\n %c - Stter in kommandot som krs om man trycker p SPC eller RET.\n %[ - Stter in '[' om automatsvar r pslaget.\n %] - Stter in ']' om automatsvar r pslaget. \n %m - Stter in information om antal inspelade meddelanden.\n %s - Stter in LysKOM-systemets namn\n %S - Stter in LysKOM-serverns namn\n %p - Stter in namnet p den person som r inloggad.\n %w - Stter in namn p aktuellt mte.\n %a - Stter in \"anonym\"\n %A - Stter in \"Anonym\"\n %# - Stter in sessionsnummer.\n % - Stter in mellanslag om det ser ut att behvas.\n %% - Stter in ett procenttecken.\n\n Ngra exempel:\n\n \"%[%c% %m%] - \" Standardprompt\n \"%[%s: %c% %m%] - \" Till exempel \"LysKOM: Se tiden - \"") (kom-user-prompt-format-executing-doc . " Format fr LysKOM-prompten efter man trycker p SPC eller RET. Vissa\n teckenkombinationer stter in speciella texter:\n\n %c - Stter in kommandot som krs om man trycker p SPC eller RET.\n %[ - Stter in '[' om automatsvar r pslaget.\n %] - Stter in ']' om automatsvar r pslaget. \n %m - Stter in information om antal inspelade meddelanden.\n %s - Stter in LysKOM-systemets namn\n %S - Stter in LysKOM-serverns namn\n %p - Stter in namnet p den person som r inloggad.\n %w - Stter in namn p aktuellt mte.\n %a - Stter in \"anonym\"\n %A - Stter in \"Anonym\"\n %# - Stter in sessionsnummer.\n % - Stter in mellanslag om det ser ut att behvas.\n %% - Stter in ett procenttecken.\n\n Ngra exempel:\n\n \"%[%c% %m%].\" Standardprompt\n \"%[%s: Kr %c% %m%]...\" Till exempel \"LysKOM: Kr Se tiden...\"") (kom-anonymous-prompt-format-doc . " Format fr LysKOM-prompten nr man r anonym. Vissa teckenkombinationer \n stter in speciella texter:\n\n %c - Stter in kommandot som krs om man trycker p SPC eller RET.\n %[ - Stter in '[' om automatsvar r pslaget.\n %] - Stter in ']' om automatsvar r pslaget. \n %m - Stter in information om antal inspelade meddelanden.\n %s - Stter in LysKOM-systemets namn\n %S - Stter in LysKOM-serverns namn\n %p - Stter in namnet p den person som r inloggad.\n %w - Stter in namn p aktuellt mte.\n %a - Stter in \"anonym\"\n %A - Stter in \"Anonym\"\n %# - Stter in sessionsnummer.\n % - Stter in mellanslag om det ser ut att behvas.\n %% - Stter in ett procenttecken.\n\n Ngra exempel:\n\n \"%[%c% %m%] - \" Standardprompt\n \"%[%s: %c% %m%] - \" Till exempel \"LysKOM: Se tiden - \"") (kom-anonymous-prompt-format-executing-doc . " Format fr LysKOM-prompten efter man trycker p SPC eller RET och r\n anonym. Vissa teckenkombinationer stter in speciella texter:\n\n %c - Stter in kommandot som krs om man trycker p SPC eller RET.\n %[ - Stter in '[' om automatsvar r pslaget.\n %] - Stter in ']' om automatsvar r pslaget. \n %m - Stter in information om antal inspelade meddelanden.\n %s - Stter in LysKOM-systemets namn\n %S - Stter in LysKOM-serverns namn\n %p - Stter in namnet p den person som r inloggad.\n %w - Stter in namn p aktuellt mte.\n %a - Stter in \"anonym\"\n %A - Stter in \"Anonym\"\n %# - Stter in sessionsnummer.\n % - Stter in mellanslag om det ser ut att behvas.\n %% - Stter in ett procenttecken.\n\n Ngra exempel:\n\n \"%[%c% %m%].\" Standardprompt\n \"%[%s: Kr %c% %m%]...\" Till exempel \"LysKOM: Kr Se tiden...\"") (kom-enabled-prompt-format-doc . " Format fr LysKOM-prompten nr man r i administratrsmod. Vissa\n teckenkombinationer stter in speciella texter:\n\n %c - Stter in kommandot som krs om man trycker p SPC eller RET.\n %[ - Stter in '[' om automatsvar r pslaget.\n %] - Stter in ']' om automatsvar r pslaget. \n %m - Stter in information om antal inspelade meddelanden.\n %s - Stter in LysKOM-systemets namn\n %S - Stter in LysKOM-serverns namn\n %p - Stter in namnet p den person som r inloggad.\n %w - Stter in namn p aktuellt mte.\n %a - Stter in \"anonym\"\n %A - Stter in \"Anonym\"\n %# - Stter in sessionsnummer.\n % - Stter in mellanslag om det ser ut att behvas.\n %% - Stter in ett procenttecken.\n\n Ngra exempel:\n\n \"%[%c% %m%] - \" Standardprompt\n \"%[%s: %c% %m%] - \" Till exempel \"LysKOM: Se tiden - \"") (kom-enabled-prompt-format-executing-doc . " Format fr LysKOM-prompten efter man trycker p SPC eller RET och r i\n administratrsmod. Vissa teckenkombinationer stter in speciella texter:\n\n %c - Stter in kommandot som krs om man trycker p SPC eller RET.\n %[ - Stter in '[' om automatsvar r pslaget.\n %] - Stter in ']' om automatsvar r pslaget. \n %m - Stter in information om antal inspelade meddelanden.\n %s - Stter in LysKOM-systemets namn\n %S - Stter in LysKOM-serverns namn\n %p - Stter in namnet p den person som r inloggad.\n %w - Stter in namn p aktuellt mte.\n %a - Stter in \"anonym\"\n %A - Stter in \"Anonym\"\n %# - Stter in sessionsnummer.\n % - Stter in mellanslag om det ser ut att behvas.\n %% - Stter in ett procenttecken.\n\n Ngra exempel:\n\n \"%[%c% %m%].\" Standardprompt\n \"%[%s: Kr %c% %m%]...\" Till exempel \"LysKOM: Kr Se tiden...\"") (kom-cite-string-doc . " Text som stts in fre varje rad i ett citerat inlgg. Normalt brukar\n ngonting i stil med \"> \" anvndas. Notera dock att det inte r brukligt\n att citera KOM-inlgg som man gr med sladdpost och News eftersom det\n kommenterade inlgget oftast finns tillgngligt.") (kom-created-texts-are-read-doc . " Om detta r pslaget kommer alla inlgg man sjlv skriver att lsmarkeras\n automatiskt. Om instllningen r avslagen s fr man lsa sdant man\n sjlv skriver.") (kom-default-mark-doc . " Det markeringsvrde som anvnds fr nya markeringar. Om inget markerings-\n vrde r valt frgar LysKOM varje gng man markerar en text. Vrden mellan\n 1 och 255 r tilltna.") (kom-reading-puts-comments-in-pointers-last-doc . " Bestmmer om kommentarslnkar visas fre eller efter en text. Normalt brukar\n man visa kommentarslnkar efter texten.\n\n Fre:\n\n 398331 1996-09-24 13:22 /2 rader/ George Berkeley\n Mottagare: Filosofimtet <1226>\n Kommentar i text 398374 av John Locke\n rende: \n ------------------------------------------------------------\n En abstrakt id r en sjlvmotsgelse. \n (398331) -----------------------------------\n\n Efter:\n\n 398331 1996-09-24 13:22 /2 rader/ George Berkeley\n Mottagare: Filosofimtet <1226>\n rende: \n ------------------------------------------------------------\n En abstrakt id r en sjlvmotsgelse. \n (398331) -----------------------------------\n Kommentar i text 398374 av John Locke\n") (kom-show-author-at-end-doc . " Om detta r pslaget s visas namnet p frfattaren efter inlggstexten.\n Naturligtvis s visas ven namnet i inlggshuvudet. \n\n Pslaget (med streckade linjer ocks pslaget):\n\n 892342 1996-09-24 19:21 /2 rader/ Claude Shannon\n Mottagare: Presentation (av nya) Medlemmar\n rende: Claude Shannon\n ------------------------------------------------------------\n Informationsteoretiker\n (892342) /Claude Shannon/------------------------------\n\n Avslaget:\n\n 892342 1996-09-24 19:21 /2 rader/ Claude Shannon\n Mottagare: Presentation (av nya) Medlemmar\n rende: Claude Shannon\n ------------------------------------------------------------\n Informationsteoretiker\n (892342) -----------------------------------\n\n Om man har streckade linjer avslaget s visas frfattaren p samma \n stt, men de streckade linjerna finns naturligtvis inte med.") (kom-truncate-threshold-doc . " Om detta r pslaget kommer inlgg som r lngre n maxantalet att kortas\n ner nr man terser kommentarer, terser markerade inlgg eller terser de\n senaste eller frsta. Inlgg kortas inte av d man terser inlgg, terser\n trd eller bara lser nsta inlgg.") (kom-truncate-show-lines-doc . " Antalet rader som visas nr ett inlgg avkortats.") (kom-dashed-lines-doc . " Om detta r pslaget visas streckade linjer fre och efter inlggstexten,\n annars visas en tomrad efter renderaden, och ingenting speciellt i slutet.\n\n Pslaget:\n\n 892343 1996-09-24 19:21 /2 rader/ Tycho Brahe\n Mottagare: Presentation (av nya) Medlemmar\n rende: Tycho Brahe\n ------------------------------------------------------------\n Astronom och upptckare av stjrnor med hemvist p Ven.\n (892343) -----------------------------------\n\n Avslaget:\n\n 892343 1996-09-24 19:21 /2 rader/ Tycho Brahe\n Mottagare: Presentation (av nya) Medlemmar\n rende: Tycho Brahe\n\n Astronom och upptckare av stjrnor med hemvist p Ven.\n (892343)\n\n De flesta brukar ha detta pslaget.") (kom-autowrap-doc . " Om detta r pslaget s kommer LysKOM att frska bryta om raderna i\n stycken vars rader egentligen r lngre n skrmen r bred. Stycken\n som verkar vara frformatterade av frfattaren bryts dock aldrig om.") (kom-print-number-of-unread-on-entrance-doc . " Om detta r pslaget s visas antalet olsta i ett mte nr man gr till \n mtet:\n\n Pslaget:\n\n G till nsta mte...\n Presentation (av nya) medlemmar - 3 olsta\n Lsa nsta text - \n\n Avslaget:\n\n G till nsta mte...\n Presentation (av nya) medlemmar\n Lsa nsta text - ") (kom-presence-messages-doc . " Om man vill ha meddelanden i minibufferten nr ngon loggar in, ut eller\n byter namn i LysKOM br man sl p den hr instllningen. Meddelanden\n visas i minibufferten. Om man vill ha information om endast vissa\n personer gr det att ange en lista av personer. Vill man inte ha ngra\n meddelanden alls r det bara att ange en tom lista.") (kom-presence-messages-in-buffer-doc . " Om man vill ha meddelanden i LysKOM-bufferten nr ngon loggar in, ut eller\n byter namn i LysKOM br man sl p den hr instllningen. Meddelanden\n visas i minibufferten. Om man vill ha information om endast vissa\n personer gr det att ange en lista av personer. Vill man inte ha ngra\n meddelanden alls r det bara att ange en tom lista.") (kom-show-where-and-what-doc . " Information i vilkalistan om varifrn en person r inloggad och vad personen\n gr visas bara om detta r pslaget.\n\n Pslaget:\n\n Anvndare Nrvarande i mte \n Kr frn Gr \n --------------------------------------------------------------------------\n 6810 George Berkeley Filosofimtet \n berkeley@emp1.tcd.ie (Skriver en kommentar.) \n 7571 John Locke Filosofimtet \n eridy@cc.ox.ac.uk (Vntar.) \n\n Avslaget:\n\n Anvndare Nrvarande i mte \n --------------------------------------------------------------------------\n 6810 George Berkeley Filosofimtet \n 7571 John Locke Filosofimtet") (kom-show-since-and-when-doc . " Information i vilkalistan om nr en person loggade in och hur lnge sedan\n personen var aktiv.") (kom-idle-hide-doc . " I vilkalistan visas normalt enbart de sessioner som har varit aktiva\n under den senaste tiden. Denna instllning bestmmer hur mnga minuter\n en session fr ha varit inaktiv och nd visas i vilkalistan.") (kom-show-footnotes-immediately-doc . " Fotnoter visas normalt p samma stt som kommentarer, men om detta r\n pslaget s visas fotnoter direkt efter inlgget de hr till.") (kom-follow-comments-outside-membership-doc . " Normalt s visar inte LysKOM kommentarer till ett inlgg om man inte r\n medlem i ngot av mtena kommentaren har som mottagare. Om man vill\n flja kommentarskedjor utanfr de mten man r medlem i kan man sl\n p den hr instllningen.") (kom-read-depth-first-doc . " LysKOM kan visa inlgg antingen i den ordning de skapades, eller i den\n ordning de ligger i kommentarstrdet. Ta till exempel fljande inlgg:\n\n Inlgg 1002 r inte en kommentar till ngonting. Inlgg 1003 och 1004\n r kommentarer till inlgg 1002. Inlgg 1005 och 1007 r kommentarer\n till inlgg 1004 och inlgg 1006 r en kommentar till inlgg 1003. D\n ser kommentarstrdet ut ungefr s hr:\n \n 1002 +-- 1003 --- 1006\n |\n +-- 1004 +-- 1005\n |\n +-- 1007\n\n Om man lser inlggen i tidsordning kommer de att visas i ordningen\n 1002, 1003, 1004, 1005, 1006 och 1007. I kommentarsordning blir det\n i stllet 1002, 1003, 1006, 1004, 1005 och 1007.") (kom-continuous-scrolling-doc . " Pslaget innebr att klienten scrollar bufferten medan ny text stts in, s\n man ser det senaste som har satts in. Detta fungerar bra om man har en\n snabb terminal, men kan vara vrt att sl av om terminalen r lngsam, och\n scrollning i Emacs tar tid.") (kom-deferred-printing-doc . " Fr att snabba upp LysKOM s skrivs vissa saker, som person- och mtesnamn\n inte ut omedelbart, utan skrivs frst ut som \"[...]\", vilket sedan byts\n ut mot den rtta utskriften nr texten finns tillgnglig. Detta snabbar\n upp svarstiderna i klienten ganska mycket, men gr att stnga av med den\n hr instllningen om man tycker det ser otrevligt ut.") (kom-higher-priority-breaks-doc . " Nr texter kommer in till mten som har hgre prioritet n det man lser\n kan klienten lta en lsa dessa texter omedelbart, efter den aktuella\n kommentarskedjan eller efter man har lst ut mtet.") (kom-login-hook-doc . " Kommandon som skall kras nr man loggar in, innan ngon inmatning frn\n tangentbordet tas emot. Till exempel kan man gra Lista nyheter hr fr\n att f se en lista av nyheter varje gng man loggar in.") (kom-do-when-done-doc . " Kommandon som skall kras nr man har lst ut alla inlgg. Det r ganska\n vanligt att man har terse alla markerade hr. Bde tangentbordsmakron\n och regelrtta funktioner gr bra.") (kom-page-before-command-doc . " LysKOM-bufferten kan scrollas fre alla kommandon s att text som stts in\n av kommandot hamnar verst i fnstret. Denna variabel talar om fre vilka\n kommandon detta skall ske.") (kom-permissive-completion-doc . " Om detta r pslaget s kommer TAB bara att fylla ut namn p inloggade\n personer nr kommandot bara kan utfras p inloggade personer (till\n exempel Status (fr) session och Snda meddelande). Om det r avslaget\n kommer TAB att fylla ut ven med namn p personer som inte r inloggade.") (kom-membership-default-priority-doc . " Detta bestmmer hur prioriteten p mten man gr med i stts. Om det r\n en siffra mellan 1 och 255 s kommer nya medlemskap att f den prioriteten.\n I annat fall kommer klienten att frga fr varje nytt medlemskap vilken\n prioritet det skall ha.") (kom-show-personal-messages-in-buffer-doc . " Denna instllning bestmmer var personliga meddelanden, gruppmeddelanden\n och alarmmeddelanden visas. Meddelanden kan antingen visas i \n LysKOM-bufferten, kastas bort helt eller visas i en namngiven buffert.") (kom-pop-personal-messages-doc . " Om personliga meddelanden skall visas i en egen buffert och denna instllning\n ocks r pslagen s kommer den bufferten att visas s fort ett meddelande\n anlnder.") (kom-audio-player-doc . " Om man vill att LysKOM skall spela ljudfiler i stllet fr att pipa vid \n olika tillfllen mste denna instllning peka ut ett program som klarar\n att spela ljudfilerna. Programmet skall ta ett argument: namnet p filen\n som skall spelas.") (kom-default-message-recipient-doc . " Denna instllning bestmmer vem som kommer att vara defaultmottagare\n fr personliga meddelanden man skickar. Alternativen som finns r\n att meddelanden normalt r allmnna, att avsndaren fr det senast\n mottagna meddelandet skall vara default eller att mottagaren fr det\n senaste gruppmeddelandet (eller avsndaren av det senaste personliga\n eller allmnna meddelandet) skall vara mottagare.") (lyskom-filter-outgoing-messages-doc . " Om denna instllning r pslagen s kommer meddelanden som skickas \n automatiskt, till exempel automatiska svar och svar p fjrrkontrollfrsk\n ven att visas som om man hade skickat det manuellt.") (kom-friends-doc . " Namnen p personerna i denna lista kommer att visas med ett speciellt \n utseende i LysKOM-bufferten.") (kom-morons-doc . " Namnen p personerna i denna lista kommer att visas med ett varnande \n utseende i LysKOM-bufferten.") (kom-url-viewer-preferences-doc . " Denna instllning bestmmer vilken WWW-lsare som i frsta hand skall \n anvndas fr att ppna URLer som frekommer i LysKOM. Om den frsta lsaren \n i listan inte klarar den typ av URL som man frsker ppna s anvnds nsta\n lsare och s vidare.") (kom-mosaic-command-doc . " Denna instllning talar om vilket kommando som skall anvndas fr att starta\n Mosaic.") (kom-netscape-command-doc . " Denna instllning anger kommandot fr att kra Netscape.") (kom-inhibit-typeahead-doc . " Normalt sparas tangenttryckningar som grs medan klienten r upptagen, och\n utfrs nr det blir mjligt. Om denna instllning r avslagen s kommer\n LysKOM enbart att utfra kommandon som ges nr klienten inte arbetar.") (kom-max-buffer-size-doc . " Det r mjligt att begrnsa LysKOM-buffertens storlek genom att ange hur\n stor den fr bli i den hr variabeln. Om bufferten blir fr stor kommer\n information frn buffertens brjan att tas bort.") (kom-ansaphone-record-messages-doc . " LysKOM kan \"spela in\" meddelanden som kommer nr funktionen fr automatiskt\n svar r pslagen. Denna instllning bestmmer om s sker eller inte.") (kom-ansaphone-show-messages-doc . " Om denna instllning r pslagen kommer LysKOM att visa inkomna personliga\n meddelanden ven om automatiskt svar r pslaget.") (kom-ansaphone-default-reply-doc . " Automatsvararen skickar detta meddelande om inget annat meddelande har\n specificerats via ngon annan mekanism (och den r bara till fr frsiktiga\n experter).") (kom-remote-control-doc . " Pslagen innebr att det gr att fjrrstyra klienten. Fjrrstyrningen r\n dock begrnsad till vissa personer.") (kom-remote-controllers-doc . " Personerna i denna lista fr fjrrstyra klienten.") (kom-self-control-doc . " Om detta r pslaget fr anvndaren som r inloggad styra klienten frn\n en annan session. Detta r ett alternativ till att lgga in sig sjlv i\n listan ver tilltna fjrrstyrare.") (kom-customize-format-doc . " Dokumentation till instllningarna kan vara p eller avslagen nr \n instllningsfnstret ppnas. Dokumentationen kan alltid visas eller\n gmmas fr varje enskild instllning genom att anvnda frgetecknet\n eller utropstecknet som str till hger om instllningen.") (kom-default-language-doc . " Sprk som skall anvndas i LysKOM. Om du ndrar instllningen hr s kommer\n inte instllningen ndras fr aktuell session, utan du mste ge kommandot\n ndra sprk ocks.") (kom-ispell-dictionary-doc . " Ordlista som skall anvndas av stavningskontrollen i LysKOM. Om detta\n r satt till kom-ispell-dictionary s kommer variabeln ispell-dictionary\n att anvndas istllet.") (kom-show-namedays-doc . " Pslaget innebr att dagens namn visas nr man ser tiden. Antagligen s\n kommer detta att ersttas av ett nytt kommando i ngon kommande version\n av elispklienten, men det var visst ngon som ville ha det, s ...") (kom-show-week-number-doc . " Se tiden visar veckonummer om detta r pslaget. Annars visas inte \n veckonummer.") (kom-membership-default-placement-doc . " Denna instllning styr var nya medlemskap hamnar. Frst betyder att nya\n medlemskap hamnar fre gamla med samma prioritet. Sist betyder att nya \n medlemskap hamnar efter gamla med samma prioritet. En siffra r en fix\n placering i medlemskapslistan (men medlemskapet kommer att flyttas\n ssmningom).") (kom-show-imported-importer-doc . " Pslaget betyder visa vilken person som importerade ett importerat e-mail.") (kom-show-imported-envelope-sender-doc . " Visa den verkliga avsndaren till ett importerat e-mail om detta r \n pslaget.") (kom-show-imported-external-recipients-doc . " Visa externa mottagare och extra-kopiemottagare om detta r pslaget.") (kom-agree-text-doc . " Text som anvnds av kommandot Hlla med. Det kan antingen vara en text\n eller en lista av texter. Om det r en lista s vljs ett alternativ\n slumpmssigt.") (kom-silent-ansaphone-doc . " On detta r avslaget s piper inte klienten nr det kommer meddelanden och\n automatsvar r pslaget.") (kom-default-session-priority-doc . " Lsniv fr nya sessioner. Detta r den lsniv som nya sessioner fr\n automatiskt.") (kom-unsubscribe-makes-passive-doc . " Om detta r pslaget s gr kommandot Uttrda ur mte att man frst blir\n passiv medlem i mtet. Om man uttrder ur mtet igen s gr man ur p\n riktigt. Om detta r avslaget s gr man ur mtet frsta gngen man frsker\n uttrda.") (kom-review-priority-doc . " Prioritet fr tersekommandon. Detta r den prioritet som inlggen man ser\n nr man gr terse fr. Det anvnds fr att avgra om nya inlgg skall\n avbryta tersefunktionen. Stt till 256 eller hgre om du inte vill att nya\n inlgg ngonsin skall avbryta en tersefunktion.") (kom-show-creating-software-doc . " Om detta r pslaget s visas vilken klient som skapade inlgget tillsammans\n med varje inlgg, frutsatt att informationen finns verhuvudtaget.") (kom-text-footer-format-doc . " Format fr inlggsfoten. I texten erstts %n med inlggsnumret, %P med\n frfattarens namn, %p med frfattarens nummer, %f med information om\n inlgget (ombruten, HTML mm.) och %- med en lagom lng streckad linje.\n En siffra efter procenttecknet r minsta bredd p texten. Ett minustecken\n fre siffran betyder att texten skall vnsterjusteras. Ett likhetstecken\n betyder att fltlngden r exakt och texten kanske kortas av.") (kom-long-lines-doc . " Om detta r pslaget s grs de flesta streckade linjer i klienten mycket\n lngre n normalt.") (kom-postpone-default-doc . " Antalet inlgg som inte skall uppskjutas med Uppskjuta lsning.") (kom-allow-incompleteness-doc . " Pslaget betyder att klienten inte vntar p att information om alla\n olsta har kommit fram innan den tillter kommandon som Lista nyheter.\n Avslaget innebr att klienten vntar p information om olsta inlgg om\n den upptcker att informationen behvs och inte har kommit fram.") (kom-smileys-doc . " Gladmn, som :-), visas grafiskt nr denna instllning r p, frutsatt\n att Emacs klarar det och paketet smiley.el (en del av gnus) r installerat.") (kom-ignore-message-senders-doc . " Visa inte personliga, grupp och alarmmeddelanden frn dessa personer.") (kom-ignore-message-recipients-doc . " Visa inte gruppmeddelanden riktade till dessa mten.") (kom-text-footer-dash-length-doc . " Den totala lngden p inlggsfoten nr streckade linjer, men inte extra\n lnga linjer, och inte ett eget format anvnds.") (kom-text-header-dash-length-doc . " Den totala lngden p den streckade linjen ovanfr inlggstexten nr\n extra lnga linjer inte anvnds.") (kom-show-personal-message-date-doc . " Nr detta r pslaget s visas datum och klockslag fr alla personliga,\n grupp och alarmmeddelanden.") (kom-w3-simplify-body-doc . " Nr detta r pslaget s visas HTML utan de frger som anges i HTML-koden.") (kom-mercial-doc . " Denna text visas i vilkalistan d du har lst frdigt alla mten.") (kom-server-priority-doc . " Prioritet fr sessionen. Sessioner med hg prioritet kan avbryta andra\n sessioner, beroende p instllningen av YYY.") (kom-server-priority-breaks-doc . " Denna instllning styr hur prioriterade sessioner avbryter andra\n sessioner. En session r hgre prioriterad n en annan om dess\n sessionsprioritet r hgre n den andra sessionens.\n\n Omedelbart S fort der kommer ett inlgg i en prioriterad \n session s fr man prompt om att g till den\n sessionen.\n\n Omedelbart om det kommer brev S fort det kommer ett personligt\n brev i en prioriterad session s fr man prompt \n om att g till den sessionen.\n\n Efter aktuell kommentarskedja Om det kommer inlgg i en \n prioriterad session s fr man prompt om att\n g till sessionen nr man har lst klart den\n aktuella kommentarskedjan.\n\n Efter aktuell kommentarskedja om det kommer brev Om det kommer\n personliga brev i en prioriterad session s \n fr man prompt om att g till sessionen nr\n man har lst klart den aktuella kommentarskedjan.\n\n Efter aktuellt mte Om det kommer inlgg i en prioriterad session \n s fr man prompt om att g till sessionen nr\n man har lst klart det aktuella mtet.\n\n Efter aktuellt mte nr det kommer brev Om det kommer brev i en\n prioriterad session s fr man prompt om att g\n till sessionen nr man har lst klart det \n aktuella mtet.\n\n Nr allt r utlst Ge prompt om att byta till nsta LysKOM med \n olsta inlgg nr allt r klart, oberoende av\n sessionernas prioritet.\n\n Aldrig Ge aldrig prompt om att byta session.") (kom-ding-on-no-subject-doc . "") (kom-ding-on-personal-messages-doc . "") (kom-ding-on-group-messages-doc . "") (kom-ding-on-common-messages-doc . "") (kom-ding-on-no-subject-doc . "") (kom-ding-on-wait-done-doc . "") (kom-ding-on-priority-break-doc . "") (kom-ding-on-new-letter-doc . "") (kom-check-for-new-comments-doc . "") (kom-check-commented-author-membership . "") (kom-confirm-multiple-recipients-doc . "") (kom-check-commented-author-membership-doc . "") (kom-complete-numbers-before-names-doc . " Nr detta r pslaget och man matar in en text som kan tolkas bde som\n ett mtesnamn eller ett mtesnummer vid inlsning av mtesnamn, s\n tolkar klienten det i frsta hand som ett nummer. Nr detta r avslaget\n s tolkas det i frsta hand som ett mtesnamn.") (kom-keep-alive-interval-doc . " Antalet sekunder som skall g mellan de meddelanden som anvnds fr att\n hlla ntverkskopplingen till LysKOM-servern aktiv. Om din frbindelse\n kopplar ned efter en stunds inaktivitet s kan du stta detta till ungefr \n hlften och sedan ge kommandot \"Hll frbindelsen aktiv\".") (kom-prompt-for-text-no-doc . " Dessa kommandon kommer alltid att frga efter textnummer om man inte \n anger ngot explicit med prefixargument. Kommaondon som inte str med \n hr kommer att gissa ett textnummer och inte frga.") (kom-saved-file-name-doc . " Anger vilken fil som inlgg skall arkiveras till. Klienten kommer nd\n att frga, men detta blir det frifyllda svaret.") (kom-follow-attachments-doc . " Anger om bilagor till importerade brev skall lsas som kommentarer. \n Om detta r avstngt s lsmarkeras bilagor automatiskt, utan att\n man lser dem.") (kom-show-unread-in-frame-title-doc . " Om detta r pslaget s visas \"(Olsta)\" i titelraden fr de\n fnster vars valda buffert hr till en LysKOM-session med olsta. \n Det r inte skert att titelraden ndras om fnstret inte r ppet.") (kom-created-texts-are-saved-doc . " Om detta r ett filnamn s sparas alla inlgg man skriver till den\n filen i ungefr samma format som de har nr man lser dem. Inlgg\n som inte kan skapas sparas inte.") (kom-confirm-add-recipients-doc . " Om detta r pslaget och man adderar en mottagare till ett inlgg s\n frgar klienten om man vill att kommentarer till inlgget ocks\n skall skickas till den nya mottagaren. Om detta r avslaget s\n kommer kommentarer alltid att skickas ven till den nya mottagaren. \n Det r oftast bra att ha pslaget.") (kom-trim-buffer-minimum-doc . " Om du begrnsar LysKOM-buffertens storlek s mste den bli s hr mycket\n fr stor innan text i bufferten raderas. Variablen ska vara ett heltal,\n default r 4096.") (kom-dont-check-commented-authors-doc . "") (kom-ansaphone-replies-tag . "Detaljerade automatsvar") (kom-bury-buffers-tag . "Begrav buffertar nr man byter LysKOM:") (kom-personal-messages-in-window-tag . "Personliga meddelanden: ") (kom-customize-in-window-tag . "Instllningar fr LysKOM: ") (kom-write-texts-in-window-tag . "Skriv inlgg: ") (kom-prioritize-in-window-tag . "Prioritera mten: ") (kom-edit-filters-in-window-tag . "ndra filter: ") (kom-view-commented-in-window-tag . "terse kommentarer: ") (kom-list-membership-in-window-tag . "Lista medlemskap: ") (kom-user-prompt-format-tag . "Promptformat:") (kom-user-prompt-format-executing-tag . "Promptformat vid krning:") (kom-anonymous-prompt-format-tag . "Promptformat (anonym):") (kom-anonymous-prompt-format-executing-tag . "Promptformat vid krning (anonym):") (kom-enabled-prompt-format-tag . "Promptformat (admin):") (kom-enabled-prompt-format-executing-tag . "Promptformat vid krning (admin):") (kom-higher-priority-breaks-tag . "Ls prioriterade texter: ") (kom-created-texts-are-read-tag . "Lsmarkera skapade texter: ") (kom-default-mark-tag . "Defaultmarkering: ") (kom-print-number-of-unread-on-entrance-tag . "Visa olsta nr man gr till ett mte: ") (kom-follow-comments-outside-membership-tag . "Flj kommentarskedjor utanfr medlemskap: ") (kom-show-footnotes-immediately-tag . "Visa fotnoter omedelbart: ") (kom-membership-default-priority-tag . "Prioritet fr nya medlemskap: ") (kom-dashed-lines-tag . "Streckade linjer kring inlggstexten: ") (kom-autowrap-tag . "Automatisk radbrytning vid lsning: ") (kom-show-author-at-end-tag . "Visa frfattarens namn efter inlgget: ") (kom-truncate-threshold-tag . "Korta av lnga inlgg: ") (kom-truncate-show-lines-tag . "Rader att visa vid avkortade inlgg: ") (kom-reading-puts-comments-in-pointers-last-tag . "Kommentarslnkar visas:") (kom-read-depth-first-tag . "Lsordning:") (kom-deferred-printing-tag . "Frdrjda utskrifter:") (kom-continuous-scrolling-tag . "Omedelbar scrollning:") (kom-presence-messages-tag . "Nrvaromeddelanden p eller av: ") (kom-presence-messages-in-buffer-tag . "Nrvaromeddelanden i LysKOM-bufferten:") (kom-page-before-command-tag . "Rensa skrmen:") (kom-idle-hide-tag . "Antal minuter en session fr vara inaktiv och nd visas: ") (kom-show-where-and-what-tag . "Visa varifrn personer r inloggade och vad de gr: ") (kom-show-since-and-when-tag . "Visa nr personer loggade in och nr de var aktiva: ") (kom-login-hook-tag . "Kommandon som krs vid login:") (kom-do-when-done-tag . "Kommandon som krs efter allt r utlst:") (kom-permissive-completion-tag . "Petig utfyllnad av namn:") (kom-show-personal-messages-in-buffer-tag . "Var visas meddelanden: ") (kom-pop-personal-messages-tag . "Ploppa upp meddelandebufferten: ") (kom-default-message-recipient-tag . "Defaultmottagare fr meddelanden:") (kom-audio-player-tag . "Ljudspelarprogram:") (kom-ding-on-new-letter-tag . "Nr det kommer brev: ") (kom-ding-on-priority-break-tag . "Nr det kommer prioriterade inlgg: ") (kom-ding-on-wait-done-tag . "Nr man har vntat klart: ") (kom-ding-on-common-messages-tag . "Vid alarmmeddelanden: ") (kom-ding-on-group-messages-tag . "Vid gruppmeddelanden: ") (kom-ding-on-personal-messages-tag . "Vid personliga meddelanden: ") (kom-ding-on-no-subject-tag . "Nr renderad saknas: ") (lyskom-filter-outgoing-messages-tag . "Visa automatiska meddelanden:") (kom-friends-tag . "Vnner och bekanta:") (kom-morons-tag . "Idioter och knppskallar:") (kom-url-viewer-preferences-tag . "ppna URLer med fljande program:") (kom-mosaic-command-tag . "Kommando fr att starta NCSA Mosaic:") (kom-netscape-command-tag . "Kommando fr att starta Netscape Navigator:") (kom-cite-string-tag . "Citatmarkering: ") (kom-confirm-multiple-recipients-tag . "Bekrfta multipla mottagare: ") (kom-check-commented-author-membership-tag . "Kontrollera kommenterad frfattares medlemskap:") (kom-check-for-new-comments-tag . "Kontrollera olsta kommentarer: ") (kom-ansaphone-record-messages-tag . "Spara meddelanden d automatiskt svar r pslaget: ") (kom-ansaphone-show-messages-tag . "Visa meddelanden d automatiskt svar r pslaget: ") (kom-ansaphone-default-reply-tag . "Svarsmeddelande:") (kom-inhibit-typeahead-tag . "Buffra tangenttryckningar:") (kom-max-buffer-size-tag . "Maximal buffertstorlek:") (kom-remote-control-tag . "Fjrrstyrning: ") (kom-self-control-tag . "Tillt fjrrstyrning av mig sjlv: ") (kom-remote-controllers-tag . "Tilltna fjrrstyrare:") (kom-customize-format-tag . "Visa hjlptexterna fr instllningar:") (kom-default-language-tag . "Sprk: ") (kom-ispell-dictionary-tag . "Ordlista:") (kom-show-namedays-tag . "Visa dagens namn:") (kom-show-week-number-tag . "Visa veckonummer:") (kom-membership-default-placement-tag . "Placering av nya medlemskap:") (kom-show-imported-importer-tag . "Visa importr av importerade inlgg:") (kom-show-imported-envelope-sender-tag . "Visa avsndare av importerade inlgg:") (kom-show-imported-external-recipients-tag . "Visa externa mottagare till importerade inlgg:") (kom-agree-text-tag . "Text fr Hlla med:") (kom-silent-ansaphone-tag . "Pip nr automatsvar r pslaget:") (kom-default-session-priority-tag . "Lsniv fr nya sessioner:") (kom-unsubscribe-makes-passive-tag . "Uttrda ur mte gr om medlemskap till passiva:") (kom-review-priority-tag . "Prioritet fr tersekommandon:") (kom-show-creating-software-tag . "Visa skapande klient:") (kom-text-footer-format-tag . "Format fr inlggsfot:") (kom-long-lines-tag . "Lnga streckade linjer:") (kom-postpone-default-tag . "Sknsvrde fr uppskjuta lsning:") (kom-allow-incompleteness-tag . "Tillt ofullstndig information om olsta:") (kom-smileys-tag . "Visa gladmn grafiskt:") (kom-ignore-message-senders-tag . "Visa inte meddelanden frn:") (kom-ignore-message-recipients-tag . "Visa inte meddelanden till:") (kom-text-footer-dash-length-tag . "Inlggsfotens lngd:") (kom-text-header-dash-length-tag . "Lngden p linjen ovanfr inlggstexten:") (kom-show-personal-message-date-tag . "Visa datum fr alla meddelanden:") (kom-w3-simplify-body-tag . "Visa HTML utan standardfrger:") (kom-mercial-tag . "Text nr allt r utlst:") (kom-server-priority-tag . "Sessionsprioritet:") (kom-server-priority-breaks-tag . "Byt till LysKOM med olsta:") (kom-complete-numbers-before-names-tag . "Ls mtesnummer fre mtesnamn:") (kom-keep-alive-interval-tag . "Intervall fr hll frbindelsen igng:") (kom-prompt-for-text-no-tag . "Kommandon som skall frga efter textnummer:") (kom-saved-file-name-tag . "Fil att arkivera inlgg i:") (kom-follow-attachments-tag . "Ls importerade bilagor som vanligt:") (kom-show-unread-in-frame-title-tag . "Visa olstamarkering i titelraden:") (kom-created-texts-are-saved-tag . "Spara frfattade inlgg:") (kom-confirm-add-recipients-tag . "Frga om kommentarer skall sndas till nya mottagare:") (kom-trim-buffer-minimum-tag . "Minsta storlek av LysKOM-bufferten som tas bort:") (kom-dont-check-commented-authors-tag . "Frfattare som inte kontrolleras:")) kom-ansaphone-default-reply "Jag lser inte LysKOM just nu. Skicka grna ett brev i stllet." kom-ispell-dictionary "svenska" ((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.")) mapcar #[(x) ":\203@9\203A;\203\207:\2032@9\2032A:\2032A@;\2032@A@B\207\301\207" [x nil] 2] kom-mercial (lyskom-get-string 'kom-tell-wait 'kom-tell-phrases) lyskom-error-texts ((error-0 . "Inget fel har intrffat") (error-2 . "nnu ej implementerat") (error-3 . "Inte lngre implementerat") (error-4 . "Felaktigt lsenord") (error-5 . "Strngen fr lng") (error-6 . "Du r inte inloggad") (error-7 . "Ingen fr logga in i LysKOM just nu") (error-8 . "Du frskte anvnda mte nummer 0") (error-9 . "Odefinierat eller hemligt mte") (error-10 . "Odefinierad eller hemlig person") (error-11 . "Ingen skriv- eller lsrttighet") (error-12 . "Otillten operation") (error-13 . "Du r inte medlem i mtet") (error-14 . "Inget sdant textnummer") (error-15 . "Du kan inte anvnda globalt textnummer 0") (error-16 . "Inget sdant lokalt textnummer") (error-17 . "Du kan inte anvnda lokalt textnummer 0") (error-18 . "Namnet fr kort, fr lngt eller innehller felaktiga tecken") (error-19 . "Index utanfr grnserna") (error-20 . "Mtet existerar redan") (error-21 . "Personen existerar redan") (error-22 . "Hemligt, men ej lsskyddat") (error-23 . "Du fr inte ndra person/mtesflaggan") (error-24 . "Fel i databasen. Attans otur.") (error-25 . "Otillten mottagartyp eller kommentarslnk") (error-26 . "Otillten infotyp. (Bug i klienten)") (error-27 . "Redan mottagare till denna text") (error-28 . "Redan kommentar till denna text") (error-29 . "Redan fotnot till denna text") (error-30 . "Inte mottagare till denna text") (error-31 . "Inte kommentar till denna text") (error-32 . "Inte fotnot till denna text") (error-33 . "Fr mnga mottagare") (error-34 . "Fr mnga kommentarer") (error-35 . "Fr mnga fotnoter") (error-36 . "Fr mnga markeringar") (error-37 . "Du r inte frfattare till texten") (error-38 . "Du kan inte koppla upp dig till servern") (error-39 . "Minnet slut") (error-40 . "Servern har ballat ur") (error-41 . "Klienten tror att servern sger att den inte frstr klienten") (error-42 . "Ingen sdan session finns") (error-43 . "Ogiltigt reguljrt uttryck") (error-44 . "Texten r inte markerad") (error-45 . "Tillflligt fel. Frsk senare") (error-46 . "Serven vgrade ta emot en array") (error-47 . "Mottagaren tar inte emot anonyma texter") (error-48 . "Otillten tillggsinformation") (error-49 . "Otillten ndring av tillggsinformation") (error-50 . "Oknt asynkront meddelande") (error-51 . "Internt fel i servern") (error-52 . "Funktionen avstngd i servern") (error-53 . "Meddelandet kunde inte sndas") (error-54 . "Otillten typ p medlemskap")) lyskom-language-sv "$Id: english-strings.el,v 44.123 2001/02/25 16:26:52 joel Exp $" en "English" "Engelska" lyskom-en-edit-review-prefix lyskom-en-edit-insert-prefix lyskom-en-edit-aux-prefix lyskom-en-edit-add-prefix "" "+" "r?" "" " " "" "" "" lyskom-language-missing-string-internal cgdag (en) sixjune (en) holdnose (en) lyskom-language-ending-mismatch-internal carbon-copy-prefix blank-carbon-copy-prefix ((server-q . "LysKOM server? (%#1s) ") (try-connect . "LysKOM elisp client version %#1s.\nAttempting to connect to %#2s.\n") (too-old-server . "The server is too old for this version of the client.") (connection-done . "Connection established. Server version is %#1s.\n\n") (what-is-your-name . "What is your name? ") (password . "Your password? ") (wrong-password . "Incorrect password.\n") (wrong-password-help . "\nIf you have forgotten your password you may be able to get a new one\nby e-mailing the site administrators at one of the addresses listed\nbelow:\n") (wrong-password-email . "* %#1t\n") (are-logged-in . "You have entered LysKOM. Please wait...\n") (you-have-motd . "\nYou have a notice on your mailbox:\n\n") (lyskom-motd-was-garbed . "\nThe login message does not exist!\nThe message that was supposed to be shown after login has disappeared.\nPlease contact the LysKOM administrator.\n") (presentation-encouragement . "You have not written a presentation. Please write a presentation by using\nthe command Ap. If you do not want to write a presentations, please type fk.\n") (first-greeting . "%#1s\nThis appears to be the first time you use LysKOM. Welcome!\nPlease make sure you have spelled your name correctly. You should use your\nfull name and organisation, eg. \"Joe Hacker, MIT\". If your name is spelled\nincorrectly, or you wish to change it, answer 'no' to the question below.\n\nAt present the LysKOM server stores most of the information so that\nanybody can read it. Only passwords are encrypted.\n\nIf you are uncertain about how to use LysKOM, you can retrieve a manual by\nanonymous ftp to ftp.lysator.liu.se. Ask your system administrator for help\non how to do this.\n") (is-name-correct . "Is the name %#1s correct? ") (personal-password . "Enter a personal password: ") (repeat-password . "Repeat for confirmation: ") (repeat-failure . "The passwords were not the same.\n") (could-not-create-you . "LysKOM couldn't create that user.\n") (presentation-subject . "%#1s") (presentation-form . "Name: \nAddress: \n \nTelephone: \nEmail address: \nWWW: \n\nOther: ") (presentation-help . "You are writing your presentation.\n") (not-present-anywhere . "Not in any conference.") (unknown-person . "Unknown user") (in-secret-conference . "Secret conference (%#1d).") (start-new-session-same-server . "You are already connected to that server. Do you want a new session? ") (new-session-in-buffer . "\n\n---- New session at %s ----\n\n") (shaky-tcp . "At the moment I can't reach the server. The TCP/IP connection is shaky%#1s") (retrying-tcp . "Retrying.") (protocol-error . "protocol error: %s") (interrupted . "Interrupted\n") (appreciation . "You are a very special person, beautiful and wise, respected by\neverybody around you. You are doing a splendid job. Many people love\nyou, body and soul. You make life easier for others. You are a very\nwarm and sensitive person.\n\nBe proud of being You! You have a very good reason.\n\n") (abuse . "You are a nuisance, ugly and stupid, disrespected by everybody around\nyou. You are doing a worthless job. Many people hate you, body and\nsoul. You make life harder for others. You are a very cold and\nunfeeling person.\n\nBe ashamed of being You! You have a very good reason.\n\n") (what-conf-to-delete . "Conference/user to delete: ") (what-conf-to-change . "Conference to modify: ") (confirm-delete-pers-or-conf . "Really delete %#1s %#2s? ") (the-pers . "the user") (the-conf . "the conference") (deletion-not-confirmed . "Deletion aborted\n") (somebody-else-deleted-that-conf . "Somebody else just deleted the conference.\n") (conf-is-deleted . "OK, %#1s is now deleted.\n") (you-could-not-delete . "%#1M can't be deleted by you.\n") (you-have-deleted-yourself . "You have deleted yourself.\n") (what-text-to-delete . "Remove which text? ") (delete-marked-text . "The text is %#1s. Delete anyway? ") (delete-marked-by-you . "marked by you") (delete-marked-by-you-and-others . "marked by you and %#1?d%[someone else%]%[%#1d others%]") (delete-marked-by-several . "marked by %#1d user%#1?d%[%]%[s%]") (deleting-text . "Removing text %#1:n...") (presentation-for-whom . "Which conference/user? ") (somebody-deleted-that-conf . "Somebody just deleted that conference.\n") (review-presentation-of . "Review presentation of %#1M.\n") (has-no-presentation . "%#1:M has no presentation.\n") (have-to-read . "You must read a text first.\n") (no-comment-to . "There is no commented text.\n") (who-letter-to . "Send a letter to whom? ") (who-send-text-to . "Send text to which conference? ") (has-motd . "%#1P has a notice on his/her mailbox:\n\n") (motd-persist-q . "Send the letter? ") (who-to-add . "Whom do you want to add? ") (where-to-add . "To which conference? ") (where-to-add-self . "Join which conference? ") (priority-q . "Conference priority? (0 (passive membership), 1 (low) - 255 (high)) ") (done . "done.\n") (cancelled . "cancelled.\n") (nope . "didn't work.\n") (add-already-member . "%#1P is already a member of %#2M.\n") (cant-find-supervisor . "Can't find supervisor of %#1M.\n") (is-read-protected-contact-supervisor . "%#1M is closed.\nSend a letter to %#2P to apply for membership.\n") (conf-does-not-exist . "\nThe conference doesn't exist.\n") (who-to-exclude . "Who do you want to remove? ") (where-from-exclude . "From which conference? ") (leave-what-conf . "Leave which conference? ") (error-fetching-person . "Error retrieving user.\n") (error-fetching-conf . "Error retrieving conference.\n") (name-of-conf . "Conference name? ") (anyone-member . "May anyone join? ") (secret-conf . "Secret conference? ") (comments-allowed . "Are comments allowed? ") (anonymous-allowed . "Are anonymous texts allowed? ") (secret-members-allowed . "Are secret members permitted? ") (what-comment-no . "Comment text number: ") (what-footnote-no . "Footnote text number: ") (what-private-no . "Private reply to text number: ") (quit-in-spite-of-unsent . "You have an unsent text. Do you really want to quit? ") (really-quit . "Do you really want to quit LysKOM? ") (session-ended . "\n--------------------------------------------\n LysKOM session finished\n You are now disconnected from the server\n--------------------------------------------\n") (session-ended-long . "\n-------------------------------------------------------------------------------\n LysKOM session finished\n You are now disconnected from the server\n-------------------------------------------------------------------------------\n") (session-auto-ended . "\n============================================================\nDisconnecting from LysKOM since all connections are in use\nand you have finished reading. Please come back later.\n============================================================\n\n") (session-auto-ended-long . "\n===============================================================================\nDisconnecting from LysKOM since all connections are in use\nand you have finished reading. Please come back later.\n===============================================================================\n\n") (what-to-change-pres-you . "Change presentation of whom/what (yourself): ") (what-to-change-faq-you . "Change FAQ for which conference: ") (who-to-put-motd-for . "Post notice on whom/what (yourself): ") (cant-get-conf-stat . "Cannot get the status of that conference.\n") (go-to-conf-p . "Go to conference: ") (want-become-member . "Do you want to join? ") (no-ok . "Okiedokie, whatever you say.\n") (who-to-remove-motd-for . "Remove notice from whom/what: ") (conf-all-read . "%#1M - no unread texts.\n") (no-in-conf . "You are not present in any conference.\n") (search-for-pers . "Enter search key (RETURN for all users): ") (search-for-conf . "Enter search key (RETURN for all conferences): ") (search-re . "Enter search regexp: ") (no-matching-confs . "No conferences match \"%#1s\".\n") (no-matching-perss . "No persons match \"%#1s\".\n") (no-matching-anys . "No persons or conferences match \"%#1s\".\n") (no-confs-exist . "There are no conferences in the database.\n") (no-pers-confs-exist . "There are no persons or conferences in the database.\n") (list-confs-created-by . "List owned conferences for: ") (listing-confs-created-by . "Listing owned conferences for %#1P C=Created, O=Supervisor, S=Letterbox is super conf; S=Secret, P=Protected\n") (list-pers-confs-created-by . "List owned conferences and persons for: ") (getting-all-confs . "Retrieving a list of all conferences from the server...") (getting-all-pers-confs . "Retrieving a list of all persons and conferences from the server...") (getting-all-confs-done . "Retrieving a list of all conferences from the server...done") (getting-all-pers-confs-done . "Retrieving a list of all persons and conferences from the server...done") (finding-created-confs . "Finding owned conferences (%#1d of %#2d done)") (finding-created-pers-confs . "Finding owned persons and conferences (%#1d of %#2d done)") (no-created-confs . "%#1P is not creator, supervisor or super conference for any conference.\n") (name-to-be-changed . "Name to change: ") (no-such-conf-or-pers . "The conference or user doesn't exist.\n") (new-name . "New name: ") (new-paren . "New parenthesis: ") (no-paren-in-name . "The name doesn't contain a parenthesis.\n") (who-to-change-supervisor-for . "Change supervisor of whom/what? ") (new-supervisor . "New supervisor: ") (text-to-mark . "Mark which text? ") (text-to-unmark . "Unmark which text? ") (what-mark . "Set which mark? ") (unmarking-textno . "Unmarking text %#1n...") (marking-textno . "Marking text %#1n...") (list-which-mark . "List texts with which mark (0-255, RET for all)? ") (new-passwd-again . "Repeat the new password for confirmation: ") (what-mark-to-view . "Review which mark? ") (whos-passwd . "Change password for whom? (yourself) ") (old-passwd . "Your current password: ") (new-passwd . "The new password: ") (changing-passwd . "Changing password...") (retype-dont-match . "You didn't reenter the same passwrod. Try again.\n") (palindrome . " (a palindrome!)") (lyskom-name . "User") (is-in-conf . "In conference") (from-machine . "At") (is-doing . "Activity") (connection-time . "Connected") (active-last . "Active last") (active . "Active") (lyskom-client . "Client") (text-to-add-recipient . "Add recipient to which text:") (text-to-add-copy . "Add recipient of carbon copy to which text:") (text-to-add-bcc . "Add recipient of blind carbon copy to which text:") (text-to-delete-recipient . "Remove recipient from which text:") (text-to-move . "Which text do you want to move:") (text-to-add-comment-to . "Add comment to which text:") (text-to-delete-comment-from . "Remove comment from which text:") (text-to-add-footnote-to . "Add footnote to which text:") (text-to-delete-footnote-from . "Remove footnote from which text:") (text-has-no-recipients-r . "Text %#1n has no recipients\n") (where-on-list-q . "Placement in your list? (0-%#1d) ") (member-in-conf . "Joining to %#1M...") (add-member-in . "Adding %#1P as a member of %#2M...") (change-priority-for-q . "Change priority of conference: ") (change-priority-for . "Changing priority of %#2M...") (unsubscribe-to . "Leaving %#1M...") (passivate-done . "You are now a passive member of %#1M.\n") (exclude-from . "Removing %#1P from %#2M...") (unsubscribe-failed . "\nDidn't work. Perhaps %#1P isn't a member of %#2M?\n") (You . "You") (could-not-create-conf . "Couldn't create the conference \"%#1s\".\n") (created-conf-no-name . "Conference number %[%#3@%#1:m %#2:M%] has been created.\n") (cant-read-textno . "You are not allowed to read text %#1:n") (not-supervisor-for . "You are not the supervisor of %#1M.\n") (go-to-conf . "Go to conference %#1M.\n") (cant-go-to-his-mailbox . "You are not allowed to go to %#1M's mailbox.\n") (not-member-of-conf . "You are not a member of %#1M.\n") (about-to-change-name-from . "%#1M\n") (change-name-done . "Done. New name: %[%#2@%#1:M%].\n") (change-name-nope . "Couldn't change name to %#1s. Error code %#3d. %#2s.\n") (change-supervisor-from-to . "Change supervisor of %#1M to %#2P...") (change-supervisor-nope . "\nDidn't work. Perhaps you are not allowed to change the supervisor of %#1M?\n") (no-marked-texts . "You have not marked any texts.\n") (no-marked-texts-mark . "You have not marked any texts with mark %#1d.\n") (weekdays . ["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday"]) (weekdays-short . ["Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"]) (time-is . "The time is %#1s%#2s (according to the server).") (time-is-week . "The time is %#1s%#2s, week %#3d (according to the server).") (time-format-exact . "%#7s %4#1d-%02#2d-%02#3d %02#4d:%02#5d:%02#6d") (xmaseve . "Christmas eve!\nYou didn't open any gifts early, did you?") (xmasday . "Christmas day.\nDid you get any nice gifts this year?") (newyearday . "\nMay %#1d be a prosperous and good year for you!") (newyeareve . "Happy New Year!") (newyearevelate . "Less than an hour to go...") (lysbday . "\nOn this day, in 1973, the Lysator Academic Computer Society was\nformed, and it was a great day in the history of computing in Sweden.\nRead all about it at http://www.lysator.liu.se/history/") (total-users . " A total of %#1d users (%#2s).\n") (total-users-sans-date . " A total of %#1d users\n") (total-visible-users . " A total of %#1d visible user%#1?d%[%]%[s%] (%#2s).\n") (total-active-users . " A total of %#1d active user%#1?d%[%]%[s%] (%#2s).\n") (total-visible-active-users . " A total of %#1d visible active user%#1?d%[%]%[s%] (%#2s).\n") (client-statistics . " Distribution of clients:\n") (client-statistics-line . " %=-35#1s: %3#2d") (who-to-add-q . "Add whom/what as a recipient? ") (who-to-add-copy-q . "Add which conference/user as carbon copy recipient? ") (who-to-add-bcc-q . "Add which conference/user as blind carbon copy recipient? ") (really-add-as-recpt-q . "Send future comments to the text to %#1M too? ") (who-to-sub-q . "Remove whom/what as a recipient? ") (who-to-move-from-q . "Move from where? ") (who-to-move-to-q . "Move to where? ") (adding-name-as-recipient . "Adding %#1M as recipient of text %#2n...") (adding-name-as-copy . "%#1M will receive a carbon copy of text %#2n...") (remove-name-as-recipient . "Removing %#1M as recipient of text %#2n...") (error-recipient-limit . "Text %#1n has too many recipients.\n") (error-already-recipient . "%#2M is already a recipient of text %#1n.\n") (error-permission-denied-add-recpt . "Only the author of %#1n or supervisor for %#2M can change recipient types.\n") (error-permission-denied-sub-recpt . "Only the author of %#1n or supervisor for %#2M can remove the recipient.\n") (error-access-denied-add-recpt . "You are not allowed to add texts to %#2M.\n") (error-not-recipient . "%#2M is not a recipient of text %#1n.\n") (moving-name . "Moving text %#3n from %#1M to %#2M...") (text-to-add-q . "Add which text as a comment? ") (text-to-remove-q . "Remove which text as a comment? ") (text-to-add-footn-q . "Add which text as a footnote? ") (text-to-remove-footn-q . "Remove which text as a footnote? ") (add-comment-to . "Adding text %#1n as a comment to text %#2n...") (sub-comment-to . "Removing text %#1n as a comment to text %#2n...") (add-footnote-to . "Adding text %#1n as a footnote to text %#2n...") (sub-footnote-to . "Removing text %#1n as a footnote to text %#2n...") (comment-keep-recpt-p . "Should %#1s remain a recipient? ") (comment-all-relevant-p . "There are multiple recipients. Are they all relevant? ") (please-edit-recipients . "Modify the recipient list and send the text again.") (add-recipient-p . "Add recipient %#1P? ") (checking-rcpt . "Checking recipients...") (checking-rcpt-done . "Checking recipients...done") (checking-comments . "Checking commented texts...") (checking-comments-done . "Checking commented texts...done") (please-check-commented-texts . "Review the commented text and its comments.") (have-unread-comment . "Send despite unread comments to text %#1n? ") (duplicate-recipients . "Unable to post. A recipient is duplicated (%#1M)") (no-recipients . "Unable to post text. No recipients were specified.") (matching-regexp . "Conferences/users matching `%#1s'\n") (who-is-active-all . "Showing all sessions.\n") (who-is-active-last-minutes . "Showing all sessions active the last %#1d minutes.\n") (showing-invisibles . "Showing invisible sessions.\n") (null-who-info . "No one (active) is logged on.\n") (no-other-lyskom-r . "There are no other active LysKOM sessions.\n") (no-lyskom-session . "There are no active LysKOM sessions.") (no-other-unread-lyskom-r . "There is no another LysKOM session with unread texts.\n") (no-unread-lyskom-r . "There is no active LysKOM session with unread texts.\n") (no-unread-lyskom . "There is no active LysKOM session with unread texts.") (who-is-on-in-what-conference . "Who in which conference: ") (who-is-active-and-member . "Only members in %#1M are shown.\n") (pers-to-check-mship-for . "Whose membership do you want to check? ") (conf-to-check-mship-of . "...for what conference? ") (conf-is-empty . "The conference %#1M is empty.\n") (pers-is-member-of-conf . "Yes, %#1P is a member of the conference %#2M.\n") (pers-is-not-member-of-conf . "No, %#1P is not a member of the conference %#2M.\n") (your-memberships . "Your LysKOM conference memberships:\n") (memberships-header . "Last access Prio Unread Conference\n") (memberships-line . "%16#1s %#2d %#3d %#4M\n") (conf-for-status . "Get status of which conference? ") (no-such-conf . "The conference doesn't exist.\n") (status-record . "Status of conference %#1M (%#2m) %#3s\n\n") (change-type-prompt . "Change conference type for %#1M (%#2m) %#3s\n") (Mailbox . "Mailbox") (Protected . "Protected") (no-comments . "No comments") (closed . "Closed") (allow-anon . "anonymomus ok") (allow-secret . "secret members") (created-by . "Created by person %24#1p %#3s(%#2P)\n") (created-at . "Created:%34#1s\n") (members . "Number of members: %19#1d\n") (conf-allows-secret-members . "Secret members: %#1s\n") (conf-allows-anon-texts . "Anonymous texts: %#1s\n") (anon-texts-permitted . "Anonymous texts are permitted") (anon-texts-not-permitted . "Anonymous texts are not permitted") (secret-members-permitted . "Secret members are permitted") (secret-members-not-permitted . "Secret members are not permitted") (garb-nice . "Expiration time (in days):%16#1d\n") (lowest-local-no . "Lowest local number: %21#1d\n") (highest-local-no . "Highest local number: %20#1d\n") (last-text-time . "Time of last text: %20#1s (according to your cache)\n") (no-of-motd . "Notice in text: %13#1n\n") (superconf-is-no-name . "Superconference: %25#1m %#3s(%#2M)\n") (permitted-submitters-no-name . "Allowed authors: %25#1m %#3s(%#2M)\n") (supervisor-is-no-name . "Supervisor: %30#1p %#3s(%#2P)\n") (presentation-no . "Presentation: %25#1n\n") (conf-has-motd . "\n%#1M has a notice on his/her mailbox:\n") (conf-mship-priority . "Prioritet: %25#1n%#2?b%[ %#2s%]%[%]\n") (status-conf-generic . "%-40#1s %#2s\n") (Everybody . "Everyone") (show-members-list-also-q . "List members? ") (show-membership-info-q . "Show number of unreads? ") (conf-has-these-members . "\n%#1M has the following members:\n") (conf-has-no-members . "\n%#1M has no members.\n") (member-list-header . "Last entered Unread Name\n\n") (secret-membership . "--- Secret line ---\n") (conf-membership-line . "%#1s%#2M %#3s\n") (conf-membership-line-2 . " Added %#1s by %#2P\n") (pers-for-status . "Get status of which user? ") (no-such-pers . "The user doesn't exist.\n") (pers-status-record . "Status of user %#1P (%#2p)\n") (created-time . "Created:%34#1s\n\n") (created-confs . "Conferences created:%22#1d\n") (created-persons . "Users created:%28#1d\n") (created-texts . "Texts created:%28#1d\n") (created-lines . "Lines created:%28#1d\n") (created-chars . "Characters created:%23#1d\n") (no-of-sessions . "Session count:%28#1d\n") (present-time-d-h-m-s . "Total presence:%16#1d d %02#2d:%02#3d:%02#4d\n") (last-log-in . "Last session:%29#1s\n") (user-name . "User: %36#1s\n") (read-texts . "Texts read:%31#1d\n") (marked-texts . "Texts marked:%29#1d\n") (time-for-last-letter . "Time of last letter:%22#1s (according to your cache)\n") (superconf . "Superconference: %25#1m %#3s(%#2M)\n") (supervisor . "Supervisor: %30#1p %#3s(%#2P)\n") (member-of-confs . "Member of (conferences):%18#1d\n") (presentation . "Presentation: %25#1n\n") (show-membership-list-also-q . "List memberships? ") (not-allowed-see-confs . "You are not permitted to see which conferences %#1P is a member of.\n") (is-member-of . "\n%#1P is a member of the following conferences:\n") (membership-list-header . "Last access Unread Conference\n\n") (pers-membership-line . "%#1s%#2s%#3M %#4s\n") (pers-membership-line-2 . " Added %#1s by %#2P\n") (is-supervisor-mark . "O ") (who-to-send-message-to . "Send message to whom? (%s) ") (send-empty-message-p . "The message is empty. Send it anyway? ") (his-total-unread . "\n%#1M has a total of %#2d unread texts.\n") (message-prompt . "Message: ") (message-sent-to-user . "================================================================\nYour message for %#2M:\n\n%#1t\n----------------------------------------------------------------\n") (message-sent-to-all . "================================================================\nYour public message:\n\n%#1t\n----------------------------------------------------------------\n") (message-sent-to-user-long . "===============================================================================\nYour message for %#2M:\n\n%#1t\n-------------------------------------------------------------------------------\n") (message-sent-to-all-long . "===============================================================================\nYour public message:\n\n%#1t\n-------------------------------------------------------------------------------\n") (message-use-alarm-instead . "Use %#1s to send alarm messages.\n") (message-all-info . "Send alarm\n") (message-recipient-info . "Send message to %#1M\n") (message-nope . "Unable to send the message. Perhaps the recipient isn't logged on.\nThe message you were sending to %#1M was:\n%#2t\n") (only-last . "Last (0 - %#1d) texts in %#2s: ") (only-error . "Something went wrong. Sorry.\n") (you-have-unreads . "You have %#1d unread text%#1?d%[%]%[s%] in %#2M\n") (you-have-unreads-special . "You have %#1d uncommented text%#1?d%[%]%[s%] in %#2M\n") (you-have-no-unreads . "You have read everything in %#1M\n") (you-have-read-everything . "No news (is bad news).\n") (no-unreads-shown . "Found no conferences meeting that criterion.\n") (total-unreads . "You have %#1d unread text%#1?d%[%]%[s%] texts in %#2d conference%#2?d%[%]%[s%].\n") (shown-unreads . "Showed %#1d unread text%#1?d%[%]%[s%] in %#2d conference%#2?d%[%]%[s%].\n") (list-unread-with-n-unread . "Listing conferences with at least %#1d unread.\n") (list-unread-with-at-most-n-unread . "Listing conferences with at most %#1d unread.\n") (waiting-for-anything . "You are waiting for a text in any conference.\n") (waiting-higher-than . "You are waiting for a text in any conference with a priority higher than %#1d.\n") (have-to-be-in-conf-with-unread . "You must go to a non-empty conference first.\n") (Texts . "Text") (Date . "Date") (Lines . "Len.") (Author . " Author") (Subject . " Subject") (mark-type . "Mrk") (could-not-read . "You couldn't read the text (%#1n).\n") (multiple-choice . "There are several alternatives.") (what-mark-to-list . "List which mark? ") (you-have-marks . "You have %#1d texts marked with %#2d.\n") (you-have-marks-all . "You have %#1d marked texts.\n") (does-not-exist . "Unknown command.") (summary-line . "%=-8#1n%#2s%4#3d %[%#4@%#5:P%] %[%#6@%#7r%]\n") (buggreport-compilestart . "Creating bug report...") (buggreport-compileend . "Creating bug report...done") (buggreport-description . "This is what I was doing:\n(Fill in your comments below)\n================\n\n\n================\nIn the information below are the 100 most recently pressed keys from\nyour emacs. If you recently logged on, you password may be contained in\nthis list. If that is the case, change the characters corresponding to\nyour password to asterisks.\n\nWhen you have finished writing this, send your bug report to the LysKOM\ndevelopers. You can do this either by email to bug-lyskom@lysator.liu.se or\nby mailing a hardcopy of your bug report to:\nLysator, c/0 ISY, Linkoping Univerity, S-581 83 Linkoping, SWEDEN.\nMark the envelope with \"LysKOM bug report\"\n\n") (buggreport-internals . "LysKOM's internal 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 . "Recently pressed keys:") (buggreport-backtrace . "\n*Backtrace*:\n%#1s\n") (buggreport-communications . "\nlyskom-debug-communications-to-buffer-buffer:") (buggreport-all-kom-variables . "\n\nOther variables:\n***** *********") (buggreport-instead-of-byte-comp . "byte-code(\"byte-string\"") (buggreport-subject . "Bugreport elisp-client version %#1s") (not-logged-in . "You are not logged on. ") (name-is-not-in-conf . "%#1s is not in any conference.\n") (name-is-in-conf . "%#1s is in\n%#2s\n") (connected-during . "Connect time: %#1d seconds.\n") (conf-to-set-permitted-submitters-q . "For which conference do you want to set the allowed authors? ") (conf-to-set-super-conf-q . "Set superconference of which conference? ") (new-super-conf-q . "Which conference do you want as superconference? ") (new-permitted-submitters-q . "Allow members of which conference as authors in %#1s? (all) ") (super-conf-for-is . "Changing superconference of %#1M to %#2M...") (permitted-submitters-removed-for-conf . "Allowing all authors to conference %#1M...") (submitters-conf-for-is . "Changing authors admitted to conference %#1M to the members of %#2M...") (conf-to-set-garb-nice-q . "Set expiration time for which conference? ") (new-garb-nice-q . "After how many days shall texts be removed? ") (garb-nice-for-is . "Changing expiration for %#1M to %#2d...") (really-shutdown . "Are you sure you want to shut down the server? ") (closing-server . "Shutting down the server...") (really-sync . "Are you sure you want to save the database? ") (syncing-server . "Saving the database...") (administrator . "administrator") (no-longer-administrator . "a regular user again") (you-are-now . "Ok, you are now running as %#1s.\n") (setting-motd . "Changing login message to text %#1n.\n") (set-motd-success . "You have set a new login message.\n") (set-motd-failed . "Didn't work. Perhaps you were not an administrator.\n") (removing-motd . "Removing the login message.\n") (removed-motd . "You have removed the login message.\n") (who-to-throw-out . "Which session do you want to kill? ") (throwing-out . "Killing session %#1d... ") (postpone-prompt . "How much do you want to read now? ") (set-session-priority . "Set reading level: ") (no-review-done . "You need to review something before you can review more.\n") (not-reviewing . "You are currently not reviewing anything.\n") (review-how-many . "Review how many?") (review-how-many-more . "Review how many more?") (latest-n . "last %#1d") (first-n . "first %#1d") (info-by-whom . "%#1s by whom: ") (info-to-conf . "%#1s to conference: ") (info-by-to . "%#1s by %#2P to %#3M forward.") (all-confs . "all conferences") (no-get-conf . "You are not allowed to access that conference.\n") (no-get-pers . "You are not allowed to access that user.\n") (no-review-info . "You are not allowed to review %#1s\n") (review-info . "Review %#1s") (review-info-by-to . "Review %#1s by %#2P to %#3M forwards.\n") (review-more-info-by-to . "Review %#1s by %#2P to %#3M forwards.\n") (review-rest . "the rest") (review-more . "%#1d more") (you-review . "You are now reviewing %#1s.\n") (read-text-first . "You must read a text first.\n") (cannot-read-last-text . "You cannot review the last read text.\n") (review-n-texts . "Review %#1d texts.\n") (review-marked . "Review %#1d marked texts.\n") (review-text-no . "Review text %#1n\n") (review-many-comments . "Review %#2?d%[one%]%[%#2d%] comment%#2?d%[%]%[s%] to text %#1n.\n") (view-many-comments . "Read %#2?d%[one%]%[%#2d%] comment%#2?d%[%]%[s%] to %#1n.\n") (view-texts-in-conf . "Grand total of %#1d texts to read in %#2M.\n") (not-reading-anywhere . "You are not reading in any conference.\n") (read-normally-read . "How many texts to you want to read again? ") (review-conf-gone . "The conference does not exist.\n") (review-pers-gone . "The user does not exist.\n") (review-cant-read-conf . "You can't review texts to a closed conference you are not a member of.\n") (review-cant-read-letterbox . "You can't review texts to somebody else's mailbox.\n") (review-cant-read-empty . "The conference is empty.\n") (cant-review-everything . "You cannot review every article in LysKOM.\n") (more-than-one-root . "Text %#1n has more than one root.\n") (more-than-one-root-review . "Text %#1n has more than one root but only one of the trees will be shown.\n") (press-C-c-C-c . "Enter C-c C-c to post the text.") (recipient . "Recipient:") (recipient-prefix . "[Rr]") (carbon-copy . "Carbon copy:") (blank-carbon-copy . "Blind Carbon copy:") (carbon-copy-prefix . "[Cc]\\([Aa]\\|[Cc]\\)") (blank-carbon-copy-prefix . "[Bb]\\([Ll]\\|[Cc][Cc]\\)") (secret-aux-flag . "secret") (anonymous-aux-flag . "anonymous") (inherit-aux-flag . "inherited") (aux-item-prefix . "> ") (comment-item-prefix . "#\\s-*") (text-no-comment . "%#1d %#2s /%#3d line%#3?d%[%]%[s%]/ %#4P %#5?b%[ [anonymous]%]%[%]\n") (cant-fcc-text-file-error . "Unable to save text %#1n to \"%#2s\" (%#3s: %#4s).\n") (cant-fcc-text . "Unable to save text %#1n to \"%#2s\" (%#3s).\n") (header-subject . "Subject: ") (header-separator . "\\--- Write below. Post: \\[kom-edit-send], Kill: \\[kom-edit-quit], Help: \\[describe-mode] ---") (text-mass . "%#4s%#1s\n%#2s\n%#3s") (comment-to-by . "%#1s to text %#2n%#3s.\n") (already-sent . "You have already posted this text. Post it anyway? ") (subject . "Subject: ") (subject-prefix . "[Ss]") (enter-subject-idi . "Enter a subject.") (which-text-include . "Include which text? ") (added-recipient . "Recipient: ") (added-carbon-copy . "Carbon copy to conference: ") (added-blank-carbon-copy . "Blind carbon copy to conference: ") (text-to-comment-q . "Which text do you want to comment? ") (conf-has-motd-no . "The conference has a notice. (%#1d)\n\n%#2s") (still-want-to-add . "Do you still want to add the conference as a recipient? ") (could-not-create-text . "\nCouldn't create the text. Error: %#2s.\n") (no-get-text . "You were not allowed to retrieve the text.") (unknown-header . "Unknown header") (transform-error . "Send unformatted (%#1s)? ") (cant-find-info-node . "Can't find the info buffer") (line . " /1 line/ ") (lines . " /%#1d lines/ ") (marked-by-you . "Marked by you (%#1d).\n") (marked-by-you-and-others . "Marked by you (%#2d) and %#1?d%[someone else%]%[%#1d others%].\n") (marked-by-several . "Marked by %#1d user%#1?d%[%]%[s%].\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#3d/%02#2d %02#4d:%02#5d ") (time-hh-mm . "%02#1d:%02#2d") (today-time-format-string . "%#6s %02#4d:%02#5d") (yesterday-time-format-string . "%#6s %02#4d:%02#5d") (today . "today") (yesterday . "yesterday") (no-such-text-no . "The text doesn't exist. (%#1:n)\n") (time-yyyy-mm-dd . "%4#1d-%02#2d-%02#3d") (text-created-at . "Created: %#1s\n") (text-imported-at . "Imported: %#1s\n") (text-imported-at-by . "Imported: %#1s by %#2P\n") (head-Subject . "Subject: ") (Recipient . "Recipient") (Extra-recipient . "CC") (Hidden-recipient . "BCC") (mx-Recipient . "External recipient") (mx-Extra-recipient . "External CC") (mx-Extern-reply-to . "External replies to") (Strange-recipient . "Also to") (send-at . " Posted: %#1s\n") (sent-by . " Posted by %#1P\n") (recieved-at . " Received: %#1s\n") (comment-to-text . "Comment to text %#1n") (footnote-to-text . "Footnote to text %#1n") (comment-in-text . "Comment in text %#1n") (footnote-in-text . "Footnote in text %#1n") (attachment-to-text . "Attachment %#3sto text %#1n") (attachment-in-text . "Attachment %#3sin text %#1n") (envelope-sender . "Sent by: %#1s\n") (attachment-filename . "Attachment file name: \"%#1s\"\n") (comment-to-text-by . "Comment to text %#1n by %#2P") (footnote-to-text-by . "Footnote to text %#1n by %#2P") (comment-in-text-by . "Footnote in text %#1n by %#2P") (footnote-in-text-by . "Footnote in text %#1n by %#2P") (written-by . " by %#1P\n") (name-has-changed-to-name . "%#1:P has changed name to %#2:P") (name-has-changed-to-name-r . "%[%#3@%#1:P%] has changed name to %[%#3@%#2:P%]\n") (you-changed-name-to . "You have now changed your name to %[%#2@%#1:P%].\n") (database-sync . "Synching database.") (lyskom-is-full . "===========================================================\nMessage from the LysKOM system: Somebody tried to connect,\nbut failed since all connections available to LysKOM are in\nuse. Please leave and return later if you are just waiting\nfor a text.\n===========================================================\n") (lyskom-is-full-long . "===============================================================================\nMessage from the LysKOM system: Somebody tried to connect,\nbut failed since all connections available to LysKOM are in\nuse. Please leave and return later if you are just waiting\nfor a text.\n===============================================================================\n") (has-entered . "%#1:P has entered %#2s.") (has-entered-r . "%#2@%#1P has entered %#3s.\n") (has-left . "%#1:P has left %#2s.") (has-left-r . "%#2@%#1P has left %#3s.\n") (Unknown . "Unknown") (unknown . "unknown") (no-longer-member . "You are no longer a member of %#1M.\n") (no-longer-member-n . "You are no longer a member of %#1m (conference is gone).\n") (have-become-member . "You have become a member of %#1M.\n") (have-become-passive-member . "You have become a passive member of %#1M.\n") (message-broadcast . "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nAlarm from %#1P (%#3s):\n\n%#2t\n----------------------------------------------------------------\n") (message-broadcast-long . "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nAlarm from %#1P (%#3s):\n\n%#2t\n-------------------------------------------------------------------------------\n") (message-from . "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nPersonal message from %#1P (%#3s):\n\n%#2t\n----------------------------------------------------------------\n") (message-from-long . "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nPersonal message from %#1P (%#3s):\n\n%#2t\n-------------------------------------------------------------------------------\n") (message-from-to . "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nGroup message to %#3M\nfrom %#2P (%#4s):\n\n%#1t\n----------------------------------------------------------------\n") (message-from-to-long . "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\nGroup message to %#3M\nfrom %#2P (%#4s):\n\n%#1t\n-------------------------------------------------------------------------------\n") (text-is-created . "Text %#1n has been created!") (mode-line-waiting . ": waiting") (mode-line-working . ": working") (mode-line-saving . ": saving") (mode-line-down . ": down") (person-or-conf-no-regexp . "\\`[ ]*[mpMP]\\w*[ ]+\\([0-9]+\\)\\'") (session-no-regexp . "\\`[ ]*[sS]\\w*[ ]+\\([0-9]+\\)\\'") (conf-prompt . "Which conference/person? ") (cant-move-nothing-nowhere . "Can't move nothing anywhere.") (goto-priority-prompt . "Go to priority: ") (priority-prompt . "New priority for %#1M: ") (priority-prompt-marked . "New priority for selected conferences: ") (beginning-of-list . "Beginning of list") (end-of-list . "End of list") (reprioritize-from . "Reprioritize from: ") (reprioritize-to . "Reprioritize to: ") (no-selection . "No selection") (selection . "%d selected") (cannot-get-membership . "Cannot retrieve your membership list.") (cannot-get-pers-stat . "Cannot retrieve your personal status.") (prioritize-help . "u,n Move conference, SPC select, p prioritize selection, q quit, C-h m help") (your-priorities . " Priority Conference\n-------------------------------------------------------------------------------\n") (your-membship . "Your memberships:\n Prio Conf# Conference\n") (prio-row . " %5#1d%5#2m %#3M\n") (too-high-goto-2 . "You are too high up. Move down to line two.") (too-low-go-up . "You can't push the last line. Move up one line.") (all-confs-popped . "All conferences have been popped.") (prio-died . "Couldn't complete the move. Sorry. Kill the buffer.") (new-priority . "New priority? (0 (low) - 255 (high)) ") (new-prio . "%6#1d") (saving-settings . "Saving options...") (saving-settings-done . "Saving options...done") (hang-on . "Wait a moment...\n") (no-changes . "Nothing was saved since no options had been changed.\n") (could-not-save-options . "Couldn't save options.\n") (could-not-create-area . "Couldn't create the text.\n") (could-not-set-user-area . "Couldn't alter the user area. The server says error: %#1d\n") (you-dont-exist . "You don't exist. Go away.\n") (error-in-options . "There was an error in one of your variables (%#1s)\nIt was set to \"%#2s\" in the user area. It is set to nil instead.\nSend a bug report.\n") (error-in-options-short . "There was an error in your saved settings. Some settings have not been read.") (mode-line-unread . " Unread ") (mode-line-letters . "letters ") (frame-title-unread . "Unread") (frame-title-letters . " letters") (sessions-with-unreads . "Sessions with unread texts") (unread-letters . "unread letters") (bad-text-no-prefix . "Unable to translate prefix `%s' to a text number") (error-code . "Error code %#2d: %#1s.\n") (error-in-kom-do-when-done . "The variable kom-do-when-done has an erroneous value.\nYou should set it to a better value.\n") (extended-command . "LysKOM: ") (wait-for-server . "LysKOM is waiting for a response from the server. Wait for the prompt.\n") (review-text-q . "Review text: ") (completely-read-conf . "You have seen all the texts in this conference.\n") (not-in-any-conf . "You are not in a conference now.\n") (all-conf-unread-r . "You have nothing unread.\n") (all-conf-unread-s . "You have nothing unread. ") (one-unread . "%#1M - one unread text\n") (several-unread . "%#1M - %#2d unread texts\n") (enter-conf . "%#1M\n") (save-one-on-file-q . "Save copy of text %#1n in file: ") (save-many-on-file-q . "Save copies of %#1d texts in file: ") (saving-one-on-file . "Saving copy of text %#1n in %#2s.\n") (saving-many-on-file . "Saving %#1d texts in %#2s.\n") (save-text-to-file-q . "Save body of text %#1n in which file: ") (save-text-confirm . "File %#1s exists. Overwrite? ") (saving-text . "Saving text %#1n as %#2s...") (what-save-no . "Which text do you want to save? ") (wait-for-prompt . "Wait for the prompt.") (conference-no . "") (person-no . "") (prompt-several-messages . "(%d messages)") (prompt-single-message . "(%d message)") (re-edit-text-prompt . "Edit the text that couldn't be created") (text-buffer-missing . "The text buffer no longer exists.\n") (go-to-pri-conf-prompt . "Go to next prioritized conference") (read-pri-text-conf . "Read next prioritized text") (review-next-text-prompt . "Review next text") (review-next-comment-prompt . "Review next comment") (review-next-marked-prompt . "Review next marked text") (read-next-letter-prompt . "Read next letter") (read-next-footnote-prompt . "Read next footnote") (read-next-comment-prompt . "Read next comment") (read-next-text-prompt . "Read next text") (read-next-attachment-prompt . "Read next attachment") (go-to-conf-of-marked-prompt . "Resume reviewing marked") (go-to-conf-of-review-tree-prompt . "Resume reviewing comments") (go-to-conf-of-review-prompt . "Resume reviewing texts") (go-to-next-conf-prompt . "Go to next conference") (go-to-your-mailbox-prompt . "Go to your mailbox") (next-pri-session-prompt . "Go to prioritized LysKOM \"%#1s\"") (next-unread-session-prompt . "Go to LysKOM \"%#1s\"") (no-such-kom-session . "No such session with unread texts.\n") (the-command . "Command: %#1C") (error-in-login-hook . "There was an error in your kom-login-hook: %#1s\n") (give-a-number . "Enter a number: ") (yes-regexp . "\\`[yY][eE][sS]\\'") (no-regexp . "\\`[nN][oO]\\'") (yes-string . "Yes") (no-string . "No") (yes-or-no-nag . "Answer yes or no.") (yes-or-no . "(yes or no) ") (y-or-n-instring . "yYnN") (j-or-n-nag . "Answer y or n. ") (j-or-n . "(y or n) ") (y-instring . "yY") (person-does-not-exist . "User %#1d (does not exist).") (conference-does-not-exist . "Conference %#1d (does not exist).") (conf-no-does-not-exist-r . "Conference %#1d does not exist.") (person-is-anonymous . "Anonymous user") (process-signal . "Signal from the process.") (dead-session . "No active LysKOM session.") (not-lyskom-buffer . "This is not an active LysKOM session.") (closed-connection . "\n**************************************************\n%#2s\nLysKOM session killed abnormally\nError message: %#1s**************************************************") (error-not-found . "Error code %#1d. No explanation available.") (illegal-command . "Illegal command.\n") (no-such-text . "The text doesn't exist.\n") (no-such-text-m . "The text doesn't exist.") (nobody . "nobody") (everybody . "everyone") (everything . "everything") (anybody . "anyone") (forward . "forward") (backward . "backward") (wait . "Wait a moment...\n") (comment . "Comment") (comment-prefix . "[Cc][Oo]") (footnote . "Footnote") (footnote-prefix . "[Ff]") (by . " by %#1P") (text-created . "Text %#1n has been created.\n") (text-created-anonymous . "Text %#1n has been created (anonymously). To make it more difficult\nfor others to figure out that you wrote the text, you should wait a while\nbefore reading it.\n") (resolve-session . "Which session: ") (starting-program . "Starting %#1s...") (super-jump . "Filtering subject \"%#1r\" in conference \"%#2M\"\n") (no-recipient . "There are no recipients for this text.\n") (filtered . "[Filtered]") (filter-error-specification . "Error in the filter specification") (filter-error-bad-not . "Error in the filter specification after 'not'") (filter-error-unknown-key . "The filter key '%S' is unknown.") (filter-error-key-arg . "Bad filter data (%S %S)") (filter-tree . "Skipping text %#1n \"%#2r\" by %#3P and all its comments.\n") (filter-text . "Skipping text %#1n \"%#2r\" by %#3P.\n") (filter-permanent . "Permanent? ") (filter-action . "Filter how? ") (filter-in-conf . "In which conference? (all) ") (filter-subject . "Filter which subject? ") (filter-which-text . "Filter texts containing: ") (filter-author . "Filter which author? ") (permanent . "(permanent)") (temporary . "(temporary)") (filter-edit-buffer-name . "*LysKOM Filter Edit*") (filter-edit-empty-list . "Empty list") (filter-edit-start-of-list . "Beginning of list") (filter-edit-end-of-list . "End of list") (filter-edit-filter-how . "Filter how? ") (filter-edit-filter-what . "What do you want to filter? ") (filter-edit-bad-argument . "Bad input: %s") (filter-edit-outside-entry . "Can't do that outside a filter") (filter-edit-outside-list . "Can't do that outside the list") (filter-edit-end-of-pattern . "End of filter") (filter-edit-save-p . "Save changes? ") (filter-edit-remove-empty . "Empty filters cause all texts to be filtered. Do you want to remove these? ") (filter-edit-restart-p . "You have made changes. Really revert? ") (filter-edit-help . "p Up, n Down, i New line, M-i New filter, d Delete line, M-d Delete filter") (filter-edit-header . "Edit filters on \"%s\"\n") (filter-edit-saving . "Saving changes...") (filter-edit-saving-done . "Saving changes...done") (filter-edit-saving-error . "Couldn't save changes!") (filter-edit-insert-pred . "%#1s (=,!=): ") (filter-edit-insert-arg . "%#1s %#2s (what): ") (no-filters . "No filters are defined.\n") (view-filters-header . "\nActive filters:\n\n") (view-filters-footer . "") (ansaphone-new-message . "New Ansaphone message: ") (ansaphone-message . "Ansaphone message:\n----------------------------------------------------------------------\n%#1t\n----------------------------------------------------------------------\n") (ansaphone-message-long . "Ansaphone message:\n-------------------------------------------------------------------------------\n%#1t\n-------------------------------------------------------------------------------\n") (ansaphone-state . "The Ansaphone is %#1s.") (ansaphone-state-r . "The Ansaphone is now %#1s.\n") (ansaphone-messages-gone . "Recorded messages have been erased.") (ansaphone-no-messages . "No recorded messages.\n") (ansaphone-message-list-start . "Recorded messages:\n\n") (ansaphone-message-list-end . "\n\n") (ansaphone-message-header . "Automatic reply (set %#1s):\n") (remote-erase-messages . "Remote control (%#1P %#2s): Erased recorded messages\n") (remote-set-message . "Remote control (%#1P %#2s): Ansaphone message:\n----------------------------------------------------------------------\n%#3t\n----------------------------------------------------------------------\n") (remote-set-message-long . "Remote control (%#1P %#2s): Ansaphone message:\n-------------------------------------------------------------------------------\n%#3t\n-------------------------------------------------------------------------------\n") (remote-set-ansaphone . "Remote control (%#1P %#2s): The ansaphone is %#3s\n") (remote-list-messages . "Remote control (%#1P %#2s): Listed recorded messages\n") (remote-quit . "Remote control (%#1P %#2s): Quit\n") (illegal-remote . "Illegal remote control attempt:\nTime: %#1s\nFrom: %#2P <%#2p>\nTo : %#3P <%#3p>\nText: \n%#4t") (illegal-remote-reply . "Remote control rejected: %#1s") (remote-not-in-list . "Unauthorised person") (remote-bad-command . "Unknown or malformed command") (remote-unknown-error . "Unknown error") (remote-control-who . "Remotely control which session? ") (remote-control-autoreply . "Ansaphone on or off? ") (state-on . "on") (state-off . "off") (text-popup-title . "Text %#1s") (conf-popup-title . "Conference %#1s") (pers-popup-title . "User %#1s") (url-popup-title . "URL %#1s") (aux-popup-title . "Extra information") (generic-popup-title . "%#1s") (who-i-am-not-present . "%#1P (not in any conference) \n") (who-i-am-present . "%#1P is present in %#2M\n") (who-i-am-client . "The program is lyskom.el, version %#1s%#2?b%[ (MULE)%]%[%].\n") (who-i-am-server . "This is %#1s, version %#2s.\n") (who-i-am-emacs . "Running under %#1s%#2?b%[ (MULE)%]%[%].\n") (no-such-session-r . "That session does not exist. Perhaps the user is not logged on.\n") (person-not-logged-in-r . "%#1P is not logged on.\n") (session-status . "Session %#1d is %#2P <%#2p>\n%#5s %#7s %#4M\nUsing %#6D from %#3s\n") (session-status-9 . "Session %#1d is %#2P <%#2p>\n%#5s %#7s %#4M\nUsing %#6D from %#3s\nOn since %#8s%#9s") (session-status-inactive . "\nHas been inactive for %#1s\n") (one-day . "one day") (one-hour . "one hour") (one-minute . "one minute") (days . "days") (hours . "hours") (minutes . "minutes") (and . "and") (session-is-active . " and is currently active.\n") (session-is-invisible . "This session is invisible.\n") (status-for-session . "Session status for whom? ") (unknown-doing-what . "Exists") (doing-where-conn . "in") (doing-nowhere-conn . "but is") (waiting-for-membership . "Waiting for the membership list to be fetched...%d/%d") (keyboard-menu-help . "Next: SPC Prev: DEL Select: RET Cancel: ESC") (no-such-command . "There is no such command.\n") (command-completions . "You may mean one of the following:\n %#1s\n") (which-language . "Change language to: ") (send-formatted . "Send as formatted text? ") (changing-language-to . "Changing to %#1s.\n") (language-set-to . "Language set to %#1s.\n") (language-not-loaded . "%#1s is unavailable.\n") (reformat-html . "HTML") (reformat-enriched . "enriched") (reformat-filled . "filled") (reformat-truncated . "truncated") (reformat-signature . "designed") (need-library . "The \"%#1s\" package is required for this command.\n") (calc-expression . "Expression: ") (do-send-anonymous . "Send the text anonymously? ") (anonymous . "anonymous") (Anonymous . "Anonymous") (secret-conf-letter . "S") (protected-conf-letter . "P") (created-conf-letter . "C") (superconf-conf-letter . "S") (supervisor-conf-letter . "O") (where-is-doesnt-exist . "The command %#1s does not exist") (where-is-on-no-key . "%#1s is not on any key") (where-is-on-key . "%#1s is on %#2s") (content-type-aux . "Content type: %#1s") (content-type-regexp . "Content type: \\(\\S-+\\)") (agreeing . "Agreeing with text %#1n...") (fast-replying . "Remark to text %#1n...") (author-fast-replies . "Remarks by the author:") (author-fast-reply-aux . " \"%#1t\"") (other-fast-replies . "Remarks:") (other-fast-reply-aux . " \"%#1t\" /%#2P/") (faq-for-conf-aux . "FAQ for %#1M <%#1m>") (faq-in-text-aux . "FAQ in text: %10#1n") (conf-to-add-faq . "Which conference do you want to add an FAQ for? ") (text-to-add-as-faq . "Which text is the new FAQ? ") (text-to-change-as-faq . "Which FAQ do you want to change? ") (adding-faq . "Adding text %#1n as an FAQ for %#2M...") (conf-to-del-faq . "Which conference do you want to remove an FAQ from? ") (text-to-del-as-faq . "Which text do you want to remove as FAQ? ") (deleting-faq . "Removing text %#1n as FAQ for %#2M...") (conf-has-no-faq . "%#1M has no FAQ\n") (view-which-faq . "View FAQ for which conference? ") (review-faq-for-r . "View FAQ for %#1M.\n") (changed-faq-for-conf-done . "FAQ for %#1M changed to text %#3n.\n") (changed-faq-for-conf-failed . "Unable to change FAQ for %#1M to text %#3n.\n%#2?b%[Text %#2n is still the FAQ.\n%]%[%]%#4s") (too-many-languages . "Cannot code that many character sets. Send uncoded? ") (too-many-content-types . "Cannot figure out what content type you want. Simplify the text.") (cross-reference-text-status-aux . "See text: %10#1n /%#2P/") (cross-reference-conf-status-aux . "See conference: <%#1m> %#1M /%#2P/") (cross-reference-pers-status-aux . "See person: <%#1p> %#1P /%#2P/") (strange-cross-reference-status . "See also: %#1s (whatever that means)") (cross-reference-text-aux . "See text %#1n /%#2P/") (cross-reference-conf-aux . "See conference <%#1m> %#1M /%#2P/") (cross-reference-pers-aux . "See person <%#1p> %#1P /%#2P/") (cross-reference-text-regexp . "See text \\([0-9]+\\)") (cross-reference-conf-regexp . "See conference <\\([0-9]+\\)>") (cross-reference-pers-regexp . "See person <\\([0-9]+\\)>") (strange-cross-reference . "See %#1s, whatever that might mean") (no-comments-aux . "The author has requested others not to comment this text") (no-comments-edit-aux . "Request that others do not comment") (no-comments-regexp . "Request that others do not comment") (personal-comment-aux . "The author has requested private replies only") (personal-comment-edit-aux . "Request private replies only") (personal-comment-regexp . "Request private replies only") (request-confirmation-aux . "%#1P has requested confirmation of reading") (request-confirmation-edit-aux . "Request confirmation of reading") (request-confirmation-regexp . "Request confirmation of reading") (confirm-read-q . "Confirm reading text %#1n? ") (read-confirm-aux . "Confirmed reading: %#1P %#2s") (redirect-email-aux . "Send e-mail to %#1s") (redirect-lyskom-aux . "Send texts to conference %#1M") (label-what-kind . "Set personal label on what (text, conference, user)? ") (label-what-text . "Set personal label on text: ") (label-what-conf . "Set personal label on which conference? ") (label-what-pers . "Set personal label on which person? ") (label-what-label . "Personal label: ") (label-secret . "Should others to be able to see the label? ") (creating-software-aux . "Created with %#1s") (cant-get-aux-item . "Can't find extra information") (aux-item-no-info . "No information available\n") (aux-item-info . "Number: %#1d %#6s\nType: %#2d (%#3s)\nCreated by: %#4P <%#4p>\nCreated: %#5s\nFlags: %#7s\nInherit limit: %#8s\nContents: \"%#9s\"\n") (secret . "Secret") (deleted . "Deleted") (hide-creator . "Secret creator") (inherit . "Inherited") (unlimited-inherit . "Unlimited inheritance") (no-inheritance . "Inheritance is off") (no-more-inheritance . "Inherit limit reached; will not be further inherited") (inherit-steps . "%#1d steps") (aux-item-for . "Extra information for ") (conference-no . "conference <%#1m> %#1M") (text-no . "text %#1n") (what-fast-reply-no . "Remark to which text? ") (fast-reply-prompt . "Remark: ") (agree-prompt . "Text: ") (default-agree-string . "I agree") (what-agree-no . "Agree with which text? ") (person . "User") (conference . "Conference") (text . "Text") (xref-type . "What to you want to refer to (text, conference or person)? ") (which-text-to-xref . "Add reference to text: ") (which-text-to-xref-err . "Text not found. Add reference to text: ") (which-pers-to-xref . "Add reference to user: ") (which-conf-to-xref . "Add reference to conference: ") (no-comments-q . "The author doesn't want comments. Comment anyway? ") (private-answer-q . "The author wants private replies. Write private reply? ") (your-invited . "You have been invited to %#1M by %#2P.\nBy accepting the invitation you will continue to be a member of %#1M.\nIf you decline the invitation you will not be a member of the conference.\n") (accept-invitation . "Do you want to accept the invitation now? ") (enter-passive . "You are a passive member of %#1M.\nYou must become an active member of the conference to enter it.\n") (convert-passive . "Vill du bli aktiv medlem i %#1M? ") (bug-secret-mship . "You are a secret member of %#1M\n") (invitation-mt-type . "invited") (passive-mt-type . "passive") (secret-mt-type . "secret") (Invitation-mt-type . "Invited") (Passive-mt-type . "Passive") (Secret-mt-type . "Secret") (not-author-try-anyway-p . "You are not the author of the text. Try anyway? ") (what-no-comments-no . "Which text do you want to prevent comments to: ") (adding-no-comments . "Preventing comments to text %#1n...") (already-no-comments . "Text %#1n already prevents comments.\n") (what-private-answer-no . "Which text do you want private replies to: ") (adding-private-answer . "Requesting only private replies to text %#1n...") (already-private-answer . "Text %#1n already has a request for private replies only.\n") (what-request-confirm-no . "Which text do you want read confirmations for: ") (adding-request-confirm . "Requesting read confirmations for text %#1n...") (already-request-confirm . "Text %#1n already has a request for read confirmations.\n") (review-mail-headers-to-what . "Which text's mail headers do you want to see? ") (no-mail-headers . "Text %#1n has no mail headers\n") (mail-headers-for . "Mail headers for text %#1n:\n") (email-name-prefix . "") (email-name-suffix . "") (you-are-anonymous . "You are now somewhat anonymous.\n") (you-are-nonanonymous . "You are no longer anonymous.\n") (you-are-already-anonymous . "You are already somewhat anonymous.\n") (you-are-already-nonanonymous . "You are already non-anonymous.\n") (start-keep-alive . "Sending data at %#1d second intervals to keep the connection active.") (stop-keep-alive . "No longer keeping connection active by sending extra data.") (review-noconversion-q . "Review which text unconverted?") (review-commented-q . "Review the commented for which text?") (review-tree-q . "Review all comments recursively for which text?") (find-root-q . "Review original text for text?") (find-root-review-q . "Review tree of which text?") (review-comments-q . "Review all comments to which text?") (confusion-who-to-reply-to . "I can't figure out which text you want to write a private reply to.\n") (confusion-what-to-answer-to . "I can't figure out which text you want to write a reply to.\n") (confusion-what-to-view . "I can't figure out which text you want to view.\n") (confusion-what-to-reply-to . "I can't figure out which text you want to write a remark to.\n") (confusion-what-to-agree-to . "I can't figure out which text you want to agree with.\n") (confusion-what-to-request-confirmation . "I can't figure out which text you want read confirmations for.\n") (confusion-what-to-comment . "I can't figure out which text you want to comment.\n") (confusion-what-to-footnote . "I can't figure out to which text you want to write a footnote to.\n") (confusion-what-to-delete . "I can't figure out which text you want to delete.\n") (confusion-what-to-add-sub-recipient . "I can't figure out which text you want to %#1s.\n") (add-rcpt-action-name . "add a recipient to") (add-copy-action-name . "add a carbon copy recipient to") (add-bcc-action-name . "add a blind carbon copy recipient to") (sub-action-name . "remove a recipient from") (move-action-name . "move") (confusion-what-to-add-comment-to . "I can't figure out which text you want to add a comment to.\n") (confusion-what-to-sub-comment-from . "I can't figure out which text you want to remove a comment from.\n") (confusion-what-to-add-footnote-to . "I can't figure out which text you want to add a footnote to.\n") (confusion-what-to-sub-footnote-from . "I can't figure out which text you want to remove a footnote from.\n") (confusion-what-to-mark . "I can't figure out which text you want to mark.\n") (confusion-what-to-unmark . "I can't figure out which text you want to unmark.\n") (confusion-what-to-save . "I can't figure out which text you want to save.\n") (confusion-what-to-review-mail-headers . "I can't figure out which text's mail headers you want to see.\n") (confusion-what-to-find-root . "I can't figure out which text's root you want to see.\n") (confusion-what-to-find-root-review . "I can't figure out which tree you want to review.\n") (lyskom-button-view-text-action . "View text") (lyskom-button-review-noconversion-action . "Review unconverted") (lyskom-button-review-tree-action . "Review tree") (lyskom-button-find-root-action . "Review root text") (lyskom-button-comment-text-action . "Write commend") (lyskom-button-private-comment-text-action . "Write personal reply") (lyskom-button-mark-text-action . "Mark text") (lyskom-button-unmark-text-action . "Unmark text") (lyskom-button-save-text-action . "Save archive copy") (lyskom-button-save-text-body-action . "Save text body") (lyskom-button-view-conf-presentation-action . "View presentation") (lyskom-button-view-conf-status-action . "View conference status") (lyskom-button-goto-conf-action . "Go to conference") (lyskom-button-send-message-action . "Send group message") (lyskom-button-add-self-action . "Join conference") (lyskom-button-sub-self-action . "Leave conference") (lyskom-button-view-pers-presentation-action . "View presentation") (lyskom-button-view-pers-status-action . "View user status") (lyskom-button-mail-action . "Send letter") (lyskom-button-send-message-action . "Send personal message") (lyskom-button-open-url-action . "Open") (lyskom-button-copy-url-action . "Copy") (lyskom-button-goto-info-node-action . "Open") (lyskom-button-open-email-action . "Send mail") (lyskom-button-copy-email-action . "Copy") (lyskom-button-info-aux-action . "Information") (lyskom-button-delete-aux-action . "Delete") (lyskom-edit-toggle-secret-aux-action . "Toggle \"secret\"") (lyskom-edit-toggle-anonymous-aux-action . "Toggle \"anonymous\"") (lyskom-edit-toggle-inherit-aux-action . "Toggle \"inherited\"") (lyskom-edit-delete-aux-action . "Delete") (lyskom-prioritize-flag-toggle-action . "Toggle") (lyskom-prioritize-flag-set-action . "Set") (lyskom-prioritize-flag-clear-action . "Clear")) ((describe-mode . "Help") (kom-slow-mode . "Long commands") (kom-quick-mode . "Short commands") (kom-send-message . "Send message") (kom-send-alarm . "Send alarm") (kom-create-conf . "Create conference") (kom-delete-conf . "Delete conference") (kom-delete-text . "Remove text") (kom-display-time . "Time") (kom-go-to-conf . "Go (to) conference") (kom-go-to-next-conf . "(Go to) next conference") (kom-jump . "Skip (all) comments") (kom-list-created-conferences . "List owned conferences") (kom-list-conferences . "List conferences") (kom-list-persons . "List users") (kom-list-news . "List news") (kom-list-re . "List (using) regexps") (kom-membership . "List memberships") (kom-postpone . "Postpone reading") (kom-set-session-priority . "Set reading level") (kom-prioritize . "Prioritize conferences") (kom-status-person . "Status (of) user") (kom-status-conf . "Status (of) conference") (kom-add-self . "Join (a) conference") (kom-change-priority . "Change priority") (kom-list-summary . "List text (subjects)") (kom-sub-self . "Leave (a) conference") (kom-quit . "Quit") (kom-recover . "Recover") (kom-start-anew . "New User") (kom-view . "Review text") (kom-find-root-review . "Review tree") (kom-review-comments . "Review all comments") (kom-review-tree . "Review all comments recursively") (kom-review-clear . "Review and skip") (kom-review-last-normally-read . "Review again") (kom-review-noconversion . "Review unconverted") (kom-review-next . "Review next") (kom-find-root . "Review original (text)") (kom-review-by-to . "Review last") (kom-review-first . "Review first") (kom-review-all . "Review all") (kom-review-more . "Review more") (kom-view-commented-text . "Review (the) commented (text)") (kom-view-previous-commented-text . "Review (the) previously commented (text)") (kom-review-stack . "Review stack") (kom-review-presentation . "Review presentation") (kom-review-backward . "(Review) Backwards") (kom-view-next-text . "(Read) next text") (kom-who-is-on . "Who is on") (kom-who-is-on-in-conference . "Who is on in conference") (kom-who-am-i . "Where (am) i") (kom-list-clients . "List clients") (kom-busy-wait . "Wait (for news)") (kom-write-comment . "(Write) comment") (kom-comment-previous . "(Write) comment (to) previous text") (kom-write-footnote . "(Write) footnote") (kom-private-answer . "(Write) personal reply (by letter)") (kom-private-answer-previous . "(Write) personal (reply to) previous text (by letter)") (kom-set-unread . "Only (the) last") (kom-write-text . "Write (a) text") (kom-send-letter . "Write (a) letter") (kom-change-name . "Change name") (kom-change-parenthesis . "Change parenthesis") (kom-change-password . "Change password") (kom-change-supervisor . "Change supervisor") (kom-change-presentation . "Change presentation") (kom-get-appreciation . "(Please) pat my head") (kom-get-abuse . "(Please) kick my butt") (kom-mark-text . "Mark (text)") (kom-unmark-text . "Unmark (text)") (kom-review-marked-texts . "Review marked (texts)") (kom-review-all-marked-texts . "Review all marked (texts)") (kom-add-recipient . "Add recipient") (kom-add-copy . "Add (recipient of) carbon copy") (kom-add-bcc . "Addera (recipient of) blind carbon copy") (kom-sub-recipient . "Remove recipient") (kom-move-text . "Move text") (kom-add-comment . "Add comment") (kom-sub-comment . "Remove comment") (kom-add-member . "Add (a) member") (kom-sub-member . "Remove (a) member") (kom-change-conf-motd . "(Post) notice (on the) conference") (kom-set-garb-nice . "Change expiration") (kom-set-super-conf . "Change superconference") (kom-set-permitted-submitters . "Change allowed authors") (kom-unset-conf-motd . "Remove notice") (kom-save-text . "Archive (copy of) text (in file)") (kom-save-text-body . "Save text body (in file)") (kom-save-options . "Save options") (kom-shutdown-server . "Shut down (server)") (kom-sync-database . "Save (the) database") (kom-enable-adm-caps . "Become administrator") (kom-disable-adm-caps . "Become (normal) user") (kom-set-motd . "Change login message") (kom-remove-motd . "Remove login message") (kom-force-logout . "Kill session") (kom-filter-author . "Filter author") (kom-filter-subject . "Filter subject") (kom-super-jump . "Super jump") (kom-filter-edit . "Edit filters") (kom-filter-text . "Filter contents") (kom-list-filters . "List filters") (kom-show-user-area . "Show user area") (kom-change-conf-type . "Change conference type") (kom-change-auto-reply . "Change ansaphone message") (kom-toggle-auto-reply . "Ansaphone") (kom-list-messages . "List messages") (kom-erase-messages . "Erase messages") (kom-remote-autoreply . "Remote control ansaphone") (kom-remote-set-message . "Remote control change ansaphone message") (kom-remote-list-messages . "Remote control list messages") (kom-remote-erase-messages . "Remote control erase messages") (kom-remote-quit . "Remote control quit") (kom-status-session . "Status (of a) session") (kom-customize . "Customize LysKOM") (kom-next-kom . "Next LysKOM") (kom-previous-kom . "Previous LysKOM") (kom-next-unread-kom . "Next unread LysKOM") (kom-change-language . "Change language") (kom-calculate . "Calculate") (kom-list-marks . "List marked texts") (kom-where-is . "Where (is the) command") (kom-fast-reply . "Remark (to text)") (kom-agree . "Agree") (kom-add-faq . "Add FAQ") (kom-del-faq . "Remove FAQ") (kom-review-faq . "View FAQ") (kom-sub-footnote . "Remove footnote") (kom-add-footnote . "Add footnote") (kom-add-no-comments . "Prevent comments") (kom-add-private-answer . "Request private reply") (kom-add-request-confirm . "Request confirmation of reading") (kom-review-mail-headers . "Review mail headers") (kom-become-anonymous . "Become anonymous") (kom-become-nonanonymous . "Become non-anonymous (come forth into the light)") (kom-keep-alive . "Keep connection alive") (kom-stop-keep-alive . "Stop keeping connection alive") (kom-is-person-member-of-conference . "Check (if person is a) member (of conference)") (kom-change-conf-faq . "Change FAQ")) '((aa . "Afar") (ab . "Abkhazian") (af . "Afrikaans") (am . "Amharic") (ar . "Arabic") (as . "Assamese") (ay . "Aymara") (az . "Azerbaijani") (ba . "Bashkir") (be . "Byelorussian") (bg . "Bulgarian") (bh . "Bihari") (bi . "Bislama") (bn . "Bengali") (bo . "Tibetan") (br . "Breton") (ca . "Catalan") (co . "Corsican") (cs . "Czech") (cy . "Welsh") (da . "Danish") (de . "German") (dz . "Bhutani") (el . "Greek") (en . "English") (eo . "Esperanto") (es . "Spanish") (et . "Estonian") (eu . "Basque") (fa . "Persian") (fi . "Finnish") (fj . "Fiji") (fo . "Faroese") (fr . "French") (fy . "Frisian") (ga . "Irish") (gd . "Scots Gaelic") (gl . "Galician") (gn . "Guarani") (gu . "Gujarati") (ha . "Hausa") (he . "Hebrew") (hi . "Hindi") (hr . "Croatian") (hu . "Hungarian") (hy . "Armenian") (ia . "Interlingua") (id . "Indonesian") (ie . "Interlingue") (ik . "Inupiak") (is . "Icelandic") (it . "Italian") (iu . "Inuktitut") (ja . "Japanese") (jw . "Javanese") (ka . "Georgian") (kk . "Kazakh") (kl . "Greenlandic") (km . "Cambodian") (kn . "Kannada") (ko . "Korean") (ks . "Kashmiri") (ku . "Kurdish") (ky . "Kirghiz") (la . "Latin") (ln . "Lingala") (lo . "Laotian") (lt . "Lithuanian") (lv . "Latvian Lettish") (mg . "Malagasy") (mi . "Maori") (mk . "Macedonian") (ml . "Malayalam") (mn . "Mongolian") (mo . "Moldavian") (mr . "Marathi") (ms . "Malay") (mt . "Maltese") (my . "Burmese") (na . "Nauru") (ne . "Nepali") (nl . "Dutch") (no . "Norwegian") (oc . "Occitan") (om . "Oromo") (or . "Oriya") (pa . "Pundjabi") (pl . "Polish") (ps . "Pashto") (pt . "Portuguese") (qu . "Quechua") (rm . "Rhaeto-Romance") (rn . "Kirundi") (ro . "Romanian") (ru . "Russian") (rw . "Kiyarwanda") (sa . "Sanskrit") (sd . "Sindhi") (sg . "Sangho") (sh . "Serbo-Croatian") (si . "Singhalese") (sk . "Slovak") (sl . "Slovenian") (sm . "Samoan") (sn . "Shona") (so . "Somali") (sq . "Albanian") (sr . "Serbian") (ss . "Siswati") (st . "Sesotho") (su . "Sudanese") (sv . "Swedish") (sw . "Swahili") (ta . "Tamil") (te . "Telugu") (tg . "Tajik") (th . "Thai") (ti . "Tigrinya") (tk . "Turkmen") (tl . "Tagalog") (tn . "Setswana") (to . "Tonga") (tr . "Turkish") (ts . "Tsonga") (tt . "Tatar") (tw . "Twi") (ug . "Uigur") (uk . "Ukrainian") (ur . "Urdu") (uz . "Uzbek") (vi . "Vietnamese") (vo . "Volapk") (wo . "Wolof") (xh . "Xhosa") (yi . "Yiddish") (yo . "Yorouba") (za . "Zhuang") (zh . "Chinese") (zu . "Zulu") (-- . "Unknown language (%#1s)")) ((lyskom . "LysKOM") (read . "Read") (dont-read . "Jump") (write . "Write") (conference . "Conference") (other . "Other") (person . "User") (marks . "Marks") (move . "Go") (info . "About") (send . "Send message") (recievers . "Receivers") (commented . "Commented") (kom-edit-send . "Send") (kom-edit-send-anonymous . "Send anonymously") (kom-edit-quit . "Throw away") (kom-ispell-message . "Check spelling") (kom-edit-add-recipient . "Add recipient") (kom-edit-add-copy . "Add carbon copy") (kom-edit-show-commented . "Review commented") (kom-edit-insert-commented . "Cite commented") (kom-edit-insert-buglist . "Paste commented bug list") (kom-edit-add-bcc . "Add blind carbon copy") (kom-edit-add-cross-reference . "Add cross reference") (kom-edit-add-no-comments . "Request no comments") (kom-edit-add-personal-comments . "Request personal replies") (kom-edit-add-read-confirm-request . "Request read confirmation") (kom-edit-move-text . "Move to new recipient")) '(("on" . on) ("off" . off)) '(("=") ("!=" . t)) '((author . "Author") (author-no . "Author (number)") (author-re . "Author (regexp)") (subject . "Subject") (subject-re . "Subject (regexp)") (recipient . "Recipient") (recipient-no . "Recipient (number)") (recipient-re . "Recipient (regexp)") (text . "Contents") (text . "Contents (regexp)")) '((skip-text . "Skip") (dontshow . "Don't show") (skip-tree . "Skip comments")) lyskom-en-review-prefix lyskom-en-change-prefix lyskom-en-next-prefix lyskom-en-list-prefix lyskom-en-filter-get-prefix lyskom-en-S-prefix lyskom-en-previous-prefix "A?" "o" "c" "C" "lc" "lu" "la" "lw" "U" "na" "nc" "nu" "bl" "fp" "fk" "fa" "fc" "w" "W" "Ap" "Af" "Am" "At" "r " "r0" "r1" "r2" "r3" "r4" "r5" "r6" "r7" "r8" "r9" "rc" "rC" "ra?" "rac" "rar" "rj" "rn" "ru" "ro" "rl" "rf" "rA" "rM" "rg" "rq" "rs" "rp" "rm" "ram" "ra " "rxa" "rxq" "sc" "su" "sa" [67108927] [delete] [BS] lyskom-en-filter-edit-prefix "\377" [down] [up] [(meta up)] [(meta down)] " Prio Conference\n-----------------------------------------------------------------------------\n" ((which-person . "Specify person: ") (which-conf . "Specify a conference: ") (which-conf-or-person . "Specify a person or conference: ") (which-name . "Specify a name: ") (some-person . "Person %#1d") (invalid-value . "Invalid value (%#1S)") (unknown-command . "Unknown command (%#1s)") (ding . "Audio cue") (variable-type-help . "Select to save the setting in the server.") (default-help-echo . "Change the value of %#1s.") (change-this-name . "Change the name in this entry.") (show-doc . "Show documentation.") (hide-doc . "Hide documentation.") (select-command . "Select a command.") (select-what-to-execute . "Select whether to execute command or keyboard macro.") (select-url-viewer . "Select a web browser.") (select-number . "Select number of times.") (select-audio-file . "Select an audio file.") (select-priority . "Select a priority.") (select-buffer . "Select a buffer name.") (select-buffer-size . "Select maximum buffer size.") (buffer-name . "%#1s-configure") (other-window . "Some other window ") (other-frame . "Some other frame ") (new-frame . "In a new frame ") (lyskom-window . "The LysKOM buffer's window ") (window-on-buffer . "A window displaying the buffer") (on . "On ") (off . "Off") (yes . "Yes") (no . "No ") (to-file . "To file:") (max-text-length . "For texts shorter than: ") (friends . "Friends and other special people") (turned-off . "Turned off ") (number-of-times . "A few times") (specific-spec . "Per recipient/sender") (sound-file . "Audio file") (other-persons . "All others") (selected-mark . "Mark ") (conf-or-person . "Person or conference") (ask . "Ask every time ") (before . "Before the text") (after . "After the text") (depth-first . "In comment order") (time-order . "In time order") (ar-message-type . "Message type") (ar-personal . "Personal") (ar-group . "Group") (ar-alarm . "Alarm") (ar-any-type . "Any message type") (ar-sender . "Sender") (ar-any-sender . "Any sender") (ar-specified-sender . "Specified senders") (ar-pers-or-conf . "Person or conference") (ar-recipient . "Recipient") (ar-any-recipient . "Any recipient") (ar-specified-recipient . "Specified recipients") (ar-person . "Person") (ar-message-text . "Message text") (ar-any-message . "Any message") (ar-matching-regexp . "Matching regexp") (ar-reply . "Reply") (ar-no-reply . "No reply") (ar-reply-text . "Reply text") (express-break . "Immediately upon creation ") (break . "After current comment chain") (no-break . "After current conference ") (express-server-break . "Immediately") (express-server-letters-break . "Immediately if letters arrive") (server-break . "After current comment chain") (letters-server-break . "After current comment chain if letters arrive") (after-conf-server-break . "After current conference") (after-conf-letters-server-break . "After current conference if letters arrive") (when-done-server-break . "After everything has been read") (no-server-break . "Never") (command . "Command") (command-list . "Command list") (some-persons . "For some persons") (name . "Name") (page-none . "Never ") (page-all . "Before every command ") (page-some . "Before the following commands") (ask-every-time . "Ask every time ") (fixed-priority . "Fixed priority") (messages-in-lyskom-buffer . "In the LysKOM buffer ") (discard-messages . "Nowhere - discard them") (in-named-buffer . "In a named buffer ") (everybody-rcpt . "Everybody ") (group-rcpt . "The recipient of the last group message ") (sender-rcpt . "The sender of the most recent message ") (last-recipient-recpt . "The last person I sent a message to") (viewer-program . "Web browser") (no-viewer . "(ingenting valt)") (default-viewer . "Browse-URL (all)") (netscape-viewer . "Netscape Navigator (all)") (windows-viewer . "Windows default or Netscape (all)") (emacs-w3-viewer . "Emacs W3 mode (HTTP, Goper, FTP)") (emacs-general-viewer . "Emacs (FTP, Telnet, Mail)") (emacs-dired-viewer . "Emacs Dired (FTP)") (emacs-mail-viewer . "Emacs Mail mode (Mail)") (emacs-telnet-viewer . "Emacs Telnet mode (telnet)") (mosaic-viewer . "NCSA Mosaic (all)") (lynx-viewer . "Lynx (all)") (dont-check . "Don't ask for confirmation") (check-before-open . "Confirm before writing the text") (check-before-send . "Confirm before sending the text") (no-size-limit . "No limit") (max-size-in-bytes . "Fixed limit (in bytes)") (execute . "Execute") (kbd-macro . "Keyboard macro") (command . "Command") (enter-kbd-macro . "Enter a keybard macro. Finish with %#1s") (long-format . "Show help texts") (short-format . "Hide help texts") (truncate-threshold-lines . "Max lines") (first . "First") (last . "Last") (specific-placement . "Specific location") (priority . "Priority") (same-as-conf . "Same as current conference") (custom-format . "Custom format") (default-format . "Standard format") (a-string . "The string") (some-string . "A random string") (unspecified . "Unspecified") (lyskom . "Configuration of LysKOM") (lyskom-doc . "\\[lyskom-customize-save-and-quit] to save and quit,\n\\[lyskom-customize-save-and-quit] to save and quit,\n\\[lyskom-customize-save] to save without quitting,\n\\[lyskom-customize-quit] to quit without saving.\n\\[widget-forward] moves to the next setting\n\\[widget-button-press] changes the value\n\nDocumentation: [?] Show documentation [!] Hide documentation\nLists etc. : [INS] Add a line [DEL] Remove a line [*] Modify\n\nIf the box before the name of the setting is selected, the setting will\nbe saved in the server. Otherwise it will be saved in your .emacs.") (section . "------------------------------------------------------------------------------\n") (look-and-feel-misc . "Look and feel\n") (window-locations . "Windows\n") (windows-where . "How are windows created:\n") (reading . "Reading\n") (writing . "Writing\n") (urls . "URL management\n") (personal-messages . "Personal messages\n") (remote-control . "Remote control of LysKOM\n") (hooks . "Hook functions\n") (audio-cues . "Audio cues\n") (audio-cues-when . "Issue audio cues when:\n") (automatic-replies . "Automatic replies\n") (audio-cues-doc . " The following group of settings controls how LysKOM issues audio cues in\n various situations. The following options are available for each setting:\n\n Off\n No audio cue is issued\n\n A Few Times\n Emacs will beep one or more times. You have to specify how many\n times Emacs is to beep.\n\n Audio File\n Emacs will attempt to play the specified audio file. The program\n used to play the file is specified by another setting.") (sending-doc . " The following settings turn on or off certain checks that can be performed\n before sending a text to the server. The checks are designed to keep\n you from doing something stupid.\n\n Confirm multiple recipients\n If a text or comment has more than one recipient, LysKOM \n can ask which of the recipients are relevant. This can either\n be done before you start writing the text, in which case \n LysKOM will post a question for each recipient, or before sending\n the text to the server, in which case you may confirm all the\n recipients at once. It is also possible to turn this check off\n entirely.\n\n Check membership of commented author\n When on, LysKOM will check that the author of the comment you are\n writing is a member of at least one of the recipients of your comment.\n If not, LysKOM will offer to add the commented author as a recipient\n to the comment you are writing.\n\n Authors not to check\n A list of authors not to check even if check membership of\n commented author is on.\n\n Check for unread comments\n When this is on, LysKOM will check that you have read all the other\n comments to the text you are commenting before sending your\n comment to the server. This is supposed to help you avoid duplicating\n someone else's comment.") (windows-doc . " The following settings control how windows are created in LysKOM. The\n available options are:\n\n\n Some other window\n In another window, but in the same frame as LysKOM. If there only\n is one window in the frame, a new window will be created (and will\n be removed when you are finished).\n\n Some other frame\n In a different frame than the one LysKOM is in. If there only is one\n frame, a new one will be created (and will be removed when you are\n finished).\n\n In a new frame\n A new frame is created (and will be removed when you are finished).\n\n The LysKOM buffer's window\n The LysKOM buffer's window will be used. LysKOM will be restored to\n the window when you're finished.\n\n A window displaying the buffer\n If there is a window anywhere displaying the named buffer, that \n window will be used. This might be useful if you always have a\n particular buffer showing, but don't need it when executing some\n command.") (kom-ansaphone-replies-doc . " This setting controls automatic replies in detail. You can set replies\n for specific senders, recipients and even message contents. If the message\n being replied to does not match any element in this list, the default\n auto reply message above is sent instead.\n\n For each pattern in the list you can set the required message type, \n sender the message must have, recipient the message must have, a regular\n expression the message must match and the reply to send.\n\n It is advisable to configure the client not to send a message to any\n group or alarm message.") (kom-bury-buffers-doc . " Controls how the LysKOM buffer is handled when moving to another KOM buffer\n with the Next and Previous LysKOM commands. When turned on the current\n buffer is buried.") (kom-personal-messages-in-window-doc . " Controls which window is used to display the buffer with personal messages.\n For this setting to have any effect, personal messages must be displayed\n in a separate buffer, and that buffer must be displayed automatically\n every time a message is received.") (kom-write-texts-in-window-doc . " Controls which window is used to write new texts.") (kom-prioritize-in-window-doc . " Controls which window is used to prioritize conferences.") (kom-edit-filters-in-window-doc . " Controls which window is used for editing filters.") (kom-customize-in-window-doc . " Controls which window is used to configure LysKOM.") (kom-view-commented-in-window-doc . " Controls which window is used to show the commented text when commenting.") (kom-list-membership-in-window-doc . " Controls in which window your membership list is shown.") (kom-user-prompt-format-doc . " The format of the LysKOM prompt. Certain control sequences cause special\n text to be inserted:\n\n %c - Inserts the current default command.\n %[ - Inserts `[' if the ansaphone is on.\n %] - Inserts `]' is the ansaphone is on.\n %m - Inserts information about recorded messages.\n %s - Inserts the name of the LysKOM system\n %S - Inserts the server name.\n %p - Inserts the name of the user currently logged on.\n %w - Inserts the name of the current conference.\n %a - Inserts `anonymous'\n %A - Inserts `Anonymous'\n %# - Inserts the current session number.\n % - Inserts a space if it seems necessary.\n %% - Inserts a percent sign.\n\n Here are a few examples:\n\n \"%[%c% %m%] - \" The default prompt\n \"%[%s: %c% %m%] - \" Could display \"LysKOM: Time - \"") (kom-user-prompt-format-executing-doc . " The format of the LysKOM prompt when the default command is executing.\n Certain control sequences cause special text to be inserted:\n\n %c - Inserts the current default command.\n %[ - Inserts `[' if the ansaphone is on.\n %] - Inserts `]' is the ansaphone is on.\n %m - Inserts information about recorded messages.\n %s - Inserts the name of the LysKOM system\n %S - Inserts the server name.\n %p - Inserts the name of the user currently logged on.\n %w - Inserts the name of the current conference.\n %a - Inserts `anonymous'\n %A - Inserts `Anonymous'\n %# - Inserts the current session number.\n % - Inserts a space if it seems necessary.\n %% - Inserts a percent sign.\n\n Here are a few examples:\n\n \"%[%c% %m%] - \" The default prompt\n \"%[%s: %c% %m%] - \" Could display \"LysKOM: Time - \"") (kom-anonymous-prompt-format-doc . " The format of the LysKOM prompt used when anonymous. Certain control\n sequences cause special text to be inserted:\n\n %c - Inserts the current default command.\n %[ - Inserts `[' if the ansaphone is on.\n %] - Inserts `]' is the ansaphone is on.\n %m - Inserts information about recorded messages.\n %s - Inserts the name of the LysKOM system\n %S - Inserts the server name.\n %p - Inserts the name of the user currently logged on.\n %w - Inserts the name of the current conference.\n %a - Inserts `anonymous'\n %A - Inserts `Anonymous'\n %# - Inserts the current session number.\n % - Inserts a space if it seems necessary.\n %% - Inserts a percent sign.\n\n Here are a few examples:\n\n \"%[%c% %m%] - \" The default prompt\n \"%[%s: %c% %m%] - \" Could display \"LysKOM: Time - \"") (kom-anonymous-prompt-format-executing-doc . " The format of the LysKOM prompt when the default command is executing\n and the session is anonymous. Certain control sequences cause special \n text to be inserted:\n\n %c - Inserts the current default command.\n %[ - Inserts `[' if the ansaphone is on.\n %] - Inserts `]' is the ansaphone is on.\n %m - Inserts information about recorded messages.\n %s - Inserts the name of the LysKOM system\n %S - Inserts the server name.\n %p - Inserts the name of the user currently logged on.\n %w - Inserts the name of the current conference.\n %a - Inserts `anonymous'\n %A - Inserts `Anonymous'\n %# - Inserts the current session number.\n % - Inserts a space if it seems necessary.\n %% - Inserts a percent sign.\n\n Here are a few examples:\n\n \"%[%c% %m%] - \" The default prompt\n \"%[%s: %c% %m%] - \" Could display \"LysKOM: Time - \"") (kom-enabled-prompt-format-doc . " The format of the LysKOM prompt when in administrator mode. Certain\n control sequences cause special text to be inserted:\n\n %c - Inserts the current default command.\n %[ - Inserts `[' if the ansaphone is on.\n %] - Inserts `]' is the ansaphone is on.\n %m - Inserts information about recorded messages.\n %s - Inserts the name of the LysKOM system\n %S - Inserts the server name.\n %p - Inserts the name of the user currently logged on.\n %w - Inserts the name of the current conference.\n %a - Inserts `anonymous'\n %A - Inserts `Anonymous'\n %# - Inserts the current session number.\n % - Inserts a space if it seems necessary.\n %% - Inserts a percent sign.\n\n Here are a few examples:\n\n \"%[%c% %m%] - \" The default prompt\n \"%[%s: %c% %m%] - \" Could display \"LysKOM: Time - \"") (kom-enabled-prompt-format-executing-doc . " The format of the LysKOM prompt when the default command is executing\n and the session is in administrator mode. Certain control sequences \n cause special text to be inserted:\n\n %c - Inserts the current default command.\n %[ - Inserts `[' if the ansaphone is on.\n %] - Inserts `]' is the ansaphone is on.\n %m - Inserts information about recorded messages.\n %s - Inserts the name of the LysKOM system\n %S - Inserts the server name.\n %p - Inserts the name of the user currently logged on.\n %w - Inserts the name of the current conference.\n %a - Inserts `anonymous'\n %A - Inserts `Anonymous'\n %# - Inserts the current session number.\n % - Inserts a space if it seems necessary.\n %% - Inserts a percent sign.\n\n Here are a few examples:\n\n \"%[%c% %m%] - \" The default prompt\n \"%[%s: %c% %m%] - \" Could display \"LysKOM: Time - \"") (kom-cite-string-doc . " A string that is inserted before each line in a cited text. Normally this\n is set to something like \"> \". Note that it is not customary to cite\n commented texts the way it is done in e-mail or Usenet News since the\n commented text is always available in LysKOM.") (kom-created-texts-are-read-doc . " When this is on, self-created texts are automatically marked as read. Turned\n off, those texts are presented as any other texts.") (kom-default-mark-doc . " The default value used for marking texts. If no value is selected, LysKOM\n asks for a mark value every time. Values between 1 and 255 are allowed.") (kom-reading-puts-comments-in-pointers-last-doc . " Controls if comment links are listed before or after the body of a text.\n Normally comment links are listed after the text.\n\n Before:\n\n 398331 1996-09-24 13:22 /2 lines/ George Berkeley\n Recipient: Philosophy <1226>\n Comment in text 398374 by John Locke\n Subject: \n ------------------------------------------------------------\n An abstract idea is a contradiction in terms.\n (398331) -----------------------------------\n\n After:\n\n 398331 1996-09-24 13:22 /2 lines/ George Berkeley\n Recipient: Philosophy <1226>\n Subject: \n ------------------------------------------------------------\n An abstract idea is a contradiction in terms.\n (398331) -----------------------------------\n Comment in text 398374 by John Locke\n") (kom-dashed-lines-doc . " When this setting is turned on, dashed lines are displayed before and after\n the text body. When turned off, blank lines are used instead.\n\n On:\n\n 892343 1996-09-24 19:21 /2 lines/ Tycho Brahe\n Recipien: Presentation (of new) Members\n Subject: Tycho Brahe\n ------------------------------------------------------------\n Astronomer and discoverer of stars resident on the island of Ven.\n (892343) -----------------------------------\n\n Off:\n\n 892343 1996-09-24 19:21 /2 lines/ Tycho Brahe\n Recipien: Presentation (of new) Members\n Subject: Tycho Brahe\n\n Astronomer and discoverer of stars resident on the island of Ven.\n (892343)\n\n Most people have this turned on.") (kom-autowrap-doc . " With this setting turned on, LysKOM will attempt to fill any paragraphs\n containing lines that are wider than the screen. Paragraphs that appear\n to have been preformatted by the author are exempted from this treatment.") (kom-show-author-at-end-doc . " When this is turned on, the name of the author will be shown at the end\n of the text. The name is also shown before the text as usual.\n\n On (with dashed lines on):\n\n 892342 1996-09-24 19:21 /2 lines/ Claude Shannon\n Mottagare: Presentation (of new) Members\n rende: Claude Shannon\n ------------------------------------------------------------\n Information theoretician\n (892342) /Claude Shannon/------------------------------\n\n Off:\n\n 892342 1996-09-24 19:21 /2 lines/ Claude Shannon\n Recipient: Presentation (of new) Members\n Subject: Claude Shannon\n ------------------------------------------------------------\n Information theoretician\n (892342) -----------------------------------\n\n If dashed lines are off, the author's name will be shown as in this\n example, but the dashed lines are naturally not displayed.") (kom-truncate-threshold-doc . " If this is activated, texts longer than the maximum number of lines will\n be truncated when you review comments, review marked texts or review the\n first or last texts in a conference. Texts will not be truncated when\n you review a text, review a tree or read the next text.") (kom-truncate-show-lines-doc . " The number of lines to show of truncated texts.") (kom-print-number-of-unread-on-entrance-doc . " Determines whether the number of unread texts is shown when entering\n a conference:\n\n On:\n\n Go to next conference...\n Presentation (of new) Members - 3 unread\n Read next text - \n\n Off:\n\n Go to next conference...\n Presentation (of new) Members\n Read next text - ") (kom-presence-messages-doc . " If you want messages in the minibuffer when somebody logs in, logs out or\n changes name, turn this setting on. Messages are shown in the minibuffer.\n If you want messages about a limited number of users, specify which ones.\n To not get any messages at all, just specify an empty list.") (kom-presence-messages-in-buffer-doc . " If you want messages in the LysKOM buffer when somebody logs in, logs out\n or changes name, turn this setting on. Messages are shown in the LysKOM\n buffer. If you want messages about a limited number of users, specify which \n ones. To not get any messages at all, just specify an empty list.") (kom-show-where-and-what-doc . " If this is on, the list of active users will include the machine and user\n they are logged in from (if known) and what they are currently doing.\n\n On:\n\n User Is in conference \n At Activity \n --------------------------------------------------------------------------\n 6810 George Berkeley Philosophy \n berkeley@emp1.tcd.ie (Writing a comment.) \n 7571 John Locke Philosophy \n eridy@cc.ox.ac.uk (Waiting.) \n\n Off:\n\n User Is in conference \n --------------------------------------------------------------------------\n 6810 George Berkeley Philosophy \n 7571 John Locke Philosophy") (kom-show-since-and-when-doc . " If this is on, the list of active users will include the connection time\n and the inactivity period for each user.") (kom-idle-hide-doc . " The listing of active users normally only shows those users who have been\n active recently. This setting determines how many minutes a user may be\n inactive without being excluded from the list of active users.") (kom-show-footnotes-immediately-doc . " Footnotes can be shown either as comments or immediately when the text\n they are footnotes to is displayed. This setting controls which behavior\n is used.") (kom-follow-comments-outside-membership-doc . " LysKOM will normally not follow chains of comments into conferences you are\n not a member of. If you do want to follow comment chains into other\n conferences, turn this setting on.") (kom-read-depth-first-doc . " LysKOM can display texts either in the order they were written or in\n the order defined by the comment tree. For example, if texts 1003 and\n 1004 are comments to text 1002, text 1006 is a comment to 1003 and \n texts 1005 and 1007 are comments to 1004, the comment tree looks \n something like this:\n \n 1002 +-- 1003 --- 1006\n |\n +-- 1004 +-- 1005\n |\n +-- 1007\n\n Reading in order of creation will cause the texts to be displayed\n in numerical order: 1002, 1003, 1004, 1005, 1006 and finally 1007.\n Reading in comment order will give the order 1002, 1003, 1006, 1004,\n 1005 and finally 1007.") (kom-continuous-scrolling-doc . " Turned on means that LysKOM will scroll the buffer while new text is \n being inserted, not just at the end of a command. This works well with\n faster terminals, but may be worth turning off if the terminal is so slow\n that scrolling Emacs buffers takes a long time.") (kom-deferred-printing-doc . " In order to improve speed, LysKOM will not print certain things, such as\n the names of users and conferences immediately, but will delay printing\n to make time for other tasks. This improves response time in the client\n considerably, and should only be turned off if it causes problems.") (kom-higher-priority-breaks-doc . " When texts are created in conferences that have a higher priority than\n the one currently being read, LysKOM will attempt to break the normal\n reading order to show these. This setting controls whether the reading\n order is broken immediately, after the current comment chain is read or\n when everything in the current conference has been read.") (kom-login-hook-doc . " This hook lists commands to be run when logging in, before any input is\n accepted from the keyboard.") (kom-do-when-done-doc . " This hook lists commands and keyboard macros that are to be executed when\n all texts have been read.") (kom-page-before-command-doc . " The LysKOM buffer can be cleared before all commands, so text that is \n inserted always appears at the top of the buffer's window. This variable\n controls before which commands the buffer is to be scrolled.") (kom-permissive-completion-doc . " When this is on, TAB will only complete to the names of users that are \n logged on when the command being invoked is only applicable to people\n that are logged on. When off, TAB will complete to names of everyone.") (kom-membership-default-priority-doc . " This specifies the how the initial priority of a conference is set when\n you first become a member. If it is a number between 1 and 255, that is\n the priority assigned. If it is something else, LysKOM will ask for a \n priority every time you become a member of a conference.") (kom-show-personal-messages-in-buffer-doc . " This setting specifies how personal, group and public messages are shown.\n The messages can be displayed in the LysKOM buffer, simply thrown away or\n be shown in a named buffer.") (kom-pop-personal-messages-doc . " If messages are shown in a named buffer and this setting is also on, then\n LysKOM will display that buffer whenever a message arrives.") (kom-audio-player-doc . " If you want LysKOM to play audio files instead of simply beeping, this\n setting must specify the name of a program that can play the audio files.\n The program must take a single argument, the name of the file to play.") (kom-default-message-recipient-doc . " This setting controls who will be the default recipient of messages. The\n default recipient may either be everyone, i.e. a public message; the\n sender of the most recently received message; the recipient of the most\n recently received group message; or the sender of the most recently\n received personal message.") (lyskom-filter-outgoing-messages-doc . " If this is on, messages that are sent automatically, such as automatic\n replies and replies to remote control commands, will be shown as if you\n had sent them manually.") (kom-friends-doc . " The users named in this list will be displayed using a special face in\n the LysKOM buffer.") (kom-morons-doc . " The users named in this list will be displayed using a warning face in\n the LysKOM buffer.") (kom-url-viewer-preferences-doc . " This setting controls which WWW browser that will be used to open URLs\n found in LysKOM. If the first browser in the list cannot handle the type\n of URL being opened, then the next browser is tried, and so on.") (kom-mosaic-command-doc . " This setting specifies the command to use to start NCSA Mosaic.") (kom-netscape-command-doc . " This setting specifies the command to use to start Netscape.") (kom-inhibit-typeahead-doc . " Key presses are usually buffered while LysKOM is busy, and are executed\n as soon as possible. With this setting off, LysKOM discards any key presses\n received while the client was busy.") (kom-max-buffer-size-doc . " It is possible to limit the size of the LysKOM buffer by specifying a\n maximum number of characters in this setting. When the buffer grows\n beyond this limit, text from the beginning of the buffer is removed.") (kom-ansaphone-record-messages-doc . " LysKOM can record messages that arrive when the autoreply feature is on.\n This setting controls whether messages are recorded or not.") (kom-ansaphone-show-messages-doc . " When this setting is on, LysKOM will display incoming messages even if\n the autoreply feature is turned on.") (kom-ansaphone-default-reply-doc . " This is the message sent by the autoreply feature unless a different\n message has been specified using some other means (and other means are\n only for careful experts).") (kom-remote-control-doc . " When turned on, it is possible to control the session using remote control\n commands. Only those users listed below may issue the commands.") (kom-remote-controllers-doc . " The users listed here are permitted to issue remove control commands\n to your LysKOM session.") (kom-self-control-doc . " When this is on, the user who is logged on may issue remote control\n commands. This is an alternative to adding yourself to the list of \n permitted controllers.") (kom-customize-format-doc . " The documentation for the various settings can be visible or hidden when\n you open the settings buffer. No matter if it starts hidden or visible, the\n documentation for individual settings can be shown and hidden by using the\n question mark/exclamation mark to the right of the setting.") (kom-default-language-doc . " Default language to use in LysKOM. If you change this setting the new\n language will not be applied to the current setting. Use the Change\n language command to do that.") (kom-ispell-dictionary-doc . " This specifies the dictionary ispell is to use for spell checking. If set\n to ispell-dictionary, then the variable ispell-dictionary will be used\n instead.") (kom-show-namedays-doc . " This only works in Swedish. If you're running LysKOM in Swedish, turning\n this on causes today's names to be shown when you ask for the time.") (kom-show-week-number-doc . " The Time command shows week numbers if this is on.") (kom-membership-default-placement-doc . " This controls where new memberships are placed. First means before\n all existing memberships of the same priority. Last means after all\n existing memberships of the same priority. A number indicates a\n fixed placement (although the client will eventually sort the membership\n list in order of priority).") (kom-show-imported-importer-doc . " The importer of an imported e-mail message is shown if this is on.\n This only works with compliant e-mail importers.") (kom-show-imported-envelope-sender-doc . " The actual sender (the envelope sender) of imported e-mails is shown \n if this is on. This only works with compliant e-mail importers.") (kom-show-imported-external-recipients-doc . " Show external recipients and CC recipients of imported e-mails if this\n is on. This only works with compilant e-mail importers.") (kom-agree-text-doc . " Default text for the Agree command. It can either be a text or a list\n of texts. If it is a list, one of the texts will be chosen at random.") (kom-silent-ansaphone-doc . " If this is off, the client will not beep when a personal, group or\n public message is received when the auto reply feature is on.") (kom-default-session-priority-doc . " The session priority of new sessions. Conferences with a lower priority\n will not be read.") (kom-unsubscribe-makes-passive-doc . " When this is on, the first time you leave a conference you become a\n passive member. Leaving the conference again unsubscribes you completely.\n When this is off, leaving a conference unsubscribes you immediately.") (kom-review-priority-doc . " Priority for review commands. This setting can be used to give review\n commands a higher priority than normal. The default priority is the\n same as the conference currently being read. Set this to 256 or higher\n if you want review commands to take precedence over all conferences.") (kom-show-creating-software-doc . " Show the name of the client used to create a text if the information\n is present and this setting is on.") (kom-text-footer-format-doc . " Format for the text footer. In the format string, %n is replaced by the\n text number, %P with the author's name, %p with the author's number, %f\n with information about the text (HTML, filled, etc), and %- with a\n suitable dashed line. A number after the percent sign is the minimum\n number of characters to use. A minus sign before the number causes text\n to be left justified within the field. An equals sign causes text\n longer than the indicated width to be truncated.") (kom-long-lines-doc . " When this is on, most of the dashed lines are made longer than normal.") (kom-postpone-default-doc . " Number of texts to postpone with the Postpone reading command.") (kom-allow-incompleteness-doc . " When this is on, the client will not wait for information about all\n unread texts, even if it is needed. The result is that List news and\n some other commands do not yield accurate results shortly after logging\n in. When this is off, the client will wait for information on all\n unread texts when it is needed.") (kom-smileys-doc . " When this is on, Emacs supports it, and the appropriate package \n (smiley.el, which is part of Gnus) is installed, smileys will be\n shown graphically.") (kom-ignore-message-senders-doc . " Don't show personal, group or alarm messages from these senders.") (kom-ignore-message-recipients-doc . " Don't show group messages to these recipients.") (kom-text-footer-dash-length-doc . " The total length of the text footer when long dashed lines are not\n in effect and no custom format is being used.") (kom-text-header-dash-length-doc . " The total length of the text header when long dashed lines are not\n in effect.") (kom-show-personal-message-date-doc . " When this is on, the date and time is shown on all personal, group and\n alarm messages.") (kom-w3-simplify-body-doc . " When this is on, the client will ignore colors set in the HTML body when\n displaying formatted HTML.") (kom-mercial-doc . " This text is shown in the list of users when you have finished reading\n everything.") (kom-server-priority-doc . " Priority of this LysKOM session. The client can prompt you to go to\n a session with unread texts when a text arrives in a session with a\n higher priority than the one currently being read.") (kom-server-priority-breaks-doc . " This setting controls when a prompt to go to the next LysKOM session\n with unread texts is presented.\n\n Immediately Present a prompt if any text arrives in\n a session with a higher priority.\n\n Immediately if letters arrive Present a prompt is a letter arrives\n in a session with a higher priority.\n\n After current comment chain Present a prompt after the current chain\n of comments has been read if a text\n arrives in a session with a higher \n priority.\n\n After current comment chain if letters arrive Present a prompt\n after the current chain of comments has\n been read if a letter arrives in a session\n with a higher priority.\n\n After current conference Present a prompt after all texts in the\n current conference have been read if a\n text arrives in a session with a higher\n priority.\n\n After current conference if letters arrive Present a prompt \n after all texts in the current conference\n have been read if a letter arrives in a \n session with a higher priority.\n\n After everything has been read Present a prompt to go to the next\n session with unreads after everything\n has been read. The prompt is presented\n regardless of session priorities.\n\n Never Never prompt to go to another LysKOM\n session.") (kom-ding-on-no-subject-doc . "") (kom-ding-on-personal-messages-doc . "") (kom-ding-on-group-messages-doc . "") (kom-ding-on-common-messages-doc . "") (kom-ding-on-no-subject-doc . "") (kom-ding-on-wait-done-doc . "") (kom-ding-on-priority-break-doc . "") (kom-ding-on-new-letter-doc . "") (kom-check-for-new-comments-doc . "") (kom-check-commented-author-membership . "") (kom-confirm-multiple-recipients-doc . "") (kom-check-commented-author-membership-doc . "") (kom-complete-numbers-before-names-doc . " When this is on and you enter a text that can be either a conference\n number or a conference name, the client will accept it as a conference \n number, if possible. When this is off, the text will be accepted as\n a conference name first and number second.") (kom-keep-alive-interval-doc . " The number of seconds between calls to the server used to keep the\n network connection to the LysKOM server active. If your network connection\n shuts down after a period of inactivity, set this to approximately half\n that period and use the command `Keep connection alive'.") (kom-prompt-for-text-no-doc . " These commands will always prompt for text numbers, unless one is\n specified via a prefix argument. Commands that are not listed will\n assume a suitable default and only prompt if the prefix argument is\n zero.") (kom-saved-file-name-doc . " Specifies the default file to archive texts in. The client will always\n prompt for the file name, using this as the default.") (kom-follow-attachments-doc . " Specifies whether to read imported e-mail attachments as regular\n comments. When off, imported attachments are marked as read when the\n e-mail they are attached to is read.") (kom-show-unread-in-frame-title-doc . " When this is on, the indicator \"(Unread)\" is shown in the title\n bar of all windows whose active buffer belongs to a LysKOM session\n with unread texts. The title bar may not be updated unless the\n window is open.") (kom-created-texts-are-saved-doc . " If this variable is set to a file name, all texts you write will be \n saved to that file. Texts that could not be created are not saved.") (kom-confirm-add-recipients-doc . " When this is on and you add a recipient to a text, the client will\n ask if comments to the text should also be sent to the new\n recipient. When this is off, comments will always be sent to the new\n recipient. For most people it is a good idea to leave this on.") (kom-trim-buffer-minimum-doc . " If you have limited the LysKOM buffer size, this variable determines\n how much larger than the limit the buffer has to be before it is\n trimmed back to the maximum size. The variable must be an integer;\n the default is 4096.") (kom-dont-check-commented-authors-doc . "") (kom-ansaphone-replies-tag . "Automatic replies") (kom-bury-buffers-tag . "Bury buffers when changing LysKOM:") (kom-personal-messages-in-window-tag . "Personal messages: ") (kom-customize-in-window-tag . "LysKOM customization: ") (kom-write-texts-in-window-tag . "Author new texts: ") (kom-prioritize-in-window-tag . "Prioritize conferences: ") (kom-edit-filters-in-window-tag . "Modify filters: ") (kom-view-commented-in-window-tag . "Review comments: ") (kom-list-membership-in-window-tag . "List membership: ") (kom-user-prompt-format-tag . "Prompt format:") (kom-user-prompt-format-executing-tag . "Prompt format when executing:") (kom-anonymous-prompt-format-tag . "Prompt format (anonymous):") (kom-anonymous-prompt-format-executing-tag . "Prompt format when executing (anonymous):") (kom-enabled-prompt-format-tag . "Prompt format (admin):") (kom-enabled-prompt-format-executing-tag . "Prompt format when executing (admin):") (kom-higher-priority-breaks-tag . "Read prioritized texts: ") (kom-created-texts-are-read-tag . "Automatically read created texts: ") (kom-default-mark-tag . "Default mark: ") (kom-print-number-of-unread-on-entrance-tag . "Show number of unread when entering a conference: ") (kom-follow-comments-outside-membership-tag . "Follow comment chains outside membership: ") (kom-show-footnotes-immediately-tag . "Show footnotes immediately: ") (kom-membership-default-priority-tag . "Default priority for new memberships: ") (kom-dashed-lines-tag . "Dashed lines around the text body: ") (kom-autowrap-tag . "Fill wide paragraphs before displaying: ") (kom-show-author-at-end-tag . "Show the name of the author after the body: ") (kom-truncate-threshold-tag . "Truncate long texts: ") (kom-truncate-show-lines-tag . "Lines to show of truncated texts: ") (kom-reading-puts-comments-in-pointers-last-tag . "Comment links are shown:") (kom-read-depth-first-tag . "Read order:") (kom-deferred-printing-tag . "Delayed display:") (kom-continuous-scrolling-tag . "Continuous scrolling:") (kom-presence-messages-tag . "Presence messages on or off: ") (kom-presence-messages-in-buffer-tag . "Presence messages in the LysKOM buffer:") (kom-page-before-command-tag . "Clear the screen:") (kom-idle-hide-tag . "Number of minutes of inactivity before session is hidden: ") (kom-show-where-and-what-tag . "Show where sessions are logged on from and what they are doing: ") (kom-show-since-and-when-tag . "Show when sessions connected and how long they have been inactive: ") (kom-login-hook-tag . "Commands executed after logging on:") (kom-do-when-done-tag . "Commands to execute after reading everything:") (kom-permissive-completion-tag . "Fussy name completion:") (kom-show-personal-messages-in-buffer-tag . "Where are messages shown: ") (kom-pop-personal-messages-tag . "Pop up message buffer: ") (kom-default-message-recipient-tag . "Default message recipient:") (kom-audio-player-tag . "Audio player program:") (kom-ding-on-new-letter-tag . "When a letter arrives: ") (kom-ding-on-priority-break-tag . "When a prioritized text arrives: ") (kom-ding-on-wait-done-tag . "When done waiting: ") (kom-ding-on-common-messages-tag . "When a public message arrives: ") (kom-ding-on-group-messages-tag . "When a group message arrives: ") (kom-ding-on-personal-messages-tag . "When a personal message arrives: ") (kom-ding-on-no-subject-tag . "When you forget the subject line: ") (lyskom-filter-outgoing-messages-tag . "Show automatic messages:") (kom-friends-tag . "Friends and other special people:") (kom-morons-tag . "Morons and other \"special\" people:") (kom-url-viewer-preferences-tag . "Open URLs using the following program:") (kom-mosaic-command-tag . "Command to start NCSA Mosaic:") (kom-netscape-command-tag . "Command to start Netscape Navigator:") (kom-cite-string-tag . "Quotation indicator: ") (kom-confirm-multiple-recipients-tag . "Confirm multiple recipients: ") (kom-check-commented-author-membership-tag . "Check membership of commented author:") (kom-check-for-new-comments-tag . "Check for unread comments: ") (kom-ansaphone-record-messages-tag . "Save messages when auto reply is on: ") (kom-ansaphone-show-messages-tag . "Display messages when auto reply is on: ") (kom-ansaphone-default-reply-tag . "Auto reply message:") (kom-inhibit-typeahead-tag . "Buffer keypresses:") (kom-max-buffer-size-tag . "Maximum buffer size:") (kom-remote-control-tag . "Remote commands on or off: ") (kom-self-control-tag . "Allow me to use remote commands: ") (kom-remote-controllers-tag . "People allowed to use remove commands:") (kom-customize-format-tag . "Show documentation for all settings:") (kom-default-language-tag . "Default language: ") (kom-show-namedays-tag . "Show today's names:") (kom-ispell-dictionary-tag . "Spelling dictionary:") (kom-show-week-number-tag . "Show week number:") (kom-membership-default-placement-tag . "Placement of new memberships:") (kom-show-imported-importer-tag . "Show importer of imported messages:") (kom-show-imported-envelope-sender-tag . "Show sender of imported messages:") (kom-show-imported-external-recipients-tag . "Show external recipients of imported messages:") (kom-agree-text-tag . "Default text for Agree:") (kom-silent-ansaphone-tag . "Beep when auto reply is on:") (kom-default-session-priority-tag . "Default session priority:") (kom-unsubscribe-makes-passive-tag . "Leaving a conference converts membership to passive:") (kom-review-priority-tag . "Priority for review commands:") (kom-show-creating-software-tag . "Show creating software:") (kom-text-footer-format-tag . "Text footer format:") (kom-long-lines-tag . "Long dashed lines:") (kom-postpone-default-tag . "Default number of texts to postpone:") (kom-allow-incompleteness-tag . "Allow incomplete information about unread texts:") (kom-smileys-tag . "Show smileys graphically:") (kom-ignore-message-senders-tag . "Don't show messages from:") (kom-ignore-message-recipients-tag . "Don't show messages to:") (kom-text-footer-dash-length-tag . "Text footer length:") (kom-text-header-dash-length-tag . "Length of dashed line before text:") (kom-show-personal-message-date-tag . "Show date and time of messages:") (kom-w3-simplify-body-tag . "Display HTML without document colors:") (kom-mercial-tag . "Text to display when all is read:") (kom-server-priority-tag . "Session priority:") (kom-server-priority-breaks-tag . "Prompt to go to next LysKOM:") (kom-complete-numbers-before-names-tag . "Read conference numbers before names:") (kom-keep-alive-interval-tag . "Keep connection alive interval:") (kom-prompt-for-text-no-tag . "Commands that prompt for text numbers:") (kom-saved-file-name-tag . "File to archive texts in:") (kom-follow-attachments-tag . "Read imported attachments as texts:") (kom-show-unread-in-frame-title-tag . "Show unread indicator in title bar:") (kom-created-texts-are-saved-tag . "Save created texts:") (kom-confirm-add-recipients-tag . "Ask if comments should be sent to new recipients:") (kom-trim-buffer-minimum-tag . "How small parts of the LysKOM buffer are trimmed:") (kom-dont-check-commented-authors-tag . "Authors not to check:")) "I am not reading LysKOM right now. Please write a letter instead." "english" ((kom-tell-silence . "") (kom-tell-send . "Is trying to post a text.") (kom-tell-login . "Is entering LysKOM.") (kom-tell-read . "Is reading.") (kom-tell-1st-pres . "Is writing the first presentation.") (kom-tell-write-comment . "Is writing a comment.") (kom-tell-write-footnote . "Is writing a footnote.") (kom-tell-write-letter . "Is writing a letter.") (kom-tell-write-reply . "Is writing a personal reply.") (kom-tell-write-text . "Is writing a text.") (kom-tell-conf-pres . "Is writing the presentation for a new conference.") (kom-tell-recover . "Is restarting KOM. Sigh.") (kom-tell-wait . "Is waiting.") (kom-tell-regret . "Decides to throw away the text.") (kom-tell-review . "Is reviewing.") (kom-tell-change-name . "Takes on a new name.") (kom-tell-change-supervisor . "Changes the supervisor of something.") (kom-tell-next-lyskom . "Moves to a different LysKOM.")) #[(x) ":\203@9\203A;\203\207:\2032@9\2032A:\2032A@;\2032@A@B\207\301\207" [x nil] 2] (lyskom-get-string 'kom-tell-wait 'kom-tell-phrases) ((error-0 . "No error") (error-2 . "Not yet implemented") (error-3 . "No longer implemented") (error-4 . "Wrong password") (error-5 . "String too long") (error-6 . "You have not logged on") (error-7 . "Nobody may enter LysKOM at this time") (error-8 . "You attempted to use conference number 0") (error-9 . "Undefined or secret conference") (error-10 . "Undefined or secret user") (error-11 . "No read or write permission") (error-12 . "Illegal operation") (error-13 . "You are not a member of that conference") (error-14 . "There is no text with that number") (error-15 . "You cannot use global text number 0") (error-16 . "There is no text with that local number") (error-17 . "You cannot use local text number 0") (error-18 . "Name too short, too long or containing illegal characters") (error-19 . "Index out of bounds") (error-20 . "The conference already exists") (error-21 . "The user already exists") (error-22 . "Secret but not read-protected") (error-23 . "You are not allowed to change the person/conference flag") (error-24 . "Error in the database. Tough luck.") (error-25 . "Invalid recipient or comment type") (error-26 . "Illegal info type. (Bug in the client)") (error-27 . "Already recipient of this text") (error-28 . "Already comment to this text") (error-29 . "Already footnote to this text") (error-30 . "Not a recipient of this text") (error-31 . "Not a comment to this text") (error-32 . "Not a footnote to this text") (error-33 . "Too many recipients") (error-34 . "Too many commentsp") (error-35 . "Too many footnotes") (error-36 . "Too many marks") (error-37 . "You are not the author of that text") (error-38 . "You cannot connect to the server") (error-39 . "Out of memory") (error-40 . "The server is gone crazy") (error-41 . "The client thinks that the server says that it does not understand the client") (error-42 . "No such session") (error-43 . "Invalid regular expression") (error-44 . "Can't unmark a text that was not marked") (error-45 . "Temorary lossage. Please try again later") (error-46 . "Sending huge messages to the server is not a nice thing to do") (error-47 . "Anonymous texts are not accepted by all recipients") (error-48 . "Invalid extra information") (error-49 . "Change of extra information not permitted") (error-50 . "Unknown asynchronous message") (error-51 . "Internal server error") (error-52 . "Feature disabled in the server") (error-53 . "Unable to send message") (error-54 . "Invalid membership type")) lyskom-strings "$Id: komtypes.el,v 44.15 2001/01/03 22:02:55 qha Exp $\n"] 6) (defalias 'def-komtype '(macro . #[(type &rest args) "\306!\307\310\311\312\313\314\315 P!\f\316 \317\320\321\306\f\322#\226\323\324\260\325\326\314 \226!D\327\fBE\257\313\314\330 \331Q!C\332 \226\333 \334\320 \226\323\324\260 \335\336D\337\340D\326\314 \226!DEE\257E\f\203\227\306\f@!\313\314 \341 Q!C\324\342\343D\nE\257 B\313\314\344 \341 R!\f@D\324\345\343D\n\f@F\257 B\nT\fA)\202U \"+\207" [type tmp n typename args argname symbol-name 0 nil append progn defsubst intern "lyskom-create-" "Create a `" "' from arguments.\n" "Args: " mapconcat " " "\n" "Automatically created with def-komtype." cons quote vector "lyskom-" "-p" "Return `t' if " " is a " ".\n" and consp eq car "->" aref cdr "set-" aset] 15])) #@44 Create a conf-no-list from all parameters. (defalias 'lyskom-create-conf-no-list #[(conf-nos) "\301\302\303!\203\304\305\"\202!B\207" [conf-nos CONF-NO-LIST vector vectorp append nil] 5 (#$ . 479632)]) (put 'lyskom-create-conf-no-list 'byte-optimizer 'byte-compile-inline-expand) #@33 Get conf-nos from conf-no-list. (defalias 'conf-no-list->conf-nos #[(conf-no-list) "A\301\234\207" [conf-no-list 0] 2 (#$ . 479925)]) (put 'conf-no-list->conf-nos 'byte-optimizer '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\302 I\207" [conf-no-list newval 0] 3 (#$ . 480140)]) (put 'set-conf-no-list->conf-nos 'byte-optimizer 'byte-compile-inline-expand) #@39 Return t if OBJECT is a conf-no-list. (defalias 'lyskom-conf-no-list-p #[(object) "\242\301=\207" [object CONF-NO-LIST] 2 (#$ . 480383)]) (put 'lyskom-conf-no-list-p 'byte-optimizer '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) "\211A\306\234)G\306U?\205=\306\211A\306\234)\211G\307\f\204; W\203; \n \234U\2035\310\211\202 T\202\f,\207" [conf-no-list r list len yes conf-no 0 nil t] 4 (#$ . 480602)]) (put 'lyskom-conf-no-list-member 'byte-optimizer 'byte-compile-inline-expand) #@130 Create a `uconf-stat' from arguments. Args: CONF-NO NAME CONF-TYPE HIGHEST-LOCAL-NO NICE Automatically created with def-komtype. (defalias 'lyskom-create-uconf-stat #[(conf-no name conf-type highest-local-no nice) "\305\306 \n \f%B\207" [conf-no name conf-type highest-local-no nice UCONF-STAT vector] 7 (#$ . 481055)]) (put 'lyskom-create-uconf-stat 'byte-optimizer 'byte-compile-inline-expand) #@100 Return `t' if UCONF-STAT is a uconf-stat. Args: UCONF-STAT Automatically created with def-komtype. (defalias 'lyskom-uconf-stat-p #[(uconf-stat) ":\205 @\301=\207" [uconf-stat UCONF-STAT] 2 (#$ . 481459)]) (put 'lyskom-uconf-stat-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-uconf-stat->nice #[(uconf-stat nice) "A\302 I\207" [uconf-stat nice 4] 3 (#$ . 481745)]) (put 'set-uconf-stat->nice 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'uconf-stat->nice #[(uconf-stat) "A\301H\207" [uconf-stat 4] 2 (#$ . 481968)]) (put 'uconf-stat->nice 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-uconf-stat->highest-local-no #[(uconf-stat highest-local-no) "A\302 I\207" [uconf-stat highest-local-no 3] 3 (#$ . 482172)]) (put 'set-uconf-stat->highest-local-no 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'uconf-stat->highest-local-no #[(uconf-stat) "A\301H\207" [uconf-stat 3] 2 (#$ . 482443)]) (put 'uconf-stat->highest-local-no 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-uconf-stat->conf-type #[(uconf-stat conf-type) "A\302 I\207" [uconf-stat conf-type 2] 3 (#$ . 482671)]) (put 'set-uconf-stat->conf-type 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'uconf-stat->conf-type #[(uconf-stat) "A\301H\207" [uconf-stat 2] 2 (#$ . 482914)]) (put 'uconf-stat->conf-type 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-uconf-stat->name #[(uconf-stat name) "A\302 I\207" [uconf-stat name 1] 3 (#$ . 483128)]) (put 'set-uconf-stat->name 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'uconf-stat->name #[(uconf-stat) "A\301H\207" [uconf-stat 1] 2 (#$ . 483351)]) (put 'uconf-stat->name 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-uconf-stat->conf-no #[(uconf-stat conf-no) "A\302 I\207" [uconf-stat conf-no 0] 3 (#$ . 483555)]) (put 'set-uconf-stat->conf-no 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'uconf-stat->conf-no #[(uconf-stat) "A\301H\207" [uconf-stat 0] 2 (#$ . 483790)]) (put 'uconf-stat->conf-no 'byte-optimizer '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 keep-commented no-of-members first-local-no no-of-texts &optional expire aux-items) "\306\307 \n \f  \n \f \206 \310&B\207" [conf-no name conf-type creation-time last-written creator CONF-STAT vector 0 presentation supervisor permitted-submitters super-conf msg-of-day garb-nice no-of-members first-local-no no-of-texts expire aux-items] 19 (#$ . 484000)]) (put 'lyskom-create-conf-stat 'byte-optimizer 'byte-compile-inline-expand) #@29 Get conf-no from conf-stat. (defalias 'conf-stat->conf-no #[(conf-stat) "A\301\234\207" [conf-stat 0] 2 (#$ . 484671)]) (put 'conf-stat->conf-no 'byte-optimizer 'byte-compile-inline-expand) #@26 Get name from conf-stat. (defalias 'conf-stat->name #[(conf-stat) "A\301\234\207" [conf-stat 1] 2 (#$ . 484868)]) (put 'conf-stat->name 'byte-optimizer 'byte-compile-inline-expand) #@31 Get conf-type from conf-stat. (defalias 'conf-stat->conf-type #[(conf-stat) "A\301\234\207" [conf-stat 2] 2 (#$ . 485056)]) (put 'conf-stat->conf-type 'byte-optimizer 'byte-compile-inline-expand) #@35 Get creation-time from conf-stat. (defalias 'conf-stat->creation-time #[(conf-stat) "A\301\234\207" [conf-stat 3] 2 (#$ . 485259)]) (put 'conf-stat->creation-time 'byte-optimizer 'byte-compile-inline-expand) #@34 Get last-written from conf-stat. (defalias 'conf-stat->last-written #[(conf-stat) "A\301\234\207" [conf-stat 4] 2 (#$ . 485474)]) (put 'conf-stat->last-written 'byte-optimizer 'byte-compile-inline-expand) #@29 Get creator from conf-stat. (defalias 'conf-stat->creator #[(conf-stat) "A\301\234\207" [conf-stat 5] 2 (#$ . 485686)]) (put 'conf-stat->creator 'byte-optimizer 'byte-compile-inline-expand) #@34 Get presentation from conf-stat. (defalias 'conf-stat->presentation #[(conf-stat) "A\301\234\207" [conf-stat 6] 2 (#$ . 485883)]) (put 'conf-stat->presentation 'byte-optimizer 'byte-compile-inline-expand) #@32 Get supervisor from conf-stat. (defalias 'conf-stat->supervisor #[(conf-stat) "A\301\234\207" [conf-stat 7] 2 (#$ . 486095)]) (put 'conf-stat->supervisor 'byte-optimizer 'byte-compile-inline-expand) #@42 Get permitted-submitters from conf-stat. (defalias 'conf-stat->permitted-submitters #[(conf-stat) "A\301\234\207" [conf-stat 8] 2 (#$ . 486301)]) (put 'conf-stat->permitted-submitters 'byte-optimizer 'byte-compile-inline-expand) #@32 Get super-conf from conf-stat. (defalias 'conf-stat->super-conf #[(conf-stat) "A\301\234\207" [conf-stat 9] 2 (#$ . 486537)]) (put 'conf-stat->super-conf 'byte-optimizer 'byte-compile-inline-expand) #@32 Get msg-of-day from conf-stat. (defalias 'conf-stat->msg-of-day #[(conf-stat) "A\301\234\207" [conf-stat 10] 2 (#$ . 486743)]) (put 'conf-stat->msg-of-day 'byte-optimizer 'byte-compile-inline-expand) #@31 Get garb-nice from conf-stat. (defalias 'conf-stat->garb-nice #[(conf-stat) "A\301\234\207" [conf-stat 11] 2 (#$ . 486950)]) (put 'conf-stat->garb-nice 'byte-optimizer 'byte-compile-inline-expand) #@35 Get no-of-members from conf-stat. (defalias 'conf-stat->no-of-members #[(conf-stat) "A\301\234\207" [conf-stat 12] 2 (#$ . 487154)]) (put 'conf-stat->no-of-members 'byte-optimizer 'byte-compile-inline-expand) #@36 Get first-local-no from conf-stat. (defalias 'conf-stat->first-local-no #[(conf-stat) "A\301\234\207" [conf-stat 13] 2 (#$ . 487370)]) (put 'conf-stat->first-local-no 'byte-optimizer 'byte-compile-inline-expand) #@33 Get no-of-texts from conf-stat. (defalias 'conf-stat->no-of-texts #[(conf-stat) "A\301\234\207" [conf-stat 14] 2 (#$ . 487589)]) (put 'conf-stat->no-of-texts 'byte-optimizer 'byte-compile-inline-expand) #@28 Get expire from conf-stat. (defalias 'conf-stat->expire #[(conf-stat) "A\301\234\207" [conf-stat 15] 2 (#$ . 487799)]) (put 'conf-stat->expire 'byte-optimizer 'byte-compile-inline-expand) #@31 Get aux-items from conf-stat. (defalias 'conf-stat->aux-items #[(conf-stat) "A\301\234\207" [conf-stat 16] 2 (#$ . 487994)]) (put 'conf-stat->aux-items 'byte-optimizer 'byte-compile-inline-expand) #@37 Set conf-no in conf-stat to NEWVAL. (defalias 'set-conf-stat->conf-no #[(conf-stat newval) "A\302 I\207" [conf-stat newval 0] 3 (#$ . 488198)]) (put 'set-conf-stat->conf-no 'byte-optimizer 'byte-compile-inline-expand) #@34 Set name in conf-stat to NEWVAL. (defalias 'set-conf-stat->name #[(conf-stat newval) "A\302 I\207" [conf-stat newval 1] 3 (#$ . 488423)]) (put 'set-conf-stat->name 'byte-optimizer 'byte-compile-inline-expand) #@39 Set conf-type in conf-stat to NEWVAL. (defalias 'set-conf-stat->conf-type #[(conf-stat newval) "A\302 I\207" [conf-stat newval 2] 3 (#$ . 488639)]) (put 'set-conf-stat->conf-type 'byte-optimizer 'byte-compile-inline-expand) #@43 Set creation-time in conf-stat to NEWVAL. (defalias 'set-conf-stat->creation-time #[(conf-stat newval) "A\302 I\207" [conf-stat newval 3] 3 (#$ . 488870)]) (put 'set-conf-stat->creation-time 'byte-optimizer 'byte-compile-inline-expand) #@42 Set last-written in conf-stat to NEWVAL. (defalias 'set-conf-stat->last-written #[(conf-stat newval) "A\302 I\207" [conf-stat newval 4] 3 (#$ . 489113)]) (put 'set-conf-stat->last-written 'byte-optimizer 'byte-compile-inline-expand) #@37 Set creator in conf-stat to NEWVAL. (defalias 'set-conf-stat->creator #[(conf-stat newval) "A\302 I\207" [conf-stat newval 5] 3 (#$ . 489353)]) (put 'set-conf-stat->creator 'byte-optimizer 'byte-compile-inline-expand) #@42 Set presentation in conf-stat to NEWVAL. (defalias 'set-conf-stat->presentation #[(conf-stat newval) "A\302 I\207" [conf-stat newval 6] 3 (#$ . 489578)]) (put 'set-conf-stat->presentation 'byte-optimizer 'byte-compile-inline-expand) #@40 Set supervisor in conf-stat to NEWVAL. (defalias 'set-conf-stat->supervisor #[(conf-stat newval) "A\302 I\207" [conf-stat newval 7] 3 (#$ . 489818)]) (put 'set-conf-stat->supervisor 'byte-optimizer 'byte-compile-inline-expand) #@50 Set permitted-submitters in conf-stat to NEWVAL. (defalias 'set-conf-stat->permitted-submitters #[(conf-stat newval) "A\302 I\207" [conf-stat newval 8] 3 (#$ . 490052)]) (put 'set-conf-stat->permitted-submitters 'byte-optimizer 'byte-compile-inline-expand) #@40 Set super-conf in conf-stat to NEWVAL. (defalias 'set-conf-stat->super-conf #[(conf-stat newval) "A\302 I\207" [conf-stat newval 9] 3 (#$ . 490316)]) (put 'set-conf-stat->super-conf 'byte-optimizer '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\302 I\207" [conf-stat newval 10] 3 (#$ . 490550)]) (put 'set-conf-stat->msg-of-day 'byte-optimizer 'byte-compile-inline-expand) #@39 Set garb-nice in conf-stat to NEWVAL. (defalias 'set-conf-stat->garb-nice #[(conf-stat newval) "A\302 I\207" [conf-stat newval 11] 3 (#$ . 490785)]) (put 'set-conf-stat->garb-nice 'byte-optimizer '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\302 I\207" [conf-stat newval 12] 3 (#$ . 491017)]) (put 'set-conf-stat->no-of-members 'byte-optimizer '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\302 I\207" [conf-stat newval 13] 3 (#$ . 491261)]) (put 'set-conf-stat->first-local-no 'byte-optimizer '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\302 I\207" [conf-stat newval 14] 3 (#$ . 491508)]) (put 'set-conf-stat->no-of-texts 'byte-optimizer 'byte-compile-inline-expand) #@36 Set expire in conf-stat to NEWVAL. (defalias 'set-conf-stat->expire #[(conf-stat newval) "A\302 I\207" [conf-stat newval 15] 3 (#$ . 491746)]) (put 'set-conf-stat->expire 'byte-optimizer 'byte-compile-inline-expand) #@39 Set aux-items in conf-stat to NEWVAL. (defalias 'set-conf-stat->aux-items #[(conf-stat newval) "A\302 I\207" [conf-stat newval 16] 3 (#$ . 491969)]) (put 'set-conf-stat->aux-items 'byte-optimizer 'byte-compile-inline-expand) #@36 Return t if OBJECT is a conf-stat. (defalias 'lyskom-conf-stat-p #[(object) "\242\301=\207" [object CONF-STAT] 2 (#$ . 492201)]) (put 'lyskom-conf-stat-p 'byte-optimizer '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) "\302 BB\207" [conf-nos conf-types CONF-LIST] 3 (#$ . 492408)]) (put 'lyskom-create-conf-list 'byte-optimizer 'byte-compile-inline-expand) #@36 Get the conf-nos part of CONF-LIST (defalias 'conf-list->conf-nos #[(conf-list) "A@\207" [conf-list] 1 (#$ . 492775)]) (put 'conf-list->conf-nos 'byte-optimizer 'byte-compile-inline-expand) #@38 Get the conf-types part of CONF-LIST (defalias 'conf-list->conf-types #[(conf-list) "AA\207" [conf-list] 1 (#$ . 492972)]) (put 'conf-list->conf-types 'byte-optimizer 'byte-compile-inline-expand) #@38 Return true if OBJECT is a conf-list (defalias 'conf-list-p #[(object) "\242\301=\207" [object CONF-LIST] 2 (#$ . 493175)]) (put 'conf-list-p 'byte-optimizer 'byte-compile-inline-expand) #@32 Return the length of CONF-LIST (defalias 'lyskom-conf-list-length #[(conf-list) "\211A@)G\207" [conf-list] 2 (#$ . 493369)]) (put 'lyskom-conf-list-length 'byte-optimizer '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) "\306\307 \n \f  \n \f &B\207" [pers-no username privileges flags last-login user-area PERS-STAT vector 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 (#$ . 493577)]) (put 'lyskom-create-pers-stat 'byte-optimizer 'byte-compile-inline-expand) #@29 Get pers-no from pers-stat. (defalias 'pers-stat->pers-no #[(pers-stat) "A\301\234\207" [pers-stat 0] 2 (#$ . 494295)]) (put 'pers-stat->pers-no 'byte-optimizer 'byte-compile-inline-expand) #@30 Get username from pers-stat. (defalias 'pers-stat->username #[(pers-stat) "A\301\234\207" [pers-stat 1] 2 (#$ . 494492)]) (put 'pers-stat->username 'byte-optimizer 'byte-compile-inline-expand) #@32 Get privileges from pers-stat. (defalias 'pers-stat->privileges #[(pers-stat) "A\301\234\207" [pers-stat 2] 2 (#$ . 494692)]) (put 'pers-stat->privileges 'byte-optimizer 'byte-compile-inline-expand) #@27 Get flags from pers-stat. (defalias 'pers-stat->flags #[(pers-stat) "A\301\234\207" [pers-stat 3] 2 (#$ . 494898)]) (put 'pers-stat->flags 'byte-optimizer 'byte-compile-inline-expand) #@32 Get last-login from pers-stat. (defalias 'pers-stat->last-login #[(pers-stat) "A\301\234\207" [pers-stat 4] 2 (#$ . 495089)]) (put 'pers-stat->last-login 'byte-optimizer 'byte-compile-inline-expand) #@31 Get user-area from pers-stat. (defalias 'pers-stat->user-area #[(pers-stat) "A\301\234\207" [pers-stat 5] 2 (#$ . 495295)]) (put 'pers-stat->user-area 'byte-optimizer 'byte-compile-inline-expand) #@40 Get total-time-present from pers-stat. (defalias 'pers-stat->total-time-present #[(pers-stat) "A\301\234\207" [pers-stat 6] 2 (#$ . 495498)]) (put 'pers-stat->total-time-present 'byte-optimizer 'byte-compile-inline-expand) #@30 Get sessions from pers-stat. (defalias 'pers-stat->sessions #[(pers-stat) "A\301\234\207" [pers-stat 7] 2 (#$ . 495728)]) (put 'pers-stat->sessions 'byte-optimizer 'byte-compile-inline-expand) #@35 Get created-lines from pers-stat. (defalias 'pers-stat->created-lines #[(pers-stat) "A\301\234\207" [pers-stat 8] 2 (#$ . 495928)]) (put 'pers-stat->created-lines 'byte-optimizer 'byte-compile-inline-expand) #@35 Get created-bytes from pers-stat. (defalias 'pers-stat->created-bytes #[(pers-stat) "A\301\234\207" [pers-stat 9] 2 (#$ . 496143)]) (put 'pers-stat->created-bytes 'byte-optimizer 'byte-compile-inline-expand) #@32 Get read-texts from pers-stat. (defalias 'pers-stat->read-texts #[(pers-stat) "A\301\234\207" [pers-stat 10] 2 (#$ . 496358)]) (put 'pers-stat->read-texts 'byte-optimizer 'byte-compile-inline-expand) #@40 Get no-of-text-fetches from pers-stat. (defalias 'pers-stat->no-of-text-fetches #[(pers-stat) "A\301\234\207" [pers-stat 11] 2 (#$ . 496565)]) (put 'pers-stat->no-of-text-fetches 'byte-optimizer 'byte-compile-inline-expand) #@37 Get created-persons from pers-stat. (defalias 'pers-stat->created-persons #[(pers-stat) "A\301\234\207" [pers-stat 12] 2 (#$ . 496796)]) (put 'pers-stat->created-persons 'byte-optimizer 'byte-compile-inline-expand) #@35 Get created-confs from pers-stat. (defalias 'pers-stat->created-confs #[(pers-stat) "A\301\234\207" [pers-stat 13] 2 (#$ . 497018)]) (put 'pers-stat->created-confs 'byte-optimizer 'byte-compile-inline-expand) #@40 Get first-created-text from pers-stat. (defalias 'pers-stat->first-created-text #[(pers-stat) "A\301\234\207" [pers-stat 14] 2 (#$ . 497234)]) (put 'pers-stat->first-created-text 'byte-optimizer 'byte-compile-inline-expand) #@41 Get no-of-created-texts from pers-stat. (defalias 'pers-stat->no-of-created-texts #[(pers-stat) "A\301\234\207" [pers-stat 15] 2 (#$ . 497465)]) (put 'pers-stat->no-of-created-texts 'byte-optimizer 'byte-compile-inline-expand) #@33 Get no-of-marks from pers-stat. (defalias 'pers-stat->no-of-marks #[(pers-stat) "A\301\234\207" [pers-stat 16] 2 (#$ . 497699)]) (put 'pers-stat->no-of-marks 'byte-optimizer 'byte-compile-inline-expand) #@33 Get no-of-confs from pers-stat. (defalias 'pers-stat->no-of-confs #[(pers-stat) "A\301\234\207" [pers-stat 17] 2 (#$ . 497909)]) (put 'pers-stat->no-of-confs 'byte-optimizer 'byte-compile-inline-expand) #@37 Set pers-no in pers-stat to NEWVAL. (defalias 'set-pers-stat->pers-no #[(pers-stat newval) "A\302 I\207" [pers-stat newval 0] 3 (#$ . 498119)]) (put 'set-pers-stat->pers-no 'byte-optimizer 'byte-compile-inline-expand) #@38 Set username in pers-stat to NEWVAL. (defalias 'set-pers-stat->username #[(pers-stat newval) "A\302 I\207" [pers-stat newval 1] 3 (#$ . 498344)]) (put 'set-pers-stat->username 'byte-optimizer 'byte-compile-inline-expand) #@40 Set privileges in pers-stat to NEWVAL. (defalias 'set-pers-stat->privileges #[(pers-stat newval) "A\302 I\207" [pers-stat newval 2] 3 (#$ . 498572)]) (put 'set-pers-stat->privileges 'byte-optimizer 'byte-compile-inline-expand) #@35 Set flags in pers-stat to NEWVAL. (defalias 'set-pers-stat->flags #[(pers-stat newval) "A\302 I\207" [pers-stat newval 3] 3 (#$ . 498806)]) (put 'set-pers-stat->flags 'byte-optimizer 'byte-compile-inline-expand) #@40 Set last-login in pers-stat to NEWVAL. (defalias 'set-pers-stat->last-login #[(pers-stat newval) "A\302 I\207" [pers-stat newval 4] 3 (#$ . 499025)]) (put 'set-pers-stat->last-login 'byte-optimizer 'byte-compile-inline-expand) #@39 Set user-area in pers-stat to NEWVAL. (defalias 'set-pers-stat->user-area #[(pers-stat newval) "A\302 I\207" [pers-stat newval 5] 3 (#$ . 499259)]) (put 'set-pers-stat->user-area 'byte-optimizer '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\302 I\207" [pers-stat newval 6] 3 (#$ . 499490)]) (put 'set-pers-stat->total-time-present 'byte-optimizer 'byte-compile-inline-expand) #@38 Set sessions in pers-stat to NEWVAL. (defalias 'set-pers-stat->sessions #[(pers-stat newval) "A\302 I\207" [pers-stat newval 7] 3 (#$ . 499748)]) (put 'set-pers-stat->sessions 'byte-optimizer 'byte-compile-inline-expand) #@43 Set created-lines in pers-stat to NEWVAL. (defalias 'set-pers-stat->created-lines #[(pers-stat newval) "A\302 I\207" [pers-stat newval 8] 3 (#$ . 499976)]) (put 'set-pers-stat->created-lines 'byte-optimizer 'byte-compile-inline-expand) #@43 Set created-bytes in pers-stat to NEWVAL. (defalias 'set-pers-stat->created-bytes #[(pers-stat newval) "A\302 I\207" [pers-stat newval 9] 3 (#$ . 500219)]) (put 'set-pers-stat->created-bytes 'byte-optimizer 'byte-compile-inline-expand) #@40 Set read-texts in pers-stat to NEWVAL. (defalias 'set-pers-stat->read-texts #[(pers-stat newval) "A\302 I\207" [pers-stat newval 10] 3 (#$ . 500462)]) (put 'set-pers-stat->read-texts 'byte-optimizer '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\302 I\207" [pers-stat newval 11] 3 (#$ . 500697)]) (put 'set-pers-stat->no-of-text-fetches 'byte-optimizer 'byte-compile-inline-expand) #@45 Set created-persons in pers-stat to NEWVAL. (defalias 'set-pers-stat->created-persons #[(pers-stat newval) "A\302 I\207" [pers-stat newval 12] 3 (#$ . 500956)]) (put 'set-pers-stat->created-persons 'byte-optimizer 'byte-compile-inline-expand) #@43 Set created-confs in pers-stat to NEWVAL. (defalias 'set-pers-stat->created-confs #[(pers-stat newval) "A\302 I\207" [pers-stat newval 13] 3 (#$ . 501206)]) (put 'set-pers-stat->created-confs 'byte-optimizer '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\302 I\207" [pers-stat newval 14] 3 (#$ . 501450)]) (put 'set-pers-stat->first-created-text 'byte-optimizer '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\302 I\207" [pers-stat newval 15] 3 (#$ . 501709)]) (put 'set-pers-stat->no-of-created-texts 'byte-optimizer '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\302 I\207" [pers-stat newval 16] 3 (#$ . 501971)]) (put 'set-pers-stat->no-of-marks 'byte-optimizer '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\302 I\207" [pers-stat newval 17] 3 (#$ . 502209)]) (put 'set-pers-stat->no-of-confs 'byte-optimizer 'byte-compile-inline-expand) #@36 Return t if OBJECT is a pers-stat. (defalias 'lyskom-pers-stat-p #[(object) "\242\301=\207" [object PERS-STAT] 2 (#$ . 502447)]) (put 'lyskom-pers-stat-p 'byte-optimizer '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 &optional aux-items) "\306\307 \n \f  &B\207" [text-no creation-time author no-of-lines no-of-chars no-of-marks TEXT-STAT vector misc-info-list aux-items] 10 (#$ . 502653)]) (put 'lyskom-create-text-stat 'byte-optimizer 'byte-compile-inline-expand) #@29 Get text-no from text-stat. (defalias 'text-stat->text-no #[(text-stat) "A\301\234\207" [text-stat 0] 2 (#$ . 503071)]) (put 'text-stat->text-no 'byte-optimizer 'byte-compile-inline-expand) #@35 Get creation-time from text-stat. (defalias 'text-stat->creation-time #[(text-stat) "A\301\234\207" [text-stat 1] 2 (#$ . 503268)]) (put 'text-stat->creation-time 'byte-optimizer 'byte-compile-inline-expand) #@28 Get author from text-stat. (defalias 'text-stat->author #[(text-stat) "A\301\234\207" [text-stat 2] 2 (#$ . 503483)]) (put 'text-stat->author 'byte-optimizer 'byte-compile-inline-expand) #@33 Get no-of-lines from text-stat. (defalias 'text-stat->no-of-lines #[(text-stat) "A\301\234\207" [text-stat 3] 2 (#$ . 503677)]) (put 'text-stat->no-of-lines 'byte-optimizer 'byte-compile-inline-expand) #@33 Get no-of-chars from text-stat. (defalias 'text-stat->no-of-chars #[(text-stat) "A\301\234\207" [text-stat 4] 2 (#$ . 503886)]) (put 'text-stat->no-of-chars 'byte-optimizer 'byte-compile-inline-expand) #@33 Get no-of-marks from text-stat. (defalias 'text-stat->no-of-marks #[(text-stat) "A\301\234\207" [text-stat 5] 2 (#$ . 504095)]) (put 'text-stat->no-of-marks 'byte-optimizer 'byte-compile-inline-expand) #@36 Get misc-info-list from text-stat. (defalias 'text-stat->misc-info-list #[(text-stat) "A\301\234\207" [text-stat 6] 2 (#$ . 504304)]) (put 'text-stat->misc-info-list 'byte-optimizer 'byte-compile-inline-expand) #@31 Get aux-items from text-stat. (defalias 'text-stat->aux-items #[(text-stat) "A\301\234\207" [text-stat 7] 2 (#$ . 504522)]) (put 'text-stat->aux-items 'byte-optimizer 'byte-compile-inline-expand) #@37 Set text-no in text-stat to NEWVAL. (defalias 'set-text-stat->text-no #[(text-stat newval) "A\302 I\207" [text-stat newval 0] 3 (#$ . 504725)]) (put 'set-text-stat->text-no 'byte-optimizer 'byte-compile-inline-expand) #@43 Set creation-time in text-stat to NEWVAL. (defalias 'set-text-stat->creation-time #[(text-stat newval) "A\302 I\207" [text-stat newval 1] 3 (#$ . 504950)]) (put 'set-text-stat->creation-time 'byte-optimizer 'byte-compile-inline-expand) #@36 Set author in text-stat to NEWVAL. (defalias 'set-text-stat->author #[(text-stat newval) "A\302 I\207" [text-stat newval 2] 3 (#$ . 505193)]) (put 'set-text-stat->author 'byte-optimizer '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\302 I\207" [text-stat newval 3] 3 (#$ . 505415)]) (put 'set-text-stat->no-of-lines 'byte-optimizer '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\302 I\207" [text-stat newval 4] 3 (#$ . 505652)]) (put 'set-text-stat->no-of-chars 'byte-optimizer '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\302 I\207" [text-stat newval 5] 3 (#$ . 505889)]) (put 'set-text-stat->no-of-marks 'byte-optimizer '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\302 I\207" [text-stat newval 6] 3 (#$ . 506126)]) (put 'set-text-stat->misc-info-list 'byte-optimizer 'byte-compile-inline-expand) #@39 Set aux-items in text-stat to NEWVAL. (defalias 'set-text-stat->aux-items #[(text-stat newval) "A\302 I\207" [text-stat newval 7] 3 (#$ . 506372)]) (put 'set-text-stat->aux-items 'byte-optimizer 'byte-compile-inline-expand) #@36 Return t if OBJECT is a text-stat. (defalias 'lyskom-text-stat-p #[(object) "\242\301=\207" [object TEXT-STAT] 2 (#$ . 506603)]) (put 'lyskom-text-stat-p 'byte-optimizer 'byte-compile-inline-expand) #@162 Create a `aux-item-flags' from arguments. Args: DELETED INHERIT SECRET ANONYMOUS RESERVED1 RESERVED2 RESERVED3 RESERVED4 Automatically created with def-komtype. (defalias 'lyskom-create-aux-item-flags #[(deleted inherit secret anonymous reserved1 reserved2 reserved3 reserved4) "\306\307 \n \f  &B\207" [deleted inherit secret anonymous reserved1 reserved2 AUX-ITEM-FLAGS vector reserved3 reserved4] 10 (#$ . 506810)]) (put 'lyskom-create-aux-item-flags 'byte-optimizer 'byte-compile-inline-expand) #@112 Return `t' if AUX-ITEM-FLAGS is a aux-item-flags. Args: AUX-ITEM-FLAGS Automatically created with def-komtype. (defalias 'lyskom-aux-item-flags-p #[(aux-item-flags) ":\205 @\301=\207" [aux-item-flags AUX-ITEM-FLAGS] 2 (#$ . 507321)]) (put 'lyskom-aux-item-flags-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item-flags->reserved4 #[(aux-item-flags reserved4) "A\302 I\207" [aux-item-flags reserved4 7] 3 (#$ . 507639)]) (put 'set-aux-item-flags->reserved4 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item-flags->reserved4 #[(aux-item-flags) "A\301H\207" [aux-item-flags 7] 2 (#$ . 507898)]) (put 'aux-item-flags->reserved4 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item-flags->reserved3 #[(aux-item-flags reserved3) "A\302 I\207" [aux-item-flags reserved3 6] 3 (#$ . 508128)]) (put 'set-aux-item-flags->reserved3 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item-flags->reserved3 #[(aux-item-flags) "A\301H\207" [aux-item-flags 6] 2 (#$ . 508387)]) (put 'aux-item-flags->reserved3 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item-flags->reserved2 #[(aux-item-flags reserved2) "A\302 I\207" [aux-item-flags reserved2 5] 3 (#$ . 508617)]) (put 'set-aux-item-flags->reserved2 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item-flags->reserved2 #[(aux-item-flags) "A\301H\207" [aux-item-flags 5] 2 (#$ . 508876)]) (put 'aux-item-flags->reserved2 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item-flags->reserved1 #[(aux-item-flags reserved1) "A\302 I\207" [aux-item-flags reserved1 4] 3 (#$ . 509106)]) (put 'set-aux-item-flags->reserved1 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item-flags->reserved1 #[(aux-item-flags) "A\301H\207" [aux-item-flags 4] 2 (#$ . 509365)]) (put 'aux-item-flags->reserved1 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item-flags->anonymous #[(aux-item-flags anonymous) "A\302 I\207" [aux-item-flags anonymous 3] 3 (#$ . 509595)]) (put 'set-aux-item-flags->anonymous 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item-flags->anonymous #[(aux-item-flags) "A\301H\207" [aux-item-flags 3] 2 (#$ . 509854)]) (put 'aux-item-flags->anonymous 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item-flags->secret #[(aux-item-flags secret) "A\302 I\207" [aux-item-flags secret 2] 3 (#$ . 510084)]) (put 'set-aux-item-flags->secret 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item-flags->secret #[(aux-item-flags) "A\301H\207" [aux-item-flags 2] 2 (#$ . 510331)]) (put 'aux-item-flags->secret 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item-flags->inherit #[(aux-item-flags inherit) "A\302 I\207" [aux-item-flags inherit 1] 3 (#$ . 510555)]) (put 'set-aux-item-flags->inherit 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item-flags->inherit #[(aux-item-flags) "A\301H\207" [aux-item-flags 1] 2 (#$ . 510806)]) (put 'aux-item-flags->inherit 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item-flags->deleted #[(aux-item-flags deleted) "A\302 I\207" [aux-item-flags deleted 0] 3 (#$ . 511032)]) (put 'set-aux-item-flags->deleted 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item-flags->deleted #[(aux-item-flags) "A\301H\207" [aux-item-flags 0] 2 (#$ . 511283)]) (put 'aux-item-flags->deleted 'byte-optimizer 'byte-compile-inline-expand) #@135 Create a `aux-item' from arguments. Args: AUX-NO TAG CREATOR SENT-AT FLAGS INHERIT-LIMIT DATA Automatically created with def-komtype. (defalias 'lyskom-create-aux-item #[(aux-no tag creator sent-at flags inherit-limit data) "\306\307 \n \f &B\207" [aux-no tag creator sent-at flags inherit-limit AUX-ITEM vector data] 9 (#$ . 511510)]) (put 'lyskom-create-aux-item 'byte-optimizer 'byte-compile-inline-expand) #@94 Return `t' if AUX-ITEM is a aux-item. Args: AUX-ITEM Automatically created with def-komtype. (defalias 'lyskom-aux-item-p #[(aux-item) ":\205 @\301=\207" [aux-item AUX-ITEM] 2 (#$ . 511930)]) (put 'lyskom-aux-item-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item->data #[(aux-item data) "A\302 I\207" [aux-item data 6] 3 (#$ . 512200)]) (put 'set-aux-item->data 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item->data #[(aux-item) "A\301H\207" [aux-item 6] 2 (#$ . 512415)]) (put 'aux-item->data 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item->inherit-limit #[(aux-item inherit-limit) "A\302 I\207" [aux-item inherit-limit 5] 3 (#$ . 512611)]) (put 'set-aux-item->inherit-limit 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item->inherit-limit #[(aux-item) "A\301H\207" [aux-item 5] 2 (#$ . 512862)]) (put 'aux-item->inherit-limit 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item->flags #[(aux-item flags) "A\302 I\207" [aux-item flags 4] 3 (#$ . 513076)]) (put 'set-aux-item->flags 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item->flags #[(aux-item) "A\301H\207" [aux-item 4] 2 (#$ . 513295)]) (put 'aux-item->flags 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item->sent-at #[(aux-item sent-at) "A\302 I\207" [aux-item sent-at 3] 3 (#$ . 513493)]) (put 'set-aux-item->sent-at 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item->sent-at #[(aux-item) "A\301H\207" [aux-item 3] 2 (#$ . 513720)]) (put 'aux-item->sent-at 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item->creator #[(aux-item creator) "A\302 I\207" [aux-item creator 2] 3 (#$ . 513922)]) (put 'set-aux-item->creator 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item->creator #[(aux-item) "A\301H\207" [aux-item 2] 2 (#$ . 514149)]) (put 'aux-item->creator 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item->tag #[(aux-item tag) "A\302 I\207" [aux-item tag 1] 3 (#$ . 514351)]) (put 'set-aux-item->tag 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item->tag #[(aux-item) "A\301H\207" [aux-item 1] 2 (#$ . 514562)]) (put 'aux-item->tag 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-aux-item->aux-no #[(aux-item aux-no) "A\302 I\207" [aux-item aux-no 0] 3 (#$ . 514756)]) (put 'set-aux-item->aux-no 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'aux-item->aux-no #[(aux-item) "A\301H\207" [aux-item 0] 2 (#$ . 514979)]) (put 'aux-item->aux-no 'byte-optimizer 'byte-compile-inline-expand) #@36 Create a text from all parameters. (defalias 'lyskom-create-text #[(text-no text-mass) "\302\303 \"B\207" [text-no text-mass TEXT vector] 4 (#$ . 515179)]) (put 'lyskom-create-text 'byte-optimizer 'byte-compile-inline-expand) #@24 Get text-no from text. (defalias 'text->text-no #[(text) "A\301\234\207" [text 0] 2 (#$ . 515412)]) (put 'text->text-no 'byte-optimizer 'byte-compile-inline-expand) #@26 Get text-mass from text. (defalias 'text->text-mass #[(text) "A\301\234\207" [text 1] 2 (#$ . 515584)]) (put 'text->text-mass 'byte-optimizer 'byte-compile-inline-expand) #@32 Set text-no in text to NEWVAL. (defalias 'set-text->text-no #[(text newval) "A\302 I\207" [text newval 0] 3 (#$ . 515762)]) (put 'set-text->text-no 'byte-optimizer 'byte-compile-inline-expand) #@34 Set text-mass in text to NEWVAL. (defalias 'set-text->text-mass #[(text newval) "A\302 I\207" [text newval 1] 3 (#$ . 515962)]) (put 'set-text->text-mass 'byte-optimizer 'byte-compile-inline-expand) #@31 Return t if OBJECT is a text. (defalias 'lyskom-text-p #[(object) "\242\301=\207" [object TEXT] 2 (#$ . 516168)]) (put 'lyskom-text-p 'byte-optimizer 'byte-compile-inline-expand) #@74 Get the text mass of a text after decoding according to its content type (defalias 'text->decoded-text-mass #[(text text-stat) "\211A\306\234)\307\n\211A\310\234)\306\"\211@\205\"\311 @\211A\312H)!\211A\2030\313 A\"\2021 +\207" [text str text-stat item aux-item content-type 1 lyskom-get-aux-item 7 lyskom-mime-decode-content-type 6 lyskom-mime-decode-string] 4 (#$ . 516354)]) #@125 Create a misc-info from all parameters. TYPE is one of RECPT, CC-RECPT, BCC-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) "\306\307 \n \f  \n &\nB\207" [type recipient-no local-no rec-time comm-to comm-in MISC-INFO vector footn-to footn-in sender sent-at] 12 (#$ . 516750)]) (put 'lyskom-create-misc-info 'byte-optimizer 'byte-compile-inline-expand) #@28 Create an empty misc-info. (defalias 'lyskom-create-empty-misc-info #[nil "\306\211\211\211\211\211\211\211\211\211 \n \f\307\310\f \n \f \n &\n.\nB\207" [sent-at sender footn-in footn-to comm-in comm-to nil MISC-INFO vector rec-time local-no recipient-no type] 12 (#$ . 517238)]) (put 'lyskom-create-empty-misc-info 'byte-optimizer 'byte-compile-inline-expand) #@26 Get type from misc-info. (defalias 'misc-info->type #[(misc-info) "A\301\234\207" [misc-info 0] 2 (#$ . 517622)]) (put 'misc-info->type 'byte-optimizer 'byte-compile-inline-expand) #@34 Get recipient-no from misc-info. (defalias 'misc-info->recipient-no #[(misc-info) "A\301\234\207" [misc-info 1] 2 (#$ . 517810)]) (put 'misc-info->recipient-no 'byte-optimizer 'byte-compile-inline-expand) #@30 Get local-no from misc-info. (defalias 'misc-info->local-no #[(misc-info) "A\301\234\207" [misc-info 2] 2 (#$ . 518022)]) (put 'misc-info->local-no 'byte-optimizer 'byte-compile-inline-expand) #@30 Get rec-time from misc-info. (defalias 'misc-info->rec-time #[(misc-info) "A\301\234\207" [misc-info 3] 2 (#$ . 518222)]) (put 'misc-info->rec-time 'byte-optimizer 'byte-compile-inline-expand) #@29 Get comm-to from misc-info. (defalias 'misc-info->comm-to #[(misc-info) "A\301\234\207" [misc-info 4] 2 (#$ . 518422)]) (put 'misc-info->comm-to 'byte-optimizer 'byte-compile-inline-expand) #@29 Get comm-in from misc-info. (defalias 'misc-info->comm-in #[(misc-info) "A\301\234\207" [misc-info 5] 2 (#$ . 518619)]) (put 'misc-info->comm-in 'byte-optimizer 'byte-compile-inline-expand) #@30 Get footn-to from misc-info. (defalias 'misc-info->footn-to #[(misc-info) "A\301\234\207" [misc-info 6] 2 (#$ . 518816)]) (put 'misc-info->footn-to 'byte-optimizer 'byte-compile-inline-expand) #@30 Get footn-in from misc-info. (defalias 'misc-info->footn-in #[(misc-info) "A\301\234\207" [misc-info 7] 2 (#$ . 519016)]) (put 'misc-info->footn-in 'byte-optimizer 'byte-compile-inline-expand) #@28 Get sender from misc-info. (defalias 'misc-info->sender #[(misc-info) "A\301\234\207" [misc-info 8] 2 (#$ . 519216)]) (put 'misc-info->sender 'byte-optimizer 'byte-compile-inline-expand) #@29 Get sent-at from misc-info. (defalias 'misc-info->sent-at #[(misc-info) "A\301\234\207" [misc-info 9] 2 (#$ . 519410)]) (put 'misc-info->sent-at 'byte-optimizer 'byte-compile-inline-expand) #@34 Set type in misc-info to NEWVAL. (defalias 'set-misc-info->type #[(misc-info newval) "A\302 I\207" [misc-info newval 0] 3 (#$ . 519607)]) (put 'set-misc-info->type 'byte-optimizer 'byte-compile-inline-expand) #@42 Set recipient-no in misc-info to NEWVAL. (defalias 'set-misc-info->recipient-no #[(misc-info newval) "A\302 I\207" [misc-info newval 1] 3 (#$ . 519823)]) (put 'set-misc-info->recipient-no 'byte-optimizer 'byte-compile-inline-expand) #@38 Set local-no in misc-info to NEWVAL. (defalias 'set-misc-info->local-no #[(misc-info newval) "A\302 I\207" [misc-info newval 2] 3 (#$ . 520063)]) (put 'set-misc-info->local-no 'byte-optimizer 'byte-compile-inline-expand) #@38 Set rec-time in misc-info to NEWVAL. (defalias 'set-misc-info->rec-time #[(misc-info newval) "A\302 I\207" [misc-info newval 3] 3 (#$ . 520291)]) (put 'set-misc-info->rec-time 'byte-optimizer 'byte-compile-inline-expand) #@37 Set comm-to in misc-info to NEWVAL. (defalias 'set-misc-info->comm-to #[(misc-info newval) "A\302 I\207" [misc-info newval 4] 3 (#$ . 520519)]) (put 'set-misc-info->comm-to 'byte-optimizer 'byte-compile-inline-expand) #@37 Set comm-in in misc-info to NEWVAL. (defalias 'set-misc-info->comm-in #[(misc-info newval) "A\302 I\207" [misc-info newval 5] 3 (#$ . 520744)]) (put 'set-misc-info->comm-in 'byte-optimizer 'byte-compile-inline-expand) #@38 Set footn-to in misc-info to NEWVAL. (defalias 'set-misc-info->footn-to #[(misc-info newval) "A\302 I\207" [misc-info newval 6] 3 (#$ . 520969)]) (put 'set-misc-info->footn-to 'byte-optimizer 'byte-compile-inline-expand) #@38 Set footn-in in misc-info to NEWVAL. (defalias 'set-misc-info->footn-in #[(misc-info newval) "A\302 I\207" [misc-info newval 7] 3 (#$ . 521197)]) (put 'set-misc-info->footn-in 'byte-optimizer 'byte-compile-inline-expand) #@36 Set sender in misc-info to NEWVAL. (defalias 'set-misc-info->sender #[(misc-info newval) "A\302 I\207" [misc-info newval 8] 3 (#$ . 521425)]) (put 'set-misc-info->sender 'byte-optimizer 'byte-compile-inline-expand) #@37 Set sent-at in misc-info to NEWVAL. (defalias 'set-misc-info->sent-at #[(misc-info newval) "A\302 I\207" [misc-info newval 9] 3 (#$ . 521647)]) (put 'set-misc-info->sent-at 'byte-optimizer 'byte-compile-inline-expand) #@36 Return t if OBJECT is a misc-info. (defalias 'lyskom-misc-info-p #[(object) "\242\301=\207" [object MISC-INFO] 2 (#$ . 521872)]) (put 'lyskom-misc-info-p 'byte-optimizer 'byte-compile-inline-expand) #@36 Create a time from all parameters. (defalias 'lyskom-create-time #[(sec min hour mday mon year wday yday isdst &optional tzhr tzmin) "\306\307 \n \f  \n \f& B\207" [sec min hour mday mon year TIME vector wday yday isdst tzhr tzmin] 13 (#$ . 522078)]) (put 'lyskom-create-time 'byte-optimizer 'byte-compile-inline-expand) #@20 Get sec from time. (defalias 'time->sec #[(time) "A\301\234\207" [time 0] 2 (#$ . 522412)]) (put 'time->sec 'byte-optimizer 'byte-compile-inline-expand) #@20 Get min from time. (defalias 'time->min #[(time) "A\301\234\207" [time 1] 2 (#$ . 522572)]) (put 'time->min 'byte-optimizer 'byte-compile-inline-expand) #@21 Get hour from time. (defalias 'time->hour #[(time) "A\301\234\207" [time 2] 2 (#$ . 522732)]) (put 'time->hour 'byte-optimizer 'byte-compile-inline-expand) #@21 Get mday from time. (defalias 'time->mday #[(time) "A\301\234\207" [time 3] 2 (#$ . 522895)]) (put 'time->mday 'byte-optimizer 'byte-compile-inline-expand) #@20 Get mon from time. (defalias 'time->mon #[(time) "A\301\234\207" [time 4] 2 (#$ . 523058)]) (put 'time->mon 'byte-optimizer 'byte-compile-inline-expand) #@21 Get year from time. (defalias 'time->year #[(time) "A\301\234\207" [time 5] 2 (#$ . 523218)]) (put 'time->year 'byte-optimizer 'byte-compile-inline-expand) #@21 Get wday from time. (defalias 'time->wday #[(time) "A\301\234\207" [time 6] 2 (#$ . 523381)]) (put 'time->wday 'byte-optimizer 'byte-compile-inline-expand) #@21 Get yday from time. (defalias 'time->yday #[(time) "A\301\234\207" [time 7] 2 (#$ . 523544)]) (put 'time->yday 'byte-optimizer 'byte-compile-inline-expand) #@22 Get isdst from time. (defalias 'time->isdst #[(time) "A\301\234\207" [time 8] 2 (#$ . 523707)]) (put 'time->isdst 'byte-optimizer 'byte-compile-inline-expand) #@22 Get isdst from time. (defalias 'time->tzhr #[(time) "A\301\234\207" [time 9] 2 (#$ . 523873)]) (put 'time->tzhr 'byte-optimizer 'byte-compile-inline-expand) #@22 Get isdst from time. (defalias 'time->tzmin #[(time) "A\301\234\207" [time 10] 2 (#$ . 524037)]) (put 'time->tzmin 'byte-optimizer 'byte-compile-inline-expand) #@31 Return t if OBJECT is a time. (defalias 'lyskom-time-p #[(object) "\242\301=\207" [object TIME] 2 (#$ . 524204)]) (put 'lyskom-time-p 'byte-optimizer '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) "\306\307 \n \f  \n \f &B\207" [wheel admin statistic create_pers create_conf change_name PRIVS vector flg7 flg8 flg9 flg10 flg11 flg12 flg13 flg14 flg15 flg16] 18 (#$ . 524390)]) (put 'lyskom-create-privs 'byte-optimizer 'byte-compile-inline-expand) #@23 Get wheel from privs. (defalias 'privs->wheel #[(privs) "A\301\234\207" [privs 0] 2 (#$ . 524850)]) (put 'privs->wheel 'byte-optimizer 'byte-compile-inline-expand) #@23 Get admin from privs. (defalias 'privs->admin #[(privs) "A\301\234\207" [privs 1] 2 (#$ . 525021)]) (put 'privs->admin 'byte-optimizer 'byte-compile-inline-expand) #@27 Get statistic from privs. (defalias 'privs->statistic #[(privs) "A\301\234\207" [privs 2] 2 (#$ . 525192)]) (put 'privs->statistic 'byte-optimizer 'byte-compile-inline-expand) #@29 Get create_pers from privs. (defalias 'privs->create_pers #[(privs) "A\301\234\207" [privs 3] 2 (#$ . 525375)]) (put 'privs->create_pers 'byte-optimizer 'byte-compile-inline-expand) #@29 Get create_conf from privs. (defalias 'privs->create_conf #[(privs) "A\301\234\207" [privs 4] 2 (#$ . 525564)]) (put 'privs->create_conf 'byte-optimizer 'byte-compile-inline-expand) #@29 Get change_name from privs. (defalias 'privs->change_name #[(privs) "A\301\234\207" [privs 5] 2 (#$ . 525753)]) (put 'privs->change_name 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg7 from privs. (defalias 'privs->flg7 #[(privs) "A\301\234\207" [privs 6] 2 (#$ . 525942)]) (put 'privs->flg7 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg8 from privs. (defalias 'privs->flg8 #[(privs) "A\301\234\207" [privs 7] 2 (#$ . 526110)]) (put 'privs->flg8 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg9 from privs. (defalias 'privs->flg9 #[(privs) "A\301\234\207" [privs 8] 2 (#$ . 526278)]) (put 'privs->flg9 'byte-optimizer 'byte-compile-inline-expand) #@23 Get flg10 from privs. (defalias 'privs->flg10 #[(privs) "A\301\234\207" [privs 9] 2 (#$ . 526446)]) (put 'privs->flg10 'byte-optimizer 'byte-compile-inline-expand) #@23 Get flg11 from privs. (defalias 'privs->flg11 #[(privs) "A\301\234\207" [privs 10] 2 (#$ . 526617)]) (put 'privs->flg11 'byte-optimizer 'byte-compile-inline-expand) #@23 Get flg12 from privs. (defalias 'privs->flg12 #[(privs) "A\301\234\207" [privs 11] 2 (#$ . 526789)]) (put 'privs->flg12 'byte-optimizer 'byte-compile-inline-expand) #@23 Get flg13 from privs. (defalias 'privs->flg13 #[(privs) "A\301\234\207" [privs 12] 2 (#$ . 526961)]) (put 'privs->flg13 'byte-optimizer 'byte-compile-inline-expand) #@23 Get flg14 from privs. (defalias 'privs->flg14 #[(privs) "A\301\234\207" [privs 13] 2 (#$ . 527133)]) (put 'privs->flg14 'byte-optimizer 'byte-compile-inline-expand) #@23 Get flg15 from privs. (defalias 'privs->flg15 #[(privs) "A\301\234\207" [privs 14] 2 (#$ . 527305)]) (put 'privs->flg15 'byte-optimizer 'byte-compile-inline-expand) #@23 Get flg16 from privs. (defalias 'privs->flg16 #[(privs) "A\301\234\207" [privs 15] 2 (#$ . 527477)]) (put 'privs->flg16 'byte-optimizer 'byte-compile-inline-expand) #@31 Set wheel in privs to NEWVAL. (defalias 'set-privs->wheel #[(privs newval) "A\302 I\207" [privs newval 0] 3 (#$ . 527649)]) (put 'set-privs->wheel 'byte-optimizer 'byte-compile-inline-expand) #@31 Set admin in privs to NEWVAL. (defalias 'set-privs->admin #[(privs newval) "A\302 I\207" [privs newval 1] 3 (#$ . 527848)]) (put 'set-privs->admin 'byte-optimizer 'byte-compile-inline-expand) #@35 Set statistic in privs to NEWVAL. (defalias 'set-privs->statistic #[(privs newval) "A\302 I\207" [privs newval 2] 3 (#$ . 528047)]) (put 'set-privs->statistic 'byte-optimizer 'byte-compile-inline-expand) #@37 Set create_pers in privs to NEWVAL. (defalias 'set-privs->create_pers #[(privs newval) "A\302 I\207" [privs newval 3] 3 (#$ . 528258)]) (put 'set-privs->create_pers 'byte-optimizer 'byte-compile-inline-expand) #@37 Set create_conf in privs to NEWVAL. (defalias 'set-privs->create_conf #[(privs newval) "A\302 I\207" [privs newval 4] 3 (#$ . 528475)]) (put 'set-privs->create_conf 'byte-optimizer 'byte-compile-inline-expand) #@37 Set change_name in privs to NEWVAL. (defalias 'set-privs->change_name #[(privs newval) "A\302 I\207" [privs newval 5] 3 (#$ . 528692)]) (put 'set-privs->change_name 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg7 in privs to NEWVAL. (defalias 'set-privs->flg7 #[(privs newval) "A\302 I\207" [privs newval 6] 3 (#$ . 528909)]) (put 'set-privs->flg7 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg8 in privs to NEWVAL. (defalias 'set-privs->flg8 #[(privs newval) "A\302 I\207" [privs newval 7] 3 (#$ . 529105)]) (put 'set-privs->flg8 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg9 in privs to NEWVAL. (defalias 'set-privs->flg9 #[(privs newval) "A\302 I\207" [privs newval 8] 3 (#$ . 529301)]) (put 'set-privs->flg9 'byte-optimizer 'byte-compile-inline-expand) #@31 Set flg10 in privs to NEWVAL. (defalias 'set-privs->flg10 #[(privs newval) "A\302 I\207" [privs newval 9] 3 (#$ . 529497)]) (put 'set-privs->flg10 'byte-optimizer 'byte-compile-inline-expand) #@31 Set flg11 in privs to NEWVAL. (defalias 'set-privs->flg11 #[(privs newval) "A\302 I\207" [privs newval 10] 3 (#$ . 529696)]) (put 'set-privs->flg11 'byte-optimizer 'byte-compile-inline-expand) #@31 Set flg12 in privs to NEWVAL. (defalias 'set-privs->flg12 #[(privs newval) "A\302 I\207" [privs newval 11] 3 (#$ . 529896)]) (put 'set-privs->flg12 'byte-optimizer 'byte-compile-inline-expand) #@31 Set flg13 in privs to NEWVAL. (defalias 'set-privs->flg13 #[(privs newval) "A\302 I\207" [privs newval 12] 3 (#$ . 530096)]) (put 'set-privs->flg13 'byte-optimizer 'byte-compile-inline-expand) #@31 Set flg14 in privs to NEWVAL. (defalias 'set-privs->flg14 #[(privs newval) "A\302 I\207" [privs newval 13] 3 (#$ . 530296)]) (put 'set-privs->flg14 'byte-optimizer 'byte-compile-inline-expand) #@31 Set flg15 in privs to NEWVAL. (defalias 'set-privs->flg15 #[(privs newval) "A\302 I\207" [privs newval 14] 3 (#$ . 530496)]) (put 'set-privs->flg15 'byte-optimizer 'byte-compile-inline-expand) #@31 Set flg16 in privs to NEWVAL. (defalias 'set-privs->flg16 #[(privs newval) "A\302 I\207" [privs newval 15] 3 (#$ . 530696)]) (put 'set-privs->flg16 'byte-optimizer 'byte-compile-inline-expand) #@32 Return t if OBJECT is a privs. (defalias 'lyskom-privs-p #[(object) "\242\301=\207" [object PRIVS] 2 (#$ . 530896)]) (put 'lyskom-privs-p 'byte-optimizer 'byte-compile-inline-expand) #@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) "\306\307 \n \f  &B\207" [invisible user_active_used user_absent reserved3 reserved4 reserved5 SESSION-FLAGS vector reserved6 reserved7] 10 (#$ . 531087)]) (put 'lyskom-create-session-flags 'byte-optimizer 'byte-compile-inline-expand) #@109 Return `t' if SESSION-FLAGS is a session-flags. Args: SESSION-FLAGS Automatically created with def-komtype. (defalias 'lyskom-session-flags-p #[(session-flags) ":\205 @\301=\207" [session-flags SESSION-FLAGS] 2 (#$ . 531642)]) (put 'lyskom-session-flags-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved7 #[(session-flags reserved7) "A\302 I\207" [session-flags reserved7 7] 3 (#$ . 531952)]) (put 'set-session-flags->reserved7 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved7 #[(session-flags) "A\301H\207" [session-flags 7] 2 (#$ . 532207)]) (put 'session-flags->reserved7 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved6 #[(session-flags reserved6) "A\302 I\207" [session-flags reserved6 6] 3 (#$ . 532433)]) (put 'set-session-flags->reserved6 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved6 #[(session-flags) "A\301H\207" [session-flags 6] 2 (#$ . 532688)]) (put 'session-flags->reserved6 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved5 #[(session-flags reserved5) "A\302 I\207" [session-flags reserved5 5] 3 (#$ . 532914)]) (put 'set-session-flags->reserved5 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved5 #[(session-flags) "A\301H\207" [session-flags 5] 2 (#$ . 533169)]) (put 'session-flags->reserved5 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved4 #[(session-flags reserved4) "A\302 I\207" [session-flags reserved4 4] 3 (#$ . 533395)]) (put 'set-session-flags->reserved4 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved4 #[(session-flags) "A\301H\207" [session-flags 4] 2 (#$ . 533650)]) (put 'session-flags->reserved4 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->reserved3 #[(session-flags reserved3) "A\302 I\207" [session-flags reserved3 3] 3 (#$ . 533876)]) (put 'set-session-flags->reserved3 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'session-flags->reserved3 #[(session-flags) "A\301H\207" [session-flags 3] 2 (#$ . 534131)]) (put 'session-flags->reserved3 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->user_absent #[(session-flags user_absent) "A\302 I\207" [session-flags user_absent 2] 3 (#$ . 534357)]) (put 'set-session-flags->user_absent 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'session-flags->user_absent #[(session-flags) "A\301H\207" [session-flags 2] 2 (#$ . 534620)]) (put 'session-flags->user_absent 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->user_active_used #[(session-flags user_active_used) "A\302 I\207" [session-flags user_active_used 1] 3 (#$ . 534850)]) (put 'set-session-flags->user_active_used 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'session-flags->user_active_used #[(session-flags) "A\301H\207" [session-flags 1] 2 (#$ . 535133)]) (put 'session-flags->user_active_used 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-session-flags->invisible #[(session-flags invisible) "A\302 I\207" [session-flags invisible 0] 3 (#$ . 535373)]) (put 'set-session-flags->invisible 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'session-flags->invisible #[(session-flags) "A\301H\207" [session-flags 0] 2 (#$ . 535628)]) (put 'session-flags->invisible 'byte-optimizer '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) "\306\307 \n \f &B\207" [session person working-conference idle-time flags what-am-i-doing DYNAMIC-SESSION-INFO vector] 8 (#$ . 535855)]) (put 'lyskom-create-dynamic-session-info 'byte-optimizer '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 'lyskom-dynamic-session-info-p #[(dynamic-session-info) ":\205 @\301=\207" [dynamic-session-info DYNAMIC-SESSION-INFO] 2 (#$ . 536364)]) (put 'lyskom-dynamic-session-info-p 'byte-optimizer '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\302 I\207" [dynamic-session-info what-am-i-doing 5] 3 (#$ . 536730)]) (put 'set-dynamic-session-info->what-am-i-doing 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->what-am-i-doing #[(dynamic-session-info) "A\301H\207" [dynamic-session-info 5] 2 (#$ . 537037)]) (put 'dynamic-session-info->what-am-i-doing 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->flags #[(dynamic-session-info flags) "A\302 I\207" [dynamic-session-info flags 4] 3 (#$ . 537303)]) (put 'set-dynamic-session-info->flags 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->flags #[(dynamic-session-info) "A\301H\207" [dynamic-session-info 4] 2 (#$ . 537570)]) (put 'dynamic-session-info->flags 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->idle-time #[(dynamic-session-info idle-time) "A\302 I\207" [dynamic-session-info idle-time 3] 3 (#$ . 537816)]) (put 'set-dynamic-session-info->idle-time 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->idle-time #[(dynamic-session-info) "A\301H\207" [dynamic-session-info 3] 2 (#$ . 538099)]) (put 'dynamic-session-info->idle-time 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->working-conference #[(dynamic-session-info working-conference) "A\302 I\207" [dynamic-session-info working-conference 2] 3 (#$ . 538353)]) (put 'set-dynamic-session-info->working-conference 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->working-conference #[(dynamic-session-info) "A\301H\207" [dynamic-session-info 2] 2 (#$ . 538672)]) (put 'dynamic-session-info->working-conference 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->person #[(dynamic-session-info person) "A\302 I\207" [dynamic-session-info person 1] 3 (#$ . 538944)]) (put 'set-dynamic-session-info->person 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->person #[(dynamic-session-info) "A\301H\207" [dynamic-session-info 1] 2 (#$ . 539215)]) (put 'dynamic-session-info->person 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-dynamic-session-info->session #[(dynamic-session-info session) "A\302 I\207" [dynamic-session-info session 0] 3 (#$ . 539463)]) (put 'set-dynamic-session-info->session 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'dynamic-session-info->session #[(dynamic-session-info) "A\301H\207" [dynamic-session-info 0] 2 (#$ . 539738)]) (put 'dynamic-session-info->session 'byte-optimizer '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) "\304\305 \n $B\207" [username hostname ident-user connection-time STATIC-SESSION-INFO vector] 6 (#$ . 539989)]) (put 'lyskom-create-static-session-info 'byte-optimizer '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 'lyskom-static-session-info-p #[(static-session-info) ":\205 @\301=\207" [static-session-info STATIC-SESSION-INFO] 2 (#$ . 540427)]) (put 'lyskom-static-session-info-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-static-session-info->connection-time #[(static-session-info connection-time) "A\302 I\207" [static-session-info connection-time 3] 3 (#$ . 540785)]) (put 'set-static-session-info->connection-time 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'static-session-info->connection-time #[(static-session-info) "A\301H\207" [static-session-info 3] 2 (#$ . 541088)]) (put 'static-session-info->connection-time 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-static-session-info->ident-user #[(static-session-info ident-user) "A\302 I\207" [static-session-info ident-user 2] 3 (#$ . 541350)]) (put 'set-static-session-info->ident-user 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'static-session-info->ident-user #[(static-session-info) "A\301H\207" [static-session-info 2] 2 (#$ . 541633)]) (put 'static-session-info->ident-user 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-static-session-info->hostname #[(static-session-info hostname) "A\302 I\207" [static-session-info hostname 1] 3 (#$ . 541885)]) (put 'set-static-session-info->hostname 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'static-session-info->hostname #[(static-session-info) "A\301H\207" [static-session-info 1] 2 (#$ . 542160)]) (put 'static-session-info->hostname 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-static-session-info->username #[(static-session-info username) "A\302 I\207" [static-session-info username 0] 3 (#$ . 542408)]) (put 'set-static-session-info->username 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'static-session-info->username #[(static-session-info) "A\301H\207" [static-session-info 0] 2 (#$ . 542683)]) (put 'static-session-info->username 'byte-optimizer '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) "\306\307 \n \f  &B\207" [unread_is_secret flg2 flg3 flg4 flg5 flg6 FLAGS vector flg7 flg8] 10 (#$ . 542931)]) (put 'lyskom-create-flags 'byte-optimizer 'byte-compile-inline-expand) #@34 Get unread_is_secret from flags. (defalias 'flags->unread_is_secret #[(flags) "A\301\234\207" [flags 0] 2 (#$ . 543247)]) (put 'flags->unread_is_secret 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg2 from flags. (defalias 'flags->flg2 #[(flags) "A\301\234\207" [flags 1] 2 (#$ . 543451)]) (put 'flags->flg2 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg3 from flags. (defalias 'flags->flg3 #[(flags) "A\301\234\207" [flags 2] 2 (#$ . 543619)]) (put 'flags->flg3 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg4 from flags. (defalias 'flags->flg4 #[(flags) "A\301\234\207" [flags 3] 2 (#$ . 543787)]) (put 'flags->flg4 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg5 from flags. (defalias 'flags->flg5 #[(flags) "A\301\234\207" [flags 4] 2 (#$ . 543955)]) (put 'flags->flg5 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg6 from flags. (defalias 'flags->flg6 #[(flags) "A\301\234\207" [flags 5] 2 (#$ . 544123)]) (put 'flags->flg6 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg7 from flags. (defalias 'flags->flg7 #[(flags) "A\301\234\207" [flags 6] 2 (#$ . 544291)]) (put 'flags->flg7 'byte-optimizer 'byte-compile-inline-expand) #@22 Get flg8 from flags. (defalias 'flags->flg8 #[(flags) "A\301\234\207" [flags 7] 2 (#$ . 544459)]) (put 'flags->flg8 'byte-optimizer 'byte-compile-inline-expand) #@42 Set unread_is_secret in flags to NEWVAL. (defalias 'set-flags->unread_is_secret #[(flags newval) "A\302 I\207" [flags newval 0] 3 (#$ . 544627)]) (put 'set-flags->unread_is_secret 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg2 in flags to NEWVAL. (defalias 'set-flags->flg2 #[(flags newval) "A\302 I\207" [flags newval 1] 3 (#$ . 544859)]) (put 'set-flags->flg2 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg3 in flags to NEWVAL. (defalias 'set-flags->flg3 #[(flags newval) "A\302 I\207" [flags newval 2] 3 (#$ . 545055)]) (put 'set-flags->flg3 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg4 in flags to NEWVAL. (defalias 'set-flags->flg4 #[(flags newval) "A\302 I\207" [flags newval 3] 3 (#$ . 545251)]) (put 'set-flags->flg4 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg5 in flags to NEWVAL. (defalias 'set-flags->flg5 #[(flags newval) "A\302 I\207" [flags newval 4] 3 (#$ . 545447)]) (put 'set-flags->flg5 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg6 in flags to NEWVAL. (defalias 'set-flags->flg6 #[(flags newval) "A\302 I\207" [flags newval 5] 3 (#$ . 545643)]) (put 'set-flags->flg6 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg7 in flags to NEWVAL. (defalias 'set-flags->flg7 #[(flags newval) "A\302 I\207" [flags newval 6] 3 (#$ . 545839)]) (put 'set-flags->flg7 'byte-optimizer 'byte-compile-inline-expand) #@30 Set flg8 in flags to NEWVAL. (defalias 'set-flags->flg8 #[(flags newval) "A\302 I\207" [flags newval 7] 3 (#$ . 546035)]) (put 'set-flags->flg8 'byte-optimizer 'byte-compile-inline-expand) #@32 Return t if OBJECT is a flags. (defalias 'lyskom-flags-p #[(object) "\242\301=\207" [object FLAGS] 2 (#$ . 546231)]) (put 'lyskom-flags-p 'byte-optimizer 'byte-compile-inline-expand) #@94 Create a `member-list' from arguments. Args: MEMBERS Automatically created with def-komtype. (defalias 'lyskom-create-member-list #[(members) "\301\302!B\207" [members MEMBER-LIST vector] 3 (#$ . 546421)]) (put 'lyskom-create-member-list 'byte-optimizer 'byte-compile-inline-expand) #@103 Return `t' if MEMBER-LIST is a member-list. Args: MEMBER-LIST Automatically created with def-komtype. (defalias 'lyskom-member-list-p #[(member-list) ":\205 @\301=\207" [member-list MEMBER-LIST] 2 (#$ . 546712)]) (put 'lyskom-member-list-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-member-list->members #[(member-list members) "A\302 I\207" [member-list members 0] 3 (#$ . 547006)]) (put 'set-member-list->members 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'member-list->members #[(member-list) "A\301H\207" [member-list 0] 2 (#$ . 547245)]) (put 'member-list->members 'byte-optimizer 'byte-compile-inline-expand) #@127 Create a `member' from arguments. Args: PERS-NO CREATED-BY CREATED-AT MEMBERSHIP-TYPE Automatically created with def-komtype. (defalias 'lyskom-create-member #[(pers-no created-by created-at membership-type) "\304\305 \n $B\207" [pers-no created-by created-at membership-type MEMBER vector] 6 (#$ . 547460)]) (put 'lyskom-create-member 'byte-optimizer 'byte-compile-inline-expand) #@88 Return `t' if MEMBER is a member. Args: MEMBER Automatically created with def-komtype. (defalias 'lyskom-member-p #[(member) ":\205 @\301=\207" [member MEMBER] 2 (#$ . 547848)]) (put 'lyskom-member-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-member->membership-type #[(member membership-type) "A\302 I\207" [member membership-type 3] 3 (#$ . 548102)]) (put 'set-member->membership-type 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'member->membership-type #[(member) "A\301H\207" [member 3] 2 (#$ . 548353)]) (put 'member->membership-type 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-member->created-at #[(member created-at) "A\302 I\207" [member created-at 2] 3 (#$ . 548563)]) (put 'set-member->created-at 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'member->created-at #[(member) "A\301H\207" [member 2] 2 (#$ . 548794)]) (put 'member->created-at 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-member->created-by #[(member created-by) "A\302 I\207" [member created-by 1] 3 (#$ . 548994)]) (put 'set-member->created-by 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'member->created-by #[(member) "A\301H\207" [member 1] 2 (#$ . 549225)]) (put 'member->created-by 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-member->pers-no #[(member pers-no) "A\302 I\207" [member pers-no 0] 3 (#$ . 549425)]) (put 'set-member->pers-no 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'member->pers-no #[(member) "A\301H\207" [member 0] 2 (#$ . 549644)]) (put 'member->pers-no 'byte-optimizer 'byte-compile-inline-expand) #@141 Create a `membership-type' from arguments. Args: INVITATION PASSIVE SECRET RSV1 RSV2 RSV3 RSV4 RSV5 Automatically created with def-komtype. (defalias 'lyskom-create-membership-type #[(invitation passive secret rsv1 rsv2 rsv3 rsv4 rsv5) "\306\307 \n \f  &B\207" [invitation passive secret rsv1 rsv2 rsv3 MEMBERSHIP-TYPE vector rsv4 rsv5] 10 (#$ . 549839)]) (put 'lyskom-create-membership-type 'byte-optimizer 'byte-compile-inline-expand) #@115 Return `t' if MEMBERSHIP-TYPE is a membership-type. Args: MEMBERSHIP-TYPE Automatically created with def-komtype. (defalias 'lyskom-membership-type-p #[(membership-type) ":\205 @\301=\207" [membership-type MEMBERSHIP-TYPE] 2 (#$ . 550288)]) (put 'lyskom-membership-type-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-membership-type->rsv5 #[(membership-type rsv5) "A\302 I\207" [membership-type rsv5 7] 3 (#$ . 550614)]) (put 'set-membership-type->rsv5 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'membership-type->rsv5 #[(membership-type) "A\301H\207" [membership-type 7] 2 (#$ . 550857)]) (put 'membership-type->rsv5 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-membership-type->rsv4 #[(membership-type rsv4) "A\302 I\207" [membership-type rsv4 6] 3 (#$ . 551081)]) (put 'set-membership-type->rsv4 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'membership-type->rsv4 #[(membership-type) "A\301H\207" [membership-type 6] 2 (#$ . 551324)]) (put 'membership-type->rsv4 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-membership-type->rsv3 #[(membership-type rsv3) "A\302 I\207" [membership-type rsv3 5] 3 (#$ . 551548)]) (put 'set-membership-type->rsv3 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'membership-type->rsv3 #[(membership-type) "A\301H\207" [membership-type 5] 2 (#$ . 551791)]) (put 'membership-type->rsv3 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-membership-type->rsv2 #[(membership-type rsv2) "A\302 I\207" [membership-type rsv2 4] 3 (#$ . 552015)]) (put 'set-membership-type->rsv2 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'membership-type->rsv2 #[(membership-type) "A\301H\207" [membership-type 4] 2 (#$ . 552258)]) (put 'membership-type->rsv2 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-membership-type->rsv1 #[(membership-type rsv1) "A\302 I\207" [membership-type rsv1 3] 3 (#$ . 552482)]) (put 'set-membership-type->rsv1 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'membership-type->rsv1 #[(membership-type) "A\301H\207" [membership-type 3] 2 (#$ . 552725)]) (put 'membership-type->rsv1 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-membership-type->secret #[(membership-type secret) "A\302 I\207" [membership-type secret 2] 3 (#$ . 552949)]) (put 'set-membership-type->secret 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'membership-type->secret #[(membership-type) "A\301H\207" [membership-type 2] 2 (#$ . 553200)]) (put 'membership-type->secret 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-membership-type->passive #[(membership-type passive) "A\302 I\207" [membership-type passive 1] 3 (#$ . 553428)]) (put 'set-membership-type->passive 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'membership-type->passive #[(membership-type) "A\301H\207" [membership-type 1] 2 (#$ . 553683)]) (put 'membership-type->passive 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-membership-type->invitation #[(membership-type invitation) "A\302 I\207" [membership-type invitation 0] 3 (#$ . 553913)]) (put 'set-membership-type->invitation 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'membership-type->invitation #[(membership-type) "A\301H\207" [membership-type 0] 2 (#$ . 554180)]) (put 'membership-type->invitation 'byte-optimizer 'byte-compile-inline-expand) #@42 Create a membership from all parameters. (defalias 'lyskom-create-membership #[(position last-time-read conf-no priority last-text-read read-texts created-by created-at type) "\306\307 \n \f  \n& B\207" [last-time-read conf-no priority last-text-read read-texts created-by MEMBERSHIP vector created-at type position] 11 (#$ . 554416)]) (put 'lyskom-create-membership 'byte-optimizer 'byte-compile-inline-expand) #@37 Get last-time-read from membership. (defalias 'membership->last-time-read #[(membership) "A\301\234\207" [membership 0] 2 (#$ . 554839)]) (put 'membership->last-time-read 'byte-optimizer 'byte-compile-inline-expand) #@30 Get conf-no from membership. (defalias 'membership->conf-no #[(membership) "A\301\234\207" [membership 1] 2 (#$ . 555062)]) (put 'membership->conf-no 'byte-optimizer 'byte-compile-inline-expand) #@31 Get priority from membership. (defalias 'membership->priority #[(membership) "A\301\234\207" [membership 2] 2 (#$ . 555264)]) (put 'membership->priority 'byte-optimizer 'byte-compile-inline-expand) #@37 Get last-text-read from membership. (defalias 'membership->last-text-read #[(membership) "A\301\234\207" [membership 3] 2 (#$ . 555469)]) (put 'membership->last-text-read 'byte-optimizer 'byte-compile-inline-expand) #@33 Get read-texts from membership. (defalias 'membership->read-texts #[(membership) "A\301\234\207" [membership 4] 2 (#$ . 555692)]) (put 'membership->read-texts 'byte-optimizer 'byte-compile-inline-expand) #@32 Get created-by from membership (defalias 'membership->created-by #[(membership) "A\301\234\207" [membership 5] 2 (#$ . 555903)]) (put 'membership->created-by 'byte-optimizer 'byte-compile-inline-expand) #@32 Get created-by from membership (defalias 'membership->created-at #[(membership) "A\301\234\207" [membership 6] 2 (#$ . 556113)]) (put 'membership->created-at 'byte-optimizer 'byte-compile-inline-expand) #@26 Get type from membership (defalias 'membership->type #[(membership) "A\301\234\207" [membership 7] 2 (#$ . 556323)]) (put 'membership->type 'byte-optimizer 'byte-compile-inline-expand) #@40 Get position from membership, if known (defalias 'membership->position #[(membership) "A\301\234\207" [membership 8] 2 (#$ . 556515)]) (put 'membership->position 'byte-optimizer 'byte-compile-inline-expand) #@45 Set last-time-read in membership to NEWVAL. (defalias 'set-membership->last-time-read #[(membership newval) "A\302 I\207" [membership newval 0] 3 (#$ . 556729)]) (put 'set-membership->last-time-read 'byte-optimizer 'byte-compile-inline-expand) #@38 Set conf-no in membership to NEWVAL. (defalias 'set-membership->conf-no #[(membership newval) "A\302 I\207" [membership newval 1] 3 (#$ . 556980)]) (put 'set-membership->conf-no 'byte-optimizer 'byte-compile-inline-expand) #@39 Set priority in membership to NEWVAL. (defalias 'set-membership->priority #[(membership newval) "A\302 I\207" [membership newval 2] 3 (#$ . 557210)]) (put 'set-membership->priority 'byte-optimizer 'byte-compile-inline-expand) #@45 Set last-text-read in membership to NEWVAL. (defalias 'set-membership->last-text-read #[(membership newval) "A\302 I\207" [membership newval 3] 3 (#$ . 557443)]) (put 'set-membership->last-text-read 'byte-optimizer 'byte-compile-inline-expand) #@41 Set read-texts in membership to NEWVAL. (defalias 'set-membership->read-texts #[(membership newval) "A\302 I\207" [membership newval 4] 3 (#$ . 557694)]) (put 'set-membership->read-texts 'byte-optimizer 'byte-compile-inline-expand) #@41 Set created-by in membership to NEWVAL. (defalias 'set-membership->created-by #[(membership newval) "A\302 I\207" [membership newval 5] 3 (#$ . 557933)]) (put 'set-membership->created-by 'byte-optimizer 'byte-compile-inline-expand) #@35 Set type in membership to NEWVAL. (defalias 'set-membership->created-at #[(membership newval) "A\302 I\207" [membership newval 6] 3 (#$ . 558172)]) (put 'set-membership->created-at 'byte-optimizer 'byte-compile-inline-expand) #@35 Set type in membership to NEWVAL. (defalias 'set-membership->type #[(membership newval) "A\302 I\207" [membership newval 7] 3 (#$ . 558405)]) (put 'set-membership->type 'byte-optimizer 'byte-compile-inline-expand) #@39 Set position in membership to NEWVAL. (defalias 'set-membership->position #[(membership newval) "A\302 I\207" [membership newval 8] 3 (#$ . 558626)]) (put 'set-membership->position 'byte-optimizer 'byte-compile-inline-expand) #@37 Return t if OBJECT is a membership. (defalias 'lyskom-membership-p #[(object) "\242\301=\207" [object MEMBERSHIP] 2 (#$ . 558859)]) (put 'lyskom-membership-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lyskom-member-list-find-member #[(person members) "\205w\306\211A\306H)\211<\206 G\307\307\307 <\203J \203t @ \211A\306H)=\203C\306\307 \206A A\211\202$ \fW\203t H \211A\306H)=\203m\306\307 \206k T\211\202K-\207" [members __i__ member-list __sequence__ __len__ member 0 nil __result__ person] 4]) #@35 Create a map from all parameters. (defalias 'lyskom-create-map #[(first-local text-nos) "\302\303 \"B\207" [first-local text-nos MAP vector] 4 (#$ . 559425)]) (put 'lyskom-create-map 'byte-optimizer 'byte-compile-inline-expand) #@27 Get first-local from map. (defalias 'map->first-local #[(map) "A\301\234\207" [map 0] 2 (#$ . 559660)]) (put 'map->first-local 'byte-optimizer 'byte-compile-inline-expand) #@24 Get text-nos from map. (defalias 'map->text-nos #[(map) "A\301\234\207" [map 1] 2 (#$ . 559839)]) (put 'map->text-nos 'byte-optimizer 'byte-compile-inline-expand) #@35 Set first-local in map to NEWVAL. (defalias 'set-map->first-local #[(map newval) "A\302 I\207" [map newval 0] 3 (#$ . 560009)]) (put 'set-map->first-local 'byte-optimizer 'byte-compile-inline-expand) #@32 Set text-nos in map to NEWVAL. (defalias 'set-map->text-nos #[(map newval) "A\302 I\207" [map newval 1] 3 (#$ . 560216)]) (put 'set-map->text-nos 'byte-optimizer 'byte-compile-inline-expand) #@30 Return t if OBJECT is a map. (defalias 'lyskom-map-p #[(object) "\242\301=\207" [object MAP] 2 (#$ . 560414)]) (put 'lyskom-map-p 'byte-optimizer '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) "\204\306\307\310\311\n \"*B\207@\211A\312\234)\211@\211A\306\234)G\\@\211A\306\234)CA\211\203j@\211A\312\234) U\204I\313\314\315\"\210@\211A\306\234)C\244 @\211A\306\234)G\\A\211\2047\f\316\317\"\310\311\n \".B\207" [maps text-nos first-local map first high 1 [] MAP vector 0 signal lyskom-internal-error ("lyskom-map-concat") apply vconcat maplist] 5 (#$ . 560597)]) (put 'lyskom-map-concat 'byte-optimizer 'byte-compile-inline-expand) #@93 Create a `sparse-map' from arguments. Args: MAPPING Automatically created with def-komtype. (defalias 'lyskom-create-sparse-map #[(mapping) "\301\302!B\207" [mapping SPARSE-MAP vector] 3 (#$ . 561289)]) (put 'lyskom-create-sparse-map 'byte-optimizer 'byte-compile-inline-expand) #@100 Return `t' if SPARSE-MAP is a sparse-map. Args: SPARSE-MAP Automatically created with def-komtype. (defalias 'lyskom-sparse-map-p #[(sparse-map) ":\205 @\301=\207" [sparse-map SPARSE-MAP] 2 (#$ . 561576)]) (put 'lyskom-sparse-map-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-sparse-map->mapping #[(sparse-map mapping) "A\302 I\207" [sparse-map mapping 0] 3 (#$ . 561862)]) (put 'set-sparse-map->mapping 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'sparse-map->mapping #[(sparse-map) "A\301H\207" [sparse-map 0] 2 (#$ . 562097)]) (put 'sparse-map->mapping 'byte-optimizer 'byte-compile-inline-expand) #@110 Create a `text-mapping' from arguments. Args: HAVE-MORE TYPE MAPPING Automatically created with def-komtype. (defalias 'lyskom-create-text-mapping #[(have-more type mapping) "\303\304 \n#B\207" [have-more type mapping TEXT-MAPPING vector] 5 (#$ . 562308)]) (put 'lyskom-create-text-mapping 'byte-optimizer 'byte-compile-inline-expand) #@106 Return `t' if TEXT-MAPPING is a text-mapping. Args: TEXT-MAPPING Automatically created with def-komtype. (defalias 'lyskom-text-mapping-p #[(text-mapping) ":\205 @\301=\207" [text-mapping TEXT-MAPPING] 2 (#$ . 562651)]) (put 'lyskom-text-mapping-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-text-mapping->mapping #[(text-mapping mapping) "A\302 I\207" [text-mapping mapping 2] 3 (#$ . 562953)]) (put 'set-text-mapping->mapping 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'text-mapping->mapping #[(text-mapping) "A\301H\207" [text-mapping 2] 2 (#$ . 563196)]) (put 'text-mapping->mapping 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-text-mapping->type #[(text-mapping type) "A\302 I\207" [text-mapping type 1] 3 (#$ . 563414)]) (put 'set-text-mapping->type 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'text-mapping->type #[(text-mapping) "A\301H\207" [text-mapping 1] 2 (#$ . 563645)]) (put 'text-mapping->type 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-text-mapping->have-more #[(text-mapping have-more) "A\302 I\207" [text-mapping have-more 0] 3 (#$ . 563857)]) (put 'set-text-mapping->have-more 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'text-mapping->have-more #[(text-mapping) "A\301H\207" [text-mapping 0] 2 (#$ . 564108)]) (put 'text-mapping->have-more 'byte-optimizer 'byte-compile-inline-expand) #@36 Create a mark from all parameters. (defalias 'lyskom-create-mark #[(text-no mark-type) "\302\303 \"B\207" [text-no mark-type MARK vector] 4 (#$ . 564330)]) (put 'lyskom-create-mark 'byte-optimizer 'byte-compile-inline-expand) #@24 Get text-no from mark. (defalias 'mark->text-no #[(mark) "A\301\234\207" [mark 0] 2 (#$ . 564563)]) (put 'mark->text-no 'byte-optimizer 'byte-compile-inline-expand) #@26 Get mark-type from mark. (defalias 'mark->mark-type #[(mark) "A\301\234\207" [mark 1] 2 (#$ . 564735)]) (put 'mark->mark-type 'byte-optimizer 'byte-compile-inline-expand) #@32 Set text-no in mark to NEWVAL. (defalias 'set-mark->text-no #[(mark newval) "A\302 I\207" [mark newval 0] 3 (#$ . 564913)]) (put 'set-mark->text-no 'byte-optimizer 'byte-compile-inline-expand) #@34 Set mark-type in mark to NEWVAL. (defalias 'set-mark->mark-type #[(mark newval) "A\302 I\207" [mark newval 1] 3 (#$ . 565113)]) (put 'set-mark->mark-type 'byte-optimizer 'byte-compile-inline-expand) #@31 Return t if OBJECT is a mark. (defalias 'lyskom-mark-p #[(object) "\242\301=\207" [object MARK] 2 (#$ . 565319)]) (put 'lyskom-mark-p 'byte-optimizer '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 &optional hostname ident-user) "\306\307 \n \f &B\207" [pers-no working-conf connection doing-what username hostname WHO-INFO vector ident-user] 9 (#$ . 565505)]) (put 'lyskom-create-who-info 'byte-optimizer 'byte-compile-inline-expand) #@28 Get pers-no from who-info. (defalias 'who-info->pers-no #[(who-info) "A\301\234\207" [who-info 0] 2 (#$ . 565880)]) (put 'who-info->pers-no 'byte-optimizer 'byte-compile-inline-expand) #@33 Get working-conf from who-info. (defalias 'who-info->working-conf #[(who-info) "A\301\234\207" [who-info 1] 2 (#$ . 566072)]) (put 'who-info->working-conf 'byte-optimizer 'byte-compile-inline-expand) #@31 Get connection from who-info. (defalias 'who-info->connection #[(who-info) "A\301\234\207" [who-info 2] 2 (#$ . 566279)]) (put 'who-info->connection 'byte-optimizer 'byte-compile-inline-expand) #@31 Get doing-what from who-info. (defalias 'who-info->doing-what #[(who-info) "A\301\234\207" [who-info 3] 2 (#$ . 566480)]) (put 'who-info->doing-what 'byte-optimizer 'byte-compile-inline-expand) #@29 Get username from who-info. (defalias 'who-info->username #[(who-info) "A\301\234\207" [who-info 4] 2 (#$ . 566681)]) (put 'who-info->username 'byte-optimizer 'byte-compile-inline-expand) #@29 Get hostname from who-info. (defalias 'who-info->hostname #[(who-info) "A\301\234\207" [who-info 5] 2 (#$ . 566876)]) (put 'who-info->hostname 'byte-optimizer 'byte-compile-inline-expand) #@31 Get ident-user from who-info. (defalias 'who-info->ident-user #[(who-info) "A\301\234\207" [who-info 6] 2 (#$ . 567071)]) (put 'who-info->ident-user 'byte-optimizer 'byte-compile-inline-expand) #@36 Set pers-no in who-info to NEWVAL. (defalias 'set-who-info->pers-no #[(who-info newval) "A\302 I\207" [who-info newval 0] 3 (#$ . 567272)]) (put 'set-who-info->pers-no 'byte-optimizer 'byte-compile-inline-expand) #@41 Set working-conf in who-info to NEWVAL. (defalias 'set-who-info->working-conf #[(who-info newval) "A\302 I\207" [who-info newval 1] 3 (#$ . 567492)]) (put 'set-who-info->working-conf 'byte-optimizer 'byte-compile-inline-expand) #@39 Set connection in who-info to NEWVAL. (defalias 'set-who-info->connection #[(who-info newval) "A\302 I\207" [who-info newval 2] 3 (#$ . 567727)]) (put 'set-who-info->connection 'byte-optimizer 'byte-compile-inline-expand) #@39 Set doing-what in who-info to NEWVAL. (defalias 'set-who-info->doing-what #[(who-info newval) "A\302 I\207" [who-info newval 3] 3 (#$ . 567956)]) (put 'set-who-info->doing-what 'byte-optimizer 'byte-compile-inline-expand) #@37 Set username in who-info to NEWVAL. (defalias 'set-who-info->username #[(who-info newval) "A\302 I\207" [who-info newval 4] 3 (#$ . 568185)]) (put 'set-who-info->username 'byte-optimizer 'byte-compile-inline-expand) #@37 Set hostname in who-info to NEWVAL. (defalias 'set-who-info->hostname #[(who-info newval) "A\302 I\207" [who-info newval 5] 3 (#$ . 568408)]) (put 'set-who-info->hostname 'byte-optimizer 'byte-compile-inline-expand) #@39 Set ident-user in who-info to NEWVAL. (defalias 'set-who-info->ident-user #[(who-info newval) "A\302 I\207" [who-info newval 6] 3 (#$ . 568631)]) (put 'set-who-info->ident-user 'byte-optimizer 'byte-compile-inline-expand) #@35 Return t if OBJECT is a who-info. (defalias 'lyskom-who-info-p #[(object) "\242\301=\207" [object WHO-INFO] 2 (#$ . 568860)]) (put 'lyskom-who-info-p 'byte-optimizer 'byte-compile-inline-expand) #@44 Create a session-info from all parameters. (defalias 'lyskom-create-session-info #[(pers-no working-conf connection doing username hostname ident-user idletime connect-time) "\306\307 \n \f  \n& B\207" [pers-no working-conf connection doing username idletime SESSION-INFO vector connect-time hostname ident-user] 11 (#$ . 569062)]) (put 'lyskom-create-session-info 'byte-optimizer 'byte-compile-inline-expand) #@32 Get pers-no from session-info. (defalias 'session-info->pers-no #[(session-info) "A\301\234\207" [session-info 0] 2 (#$ . 569483)]) (put 'session-info->pers-no 'byte-optimizer 'byte-compile-inline-expand) #@37 Get working-conf from session-info. (defalias 'session-info->working-conf #[(session-info) "A\301\234\207" [session-info 1] 2 (#$ . 569695)]) (put 'session-info->working-conf 'byte-optimizer 'byte-compile-inline-expand) #@35 Get connection from session-info. (defalias 'session-info->connection #[(session-info) "A\301\234\207" [session-info 2] 2 (#$ . 569922)]) (put 'session-info->connection 'byte-optimizer 'byte-compile-inline-expand) #@30 Get doing from session-info. (defalias 'session-info->doing #[(session-info) "A\301\234\207" [session-info 3] 2 (#$ . 570143)]) (put 'session-info->doing 'byte-optimizer 'byte-compile-inline-expand) #@33 Get username from session-info. (defalias 'session-info->username #[(session-info) "A\301\234\207" [session-info 4] 2 (#$ . 570349)]) (put 'session-info->username 'byte-optimizer 'byte-compile-inline-expand) #@33 Get idletime from session-info. (defalias 'session-info->idletime #[(session-info) "A\301\234\207" [session-info 5] 2 (#$ . 570564)]) (put 'session-info->idletime 'byte-optimizer 'byte-compile-inline-expand) #@37 Get connect-time from session-info. (defalias 'session-info->connect-time #[(session-info) "A\301\234\207" [session-info 6] 2 (#$ . 570779)]) (put 'session-info->connect-time 'byte-optimizer 'byte-compile-inline-expand) #@33 Get hostname from session-info. (defalias 'session-info->hostname #[(session-info) "A\301\234\207" [session-info 7] 2 (#$ . 571006)]) (put 'session-info->hostname 'byte-optimizer 'byte-compile-inline-expand) #@37 Get connect-time from session-info. (defalias 'session-info->ident-user #[(session-info) "A\301\234\207" [session-info 8] 2 (#$ . 571221)]) (put 'session-info->ident-user 'byte-optimizer 'byte-compile-inline-expand) #@40 Set pers-no in session-info to NEWVAL. (defalias 'set-session-info->pers-no #[(session-info newval) "A\302 I\207" [session-info newval 0] 3 (#$ . 571444)]) (put 'set-session-info->pers-no 'byte-optimizer 'byte-compile-inline-expand) #@45 Set working-conf in session-info to NEWVAL. (defalias 'set-session-info->working-conf #[(session-info newval) "A\302 I\207" [session-info newval 1] 3 (#$ . 571684)]) (put 'set-session-info->working-conf 'byte-optimizer 'byte-compile-inline-expand) #@43 Set connection in session-info to NEWVAL. (defalias 'set-session-info->connection #[(session-info newval) "A\302 I\207" [session-info newval 2] 3 (#$ . 571939)]) (put 'set-session-info->connection 'byte-optimizer 'byte-compile-inline-expand) #@38 Set doing in session-info to NEWVAL. (defalias 'set-session-info->doing #[(session-info newval) "A\302 I\207" [session-info newval 3] 3 (#$ . 572188)]) (put 'set-session-info->doing 'byte-optimizer 'byte-compile-inline-expand) #@41 Set username in session-info to NEWVAL. (defalias 'set-session-info->username #[(session-info newval) "A\302 I\207" [session-info newval 4] 3 (#$ . 572422)]) (put 'set-session-info->username 'byte-optimizer 'byte-compile-inline-expand) #@41 Set idletime in session-info to NEWVAL. (defalias 'set-session-info->idletime #[(session-info newval) "A\302 I\207" [session-info newval 5] 3 (#$ . 572665)]) (put 'set-session-info->idletime 'byte-optimizer 'byte-compile-inline-expand) #@45 Set connect-time in session-info to NEWVAL. (defalias 'set-session-info->connect-time #[(session-info newval) "A\302 I\207" [session-info newval 6] 3 (#$ . 572908)]) (put 'set-session-info->connect-time 'byte-optimizer 'byte-compile-inline-expand) #@41 Set hostname in session-info to NEWVAL. (defalias 'set-session-info->hostname #[(session-info newval) "A\302 I\207" [session-info newval 7] 3 (#$ . 573163)]) (put 'set-session-info->hostname 'byte-optimizer 'byte-compile-inline-expand) #@43 Set ident-user in session-info to NEWVAL. (defalias 'set-session-info->ident-user #[(session-info newval) "A\302 I\207" [session-info newval 8] 3 (#$ . 573406)]) (put 'set-session-info->ident-user 'byte-optimizer 'byte-compile-inline-expand) #@39 Return t if OBJECT is a session-info. (defalias 'lyskom-session-info-p #[(object) "\242\301=\207" [object SESSION-INFO] 2 (#$ . 573655)]) (put 'lyskom-session-info-p 'byte-optimizer '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 forbid-secret rsv2 rsv3) "\306 \n \f \257 \207" [rd_prot original secret letterbox anarchy forbid-secret CONF-TYPE rsv2 rsv3] 9 (#$ . 573873)]) (put 'lyskom-create-conf-type 'byte-optimizer 'byte-compile-inline-expand) #@29 Get rd_prot from conf-type. (defalias 'conf-type->rd_prot #[(conf-type) "A\301\234\207" [conf-type 0] 2 (#$ . 574261)]) (put 'conf-type->rd_prot 'byte-optimizer 'byte-compile-inline-expand) #@30 Get original from conf-type. (defalias 'conf-type->original #[(conf-type) "A\301\234\207" [conf-type 1] 2 (#$ . 574458)]) (put 'conf-type->original 'byte-optimizer 'byte-compile-inline-expand) #@28 Get secret from conf-type. (defalias 'conf-type->secret #[(conf-type) "A\301\234\207" [conf-type 2] 2 (#$ . 574658)]) (put 'conf-type->secret 'byte-optimizer 'byte-compile-inline-expand) #@31 Get letterbox from conf-type. (defalias 'conf-type->letterbox #[(conf-type) "A\301\234\207" [conf-type 3] 2 (#$ . 574852)]) (put 'conf-type->letterbox 'byte-optimizer 'byte-compile-inline-expand) #@29 Get anarchy from conf-type. (defalias 'conf-type->anarchy #[(conf-type) "A\301\234\207" [conf-type 4] 2 (#$ . 575055)]) (put 'conf-type->anarchy 'byte-optimizer 'byte-compile-inline-expand) #@34 Get reserved bit from conf-type. (defalias 'conf-type->forbid-secret #[(conf-type) "A\301\234\207" [conf-type 5] 2 (#$ . 575252)]) (put 'conf-type->forbid-secret 'byte-optimizer 'byte-compile-inline-expand) #@34 Get reserved bit from conf-type. (defalias 'conf-type->rsv2 #[(conf-type) "A\301\234\207" [conf-type 5] 2 (#$ . 575466)]) (put 'conf-type->rsv2 'byte-optimizer 'byte-compile-inline-expand) #@34 Get reserved bit from conf-type. (defalias 'conf-type->rsv3 #[(conf-type) "A\301\234\207" [conf-type 5] 2 (#$ . 575662)]) (put 'conf-type->rsv3 'byte-optimizer 'byte-compile-inline-expand) #@41 Create a text-list from all parameters. (defalias 'lyskom-create-text-list #[(texts) "\301B\207" [texts TEXT-LIST] 2 (#$ . 575858)]) (put 'lyskom-create-text-list 'byte-optimizer 'byte-compile-inline-expand) #@27 Get texts from text-list. (defalias 'text-list->texts #[(text-list) "A\207" [text-list] 1 (#$ . 576073)]) (put 'text-list->texts 'byte-optimizer 'byte-compile-inline-expand) #@33 Return t if TEXT-LIST is empty. (defalias 'text-list->empty #[(text-list) "A?\207" [text-list] 1 (#$ . 576254)]) (put 'text-list->empty 'byte-optimizer 'byte-compile-inline-expand) #@33 Return the length of TEXT-LIST. (defalias 'text-list->length #[(text-list) "AG\207" [text-list] 1 (#$ . 576442)]) (put 'text-list->length 'byte-optimizer 'byte-compile-inline-expand) #@35 Set texts in TEXT-LIST to NEWVAL. (defalias 'set-text-list->texts #[(text-list newval) " \241\207" [text-list newval] 2 (#$ . 576632)]) (put 'set-text-list->texts 'byte-optimizer 'byte-compile-inline-expand) #@32 Remove text NO from TEXT-LIST. (defalias 'text-list->delq #[(text-list no) "\302 A\"\241\207" [text-list no delq] 4 (#$ . 576847)]) (put 'text-list->delq 'byte-optimizer 'byte-compile-inline-expand) #@53 Destructively append TEXTS to the end of TEXT-LIST. (defalias 'text-list->append #[(text-list texts) "\211A \244\241\207" [text-list texts] 3 (#$ . 577054)]) (put 'text-list->append 'byte-optimizer 'byte-compile-inline-expand) #@36 Return t if OBJECT is a text-list. (defalias 'lyskom-text-list-p #[(object) "\242\301=\207" [object TEXT-LIST] 2 (#$ . 577288)]) (put 'lyskom-text-list-p 'byte-optimizer 'byte-compile-inline-expand) #@44 Create a version-info from all parameters. (defalias 'lyskom-create-version-info #[(protocol-version server-software software-version) "\303\304 \n#B\207" [protocol-version server-software software-version VERSION-INFO vector] 5 (#$ . 577494)]) (put 'lyskom-create-version-info 'byte-optimizer 'byte-compile-inline-expand) #@41 Get protocol version from version-info. (defalias 'version-info->protocol-version #[(version-info) "A\301\234\207" [version-info 0] 2 (#$ . 577824)]) (put 'version-info->protocol-version 'byte-optimizer 'byte-compile-inline-expand) #@45 Get server software name from version-info. (defalias 'version-info->server-software #[(version-info) "A\301\234\207" [version-info 1] 2 (#$ . 578063)]) (put 'version-info->server-software 'byte-optimizer 'byte-compile-inline-expand) #@48 Get server software version from version-info. (defalias 'version-info->software-version #[(version-info) "A\301\234\207" [version-info 2] 2 (#$ . 578304)]) (put 'version-info->software-version 'byte-optimizer '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 &optional aux-items) "\306\307 \n \f &B\207" [version conf-pres-conf pers-pres-conf motd-conf kom-news-conf motd-of-lyskom SERVER-INFO vector aux-items] 9 (#$ . 578550)]) (put 'lyskom-create-server-info 'byte-optimizer 'byte-compile-inline-expand) #@31 Get version from server-info. (defalias 'server-info->version #[(server-info) "A\301\234\207" [server-info 0] 2 (#$ . 578967)]) (put 'server-info->version 'byte-optimizer 'byte-compile-inline-expand) #@38 Get conf-pres-conf from server-info. (defalias 'server-info->conf-pres-conf #[(server-info) "A\301\234\207" [server-info 1] 2 (#$ . 579174)]) (put 'server-info->conf-pres-conf 'byte-optimizer 'byte-compile-inline-expand) #@38 Get pers-pres-conf from server-info. (defalias 'server-info->pers-pres-conf #[(server-info) "A\301\234\207" [server-info 2] 2 (#$ . 579402)]) (put 'server-info->pers-pres-conf 'byte-optimizer 'byte-compile-inline-expand) #@33 Get motd-conf from server-info. (defalias 'server-info->motd-conf #[(server-info) "A\301\234\207" [server-info 3] 2 (#$ . 579630)]) (put 'server-info->motd-conf 'byte-optimizer 'byte-compile-inline-expand) #@37 Get kom-news-conf from server-info. (defalias 'server-info->kom-news-conf #[(server-info) "A\301\234\207" [server-info 4] 2 (#$ . 579843)]) (put 'server-info->kom-news-conf 'byte-optimizer 'byte-compile-inline-expand) #@38 Get motd-of-lyskom from server-info. (defalias 'server-info->motd-of-lyskom #[(server-info) "A\301\234\207" [server-info 5] 2 (#$ . 580068)]) (put 'server-info->motd-of-lyskom 'byte-optimizer 'byte-compile-inline-expand) #@38 Get motd-of-lyskom from server-info. (defalias 'server-info->aux-item-list #[(server-info) "A\301\234\207" [server-info 6] 2 (#$ . 580296)]) (put 'server-info->aux-item-list 'byte-optimizer 'byte-compile-inline-expand) #@39 Set version in server-info to NEWVAL. (defalias 'set-server-info->version #[(server-info newval) "A\302 I\207" [server-info newval 0] 3 (#$ . 580522)]) (put 'set-server-info->version 'byte-optimizer '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\302 I\207" [server-info newval 1] 3 (#$ . 580757)]) (put 'set-server-info->conf-pres-conf 'byte-optimizer '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\302 I\207" [server-info newval 2] 3 (#$ . 581013)]) (put 'set-server-info->pers-pres-conf 'byte-optimizer 'byte-compile-inline-expand) #@41 Set motd-conf in server-info to NEWVAL. (defalias 'set-server-info->motd-conf #[(server-info newval) "A\302 I\207" [server-info newval 3] 3 (#$ . 581269)]) (put 'set-server-info->motd-conf 'byte-optimizer '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\302 I\207" [server-info newval 4] 3 (#$ . 581510)]) (put 'set-server-info->kom-news-conf 'byte-optimizer '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\302 I\207" [server-info newval 5] 3 (#$ . 581763)]) (put 'set-server-info->motd-of-lyskom 'byte-optimizer 'byte-compile-inline-expand) #@46 Set motd-of-lyskom in server-info to NEWVAL. (defalias 'set-server-info->aux-item-list #[(server-info newval) "A\302 I\207" [server-info newval 6] 3 (#$ . 582019)]) (put 'set-server-info->aux-item-list 'byte-optimizer 'byte-compile-inline-expand) #@38 Return t if OBJECT is a server-info. (defalias 'lyskom-server-info-p #[(object) "\242\301=\207" [object SERVER-INFO] 2 (#$ . 582273)]) (put 'lyskom-server-info-p 'byte-optimizer 'byte-compile-inline-expand) #@48 Create a conf-z-info-list from all parameters. (defalias 'lyskom-create-conf-z-info-list #[(conf-z-infos) "\301\302!B\207" [conf-z-infos CONF-Z-INFO-LIST vector] 3 (#$ . 582487)]) #@41 Get conf-z-infos from conf-z-info-list. (defalias 'conf-z-info-list->conf-z-infos #[(conf-z-info-list) "A\301\234\207" [conf-z-info-list 0] 2 (#$ . 582674)]) #@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\302 I\207" [conf-z-info-list newval 0] 3 (#$ . 582839)]) #@43 Return t if OBJECT is a conf-z-info-list. (defalias 'lyskom-conf-z-info-list-p #[(object) "\242\301=\207" [object CONF-Z-INFO-LIST] 2 (#$ . 583028)]) #@43 Create a conf-z-info from all parameters. (defalias 'lyskom-create-conf-z-info #[(name conf-type conf-no) "\303\304 \n#B\207" [name conf-type conf-no CONF-Z-INFO vector] 5 (#$ . 583185)]) #@28 Get name from conf-z-info. (defalias 'conf-z-info->name #[(conf-z-info) "A\301\234\207" [conf-z-info 0] 2 (#$ . 583380)]) #@33 Get conf-type from conf-z-info. (defalias 'conf-z-info->conf-type #[(conf-z-info) "A\301\234\207" [conf-z-info 1] 2 (#$ . 583509)]) #@31 Get conf-no from conf-z-info. (defalias 'conf-z-info->conf-no #[(conf-z-info) "A\301\234\207" [conf-z-info 2] 2 (#$ . 583648)]) #@36 Set name in conf-z-info to NEWVAL. (defalias 'set-conf-z-info->name #[(conf-z-info newval) "A\302 I\207" [conf-z-info newval 0] 3 (#$ . 583783)]) #@41 Set conf-type in conf-z-info to NEWVAL. (defalias 'set-conf-z-info->conf-type #[(conf-z-info newval) "A\302 I\207" [conf-z-info newval 1] 3 (#$ . 583936)]) #@39 Set conf-no in conf-z-info to NEWVAL. (defalias 'set-conf-z-info->conf-no #[(conf-z-info newval) "A\302 I\207" [conf-z-info newval 2] 3 (#$ . 584099)]) #@38 Return t if OBJECT is a conf-z-info. (defalias 'lyskom-conf-z-info-p #[(object) "\242\301=\207" [object CONF-Z-INFO] 2 (#$ . 584258)]) (defalias 'conf-stat->comm-conf #[(conf-stat) "\211A\302\234)\211A\303\234)\203$\211A\304\234)\305U\204$\211A\304\234)\207\211A\305\234)\207" [conf-stat conf-type 2 1 9 0] 3]) (put 'conf-stat->comm-conf 'byte-optimizer 'byte-compile-inline-expand) #@158 Return a list containing the aux items in TEXT-STAT with tag TAG. If PERSON is non-nil return only those items created by person. Args: TEXT-STAT TAG PERSON (defalias 'text-stat-find-aux #[(text-stat tag &optional person) "\306\211A\307\234) \203K @\211A\310H)=\203D @\211A\311H)\211A\312H)\204D\f\203?\f @\211A\313H)=\203D @\nB A\211\204\n\237*\207" [text-stat items result tag aux-item aux-item-flags nil 7 1 4 0 2 person] 4 (#$ . 584660)]) #@158 Return a list containing the aux items in CONF-STAT with tag TAG. If PERSON is non-nil return only those items created by person. Args: CONF-STAT TAG PERSON (defalias 'conf-stat-find-aux #[(conf-stat tag &optional person) "\306\211A\307\234) \203K @\211A\310H)=\203D @\211A\311H)\211A\312H)\204D\f\203?\f @\211A\313H)=\203D @\nB A\211\204\n\237*\207" [conf-stat items result tag aux-item aux-item-flags nil 16 1 4 0 2 person] 4 (#$ . 585130)]) #@57 Return non-nil if TEXT-STAT has CONF-NO as a recipient. (defalias 'lyskom-is-recipient #[(text-stat conf-no) "\306\307\n\211A\310\234)\211<\206 G\306\306 \306 <\203M \203| @\211\211\fA\307\234) >\203F \211\fA\311\234)=\203F\312 A\211\202\" \fW\203| H\211\211\fA\307\234) >\203u \211\fA\311\234)=\203u\312 T\211\202N-)\207" [result __i__ text-stat __sequence__ __len__ misc nil 0 6 1 t __result__ misc-info lyskom-recpt-types-list conf-no] 3 (#$ . 585600)]) (byte-code "\301\302!\210\303P\301\207" [lyskom-clientversion-long provide lyskom-types "$Id: clienttypes.el,v 44.12 2001/01/03 22:02:46 qha Exp $\n"] 2) #@41 Create a read-info from all parameters. (defalias 'lyskom-create-read-info #[(type conf-stat priority text-list &optional comm-to forward misc) "\306\307 \n \f \310 &B\207" [type conf-stat priority text-list comm-to forward READ-INFO vector nil misc] 10 (#$ . 586257)]) (put 'lyskom-create-read-info 'byte-optimizer 'byte-compile-inline-expand) #@26 Get type from read-info. (defalias 'read-info->type #[(read-info) "A\301\234\207" [read-info 0] 2 (#$ . 586611)]) (put 'read-info->type 'byte-optimizer 'byte-compile-inline-expand) #@31 Get conf-stat from read-info. (defalias 'read-info->conf-stat #[(read-info) "A\301\234\207" [read-info 1] 2 (#$ . 586799)]) (put 'read-info->conf-stat 'byte-optimizer 'byte-compile-inline-expand) #@30 Get priority from read-info. (defalias 'read-info->priority #[(read-info) "A\301\234\207" [read-info 2] 2 (#$ . 587002)]) (put 'read-info->priority 'byte-optimizer 'byte-compile-inline-expand) #@31 Get text-list from read-info. (defalias 'read-info->text-list #[(read-info) "A\301\234\207" [read-info 3] 2 (#$ . 587202)]) (put 'read-info->text-list 'byte-optimizer 'byte-compile-inline-expand) #@29 Get comm-to from read-info. (defalias 'read-info->comm-to #[(read-info) "A\301\234\207" [read-info 4] 2 (#$ . 587405)]) (put 'read-info->comm-to 'byte-optimizer 'byte-compile-inline-expand) #@29 Get forward from read-info. (defalias 'read-info->forward #[(read-info) "A\301\234\207" [read-info 5] 2 (#$ . 587602)]) (put 'read-info->forward 'byte-optimizer 'byte-compile-inline-expand) #@29 Get forward from read-info. (defalias 'read-info->unfetched-texts #[(read-info) "A\301\234\207" [read-info 6] 2 (#$ . 587799)]) (put 'read-info->unfetched-texts 'byte-optimizer 'byte-compile-inline-expand) #@29 Get forward from read-info. (defalias 'read-info->misc #[(read-info) "A\301\234\207" [read-info 7] 2 (#$ . 588012)]) (put 'read-info->misc 'byte-optimizer 'byte-compile-inline-expand) #@34 Set type in read-info to NEWVAL. (defalias 'set-read-info->type #[(read-info newval) "A\302 I\207" [read-info newval 0] 3 (#$ . 588203)]) (put 'set-read-info->type 'byte-optimizer 'byte-compile-inline-expand) #@39 Set conf-stat in read-info to NEWVAL. (defalias 'set-read-info->conf-stat #[(read-info newval) "A\302 I\207" [read-info newval 1] 3 (#$ . 588419)]) (put 'set-read-info->conf-stat 'byte-optimizer 'byte-compile-inline-expand) #@38 Set priority in read-info to NEWVAL. (defalias 'set-read-info->priority #[(read-info newval) "A\302 I\207" [read-info newval 2] 3 (#$ . 588650)]) (put 'set-read-info->priority 'byte-optimizer 'byte-compile-inline-expand) #@39 Set text-list in read-info to NEWVAL. (defalias 'set-read-info->text-list #[(read-info newval) "A\302 I\207" [read-info newval 3] 3 (#$ . 588878)]) (put 'set-read-info->text-list 'byte-optimizer 'byte-compile-inline-expand) #@37 Set comm-to in read-info to NEWVAL. (defalias 'set-read-info->comm-to #[(read-info newval) "A\302 I\207" [read-info newval 4] 3 (#$ . 589109)]) (put 'set-read-info->comm-to 'byte-optimizer 'byte-compile-inline-expand) #@37 Set forward in read-info to NEWVAL. (defalias 'set-read-info->forward #[(read-info newval) "A\302 I\207" [read-info newval 5] 3 (#$ . 589334)]) (put 'set-read-info->forward 'byte-optimizer 'byte-compile-inline-expand) #@37 Set forward in read-info to NEWVAL. (defalias 'set-read-info->unfetched-texts #[(read-info newval) "A\302 I\207" [read-info newval 6] 3 (#$ . 589559)]) (put 'set-read-info->unfetched-texts 'byte-optimizer 'byte-compile-inline-expand) #@37 Set forward in read-info to NEWVAL. (defalias 'set-read-info->misc #[(read-info newval) "A\302 I\207" [read-info newval 7] 3 (#$ . 589800)]) (put 'set-read-info->misc 'byte-optimizer 'byte-compile-inline-expand) #@36 Return t if OBJECT is a read-info. (defalias 'lyskom-read-info-p #[(object) "\242\301=\207" [object READ-INFO] 2 (#$ . 590019)]) (put 'lyskom-read-info-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'read-info-append-text-list #[(read-info texts) "\211A\303\234) \211\211A \244\241*\207" [read-info texts text-list 3] 4]) (put 'read-info-append-text-list 'byte-optimizer 'byte-compile-inline-expand) (defalias 'read-info-enter-text-last #[(read-info text-no) " C\211\211A\304\234)\n\211\211A\n\244\241,\207" [read-info text-no texts text-list 3] 5]) (put 'read-info-enter-text-last 'byte-optimizer 'byte-compile-inline-expand) #@28 Create an empty read-list. (defalias 'lyskom-create-read-list #[nil "\300\301B\207" [READ-LIST nil] 2 (#$ . 590673)]) (put 'lyskom-create-read-list 'byte-optimizer 'byte-compile-inline-expand) #@55 Return t if READ-LIST is empty, otherwise return nil. (defalias 'read-list-isempty #[(read-list) "A?\207" [read-list] 1 (#$ . 590872)]) (put 'read-list-isempty 'byte-optimizer 'byte-compile-inline-expand) #@55 Return the first entry in READ-LIST, or nil if empty. (defalias 'read-list->first #[(read-list) "A\242\207" [read-list] 1 (#$ . 591084)]) (put 'read-list->first 'byte-optimizer '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 \234\207" [read-list n] 2 (#$ . 591298)]) (put 'read-list->nth 'byte-optimizer 'byte-compile-inline-expand) #@44 Return a list of all entries in READ-LIST. (defalias 'read-list->all-entries #[(read-list) "A\207" [read-list] 1 (#$ . 591592)]) (put 'read-list->all-entries 'byte-optimizer 'byte-compile-inline-expand) #@44 Return the number of entries in READ-LIST. (defalias 'read-list-length #[(read-list) "GS\207" [read-list] 1 (#$ . 591802)]) (put 'read-list-length 'byte-optimizer 'byte-compile-inline-expand) #@32 Empty READ-LIST destructively. (defalias 'set-read-list-empty #[(read-list) "\301\241\207" [read-list nil] 2 (#$ . 592001)]) (put 'set-read-list-empty 'byte-optimizer '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\205\n\211AA\241\207" [read-list] 2 (#$ . 592204)]) (put 'set-read-list-del-first 'byte-optimizer 'byte-compile-inline-expand) #@39 Enter READ-INFO first into READ-LIST. (defalias 'read-list-enter-first #[(read-info read-list) " AB\241\207" [read-list read-info] 3 (#$ . 592444)]) (put 'read-list-enter-first 'byte-optimizer '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) "\306\307\nA\211<\206 G\306\306\f\306\f <\203w \203\325 @\211\211A\307\234)\310=\203p \211A\307\234) \211A\311\234)\211A\307\234)U\203p \211C\211\211A\312\234)\211\211A\244\241,\210*\313 A\211\202 \fW\203\325 H\211\211A\307\234)\310=\203\316 \211A\307\234) \211A\311\234)\211A\307\234)U\203\316 \211C\211\211A\312\234)\211\211A\244\241,\210*\313 T\211\202x-)\207" [inserted __i__ rlist __sequence__ __len__ read-info nil 0 CONF 1 3 t __result__ recipient conf-stat text-no texts text-list] 6 (#$ . 592675)]) #@325 Destructively delete all occurances of TEXT-NO from RLIST. RLIST is a list of read-info. Entries of the type REVIEW, REVIEW-TREE or REVIEW-MARK are not changed except if they were empty in which case they are removed. Returns the modified RLIST. TEXT-NO may be nil, in which case only empty read-infos on RLIST are removed. (defalias 'read-list-delete-text #[(text-no rlist) "A\211\203Z \2039\n@\211A\306\234)\211 >)\2049\n@\211A\307\234)\211\n  \211\f\310 \fA\"\241\210+\n@\211A\307\234)\211\fA)\204Q \nA\241\210\202S\n\nA\211\204 *\207" [rlist prev curr text-no read-info type 0 3 delq lyskom-review-types-list tl no text-list] 5 (#$ . 593506)]) #@304 Destructively insert READ-INFO in RLIST, sorted by priority. RLIST is a list of read-info. Args: READ-INFO RLIST &optional BEFORE. A new item with the same priority as an item that is alreay on the list will nomally be inserted after the old one, but if BEFORE is non-nil it will be inserted before it. (defalias 'read-list-enter-read-info #[(read-info rlist &optional before) "\203\306\202 \307 \211A\310\234)\\\311 \211A\312\234) \211A\306\234)\f\205\264\n\313=\203|A@\211A\306\234)\313=\203| A@\211A\312\234)=\203|A@ \211A\314\234)\211A)\211\211A\314\234)\211\211A\244\241*\210*\315\211\202%A\204\216 C\241\210\315\211\202% A@\211A\310\234)Y\203\254 AB\241\210\315\211\202%A\202$,\207" [before read-info type conf-stat continue pri 0 -1 2 t 1 CONF 3 nil rlist text-list texts] 6 (#$ . 594185)]) #@100 Destructively removes all the entries for the conf CONF-NO in RLIST. RLIST is a list of read-info. (defalias 'read-list-delete-read-info #[(conf-no rlist) "A\205)A@\211A\304\234)\211A\305\234) =\203\"\211AA\241\210\202A\211\202\207" [rlist read-info conf-stat conf-no 1 0] 3 (#$ . 595052)]) #@109 Put the first element of READ-LIST last in the same list. The second element will be the new first element. (defalias 'read-list-rotate #[(read-list) "G\303V\203'AA A\203 A\211\202 \n\241\210\nA\241\210\n\304\241\210*\207" [read-list last first 2 nil] 3 (#$ . 595363)]) #@24 Create an empty queue. (defalias 'lyskom-queue-create #[nil "\300\301\211BB\207" [QUEUE nil] 3 (#$ . 595652)]) #@46 Enter last into the queue QUEUE the ELEMENT. (defalias 'lyskom-queue-enter #[(queue element) "\303B\nA@\204\nA\nA \241\240\202\nAA \241\210\nA \241)\207" [element elementcell queue nil] 3 (#$ . 595769)]) (put 'lyskom-queue-enter 'byte-optimizer 'byte-compile-inline-expand) #@53 Return t if QUEUE is a queue, otherwise return nil. (defalias 'lyskom-queue-p #[(queue) "\242\301=\207" [queue QUEUE] 2 (#$ . 596055)]) (put 'lyskom-queue-p 'byte-optimizer 'byte-compile-inline-expand) #@51 Return t if QUEUE is empty, otherwise return nil. (defalias 'lyskom-queue-isempty #[(queue) "A@?\207" [queue] 1 (#$ . 596264)]) (put 'lyskom-queue-isempty 'byte-optimizer 'byte-compile-inline-expand) #@58 Return the first element of QUEUE or nil if it is empty. (defalias 'lyskom-queue->first #[(queue) "A@\242\207" [queue] 1 (#$ . 596471)]) (put 'lyskom-queue->first 'byte-optimizer 'byte-compile-inline-expand) #@52 Return all elements of QUEUE (nil if it is empty). (defalias 'lyskom-queue->all-entries #[(queue) "A\242\207" [queue] 1 (#$ . 596686)]) (put 'lyskom-queue->all-entries 'byte-optimizer 'byte-compile-inline-expand) #@56 Return the lastelement of QUEUE or nil if it is empty. (defalias 'lyskom-queue->last #[(queue) "AA\242\207" [queue] 1 (#$ . 596906)]) (put 'lyskom-queue->last 'byte-optimizer 'byte-compile-inline-expand) #@29 Make the queue QUEUE empty. (defalias 'lyskom-queue-make-empty #[(queue) "\301\211B\241\207" [queue nil] 3 (#$ . 597117)]) (put 'lyskom-queue-make-empty 'byte-optimizer 'byte-compile-inline-expand) (defalias 'lyskom-queue-set-data #[(queue data) "\211\302\211B\241\210) \303 !B\241\207" [queue data nil last] 5]) (put 'lyskom-queue-set-data 'byte-optimizer 'byte-compile-inline-expand) #@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) "\211A@)??\205%\211A@\242)AA@A\240\210A@\204%A\301\241\210\207" [queue nil] 4 (#$ . 597513)]) (put 'lyskom-queue-delete-first 'byte-optimizer 'byte-compile-inline-expand) #@23 Create an empty stack (defalias 'lyskom-stack-create #[nil "\300\301B\207" [STACK nil] 2 (#$ . 597841)]) #@60 Return t if STACK is a lyskom-stack, otherwise return nil. (defalias 'lyskom-stack-p #[(stack) "\242\301=\207" [stack STACK] 2 (#$ . 597952)]) #@54 Push the second arg ELEMENT onto the first arg STACK (defalias 'lyskom-stack-push #[(stack element) " AB\241\207" [stack element] 3 (#$ . 598102)]) #@88 Remove the topmost element from STACK and return it. If the stack is empty, return nil (defalias 'lyskom-stack-pop #[(stack) "A\242\211A\243\241\210\207" [stack] 3 (#$ . 598258)]) #@60 Return the topmost element of STACK or nil if it is empty. (defalias 'lyskom-stack->top #[(stack) "A\242\207" [stack] 1 (#$ . 598446)]) #@41 Return the number of elements on STACK. (defalias 'lyskom-stack->length #[(stack) "AG\207" [stack] 1 (#$ . 598589)]) #@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\207" [n stack] 2 (#$ . 598714)]) #@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\207" [stack] 1 (#$ . 598941)]) #@40 Returns non-nil if the STACK is empty. (defalias 'lyskom-stack-isempty #[(stack) "A?\207" [stack] 1 (#$ . 599114)]) (put 'lyskom-stack-isempty 'byte-optimizer 'byte-compile-inline-expand) #@47 Create a who-buffer-info from all parameters. (defalias 'lyskom-create-who-buffer-info #[(info start-marker end-marker) "\303\304 \n#B\207" [info start-marker end-marker WHO-BUFFER-INFO vector] 5 (#$ . 599309)]) #@32 Get info from who-buffer-info. (defalias 'who-buffer-info->info #[(who-buffer-info) "A\301\234\207" [who-buffer-info 0] 2 (#$ . 599528)]) #@40 Get start-marker from who-buffer-info. (defalias 'who-buffer-info->start-marker #[(who-buffer-info) "A\301\234\207" [who-buffer-info 1] 2 (#$ . 599673)]) #@38 Get end-marker from who-buffer-info. (defalias 'who-buffer-info->end-marker #[(who-buffer-info) "A\301\234\207" [who-buffer-info 2] 2 (#$ . 599834)]) #@40 Set info in who-buffer-info to NEWVAL. (defalias 'set-who-buffer-info->info #[(who-buffer-info newval) "A\302 I\207" [who-buffer-info newval 0] 3 (#$ . 599991)]) #@48 Set start-marker in who-buffer-info to NEWVAL. (defalias 'set-who-buffer-info->start-marker #[(who-buffer-info newval) "A\302 I\207" [who-buffer-info newval 1] 3 (#$ . 600160)]) #@46 Set end-marker in who-buffer-info to NEWVAL. (defalias 'set-who-buffer-info->end-marker #[(who-buffer-info newval) "A\302 I\207" [who-buffer-info newval 2] 3 (#$ . 600345)]) #@42 Return t if OBJECT is a who-buffer-info. (defalias 'lyskom-who-buffer-info-p #[(object) "\242\301=\207" [object WHO-BUFFER-INFO] 2 (#$ . 600526)]) (defalias 'make-format-props #[(arg propl) "\302\303 \"B\207" [arg propl format-props vector] 4]) (defalias 'format-props-p #[(arg) "\242\301=\207" [arg format-props] 2]) (put 'format-props-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-props->arg #[(arg) "A\301\234\207" [arg 0] 2]) (put 'format-props->arg 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-props->propl #[(arg) "A\301\234\207" [arg 1] 2]) (put 'format-props->propl 'byte-optimizer 'byte-compile-inline-expand) (defalias 'make-format-state #[(format-string start argl result) "\304\305 \n\211G \306\211&B\207" [format-string start argl result format-state vector nil] 9]) (defalias 'format-state-p #[(arg) "\242\301=\207" [arg format-state] 2]) (put 'format-state-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-state->format-string #[(arg) "A\301\234\207" [arg 0] 2]) (put 'format-state->format-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-format-state->format-string #[(arg str) "A\302 I\207" [arg str 0] 3]) (put 'set-format-state->format-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-state->start #[(arg) "A\301\234\207" [arg 1] 2]) (put 'format-state->start 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-format-state->start #[(arg pos) "A\302 I\207" [arg pos 1] 3]) (put 'set-format-state->start 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-state->args #[(arg) "A\301\234\207" [arg 2] 2]) (put 'format-state->args 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-format-state->args #[(arg argl) "A\302 I\210A\303 GI\207" [arg argl 2 3] 3]) (put 'set-format-state->args 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-state->args-length #[(arg) "A\301\234\207" [arg 3] 2]) (put 'format-state->args-length 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-state->result #[(arg) "A\301\234\207" [arg 4] 2]) (put 'format-state->result 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-format-state->result #[(arg output-list) "A\302 I\207" [arg output-list 4] 3]) (put 'set-format-state->result 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-state->delayed-propl #[(arg) "A\301\234\207" [arg 5] 2]) (put 'format-state->delayed-propl 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-format-state->delayed-propl #[(arg propl) "A\302 I\207" [arg propl 5] 3]) (put 'set-format-state->delayed-propl 'byte-optimizer 'byte-compile-inline-expand) (defalias 'format-state->delayed-content #[(arg) "A\301\234\207" [arg 6] 2]) (put 'format-state->delayed-content 'byte-optimizer 'byte-compile-inline-expand) (defalias 'set-format-state->delayed-content #[(arg string) "A\302 I\207" [arg string 6] 3]) (put 'set-format-state->delayed-content 'byte-optimizer 'byte-compile-inline-expand) #@63 Create a data type for collecting asynchronous results safely (defalias 'make-collector #[nil "\300\301B\207" [COLLECTOR nil] 2 (#$ . 603546)]) #@38 Get the current value of a collector (defalias 'collector->value #[(collector) "A\207" [collector] 1 (#$ . 603696)]) (put 'collector->value 'byte-optimizer 'byte-compile-inline-expand) #@30 Set the calue of a collector (defalias 'set-collector->value #[(collector value) " \241\207" [collector value] 2 (#$ . 603888)]) (put 'set-collector->value 'byte-optimizer 'byte-compile-inline-expand) #@72 For use with lyskom handlers. In other cases, use set-collector->value (defalias 'set-value-of-collector #[(value collector) " \211 \241*\207" [collector value] 3 (#$ . 604096)]) #@48 Push VALUE onto the front of COLLECTOR's value (defalias 'collector-push #[(value collector) " AB\241\207" [collector value] 3 (#$ . 604284)]) (provide 'lyskom-clienttypes) (defalias 'lyskom-create-defer-info #[(server-call call-par handler pos del-chars format &optional data) "\306\307 \n \f  &B\207" [server-call call-par handler pos del-chars format DEFER-INFO vector data lyskom-last-viewed] 10]) (defalias 'lyskom-defer-info-p #[(obj) ":\205 @\301=\207" [obj DEFER-INFO] 2]) (defalias 'defer-info->server-call #[(di) "A\301H\207" [di 0] 2]) (defalias 'defer-info->call-par #[(di) "A\301H\207" [di 1] 2]) (defalias 'defer-info->handler #[(di) "A\301H\207" [di 2] 2]) (defalias 'defer-info->pos #[(di) "A\301H\207" [di 3] 2]) (defalias 'defer-info->del-chars #[(di) "A\301H\207" [di 4] 2]) (defalias 'defer-info->format #[(di) "A\301H\207" [di 5] 2]) (defalias 'defer-info->data #[(di) "A\301H\207" [di 6] 2]) (defalias 'defer-info->last-viewed #[(di) "A\301H\207" [di 7] 2]) (defalias 'set-defer-info->server-call #[(di x) "A\302 I\207" [di x 0] 3]) (defalias 'set-defer-info->call-par #[(di x) "A\302 I\207" [di x 1] 3]) (defalias 'set-defer-info->handler #[(di x) "A\302 I\207" [di x 2] 3]) (defalias 'set-defer-info->pos #[(di x) "A\302 I\207" [di x 3] 3]) (defalias 'set-defer-info->del-chars #[(di x) "A\302 I\207" [di x 4] 3]) (defalias 'set-defer-info->format #[(di x) "A\302 I\207" [di x 5] 3]) (defalias 'set-defer-info->data #[(di x) "A\302 I\207" [di x 6] 3]) (defalias 'set-defer-info->last-viewed #[(di x) "A\302 I\207" [di x 7] 3]) #@65 Defer insertion of something. The insertion will be at (point). (defalias 'lyskom-defer-insertion #[(defer-info) "\302 \"\210\303\304\305\306!!P!\307\310!\311!$\207" [defer-info lyskom-last-viewed set-defer-info->last-viewed intern-soft "initiate-" symbol-name defer-info->server-call deferred defer-info->handler defer-info->call-par] 5 (#$ . 605867)]) #@28 Replace some defered text. (defalias 'lyskom-replace-deferred #[(defer-info &rest replacement-data) "\212\306\307!!\203\306\307!!q\210\307!b\210\310\311\312! #\210\313\314\315!!\210)\307!\316\211\223\210) ?\205Q\317\f!\211\205P\320d \"?\205P\321 \322\216\323 !\210\324 *)\207" [defer-info replacement-data inhibit-read-only lyskom-executing-command lyskom-buffer window marker-buffer defer-info->pos apply lyskom-format-insert-at-point defer-info->format t delete-char defer-info->del-chars nil get-buffer-window pos-visible-in-window-p selected-window ((select-window save-selected-window-window)) select-window lyskom-scroll save-selected-window-window] 5 (#$ . 606232)]) #@65 Insert the name of a conference at a previously reserved place. (defalias 'lyskom-deferred-insert-conf #[(conf-stat defer-info) "\302 \2043\303\304!\206,\305!\305!GSH\306U\203+\307!\310U\203'\311\202,\312\202,\313\307!\"\2024 \314\315!!#\207" [defer-info conf-stat lyskom-replace-deferred 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 (#$ . 606927)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: utilities.el,v 44.79 2001/01/03 22:03:03 qha Exp $\n" nil] 2) #@25 Turn VECTOR into a list (defalias 'listify-vector #[(vector) "\301\302\"\207" [vector append nil] 3 (#$ . 607558)]) (put 'listify-vector 'byte-optimizer 'byte-compile-inline-expand) #@55 Same as assoc, but searches on last element in a list (defalias 'reverse-assoc #[(key cache) "\302\303\304\302 \"\"!\207" [key cache reverse assoc mapcar] 6 (#$ . 607747)]) #@48 Return a list of the N first elements of LIST. (defalias 'nfirst #[(n list) "\303 \304V\203\n\203\n@B\nA S\211\202\237)\207" [result n list nil 0] 3 (#$ . 607927)]) #@118 Destructively rotate LIST so EL becomes the first element. If EL occurs more than one, the first occurrence is used. (defalias 'lyskom-rotate-list #[(list el) " >\211\203 @=\203 \202( G\nGZ\303Z \233\304\241\210\nGS\n\233 \241\210\n)\207" [el list tail 1 nil] 3 (#$ . 608111)]) #@141 Return the cons cell of LIST preceding the first cons cell whose car is EL. Return nil if TAIL is the same as LIST or not a member of LIST. (defalias 'lyskom-preceding-cons #[(list el) "@ =\206 >??\205G >GZ\302Z\233\207" [list el 1] 3 (#$ . 608404)]) #@125 Destructively insert EL in LIST before element BEFORE. If BEFORE is not in the list, then insert EL at the end of the list. (defalias 'lyskom-insert-in-list #[(el list before) " @=\203 \n B\207 G >GZ\303Z \233\n >B\241\210 \207" [before list el 1] 4 (#$ . 608671)]) #@66 Destructively move EL within LIST so it appears at position POS. (defalias 'lyskom-move-in-list #[(el list pos) " >\203#\303 \"\n\304=\203 B\202#\nS \233\n \233B\241\210 \207" [el list pos delq 0] 4 (#$ . 608947)]) #@58 Returns a copy of LIST with the last N elements removed. (defalias 'lyskom-butlast #[(x &optional n) "\203\f\302X\203\f \207\303\304 !\"\207" [n x 0 lyskom-nbutlast copy-sequence] 3 (#$ . 609178)]) #@46 Modifies LIST to remove the last N elements. (defalias 'lyskom-nbutlast #[(x &optional n) "G\n\204 \303\n W\205\n\304V\203 S\nZ\233\305\241\210)\207" [x m n 1 0 nil] 2 (#$ . 609387)]) (defalias 'skip-first-zeros #[(list) "\203@\301U\203A\211\204\207" [list 0] 3]) (defalias 'filter-list #[(test list) "\204\302\207 @!\203@\303 A\"B\207\303 A\"\207" [list test nil filter-list] 4]) (byte-code "\301\302M\210\303\304!\204\304B\304\305M\210\303\306!\204 \306B\306\307M\210\301\207" [lyskom-compatibility-definitions lyskom-compiled-function-p (macro . #[(arg) "\301D\207" [arg byte-code-function-p] 2]) fboundp copy-tree #[(l) ":\204\207\301@!\301A!B\207" [l copy-tree] 3 "Recursively copy the list L"] functionp #[(obj) "9\203 \301!\207\302!\206'\303!\206':\203&@\304=\205'A@<\207\305\207" [obj fboundp subrp byte-code-function-p lambda nil] 2 "Returns t if OBJ is a function, nil otherwise."]] 2) #@22 Ignore all arguments (defalias 'lyskom-ignore #[(&rest args) "\300\207" ["Ignore all arguments"] 1 (#$ . 610345)]) #@49 Return non-nil if RE looks like a valid regexp. (defalias 'regexpp #[(re) "\302\303 \304\216\305\306\307\217\210*)\207" [result save-match-data-internal t match-data ((set-match-data save-match-data-internal)) nil (string-match re "") ((error (byte-code "\301\301\207" [result nil] 1)))] 3 (#$ . 610466)]) (defalias 'mapcar2 #[(fn seq1 seq2) "\304 \203\n\203 @\n@\"B A\nA\202\237)\207" [result seq1 seq2 fn nil] 3]) (defalias 'lyskom-maxint #[nil "\303\304\305\n\306V\203\"\306V\203\"\n B\n\211\\\306\\S\202\307\310 \"+\207" [i l n 1 nil 31 0 apply +] 3]) (byte-code "\301 \301\207" [lyskom-max-int lyskom-maxint] 1) #@300 Load the feature FEATURE using require. If optional MESSAGE is non-nil, use it as a LysKOM format string taking one string argument to print an error message. Remaining arguments are used as arguments for the format string. Returns t if the feature is loaded or can be loaded, and nil otherwise. (defalias 'lyskom-try-require #[(feature &optional message &rest args) "\300\301!\206\n\302\303\304\217\207" [featurep feature nil (byte-code "\301!\210\302\207" [feature require t] 2) ((error (byte-code "\203 \303\304\305 !\n$\210\306\207" [message feature args apply lyskom-format-insert-before-prompt symbol-name nil] 5)))] 3 (#$ . 611120)]) (defalias 'lyskom-emacs-version #[nil "\300\301\302 \"\203\n\303\207\304\207" [string-match "^XEmacs" emacs-version xemacs emacs] 3]) #@61 Current millisecond timeout value for accept-process-output (defvar lyskom-apo-timeout 0 (#$ . 611910)) #@62 Index in lyskom-apo-timeout-vector-max where last timeout is (defvar lyskom-apo-timeout-index 0 (#$ . 612020)) #@60 Vector of timeout values (usecs) for accept-process-output (defconst lyskom-apo-timeout-vector [0 1000 1000 2000 3000 5000 8000 13000 21000 34000 55000 89000 144000 233000 377000 610000] (#$ . 612137)) #@44 Maximum index in lyskom-apo-timeout-vector (defconst lyskom-apo-timeout-vector-max (byte-code "GS\207" [lyskom-apo-timeout-vector] 1) (#$ . 612345)) (defalias 'lyskom-next-apo-timeout #[nil " W\205\nT\211H\211\207" [lyskom-apo-timeout-index lyskom-apo-timeout-vector-max lyskom-apo-timeout-vector lyskom-apo-timeout] 3]) (defalias 'lyskom-reset-apo-timeout #[nil "\302\303\211\207" [lyskom-apo-timeout-index lyskom-apo-timeout -1 0] 2]) #@61 Call accept-process-output with the correct timeout values. (defalias 'lyskom-accept-process-output #[nil "\301 \210\302\303\304#\207" [lyskom-apo-timeout lyskom-next-apo-timeout accept-process-output nil 0] 4 (#$ . 612797)]) #@140 Return the time in a format that LysKOM understands. If optional argument SECS is set, it is used in place of the value of (current-time). (defalias 'lyskom-current-time #[(&optional secs) "\302\206\303 !\211AAAA AAAA@S\240\210 AAAAA AAAAA@\304Z\240\210 )\207" [secs time decode-time current-time 1900] 4 (#$ . 613031)]) (byte-code "\301\302!\204\302B\302\303M\210\301\304!\204\"\304B\304\305M\210\306\304\307\310#\210\301\207" [lyskom-compatibility-definitions fboundp string-to-sequence #[(string type) "G\306\307\f\310=\203.\311 \306\"\211\n W\203* \nH\240\210 A\nT\211\202)\202R\f\312=\203M\313 \306\"\n W\203R \n\nHI\210\nT\211\202:\314\315\f\"\210 +\207" [string val i len type l 0 nil list make-list vector make-vector error "Invalid type: %s"] 5 "Convert STRING to a sequence of TYPE which contains characters in STRING.\nTYPE should be `list' or `vector'."] string-to-vector #[(string) "\301\302\"\207" [string string-to-sequence vector] 3 "Return a vector of characters in STRING."] put byte-optimizer byte-compile-inline-expand] 4) #@174 String mapping characters to their collate class. Lowercase, uppercase and other equivalents are mapped to the same class. The class number defines a proper sorting order. (defvar lyskom-default-collate-table " \n \f  !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]~\200\201\202\203\204\205\206\207\210\211\212\213\214\215\216\217\220\221\222\223\224\225\226\227\230\231\232\233\234\235\236\237!AAAA[]ACEEEEIIIINOOOO\\OUUUYYށAAAA[]ACEEEEIIIINOOOO\\OUUUYY" (#$ . 614113)) #@278 Change the encoding of S for when multibyte characters are not supported. Optional second argument CODING is the coding system to use. If optional third argument FORCE is non-nil, always encode multibyte strings, otherwise only encode when multibyte strings are not supported. (defalias 'lyskom-maybe-recode-string #[(s &optional coding force) "\305!\203! \204\n\204!\306 \206\f\203\307\f!\206\310\"\207\207" [s force enable-multibyte-characters coding lyskom-language multibyte-string-p encode-coding-string lyskom-language-coding raw-text] 4 (#$ . 614746)]) (put 'lyskom-maybe-recode-string 'byte-optimizer 'byte-compile-inline-expand) #@160 Recode the cars of alist TABLE to default coding system unless multibyte characters are enabled. This function is destructive unless optional copy is non-nil. (defalias 'lyskom-maybe-frob-completion-table #[(table &optional copy) "\203 \207\n\203\306\307 \"\207\310 \211<\206\fG\311\311\311\f<\203q\f\203\274\f@\211\211@\311\312\313!\203e\204L\204e\314\206a\203`\315!\206a\316\"\202g+\240\210\fA\211\202* W\203\274\f H\211\211@\311\312\313!\203\260\204\227\204\260\314\206\254\203\253\315!\206\254\316\"\202\262+\240\210 T\211\202r- \207" [enable-multibyte-characters table copy __i__ __sequence__ __len__ mapcar #[(el) "@\306\307\310 !\203* \204\f\204*\311 \n\206& \203%\312 !\206&\313\"\202+ +AB\207" [el force coding s enable-multibyte-characters lyskom-language nil t multibyte-string-p encode-coding-string lyskom-language-coding raw-text] 4] 0 nil t multibyte-string-p encode-coding-string lyskom-language-coding raw-text el __result__ force coding s lyskom-language] 6 (#$ . 615404)]) #@40 Smash case and diacritical marks on c. (defalias 'lyskom-unicase-char #[(c) "\303! GW\203 \303!H\207\304\n\"\211\203'\303! GW\203' \303!H\207\207" [c lyskom-collate-table lyskom-server-coding-system char-to-int lyskom-encode-coding-char] 4 (#$ . 616499)]) (put 'lyskom-unicase-char 'byte-optimizer 'byte-compile-inline-expand) #@53 Smash case and diacritical marks of all chars in s. (defalias 'lyskom-unicase #[(s) "p\306\216 \203 q\210\nG\307\n \"\310\f\311\")  \312V\203l S   H\313!GW\203D\313!H\202f\314 \"\211\203d\313!GW\203d\313!H\202f)I\210\202 \260,\207" [__buffer__ lyskom-buffer s lyskom-server-coding-system string s2 ((set-buffer __buffer__)) encode-coding-string string-to-sequence vector 0 char-to-int lyskom-encode-coding-char l c lyskom-collate-table] 6 (#$ . 616843)]) #@56 Version of looking-at that will work in Gnu Emacs 20.3 (defalias 'lyskom-looking-at #[(s) "\212`\302 \303\304#\205\305\224=*\207" [start s re-search-forward nil t 0] 4 (#$ . 617350)]) (byte-code "\300\301\302\217\207" [nil (byte-code "\302=\203\f \303=\204\304\305KM\210\302\207" [emacs-major-version emacs-minor-version 20 3 lyskom-looking-at looking-at] 2) ((error))] 3) #@543 Find out which characters that are equivalent according to MAP. MAP should be a collate table. The return value is an assoc list, which characters as keys, and a list of single-character strings as values. Only characters that are equivalent to at least one more character is returned in the assoc list. Example: if this function returns ((97 "A" "a") (65 "A" "a") (48 "O" "o" "0") (111 "O" "o" "0") (79 "O" "o" "0")) it means that a and A are equivalent, and o, O and 0 are equivalent. All other characters are unique. (defalias 'lyskom-compute-char-classes #[(map) "p\306\216 \203 q\210\nG\307\f\310V\203J\fS\n\fH\311\312\f!\260\"\313 \"\211\203?AB\241\210\202F D B+\202\307 \203\211 \211@A)\211G\314V\203\201\203\201\315@! \211@A)BBA\211\204f) A\211\204Q-\207" [__buffer__ lyskom-buffer map cls-to-strings ix cls ((set-buffer __buffer__)) nil 0 decode-coding-string vector assoc 1 string-to-char lyskom-server-coding-system str elem res x lst] 4 (#$ . 617738)]) #@139 Return non-nil if point is in or just after a match for REGEXP. Set the match data from the earliest such match ending at or after point. (defalias 'lyskom-thing-at-point-looking-at #[(regexp) "\212`\303\304\n!\203\305\225 Y\203`\306\n\303\307#\210\310\n\303\311#\203<\305\224 V\204\304\n!\203<\305\225 Y\203<`\211\204\205db\210o\204^\312\313!\210\304\n!\203^\305\225 Y\203^`\211\204Cb\210\304\n!+\207" [match old-point regexp nil looking-at 0 re-search-forward limit re-search-backward t backward-char 1] 4 (#$ . 618789)]) #@657 Truncate string STR to end at column END-COLUMN. The optional 2nd arg START-COLUMN, if non-nil, specifies the starting column; that means to return the characters occupying columns START-COLUMN ... END-COLUMN of STR. The optional 3rd arg PADDING, if non-nil, specifies a padding character to add at the end of the result if STR doesn't reach column END-COLUMN, or if END-COLUMN comes in the middle of a character in STR. PADDING is also added at the beginning of the result if column START-COLUMN appears in the middle of a character in STR. If PADDING is nil, no padding is added in these cases, so the resulting string may be narrower than END-COLUMN. (defalias 'lyskom-truncate-string-to-width #[(str end-column &optional start-column padding) "\204\306 G\306\211\307\211\310\211\211\211\310\311\312\217\210W\203<\2038\313\"\202\243\307\202\243\203RV\203R\313Z\"W\203c\n\202\216\310\314\315\217\210V\203v\f \203\216W\203\216\313Z\" \nO\203\242 Q\202\243 . \207" [start-column str from-idx last-idx last-column ch 0 "" nil (byte-code " W\203\n H\305\f!\\ T\202\305\207" [column start-column str idx ch char-width] 3) ((args-out-of-range (byte-code "\302\207" [len idx nil] 1))) make-string (byte-code " W\203  H\306!\\ T\202\306\207" [column end-column last-column idx last-idx str char-width ch] 3) ((args-out-of-range (byte-code "\302\207" [len idx nil] 1))) tail-padding head-padding column idx len padding end-column] 9 (#$ . 619344)]) (byte-code "\301W\203\302\303KM\210\202\302\304M\210\301\207" [emacs-major-version 20 lyskom-string= string= #[(s1 s2) "\205\303!\203\202\304\305 !\"\n\205(\303\n!\203\"\n\202(\304\n\305 !\"\230\207" [s1 lyskom-language s2 multibyte-string-p decode-coding-string lyskom-language-coding] 5]] 2) #@140 Return non-nil if KEY is the same string as the car of an element of LIST. The value is actually the element of LIST whose car equals KEY. (defalias 'lyskom-string-assoc #[(key list) "\205\227\304 \203#\305\n @@\227\"\203 @\304 A\211\204 *\207" [key result s list nil lyskom-string=] 4 (#$ . 621228)]) #@140 Return non-nil if KEY is the same string as the cdr of an element of LIST. The value is actually the element of LIST whose car equals KEY. (defalias 'lyskom-string-rassoc #[(key list) "\205\227\304 \203#\305\n @A\227\"\203 @\304 A\211\204 *\207" [key result s list nil lyskom-string=] 4 (#$ . 621551)]) #@51 Set the value of SYM in the LysKOM buffer to VAL. (defalias 'lyskom-set-default #[(sym val) "\212\303\300!\203\304!\203\305!\203\206pq\210 \nL)\207" [lyskom-buffer sym val boundp bufferp buffer-live-p] 2 (#$ . 621874)]) #@43 Get the value of SYM in the LysKOM buffer (defalias 'lyskom-default-value #[(sym) "\212\302\300!\203\303!\203\304!\203\206pq\210 J)\207" [lyskom-buffer sym boundp bufferp buffer-live-p] 2 (#$ . 622111)]) #@43 Get the value of SYM in the LysKOM buffer (defalias 'lyskom-default-value-safe #[(sym) "\212\302\300!\203\303!\203\304!\203\206pq\210\302 !\205\" J)\207" [lyskom-buffer sym boundp bufferp buffer-live-p] 2 (#$ . 622332)]) #@688 Call in interactive list to read text-no. If optional argument ALWAYS-READ is non-nil the user is prompted if an explicit prefix argument was not given. The prefix argument zero refers to the text under point. A positive prefix argument is interpreted as a text-no, whereas a negative prefix argument will try to find the text-no of the text `arg' messages above point from the current kom buffer. DEFAULT specifies the default text to use. If it is nil, the most recently read text is the default. The symbol last-written means use the text most recently written. The symbol last-seen-written means use the text in lyskom-last-seen-written. A number means use that text as the default. (defalias 'lyskom-read-text-no-prefix-arg #[(prompt &optional always-read default) "\203\n\306=\203\307\310!\202:\247\203\202:\311=\203+\307\312!\206:\307\310!\202:\313=\205:\307\312!\206:\307\310!\211\306=\203C\314 \204`\n\204U \f>\204U\204\\\315 \"\202\276\202\276 \250\204k \316=\203\254 \316=\203u\317\202v \211\306V\203\201 \202\250 \306U\203\214\320 \202\250\212\321\322 Z!\210\323\324!\203\241\325\326\322!!\202\247\327\330\331! \"))\202\276 <\203\270\315 \"\202\276\327\330\331! \")\207" [default current-prefix-arg always-read lyskom-current-command kom-prompt-for-text-no prompt 0 lyskom-default-value lyskom-current-text last-written lyskom-last-seen-written last-seen-written nil lyskom-read-number - -1 lyskom-text-at-point backward-text 1 looking-at "\\([0-9]+\\)\\s-" string-to-int match-string lyskom-error lyskom-get-string bad-text-no-prefix] 4 (#$ . 622572)]) #@38 Return non-nil if A is a subset of B (defalias 'lyskom-subset-p #[(a b) "\303 \203 @\n>\203 A\211\202\304\304\211\204)\207" [result a b t nil] 3 (#$ . 624189)]) #@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) "\204 \205$\303\203!@ >\203@\nBA\211\204\n\237)\207" [a b list nil] 3 (#$ . 624369)]) (byte-code "\301\302!\204\302B\302\303M\210\301\304!\203\305\306\304\"\210\2023\301\307!\203/\301\310!\203/\306\311M\210\2023\306\312M\210\301\313!\204A\313B\313\314M\210\301\207" [lyskom-compatibility-definitions fboundp console-type #[(&optional console) "\206\301\207" [window-system tty] 1] device-class defalias lyskom-device-class display-color-p display-grayscale-p #[(&optional device) "\301!\203\302\207\303!\203\304\207\305\207" [device display-color-p color display-grayscale-p grayscale mono] 2] #[(&optional device) "\300\301\302\217\207" [nil (byte-code "\301!\203\302!\203\303\207\304\207\305\207" [device x-display-grayscale-p x-display-color-p color grayscale mono] 2) ((error 'mono))] 3] frame-property #[(frame property &optional default) "\303 !\236A\206\n\n\207" [property frame default frame-parameters] 3]] 3) (defalias 'lyskom-background-mode #[nil "\300\301 \302\303#\207" [frame-property selected-frame background-mode light] 4]) #@115 Run HOOK with the specified arguments ARGS in the LysKOM buffer. See run-hook-with-args for detailed information. (defalias 'lyskom-run-hook-with-args #[(hook &rest args) "\212\303\300!\203 \206\fpq\210\304\305 \n#)\207" [lyskom-buffer hook args boundp apply run-hook-with-args] 4 (#$ . 625593)]) #@125 Add to the value of HOOK the function FUNCTION in the LysKOM buffer. If optional APPEND is non-nil, add at the end of HOOK. (defalias 'lyskom-add-hook #[(hook function &optional append) "\212\304\300!\203 \206\fpq\210\305 \n \306$)\207" [lyskom-buffer hook function append boundp add-hook t] 5 (#$ . 625900)]) #@75 From the value of HOOK remove the function FUNCTION in the LysKOM buffer. (defalias 'lyskom-remove-hook #[(hook function) "\212\303\300!\203 \206\fpq\210\304 \n\305#)\207" [lyskom-buffer hook function boundp remove-hook t] 4 (#$ . 626219)]) #@334 Output the printed representation of OBJECT, any Lisp OBJECT. No quoting characters are used; no delimiters are printed around the contents of strings. Text properties are retained. Output stream is STREAM, or value of standard-output, and must be a buffer or a marker. Function or minibuffer streams are not supported for strings. (defalias 'lyskom-princ #[(object &optional stream) ";\204\n\306 \"\207\307\211p\310\216\311 !\203 q\210\202U\312 !\2033`\313 !q\210 b\210`\202U \204U\311 !\203C q\210\202U\312 !\203U`\313 !q\210 b\210`c,\207" [object stream old-buffer start-point old-point standard-output princ nil ((byte-code "\304!\203`\305\223\210 \nY\203 `\nZ\\b\210\202 b\210 q\207" [stream old-point start-point old-buffer markerp nil] 3)) bufferp markerp marker-buffer] 3 (#$ . 626470)]) (defalias 'lyskom-set-face-foreground #[(face color) "\300\301\302\217\207" [nil (set-face-foreground face color) ((error))] 3]) (defalias 'lyskom-set-face-background #[(face color) "\300\301\302\217\207" [nil (set-face-background face color) ((error))] 3]) (defalias 'lyskom-copy-face #[(old new) "\302 \"\207" [old new copy-face] 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) "\303 \"\211\205 \304\305!\205 \304\306!\205 \304\307!\205 \310\311\nA\")\207" [scheme lyskom-face-schemes tmp assoc fboundp copy-face lyskom-set-face-foreground lyskom-set-face-background mapcar #[(spec) "\301\302\234\206\303\304\234\"\210\305\234\203\306\304\234\305\234\"\210\307\234\205*\310\304\234\307\234\"\207" [spec lyskom-copy-face 1 default 0 2 lyskom-set-face-foreground 3 lyskom-set-face-background] 4]] 4 (#$ . 627638)]) (defalias 'lyskom-face-resource #[(face-name attr type) "\304 \305=\2036\306\307 Q\310 P\n#\n\311=\203 \2024\n\312=\2033 \2033 @\203/\313\2024\314\2024 )\207\306\307 Q\310 P\"\n\311=\203J \202n \203_\n\312=\203_ \227\315\235\203_\313\202n \203m\n\312=\203m\314\202n )\207" [face-name attr type val lyskom-emacs-version xemacs x-get-resource ".attribute" "Face.Attribute" string boolean on off ("on" "true")] 4]) (defalias 'lyskom-modify-face #[(what face) "\300\301\302\217\207" [nil (byte-code "\302\303\304!P! !\207" [what face intern "make-face-" symbol-name] 4) ((error))] 3]) #@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 "\204 \302\303\304\217\305!\210\306 \307=\205\310\311 \"\207" [kom-default-face-scheme lyskom-faces nil (byte-code "\300 \301=\203 \302\207\303 \304=\203\305\207\306\207" [lyskom-device-class mono monochrome lyskom-background-mode dark inverse default] 2) ((error 'default)) lyskom-set-face-scheme console-type x mapcar #[(face) "\306!\307 \310\311#\307 \312\311#\307 \313\314#\307 \315\314#\307 \316\314#\n\203,\317\n\"\210 \2035\320 \"\210\f\321=\203@\322\323\"\210\f\324=\203K\322\325\"\210 \321=\203V\322\326\"\210 \324=\203a\322\327\"\210\205m\330\321=\".\207" [face face-name fg bg bl it symbol-name lyskom-face-resource "Foreground" string "Background" "Bold" boolean "Italic" "Underline" set-face-foreground set-face-background on lyskom-modify-face bold off unbold italic unitalic set-face-underline-p ul] 4]] 3 (#$ . 628845)]) #@357 Format the current client time as a string. The optional format string FMT specifies the format. If no format string is supplied time-yyyy-mm-dd-hh-mm is used. The arguments to the format string are the following: the year, the month, the day, the hour, the minutes, the seconds, the full name of the day of week, the abbreviated name of the day of week. (defalias 'lyskom-client-date-string #[(&optional fmt) "\302 \303 \206 \304\305\234\306\234\307\234\310\234\311\234\312\234\313\314!\315\234\234\313\316!\315\234\234& )\207" [now fmt decode-time lyskom-format time-yyyy-mm-dd-hh-mm 5 4 3 2 1 0 lyskom-get-string weekdays 6 weekdays-short] 12 (#$ . 629908)]) #@67 Return the current time at the client as a LysKOM time structure. (defalias 'lyskom-client-date #[nil "\306 \211\307\234\310\234\311\234\312\234\313\234\314\234\315Z\316\234\307\317\234\320\211\321\322 \f \n & .\fB\207" [now tzmin tzhr isdst yday wday decode-time 0 1 2 3 4 5 1900 6 7 nil TIME vector year mon mday hour min sec] 14 (#$ . 630587)]) (defalias 'lyskom-lookup-key #[(keymap event &optional accept-default) "\304!\204\n\305! \204\n\205%\306 \"\207\306 \"\206%\307\310 !\n#\207" [event keymap accept-default global-map arrayp vector lookup-key lyskom-lookup-key keymap-parent] 4]) (defalias 'lyskom-keymap-body #[(keymap) "A\301@!\203 @\207\207" [keymap arrayp] 2]) (defalias 'lyskom-keymap-realbinding #[(binding) "\242;\203 A\211\202\207" [binding] 2]) (defalias 'lyskom-overlay-keymap #[(basemap overlay keymap &optional prefix) "\306GT\307\"G\307\310 GW\203#\f  HI\210 T\211\202\311 !?\206G\311 !?\206G\311!?\206G\312 !\211\205G\313\314\n\",\207" [prefix r body index keys keymap make-vector nil 0 keymapp lyskom-keymap-body mapcar #[(element) "\306!\203+G\307\307 W\205) \f\nI\210\310 \nH \f %\210\nT\211\202\f)\207:\203K@\311=?\205L \f@I\210\310 \312A! \f %\207\313\207" [element len r keys index basemap arrayp 0 lyskom-overlay-keys t lyskom-keymap-realbinding nil overlay keymap] 7] overlay basemap] 5]) (defalias 'lyskom-overlay-keys #[(keys binding basemap overlay keymap) "\305 \306#\307 !\203\307\n!\203\310 \f $\2027\307 !\203)\n\203)\306\2027 \2057\n?\2057\311\f #)\207" [basemap keys base-binding binding keymap lyskom-lookup-key nil keymapp lyskom-overlay-keymap define-key] 5]) #@49 Return a text description of membership type mt (defalias 'lyskom-return-membership-type #[(mt) "\303\304\305\306\211A\307H)\205\310\311!\211A\312H)\205\310\313!\211A\314H)\205+\310\315!E\"\316#\211\317\230\203:\n\202>\320\n\321Q)\207" [mt membership-type tmp mapconcat identity delete nil 0 lyskom-get-string invitation-mt-type 1 passive-mt-type 2 secret-mt-type ", " "" "[" "]"] 9 (#$ . 632314)]) #@134 Return the number of unread texts in CONF-NO. If this function is unable to calculate the number of unread texts it will return nil. (defalias 'lyskom-find-unread #[(conf-no) "\212q\210 \211A)\306 \204;\f\203; \f@\211\nA\307\234)\211 A\310\234)=\2035\f@\211\nA\311\234)AG\fA\202\f +\207" [lyskom-buffer lyskom-to-do-list read-list found rlist conf-no nil 1 0 3 read-info conf-stat] 4 (#$ . 632734)]) (defalias 'lyskom-prev-area #[(num prop &optional goto-point-min) "\304V\205>\305` \"\211\203-\306\n \"\204\305\n \"\n\203%\nb\210\2026eb\210\307\2026 \2036eb\210\307)S\211\202\207" [num prop where goto-point-min 0 previous-single-property-change get-text-property 1] 4]) #@57 Move the cursor to the next prompt in the LysKOM buffer (defalias 'lyskom-next-area #[(num prop &optional goto-point-max) "\304V\205>\305` \"\211\203-\306\n \"\204\305\n \"\n\203%\nb\210\2026db\210\307\2026 \2036db\210\307)S\211\202\207" [num prop where goto-point-max 0 next-single-property-change get-text-property 1] 4 (#$ . 633442) "p"]) #@59 Return non-nil if the supervisor of CONF-NO is VIEWER-NO. (defalias 'lyskom-is-supervisor #[(conf-no viewer-no) " =\206\n\302 \"\207" [viewer-no conf-no lyskom-is-strictly-supervisor] 3 (#$ . 633807)]) #@100 Return non-nil if VIEWER-NO is strictly a supervisor of CONF-NO Cannot be called from a callback. (defalias 'lyskom-is-strictly-supervisor #[(conf-no viewer-no) "\304 \305\306\307\310\n $\210\311\307!\210 \211A)@ \204\305\202S \312=\203)\305\202S\2041\305\202S \211A\313\234)=\203A\314\202S\315\211A\313\234) \"\203R\314\202S\305*\207" [conf-stat collector conf-no viewer-no make-collector nil initiate-get-conf-stat background collector-push lyskom-wait-queue 0 7 t lyskom-is-member] 6 (#$ . 634019)]) #@141 Return the membership in CONF-NO of PERS-NO Optional argument QUEUE is the queue to send the queries on. Cannot be called from a callback. (defalias 'lyskom-is-member #[(conf-no pers-no &optional queue) " =\203 \305\n\306\"\206+\307 \310\f\206\311\312\n %\210\313\f\206\"\311!\210 \211A)@)\207" [pers-no lyskom-pers-no conf-no collector queue lyskom-try-get-membership t make-collector initiate-query-read-texts background collector-push lyskom-wait-queue] 7 (#$ . 634550)]) #@184 Return the list of recipients for TEXT-STAT. If WANT-TYPES is non-nil then the result is an assoc list where the car of each element is the recipient number and the cdr is the type. (defalias 'lyskom-text-recipients #[(text-stat &optional want-types) "\306\307\n\211A\310\234)\211<\206 G\306\306\n\306\n <\203d \203\252 @\211\211 A\307\234)\f>\203] \203R \211 A\311\234) \211 A\307\234)BB\202] \211 A\311\234)B A\211\202\" \fW\203\252 H\211\211 A\307\234)\f>\203\243 \203\230 \211 A\311\234) \211 A\307\234)BB\202\243 \211 A\311\234)B T\211\202e-\237)\207" [result __i__ text-stat __sequence__ __len__ misc nil 0 6 1 __result__ misc-info lyskom-recpt-types-list want-types] 4 (#$ . 635042)]) (byte-code "\303P\304\301!\204\f\305\301\nB\305\207" [lyskom-clientversion-long lyskom-name-hist current-load-list "$Id: completing-read.el,v 44.36 2001/01/03 22:02:52 qha Exp $\n" boundp nil] 2) #@34 Temporary cache of who-info data (defvar lyskom-completing-who-info-cache nil (#$ . 635989)) #@35 Temporary cache of server queries (defvar lyskom-completing-lookup-name-cache nil (#$ . 636088)) (byte-code "\302\300!\204\303\300 B\303\207" [lyskom-completing-use-dynamic-info current-load-list boundp nil] 2) (defalias 'lyskom-completing-clear-cache #[nil "\302\302\211\207" [lyskom-completing-who-info-cache lyskom-completing-lookup-name-cache nil] 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 "\203\207 \203\303\304\305\211\306$\202\303\307!\310\n\311\")\211\207" [lyskom-completing-who-info-cache lyskom-dynamic-session-info-feature-flag vector blocking-do who-is-on-dynamic t 0 who-is-on append nil] 5 (#$ . 636457)]) (defalias 'lyskom-completing-cache-completion #[(string data) "\305!\306 \n\"\211\204 \fB\nB*\207" [string downs lyskom-completing-lookup-name-cache tmp data lyskom-unicase assoc] 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) "\306=\205 \306=?\205.\307\n!\310 \f\"\211\203 A\202-\311\312\n $ B\fB *\207" [want-conf want-pers string downs lyskom-completing-lookup-name-cache tmp 0 lyskom-unicase assoc blocking-do lookup-z-name] 6 (#$ . 637069)]) #@39 Keymap used for reading LysKOM names. (defvar lyskom-minibuffer-local-completion-map (byte-code "\302!\303 \304\305#\210 )\207" [minibuffer-local-completion-map map copy-keymap define-key " " nil] 4) (#$ . 637475)) #@39 Keymap used for reading LysKOM names. (defvar lyskom-minibuffer-local-must-match-map (byte-code "\302!\303 \304\305#\210 )\207" [minibuffer-local-must-match-map map copy-keymap define-key " " nil] 4) (#$ . 637698)) (defalias 'lyskom-completing-match-string-regexp #[(string) "\301\302\303\304\305!!!\306\307#\310Q\207" [string "^" replace-in-string regexp-quote lyskom-unicase lyskom-completing-strip-name "\\s-+" "\\\\S-*\\\\s-+" "\\s-*"] 6]) (put 'lyskom-completing-match-string-regexp 'byte-optimizer 'byte-compile-inline-expand) #@70 Return non-nil if STRING matches NAME using LysKOM completion rules. (defalias 'lyskom-completing-match-string #[(string name) "\302\303\304\305\306\307!!!\310\311#\312Q)\307\306 !!\"\207" [string name string-match "^" replace-in-string regexp-quote lyskom-unicase lyskom-completing-strip-name "\\s-+" "\\\\S-*\\\\s-+" "\\s-*"] 7 (#$ . 638240)]) (put 'lyskom-completing-match-string 'byte-optimizer 'byte-compile-inline-expand) #@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) "\306 \n \f%\211\204\307\202N ;\203\307\202N \211 \242)\310=\203/ \211\fA\307\234)\202N \211 :\205< @\311=)\203K \211 A\307H)\202N\312 !)\207" [prompt type empty initial mustmatch conf-z-info lyskom-read-conf 0 CONF-STAT UCONF-STAT conf-z-info->conf-no object conf-stat uconf-stat] 7 (#$ . 638678)]) #@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) "\306 \n \f%\211\204\307\202M ;\203\307\202M \211\242)\310=\203( \202M \211:\2055@\311=)\203G\312\313 \211A\314H)\"\202M\312\313\315 !\")\207" [prompt type empty initial mustmatch conf-z-info lyskom-read-conf nil CONF-STAT UCONF-STAT blocking-do get-conf-stat 0 conf-z-info->conf-no object uconf-stat] 7 (#$ . 639256)]) #@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-uconf-stat #[(prompt type &optional empty initial mustmatch) "\306 \n \f%\211\204\307\202M ;\203\307\202M \211:\205&@\310=)\203. \202M \211\242)\311=\203G\312\313 \211A\314\234)\"\202M\312\313\315 !\")\207" [prompt type empty initial mustmatch conf-z-info lyskom-read-conf nil UCONF-STAT CONF-STAT blocking-do get-uconf-stat 0 conf-z-info->conf-no uconf-stat object conf-stat] 7 (#$ . 639861)]) #@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) "\306 \n \f%\211\204\307\202N ;\203 \202N \211\f\242)\310=\203/ \211 A\311\234)\202N \211:\205<@\312=)\203K \211A\311H)\202N\313 !)\207" [prompt type empty initial mustmatch conf-z-info lyskom-read-conf "" CONF-STAT 1 UCONF-STAT conf-z-info->name object conf-stat uconf-stat] 7 (#$ . 640481)]) #@929 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. (restrict c1 c2 ...) Restrict matching to conference numbers c1, c2 etc. The implementation is inefficient for long lists. 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) "\306 \210\307  \310\310\307\311\312\"\313\216\314\315\316\"\210\317;\203+\202;9\2038\320!\202;\320\321!\322\323&* \204O\310\202^ \324\230\203Y\310\202^\325 \"?\205i?\211\204.\207" [completion-ignore-case lyskom-minibuffer-local-completion-map minibuffer-local-completion-map lyskom-minibuffer-local-must-match-map minibuffer-local-must-match-map read-string lyskom-completing-clear-cache t nil mapcar symbol-value ((byte-code "\300\301\302\"\207" [remove-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables] 3)) add-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables completing-read lyskom-get-string conf-prompt lyskom-read-conf-internal lyskom-name-hist "" lyskom-lookup-conf-by-name result keep-going lyskom-minibuffer-variables lyskom-minibuffer-values prompt type mustmatch initial empty] 8 (#$ . 641025)]) #@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 "\301\203 \302\202\n\303\304 \"\207" [lyskom-dynamic-session-info-feature-flag mapcar #[(el) "\211A\302H)\207" [el dynamic-session-info 1] 3] #[(el) "\211A\302\234)\207" [el who-info 0] 3] lyskom-completing-who-is-on] 3 (#$ . 642921)]) #@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) "\306\307\310!\"\203=\311\312\313\"!\314\315 \"\211\205;\316\n\211A\317H)\n\211A\320H)\f %\205;\2039\n\202;C*\207\306\307\321!\"\205\213\311\312\313\"!\314\322 \"\211\205c\314\315\211A\317\234)\"\211\205\212\316\n\211A\317H)\n\211A\320H)\f %\205\212\203\210\n\202\212C+\207" [string no cs uconf-stat predicate login-list string-match lyskom-get-string person-or-conf-no-regexp string-to-int match-string 1 blocking-do get-uconf-stat lyskom-read-conf-internal-verify-type 0 2 session-no-regexp get-session-info x-list return-cs si session-info] 7 (#$ . 643305)]) #@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) "\306 \n \307%\310\f\211A\311H)\f\211A\312H)\f\211A\313H)#)\207" [string predicate login-list x-list cs uconf-stat lyskom-read-conf-expand-specials t lyskom-create-conf-z-info 1 2 0] 7 (#$ . 644136)]) #@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) "\302\230?\205\f\303 \304#\207" [string predicate "" lyskom-read-conf-internal lyskom-lookup] 4 (#$ . 644549)]) #@353 Complete the name STRING according to PREDICATE and ALL. STRING is a string to complete. PREDICATE is a list of name types to return. See lyskom-read-conf for details. 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) "\204 \306\307 \"\203 \310\207\311=\203\306\307 \"\203\312\207\313=\203+\306\307 \"\203+\312\207\314\n>\2053\315 \316 \300\n>\204H\317\n>\204H\320\n>\203L\321\202M\322\300\n>\204e\323\n>\204e\320\n>\204e\314\n>\203i\321\202j\322#\324\n\236\205\344\325 \322/\324\n\236A\2110<\206\2060G1\3122\3123\31230<\203\2620\203\3220@2\326\327\3302 $\2100A\2110\202\231/1W\203\3220/H2\326\327\3302 $\210/T\211/\202\264-\331\327!\210\332\312\333\334 \2114A)\"\")5\3355\f\205\360\336\f!\"6\3127\322/6\2110<\2060G1\3128\3123\31230<\203A0\203q0@8\337\3408!\3418!\n 6%\203887B70A\2110\202/1W\203q0/H8\337\3408!\3418!\n 6%\203h87B7/T\211/\202C-\311=\203\333\3427\"\343 \n 6$9:;\203\2349\203\234\344 \n 6$\202\3767G\321U\203\2527@\202\3767G\321V\203\311\345 :\"\203\3117\211G\345 :\"GZ\234\202\3769\203\330\344 \n 6$\202\376\306\346\347! \"\203\345\312\202\376\306\346\350! \"\203\362\312\202\376\337\312\211\n 6%\205\376 *\202\241\313=\203}\343 \n 6$97G\321U\203\351\202y7G\321V\2039\333\3427\":\345 :\"\2055\351)\206y7\203B\312\202y9G\321U\203N\351\202y9\203W\312\202y\306\346\347! \"\203d\312\202y\306\346\350! \"\203q\312\202y\337\312\211\n 6%)\202\241\203\330\333\3427\"\343 \n 6$9:9\203\237\3359:\"\202\324:\203\251:\202\324\306\346\347! \"\203\266\312\202\324\306\346\350! \"\203\303\312\202\324\337\312\211\n 6%\203\323 C\202\324\312*\202\2417\204\343 \n 6$\2119\203\3609@\202\306\346\347! \"\203\375\312\202\306\346\350! \"\203\n\312\202\337\312\211\n 6%\203\351\202\312)\202\241\333\3427\"\343 \n 6$9<9\203:9<\244<\345 <\"\203Rconf-z-infos lyskom-read-conf-internal-verify-type conf-z-info->conf-no conf-z-info->conf-type conf-z-info->name lyskom-read-conf-expand-specials lyskom-read-conf-lookup-specials lyskom-completing-member lyskom-get-string person-or-conf-no-regexp session-no-regexp t lyskom-completing-cache-completion lyskom-complete-string lyskom-create-conf-z-info-list apply vector __i__ __sequence__ __len__ conf-no __result__ collector r-list candidate-list result-list el specials names kom-complete-numbers-before-names name-list] 7 (#$ . 644897)]) (defalias 'lyskom-completing-member #[(string list) "\303\304!!\305\n\203( \204(\306\303\304\n@!!\"\203!\n\202\nA\211\204\f *\207" [string result list lyskom-unicase lyskom-completing-strip-name nil lyskom-string=] 6]) #@36 Strip parens and crap from a name. (defalias 'lyskom-completing-strip-name #[(string) "\301\302\"\203\303\304\305\211$\202\301\306\"\203\"\303\304\305\211$\202\301\307\"\2032\310\211\224O\202\"\301\311\"\203>\312\313\"\207\207" [string string-match "([^()]*)" replace-match " " t "\\s-\\s-+" "([^()]*$" 0 "^\\s-*\\(.*\\S-\\)\\s-*$" match-string 1] 5 (#$ . 648707)]) (defalias 'lyskom-read-conf-internal-verify-type #[(conf-no conf-type predicate logins x-list) "\305 \236A>\206Y\306 >\203\206Y\307 >\203(\n\203(\n\211A\310\234)?\206Y\311 >\203<\n\203<\n\211A\310\234)\206Y\312 >\203L\n\203L >\206Y\313 >\205Y?\205Y\f?\207" [conf-no predicate conf-type logins x-list restrict all conf 3 pers login none] 4]) #@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) "\306\307\310\307\211\311\307\312\307\211\313!\314\307\211\"23 42\204\203\315 \n\"\210 \312H\316=\203} \317H\320=\203g4J\321>\204[ \322=\203U\3233\324\"\210\202[\3233\320\"\2104\325L\210\326\n!\210\202x4\327L\210\3233 \317H\"\210\326\n!\210\316\202$ \312H\330=\203\254\316 \312U\203\232\3313\3324\307 T\3233 \317H\"\210\326\n!\210\202$ \312H\333=\203\345\316\3233 \317H\"\210 \312V\203\336 S\211\312U\203\336 \244 \3104\3113\326\n!\210\202$ \312V\203  \312H\334>\203 \322\307\307\3104\3113\335\n \"\210\312\202$ \312H\336=\203$4J\337>\203$\307\340\n!\210\202$ \312H\341>\203[ \312U\203[\3224J\342>\203C\343\2112\202&\f\204O\3233\344\"\210\343\345\n!\2104\327L\210\202$ \312H\346=\203l\322\347\n!\210\202$ \312H\350=\203{\343\2112\202&\351\352 \"\210\202$ @\324=\203\220 A  \237 \344 >\203\276\344 >G56\203\266\353\354\3555S\356\"B7\"7\357\344 \" )\360\361 \"\260.\f\207" [string-list next-char-state data-list last-event-worth-noting have-here paren-depth start-of-string nil main-state main-accumulator 0 lyskom-complete-string-munge-input vector lyskom-complete-string-next-char match 1 32 (start-of-word start-of-string) mismatch lyskom-complete-string-accumulate SPC start-of-word lyskom-complete-string-advance in-a-word open-paren-match tmp-accumulator tmp-state close-paren-match (mismatch space-mismatch open-paren-mismatch) lyskom-complete-string-close-parens space-mismatch (start-of-string start-of-word) lyskom-complete-string-skip-whitespace (mismatch space-mismatch) (start-of-word start-of-string) t HERE lyskom-complete-string-advance-to-end-of-word open-paren-mismatch lyskom-complete-string-skip-parens eof error "This can't happen: %S" append 5 make-list 2 delq mapcar #[(el) "\301=\203\302\207\207" [el SPC 32] 2] done current-accumulator current-state backup lyskom-experimental-features unread-command-events] 15 (#$ . 649464)]) (defalias 'lyskom-complete-string-accumulate #[(accumulator char) " JBL\207" [accumulator char] 3]) (defalias 'lyskom-complete-string-munge-input #[(string-list) "\301\302\"\207" [string-list mapcar #[(x) "\301\302G#\207" [x vector 0] 4]] 3]) (defalias 'lyskom-complete-string-advance #[(data-list) "\306 \211<\206 \nG\307\307\307\n<\2035\n\203V\n@\310\311\f\312H\f\306H#\210\f\306\211\225I\210\nA\211\202 W\203V\nH\310\311\f\312H\f\306H#\210\f\306\211\225I\210T\211\2026 -\207" [__i__ data-list __sequence__ __len__ el __result__ 0 nil string-match "\\([ ]+\\|[^ ]\\|$\\)" 2] 6]) (defalias 'lyskom-complete-string-skip-whitespace #[(data-list) "\306 \211<\206 \nG\307\307\307\n<\2035\n\203V\n@\310\311\f\312H\f\306H#\210\f\306\211\225I\210\nA\211\202 W\203V\nH\310\311\f\312H\f\306H#\210\f\306\211\225I\210T\211\2026 -\207" [__i__ data-list __sequence__ __len__ el __result__ 0 nil string-match "[ ]*" 2] 6]) (defalias 'lyskom-complete-string-advance-to-end-of-word #[(data-list) "\306 \211<\206 \nG\307\307\307\n<\2032\n\203P\n@\211\306\310\311\f\312H\f\306H#I\210\nA\211\202 W\203P\nH\211\306\310\311\f\312H\f\306H#I\210T\211\2023 -\207" [__i__ data-list __sequence__ __len__ el __result__ 0 nil string-match "\\([ ]\\|$\\)" 2] 8]) (defalias 'lyskom-complete-string-skip-parens #[(data-list) "\306 \211<\206 \nG\307\307\307\n<\203>\n\203h\n@\211\310H\f\306HH\311=\2037\f\306\f\306HTI\210\312\f\313\"\210\nA\211\202 W\203h\nH\211\310H\f\306HH\311=\203a\f\306\f\306HTI\210\312\f\313\"\210T\211\202? -\207" [__i__ data-list __sequence__ __len__ el __result__ 0 nil 2 40 lyskom-complete-string-close-parens-2 1] 5]) (defalias 'lyskom-complete-string-close-parens #[(data-list depth) "\306 \211<\206 \nG\307\307\307\n<\203+\n\203B\n@\310\f \"\210\nA\211\202 W\203B\nH\310\f \"\210T\211\202, -\207" [__i__ data-list __sequence__ __len__ el __result__ 0 nil lyskom-complete-string-close-parens-2 depth] 4]) (defalias 'lyskom-complete-string-close-parens-2 #[(el depth) "\304H\305H \305V\2039 \nGY\203\305\2023\n H\306=\203( S\2023\n H\306=\2033 T T\202\305 I*\207" [el pos string depth 2 0 41] 3]) (defalias 'lyskom-complete-string-next-char #[(state data-list) "\306\211\211\307\306\211\211p\310\216q\210\311\312\"\210*\313I\210\2033\314\315I\210\202\202 \203D \203D\314\316I\210\202\202 \203U\f\203U\314\317I\210\202\202 \203b\314\320I\210\202\202\n\203o\314\321I\210\202\202 \203|\314\322I\210\202\202\314\323I\210.\207" [xchar char spacep matchp close-paren-p open-paren-p nil t ((set-buffer __buffer__)) mapcar #[(x) "\306H\307HY\203\310\311\202A\312H\306HH\313=\203\"\310\202A\312H\306HH\314=\2033\310\202A\312H\306HH\315=\203A\310\n\205\332\204\225\312H\306HH\211\316!GW\203k\316!H\202\216\317\"\211\203\214\316!GW\203\214\316!H\202\216)\211\202\332\312H\306HH\316!GW\203\265\316!H\202\330\317\"\211\203\326\316!GW\203\326\316!H\202\330)=\211\207" [x eofp matchp open-paren-p close-paren-p spacep 0 1 t nil 2 40 41 32 char-to-int lyskom-encode-coding-char char xchar c lyskom-collate-table lyskom-server-coding-system] 6] 1 0 eof open-paren-match close-paren-match match space-mismatch open-paren-mismatch mismatch eofp __buffer__ lyskom-buffer data-list state] 7]) (defalias 'lyskom-read-session-no #[(prompt &optional empty initial only-one) "\306\307 \203 \310\202\f\311\n \312%!\211G\313V\203# \203#\314\f!\202$\f)\207" [prompt kom-permissive-completion empty initial possible-matches only-one lyskom-session-from-conf lyskom-read-conf-no (pers) (login) t 1 lyskom-read-session-resolve-ambiguity] 8]) (defalias 'lyskom-session-from-conf #[(conf-no) "\306 \307\n\203, \203O @\211A\310H)\f=\203% @\211A\311H)B A\211\202\n \203O @\211A\311\234)\f=\203H @\211A\312\234)B A\211\2040\204^ \203^\f[C\202_*\207" [sessions who-list lyskom-dynamic-session-info-feature-flag dynamic-session-info conf-no who-info lyskom-completing-who-is-on nil 1 0 2 kom-permissive-completion] 3]) (defalias 'lyskom-read-session-resolve-ambiguity #[(sessions) "\306\307!\210\310\311\312\313\"\"T\314 \315\211#\314 \316\317#\320\n\321\322\323!\322\324!$\210\320\n\321\322\325!\322\326!$\210\306\327\330 \331Z\332\"\307P!\210\333\312\334\335\336\"\"\306\327\330 \331Z\332\"\307P!\210\306\337\340\fG\"!\210\341 \210\312\342,\"-\343\216\344\345\346\"\210\347\322\350!\351\f!\333\352\f@@\333&\211*\321\230\204\\\353 \f\"A\211.A\331\234.C\207" [sessions s-width format-string-s format-string-p who-info result lyskom-insert "\n" apply max mapcar #[(x) "\301\302!!\207" [x string-width int-to-string] 3] lyskom-info-line-format-string "s" "P" "M" lyskom-format-insert "" lyskom-get-string lyskom-name is-in-conf from-machine is-doing make-string lyskom-window-width 2 45 nil #[(el) "\306\307\"\306\310 \211A\311\234)\"\312\f\313\314 \211A\315\234) \211A\315\234) =\203+\316\202,\317# \211A\320\234) \206;\321\322!$\210\312\f\323\324 !\325 \211A\326\234)\327Q$\210\330 \211A\315\234)! *B\207" [el info session-info confconfstat format-string-p lyskom-session-no blocking-do get-session-info get-uconf-stat 1 lyskom-format-insert format "%d%s" 2 "*" " " 0 lyskom-get-string not-present-anywhere "" lyskom-return-username "(" 3 ")" number-to-string] 8] sort < lyskom-format total-users-sans-date lyskom-scroll symbol-value ((byte-code "\300\301\302\"\207" [remove-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables] 3)) add-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables lyskom-completing-read resolve-session lyskom-maybe-frob-completion-table t assoc lyskom-minibuffer-variables lyskom-minibuffer-values session-info] 8]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: command.el,v 44.40 2000/11/18 12:19:45 joel Exp $\n" nil] 2) (defalias 'lyskom-fix-interactive-decl #[(decl command) "A@;\203 \207\302\303\304\305 DDCABBD\207" [decl command interactive let lyskom-current-command quote] 5]) (defalias 'def-kom-command '(macro . #[(cmd args doc interactive-decl &rest forms) ";\204\306\307 \"\210\n B\310\n@\311=\204$\306\312 \"\210\n B\313\314\315\316 \"!\317 \320\n \"\321\322 DD\323\f\324BC\325\326\327\330 B\331BBB\332\333\334\fD\335\fDE\336BBEE\257)\207" [doc cmd interactive-decl forms bufsym args message "!! No docstring for command %S" "" interactive "!! Missing interactive declaration for %S; assuming (interactive)" (interactive) intern format "%S-start-buffer" defun lyskom-fix-interactive-decl lyskom-start-of-command quote let ((current-buffer)) unwind-protect condition-case nil progn ((quit (ding) (lyskom-insert-before-prompt (lyskom-get-string 'interrupted)))) lyskom-save-excursion when buffer-live-p set-buffer ((lyskom-end-of-command))] 15])) (defalias 'def-kom-emacs-command '(macro . #[(cmd args doc interactive-decl &rest forms) ";\204\306\307 \"\210\n B\310\n@\311=\204$\306\312 \"\210\n B\313\314\315\316 \"!\314\315\317 \"!\320 %\321\n \"\322 \323BC\324\325\326\327\330 DD\331 \332BBE\333BBB\322\f\334BC\335\324\325\326 B\336BBB\337 \340\341\342\fD\343\fDE\344BBEEEF\257*\207" [doc cmd interactive-decl forms bufsym rsym message "!! No docstring for command %S" "" interactive "!! Missing interactive declaration for %S; assuming (interactive)" (interactive) intern format "%S-running-as-kom-command" "%S-start-buffer" defun lyskom-fix-interactive-decl let (nil) condition-case nil progn lyskom-start-of-command quote setq (t) ((error nil)) ((current-buffer)) unwind-protect ((quit (ding) (lyskom-insert-before-prompt (lyskom-get-string 'interrupted)))) and lyskom-save-excursion when buffer-live-p set-buffer ((lyskom-end-of-command)) args] 19])) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put def-kom-command edebug-form-spec (&define name lambda-list [&optional stringp] ("interactive" interactive) def-body) def-kom-emacs-command (&define name lambda-list [&optional stringp] ("interactive" interactive) def-body)] 4) #@46 Get the command name for the command COMMAND (defalias 'lyskom-command-name #[(command) "\300\301\302\217\207" [nil (byte-code "\301\302\"\207" [command lyskom-get-string lyskom-command] 3) ((error))] 3 (#$ . 659751)]) (put 'lyskom-command-name 'byte-optimizer 'byte-compile-inline-expand) #@61 Returns non-nil if it is ok to do such a command right now. (defalias 'lyskom-ok-command #[(alternative administrator) "\203\n A\n>?\207 A >?\207" [administrator alternative lyskom-admin-removed-commands lyskom-noadmin-removed-commands] 2 (#$ . 660048)]) #@52 Read a LysKOM function name and call the function. (defalias 'kom-extended-command #[nil "\302!\211\203\303 !\202\304 )\207" [current-prefix-arg fnc lyskom-read-extended-command call-interactively kom-next-command] 3 (#$ . 660311) nil]) #@29 Reads and returns a command (defalias 'lyskom-read-extended-command #[(&optional prefix-arg) "\306 \307\310\311\n\312\"\"\313 \314=\203\315\202B \316\232\203\"\317\202B \250\203.\320\321 \"\202B :\203A @\250\203A\320\321 @\"\202B\313\211 \203Q \322\323!P\202T\322\323!!\307\324\"\"#\325\216\326\301\327\"\210\330!\331 !\332\333\334\335$EE\306\313\336&*\337\f \"A.\207" [completion-ignore-case minibuffer-setup-hook lyskom-commands alternatives name prefix-arg t mapcar #[(pair) "A@B\207" [pair] 2] lyskom-get-strings lyskom-command nil - "- " (4) "C-u " format "%d " lyskom-get-string extended-command symbol-value ((byte-code "\300\301\302\"\207" [remove-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables] 3)) add-hook lyskom-setup-minibuffer-variables lyskom-completing-read lyskom-maybe-frob-completion-table lambda (alternative) lyskom-ok-command alternative lyskom-command-history lyskom-string-assoc prefix-text prompt lyskom-minibuffer-variables lyskom-minibuffer-values lyskom-is-administrator] 9 (#$ . 660560)]) #@223 Build a list of alternatives for completion of LysKOM commands. Each list element is a vector [NAME COMMAND CANONICAL]. NAME is the command name, COMMAND is the command and CANONICAL is the name transformed for matching. (defalias 'lyskom-update-command-completion #[nil "\302\303\304\305\"\"\211\207" [lyskom-commands lyskom-command-alternatives mapcar #[(el) "\301A@\302\303A!!\303A!$\207" [el vector lyskom-completing-strip-command lyskom-unicase] 6] lyskom-get-strings lyskom-command] 5 (#$ . 661627)]) #@59 Look up the command that corresponds to a certain string. (defalias 'lyskom-lookup-command-by-name #[(string &optional predicate) "\302 \303#\207" [string predicate lyskom-complete-command lyskom-lookup] 4 (#$ . 662147)]) (defalias 'lyskom-command-match-string-regexp #[(string) "\301\302\303\304\305!!!\306\307#\310Q\207" [string "^\\s-*" replace-in-string regexp-quote lyskom-unicase lyskom-completing-strip-command "\\s-+" "\\\\S-*\\\\s-+" "\\s-*"] 6]) (put 'lyskom-command-match-string-regexp 'byte-optimizer 'byte-compile-inline-expand) #@130 Strip parens and crap from a name. If optional DONT-STRIP-SPACES is non-nil, don't strip spaces at front and back of the string. (defalias 'lyskom-completing-strip-command #[(string) "\301\302\"\203\303\304\305\211$\202\301\306\"\203\"\303\307\305\211$\202\301\310\"\2032\311\211\224O\202\"\207" [string string-match "([^()]*)" replace-match "" t "\\s-\\s-+" " " "([^()]*$" 0] 5 (#$ . 662698)]) #@42 Completion function for LysKOM commands. (defalias 'lyskom-complete-command #[(string predicate all) "\306\307\"\203 \310\225\311O\311\312\313\314\315\316!!!\317\320#\321Q)\315!\311\310\211 <\2065 G!\311\"\311#\311# <\203\217 \203\331 @\"\306 \"\322\234\"\203\206$\203g$\"!\203\206%\323=\203s\"\202w\"\310\234\fB\n\"\324\234\230\203\206\" A\211 \202H !W\203\331 H\"\306 \"\322\234\"\203\322$\203\263$\"!\203\322%\323=\203\277\"\202\303\"\310\234\fB\n\"\324\234\230\203\322\" T\211\202\220-%\323=\203\353 \205g \325\234\202g%\326=\203\366 \202g%\203\377\f\202g\f\204\311\202g\fG\325U\203 \203\327\202g\330\f!&\306\314\315&!!\331P\n\"\2030&\332P\2022&\311\211'()\333)!\203d'\204K*\204d\334)(\206`+\203_\335+!\206`\336\"\202f),,\207" [string exact u-string m-string alternatives __i__ string-match "^\\s-+" 0 nil "^\\s-*" replace-in-string regexp-quote lyskom-unicase lyskom-completing-strip-command "\\s-+" "\\\\S-*\\\\s-+" "\\s-*" 2 lyskom-lookup 3 1 lambda t lyskom-complete-string "\\s-" " " multibyte-string-p encode-coding-string lyskom-language-coding raw-text lyskom-command-alternatives __sequence__ __len__ el __result__ predicate all tmp force coding s enable-multibyte-characters lyskom-language] 8 (#$ . 663118)]) (defalias 'lyskom-command-complete-word #[nil "\304\305  #\211\204\306\307!\210\310\202Z\n\311=\203\310\202Z\305 \312\n!\312 !\230\203@\313\314\n\"\204@\304 \315P #\211;\203@ \312\n!\312\305 !\230\203R\316 \210\310\202Y\317 \210\nc\210\311))\207" [minibuffer-completion-table minibuffer-completion-predicate completion tmp try-completion buffer-string minibuffer-message " [No match]" nil t lyskom-unicase string-match "\\s-$" " " minibuffer-completion-help erase-buffer] 5 nil nil]) #@858 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. If optional DEAD-OK is non-nil, don't signal an error if the session has been closed. 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 dead-ok) "\306\300!\203\306\301!\203\204 \204\307\310\311\312!\"\210\2025\n\2045\203.\313!\314>\2035\307\310\311\315!\"\210 \203C <\203C\316\317 \210\316\f\203T \204T\307\310\311\320!\"\210\306\321!\203_\204\225'\204\327(;\203r\322(!\210\202\327(\203\327(9\203\327()\316\323\324\217)\211*\203\221\322*!\210)\202\327\212+\203\251\325,db\210\326y\210`d|\210))\322\327+;\203\274\330\331+-#\202\323+9\203\316\330\331\311+!-#\202\323\332\333+\"\325\"!\210\311\334!.\335d!\203\352\212db\210\336 \210)\325(/\316+\322\337!\210\340\341 !p=\203\335dS!\203\ndb\210\342\326!\210\343\344!\2100\205(0<\203%(0>\205(\345\346!\207" [lyskom-proc lyskom-buffer dead-ok lyskom-is-waiting lyskom-executing-command may-interrupt boundp lyskom-error "%s" lyskom-get-string not-lyskom-buffer process-status (closed signal exited nil) dead-session nil lyskom-end-of-command wait-for-prompt lyskom-doing-default-command lyskom-insert (byte-code "\301\302\"\207" [command lyskom-get-string lyskom-command] 3) ((error)) t 0 lyskom-modify-prompt apply lyskom-format format "%S" mode-line-working pos-visible-in-window-p lyskom-set-last-viewed "\n" window-buffer selected-window sit-for run-hooks lyskom-before-command-hook recenter 1 lyskom-first-time-around function command name lyskom-current-prompt inhibit-read-only lyskom-current-prompt-args mode-line-process lyskom-current-command kom-page-before-command] 7 (#$ . 664964)]) #@44 Print prompt, maybe scroll, prefetch info. (defalias 'lyskom-end-of-command #[nil "p\306\216\307\310!\210\311 \210 \203V \211A@\242)\203Vn\204!\312\313!\210\312 \211A@\242)@!\210 \211\211A@)\203R\n\211A@\242)\nA\nA@A\240\210\nA@\204Q\nA\314\241\210\210)\202 \314\314\314\315 \210\316\317!\320d\321 \"\203o\322 \210\323 \210\324\325!\210\203\213\204\213\212q\210\326\327\314\"\210) \203\223\330 \210!\203\266!@\"!A!\"9\203\260\331\"!\210\202\265\332\"!\210)#\205\275\333 *\207" [__buffer__ lyskom-to-be-printed-before-prompt queue lyskom-executing-command lyskom-current-command lyskom-current-prompt ((set-buffer __buffer__)) message "" lyskom-clean-all-buffer-lists lyskom-insert "\n" nil lyskom-scroll lyskom-get-string mode-line-waiting pos-visible-in-window-p selected-window lyskom-set-last-viewed lyskom-prefetch-and-print-prompt run-hooks lyskom-after-command-hook initiate-user-active background discard-input call-interactively eval buffer-enable-undo mode-line-process lyskom-idle-time-feature-flag lyskom-is-anonymous lyskom-buffer kom-inhibit-typeahead lyskom-pending-commands command lyskom-slow-mode] 5 (#$ . 667373)]) (byte-code "\301\302!\210\303P\301\207" [lyskom-clientversion-long provide lyskom-command "$Id: buffers.el,v 44.22 2001/01/03 22:02:46 qha Exp $\n"] 2) #@50 List of buffers that are children to this buffer (defvar lyskom-buffer-children nil (#$ . 668707)) #@81 List of variables automatically inherited to sub-buffers when they are created. (defvar lyskom-buffer-inherited-variables nil (#$ . 668812)) #@18 Parent of buffer (defvar lyskom-buffer-parent nil (#$ . 668959)) #@43 Non-nil while killing a buffer hierarchy. (defvar lyskom-killing-hierarchy nil (#$ . 669030)) (byte-code "\300\301!\210\302\301!\210\300\303!\210\302\303!\210\300\304!\210\302\304!\207" [make-variable-buffer-local lyskom-buffer-parent lyskom-protect-variable lyskom-buffer-children lyskom-buffer-inherited-variables] 2) #@102 Set the parent buffer of BUFFER to PARENT. If buffer is already a child of some buffer, reparent it. (defalias 'lyskom-set-buffer-parent #[(buffer parent) "\212q\210 \203\303 !\203\304 \"\210\n\n\205\305\n\")\207" [buffer lyskom-buffer-parent parent buffer-live-p lyskom-remove-buffer-child lyskom-add-buffer-child] 3 (#$ . 669357)]) #@65 Remove CHILD from BUFFER's list of children. Args: BUFFER CHILD (defalias 'lyskom-remove-buffer-child #[(buffer child) "\212q\210\303\302!\205\304 \n\"\211)\207" [buffer child lyskom-buffer-children boundp delq] 3 (#$ . 669707)]) #@52 Add CHILD as a child of BUFFER. Args: BUFFER CHILD (defalias 'lyskom-add-buffer-child #[(buffer child) "\212q\210 \nB\211)\207" [buffer child lyskom-buffer-children] 2 (#$ . 669947)]) #@56 Return the parent of BUFFER or nil if it has no parent (defalias 'lyskom-get-buffer-parent #[(buffer) "\212q\210\302\301!\205 )\207" [buffer lyskom-buffer-parent boundp] 2 (#$ . 670139)]) #@72 Return the list of children of buffer BUFFER or nil if there are none. (defalias 'lyskom-get-buffer-children #[(buffer) "\212q\210\302\301!\205 )\207" [buffer lyskom-buffer-children boundp] 2 (#$ . 670336)]) #@48 Return the ultimate ancestor of buffer BUFFER. (defalias 'lyskom-buffer-root-ancestor #[(buffer) "\302!\211\203 \202)\207" [buffer buffer-parent lyskom-get-buffer-parent] 2 (#$ . 670553)]) #@69 Apply FUNCTION to each descendent of BUFFER. Results are discarded. (defalias 'lyskom-traverse-buffer-hierarchy #[#'buffer "C\305\211 \205/ @ A \n>\204\306 !\203 \nB\307 \310 !\"\f !\210\202+\207" [buffer current done queue function nil buffer-live-p append lyskom-get-buffer-children] 4 (#$ . 670758)]) #@72 Apply FUNCTION to each child of BUFFER and make a list of the results. (defalias 'lyskom-map-buffer-children #[#'buffer "\204\302\207 !\303\304\305\306\307!\"\"B\207" [buffer function nil apply nconc mapcar #[(x) "\302 \"\207" [function x lyskom-map-buffer-children] 3] lyskom-get-buffer-children] 7 (#$ . 671083)]) #@84 When querying if a buffer is to be killed, ensure that none of the children object (defalias 'lyskom-buffer-hierarchy-query-kill-function #[nil "\212\300\301\302\303p!\">)?\207" [nil mapcar #[(buffer) "\301!\203 q\210\302\303!\207\304\207" [buffer buffer-live-p run-hook-with-args-until-failure kill-buffer-query-functions t] 2] lyskom-get-buffer-children] 5 (#$ . 671411)]) #@57 When killing a buffer, enure that its children also die (defalias 'lyskom-buffer-hierarchy-kill-hook #[nil "\303\206p\304p\303\"\210\305p!\211\205\"\306\n@!\210\nA\211\204\303+\207" [lyskom-killing-hierarchy kill-buffer-query-functions buflist nil lyskom-set-buffer-parent lyskom-get-buffer-children kill-buffer] 4 (#$ . 671795)]) #@44 When killing a buffer, run trimming hooks. (defalias 'lyskom-buffer-kill-trim-hook #[nil "\302=\205d\303 !\210\304\305!)\207" [major-mode lyskom-trim-buffer-delete-to lyskom-mode lyskom-ignore run-hooks lyskom-trim-buffer-hook] 2 (#$ . 672142)]) (byte-code "\300\301\302\"\210\300\301\303\"\210\300\304\305\"\207" [add-hook kill-buffer-hook lyskom-buffer-hierarchy-kill-hook lyskom-buffer-kill-trim-hook kill-buffer-query-functions lyskom-buffer-hierarchy-query-kill-function] 3) #@52 Remove dead buffers from all relevant buffer lists (defalias 'lyskom-clean-all-buffer-lists #[nil "\303!\303 !\303\n!\304\305\306\"\207" [lyskom-sessions-with-unread lyskom-sessions-with-unread-letters lyskom-buffer-list lyskom-clean-buffer-list lyskom-set-default lyskom-need-prompt-update t] 3 (#$ . 672632)]) #@38 Remove all dead buffers from BUFFERS (defalias 'lyskom-clean-buffer-list #[(buffers) "\304 \203&\305 @!\203 @B\202\212 @q\210\304\304) A\211\204\237)\207" [result buffers lyskom-session-has-unread-letters lyskom-session-has-unreads nil lyskom-buffer-p] 3 (#$ . 672954)]) #@94 Remove BUFFER from all internal lists. If BUFFER is not specified, assume the current buffer (defalias 'lyskom-remove-buffer-from-lists #[(&optional buffer) "\204p\302!\210\303 \"\304\305\306\"\207" [buffer lyskom-buffer-list lyskom-remove-unread-buffer delq lyskom-set-default lyskom-need-prompt-update t] 3 (#$ . 673245)]) (defalias 'lyskom-remove-unread-buffer #[(buffer &optional letters-only) "\204\304\305 \"\210\306 \n\"\304\307 \"\210\306 \"\310\311\312\"\207" [letters-only buffer lyskom-sessions-with-unread lyskom-sessions-with-unread-letters lyskom-traverse-buffer-hierarchy #[(x) "\212q\210\302\211)\207" [x lyskom-session-has-unreads nil] 2] delq #[(x) "\212q\210\302\211)\207" [x lyskom-session-has-unread-letters nil] 2] lyskom-set-default lyskom-need-prompt-update t] 3]) (defalias 'lyskom-add-unread-buffer #[(buffer &optional letters) " >\204\304\305\"\210 B\n\203\" >\204\"\304\306\"\210 B\307\310\311\"\207" [buffer lyskom-sessions-with-unread letters lyskom-sessions-with-unread-letters lyskom-traverse-buffer-hierarchy #[(x) "\212q\210\302\211)\207" [x lyskom-session-has-unreads t] 2] #[(x) "\212q\210\302\211)\207" [x lyskom-session-has-unread-letters t] 2] lyskom-set-default lyskom-need-prompt-update t] 3]) #@76 List of (CATEGORY . BUFFER-LIST) listing all buffers of various categories (defvar lyskom-associated-buffer-list nil (#$ . 674519)) (byte-code "\300\301!\210\302\301!\207" [make-variable-buffer-local lyskom-associated-buffer-list lyskom-protect-variable] 2) #@25 Category of this buffer (defvar lyskom-buffer-category nil (#$ . 674783)) (byte-code "\300\301!\210\302\301!\207" [make-variable-buffer-local lyskom-buffer-category lyskom-protect-variable] 2) (if (and (boundp 'lyskom-saved-window-configuration) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-saved-window-configuration)) #@63 The window configuration to return to when closing the window (defvar lyskom-saved-window-configuration nil (#$ . 675215)) (byte-code "\300\301\302\303#\210\304\305\301\"\210\304\306\301\"\210\304\306\301\"\207" [put lyskom-saved-window-configuration permanent-local t add-to-list lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-dedicated-frame) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-dedicated-frame)) #@43 The frame dedicated to the current buffer (defvar lyskom-dedicated-frame nil (#$ . 675767)) (byte-code "\300\301\302\303#\210\304\305\301\"\210\304\306\301\"\210\304\306\301\"\207" [put lyskom-dedicated-frame permanent-local t add-to-list lyskom-protected-variables lyskom-local-variables] 4) (if (and (boundp 'lyskom-dedicated-window) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-dedicated-window)) #@44 The window dedicated to the current buffer (defvar lyskom-dedicated-window nil (#$ . 676279)) (byte-code "\300\301\302\303#\210\304\305\301\"\210\304\306\301\"\210\304\306\301\"\207" [put lyskom-dedicated-window permanent-local t add-to-list lyskom-protected-variables lyskom-local-variables] 4) #@52 The top of the buffer hierarchy being undisplayed. (defvar lyskom-undisplaying-hierarchy nil (#$ . 676581)) (defalias 'lyskom-clean-up-buffer-category #[(cat) "\303\304!\236A\305\211\203 \306\n@!\203\n@ B\nA\211\204 \307 \237\"*\207" [cat result buffers lyskom-default-value lyskom-associated-buffer-list nil buffer-live-p lyskom-set-buffers-of-category] 4]) (defalias 'lyskom-set-buffers-of-category #[(category buflist) "\303\304!\236\211\203 \n\241\202\305\304\nB\303\304!B\")\207" [category tmp buflist lyskom-default-value lyskom-associated-buffer-list lyskom-set-default] 6]) #@40 Return all live buffers of catgory CAT (defalias 'lyskom-buffers-of-category #[(cat) "\301!\210\302\303!\236A\207" [cat lyskom-clean-up-buffer-category lyskom-default-value lyskom-associated-buffer-list] 3 (#$ . 677186)]) #@45 Add BUFFER as a buffer of category CATEGORY (defalias 'lyskom-add-buffer-of-category #[(buffer category) "\303\304!\236\211\203 \n AB\241\202\305\306\nCB\303\304!B\")\207" [category tmp buffer lyskom-default-value lyskom-associated-buffer-list lyskom-set-default 'lyskom-associated-buffer-list] 6 (#$ . 677416)]) (defalias 'lyskom-quit-query #[nil "\301\300!\203)\302\300p\"\203)p=\203)\303\304!\203)\305\216\306\303\304!@!\210\307\310\311!!)\207\312\207" [lyskom-buffer boundp local-variable-p lyskom-buffers-of-category write-texts nil display-buffer lyskom-ja-or-nej-p lyskom-get-string quit-in-spite-of-unsent t] 3]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [add-hook kill-buffer-query-functions lyskom-quit-query kill-emacs-query-functions] 3) (defalias 'lyskom-recode-buffer-name #[(name) "\303!\203 \204\304\n\203\305\n!\206\306\"\207\303!\2042 \2032\307\n\203/\305\n!\2060\306\"\207\207" [name enable-multibyte-characters lyskom-language multibyte-string-p encode-coding-string lyskom-language-coding raw-text decode-coding-string] 4]) (defalias 'lyskom-generate-new-buffer #[(name) "\302!\303!\212 q\210) )\207" [name buf lyskom-recode-buffer-name generate-new-buffer] 2]) #@255 Create a new buffer of category CATEGORY with name generated from NAME. If UNIQUE is non-nil, re-use the first existing buffer of category CATEGORY, renaming it and killing its local variables. The created buffer is made a child of the current buffer. (defalias 'lyskom-get-buffer-create #[(category name &optional unique) "\306!\307 !\310\f\203: \203: @\212\nq\210\311\312\313\"\314 \210)\315 \210\316p!\232\2046\317\311\"\210)\202C\320!\321\n \"\210\322\np\"\210\323\n!\210\212\nq\210 )\n*\207" [name category buffer buffers unique inhibit-read-only lyskom-recode-buffer-name lyskom-buffers-of-category nil t delq widget-before-change erase-buffer kill-all-local-variables buffer-name rename-buffer generate-new-buffer lyskom-add-buffer-of-category lyskom-set-buffer-parent lyskom-update-inherited-variables before-change-functions lyskom-buffer-category] 3 (#$ . 678647)]) #@82 Update all inherited variables in this buffer and propagate them to all children (defalias 'lyskom-update-inherited-variables #[(buffer) "\212\306 q\210\f\203/\fq\210\307\310\" q\210 \203/\311 @!\210 @\n@L\210 A\nA\202\307\312 \"+\207" [lyskom-inherited-variables tmp variables buffer lyskom-buffer-parent lyskom-buffer-children nil mapcar symbol-value make-local-variable lyskom-update-inherited-variables] 3 (#$ . 679551)]) #@290 Display the buffer BUFFER and select the window displaying it. If BUFFER is already visible in some window in any frame, iconified or otherwise, make that window visible. Otherwise display buffer as per which category it is in. Selects the window. Returns the window displaying BUFFER. (defalias 'lyskom-display-buffer #[(buffer) "q\210\306\307\310#\307\211\211\203@\311\312 @!!\2039\313\312 @!!\314=\203+ @\2029\313\312 @!!\2039 @\307 A\211\204 \203L\315 !\210 \202\214\n\203^\316\312\n!!\210\315\n!\210\n\202\214\f\307\211/\204r\315\317!!\210\320 \202\213\321\322\323/!\324Q!0\3250!1\212\326\327!\203\217\206\220pq\210\330 )2\3073\30741\204\254\331!\210\320 \202Y1\332>\203\301\333!\210\320 4\320 \202Y1\334=\203\345\335 \336 =\203\327\337!\210\202\337\334\340!\210\331!\210\320 \202Y1\341=\203\337!\210\335 3\320 4\320 \3072\202Y1;\204\3421!\203R\3061\307\343#\203R\3061\307\343#\2115@5\203F\3125@!\335 =\203=5@\307\2115\202$5A\2115\204'\315 !\210\331!\210)\202Y\331!\210\320 \315 !\210q\210\344\345!\2103%\344\346!\2104&\344\347!\2102'\350\351!\210\352\351\353\307\354$\210\355\351\356\354#\210 -*+\207" [buffer visible-frame iconified-frame windows lyskom-buffer-category window lyskom-get-buffer-window-list nil 0 frame-live-p window-frame frame-visible-p icon select-window make-frame-visible display-buffer selected-window intern-soft "kom-" symbol-name "-in-window" lyskom-default-value-safe boundp lyskom-buffer current-window-configuration switch-to-buffer (other other-window) switch-to-buffer-other-window other-frame selected-frame next-frame switch-to-buffer-other-frame 1 new-frame bufferp visible make-local-variable lyskom-dedicated-frame lyskom-dedicated-window lyskom-saved-window-configuration make-local-hook kill-buffer-hook add-hook lyskom-undisplay-buffer-hook t put permanent-local category sym open saved-window-configuration dedicated-frame dedicated-window tmp] 6 (#$ . 679995)]) (defalias 'lyskom-undisplay-buffer-hook #[nil "\212\300p!)\207" [lyskom-undisplay-buffer] 2]) #@76 Undisplay BUFFER. If buffer is not specified, undisplay the current buffer (defalias 'lyskom-undisplay-buffer #[(&optional buffer) "\206p\306\301!\205 \306\302!\205\n\206 \306\304!\205 \f\211\203D\307\310\311\312\313#\">\205\243\314!\210\312\211\202\243\203T=\204T\312\202\243 \203b =\204b\312\202\243\203\234\315!\203\222\316!\317!=\203\222\320!=\203\212\321!\210\202\217\322!\210\312 \205\243\323 !\202\243 \205\243\323\f!,\207" [buffer lyskom-dedicated-frame lyskom-dedicated-window lyskom-undisplaying-hierarchy lyskom-saved-window-configuration saved-window-configuration boundp mapcar window-frame lyskom-get-buffer-window-list nil t delete-frame window-live-p get-buffer window-buffer next-window bury-buffer delete-window lyskom-set-partial-window-configuration dedicated-window dedicated-frame lyskom-killing-hierarchy] 8 (#$ . 682103)]) #@121 Set CONFIGURATION as the current window configuration with the exception of point mark and window-start in all windows. (defalias 'lyskom-set-partial-window-configuration #[(configuration) "\303\303\212\304\305\306 \"\307\310\311\211#\210)\312\216\313\n!+\207" [info binfo configuration nil mapcar #[(b) "q\210`\301\302!E\207" [b mark t] 4] buffer-list walk-windows #[(w) "\302!q\210\303!\304!\302!F B\211\207" [w info window-buffer window-start window-point] 5] t ((byte-code "\306 \307\216\310\211\211\211\211\203?@\311\234@\312\234@\313\234\314 !\2036 q\210 b\210\315\n!\210A\211\204\203}@\311\234@\312\234@\313\234@\316\234\317\f!\203t\320\f! =\203t\321\f \"\210\322\f \"\210A\211\204D.\310\207" [save-selected-window-window saved-start saved-mark saved-point window buffer selected-window ((select-window save-selected-window-window)) nil 0 1 2 buffer-live-p set-mark 3 window-live-p window-buffer set-window-start set-window-point binfo info] 6)) set-window-configuration] 4 (#$ . 683021)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: aux-items.el,v 44.21 2001/01/28 21:16:07 joel Exp $\n" nil] 2) (if (and (boundp 'lyskom-aux-item-definitions) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-aux-item-definitions)) #@31 List of aux item definitions. (defvar lyskom-aux-item-definitions nil (#$ . 684429)) (defalias 'def-aux-item '(macro . #[(name number &rest data) "\303\304\305\306\307\307\211\310\311 DE\311\nDEEEE\207" [number name data setq lyskom-aux-item-definitions add-to-list 'lyskom-aux-item-definitions cons 'name quote] 11])) (defalias 'lyskom-aux-item-definition->name #[(def) "\301\236A\207" [def name] 2]) (defalias 'lyskom-aux-item-definition->number #[(def) "@\207" [def] 1]) #@42 Apply FN to every aux item in TEXT-STAT. (defalias 'lyskom-map-aux-items #[(fn text-stat) "\211A\305\234)\211\205. @\203& \211A\306H)\211A\307H)\204&\f @!\210 A\211\204\f\310)\207" [text-stat items aux-item aux-item-flags fn 7 4 0 nil] 3 (#$ . 684912)]) (defalias 'lyskom-aux-item-try-call #[(item method default &rest args) "\211:\205 @\306=)\203\307!\n<\203H\310\211\n\203<\311\n@\"\2035\312\311\n@\" \"\313\310\nA\211\204 \203D\f\202F\f*\207\311\n\"\203W\312\311\n\" \"\207\f\207" [item aux-item method found result args AUX-ITEM lyskom-find-aux-item-definition nil lyskom-aux-item-definition-field apply t default] 5]) (defalias 'lyskom-aux-item-call #[(def method &rest args) "\303\304 \305\n%\207" [def method args apply lyskom-aux-item-try-call nil] 6]) (defalias 'lyskom-aux-item-definition-field #[(def method) "\211:\205 @\303=)\203\304!\n\236A\207" [def aux-item method AUX-ITEM lyskom-find-aux-item-definition] 3]) (defalias 'lyskom-find-aux-item-definition #[(aux) "\211A\303H)\n\236\207" [aux aux-item lyskom-aux-item-definitions 1] 3]) #@196 Return a list of all aux-items in ITEM-LIST that match PREDICATE. PREDICATE should receives a single aux-item as its argument and should return non-nil if the item is to be included in the list. (defalias 'lyskom-match-aux-items #[(item-list predicate) "\303 \203\n @!\203 @B A\211\204\237)\207" [result item-list predicate nil] 3 (#$ . 686020)]) #@49 Return all aux-items in ITEM-LIST with tag TAG. (defalias 'lyskom-get-aux-item #[(item-list tag) "\301\302\"\207" [item-list lyskom-match-aux-items #[(el) "\211A\303H)\n=\207" [el aux-item tag 1] 3]] 3 (#$ . 686384)]) (defalias 'lyskom-aux-item-terminating-button #[(item obj) "\203F\306\307\310\311\211\242)\312=\203%\313\211A\314\234) \211A\314H)E\202C\211\242)\315=\203B\316\211A\314\234) \211A\314H)E\202C \"\"\207\317\207" [obj object text-stat item aux-item conf-stat lyskom-format " %#1@%[[*]%]" lyskom-default-button aux TEXT-STAT text 0 CONF-STAT conf ""] 9]) (defalias 'lyskom-aux-item-after-parse #[(item) "\301\302\303#\210\207" [item lyskom-aux-item-try-call decode-data nil] 4]) (defalias 'lyskom-aux-item-output-data #[(item) "\302\303\211A\304H)$\207" [item aux-item lyskom-aux-item-try-call encode-data 6] 6]) (byte-code "\301\300\302\303\304B\305BB\"\301\300\306\303\307B\310BB\"\301\300\311\303\312B\313BB\"\301\300\314\303\315B\316BB\"\301\300\317\303\320B\321BB\"\301\300\322\303\323B\324BB\"\301\300\325\303\326B\327BB\"\301\300\330\303\331B\332BB\"\301\300\333\303\334B\335BB\"\301\300\336\303\337B\340BB\"\301\300\341\303\342B\343BB\"\301\300\344\303\345B\346BB\"\301\300\347\303\350B\351BB\"\301\300\352\303\353B\354BB\"\301\300\355\303\356B\357BB\"\301\300\360\303\361B\362BB\"\301\300\363\303\364B\365BB\"\301\300\366\303\367B\370BB\"\301\300\371\303\372B\373BB\"\301\300\374\303\375B\376BB\"\301\300\377\303\201@B\201ABB\"\301\300\201B\303\201CB\201DBB\"\301\300\201E\303\201FB\201GBB\"\301\300\201H\303\201IB\201JBB\"\301\300\201K\303\201LB\201MBB\"\301\300\201N\303\201OB\201PBB\"\301\300\201Q\303\201RB\201SBB\"\301\300\201T\303\201UB\201VBB\"\301\300\201W\303\201XB\201YBB\"\301\300\201Z\303\201[B\201\\BB\"\301\207" [lyskom-aux-item-definitions add-to-list 1 name content-type ((text-print-when . never) (parse . lyskom-parse-content-type) (text-print . lyskom-print-content-type) (info . lyskom-aux-item-info)) 2 fast-reply ((parse) (parse-data . lyskom-aux-item-decode-data) (encode-data . lyskom-aux-item-encode-data) (info . lyskom-aux-item-info)) 3 cross-reference ((status-print . lyskom-status-print-cross-reference) (text-print-when . comment) (parse . lyskom-parse-cross-reference) (parse-data . lyskom-aux-item-decode-data) (encode-data . lyskom-aux-item-encode-data) (text-print . lyskom-print-cross-reference) (edit-insert . lyskom-edit-insert-cross-reference) (info . lyskom-aux-item-info)) 4 no-comments ((text-print-when . footer) (parse . lyskom-parse-no-comments) (text-print . lyskom-print-no-comments) (edit-insert . lyskom-edit-insert-no-comments) (info . lyskom-aux-item-info)) 5 personal-comment ((text-print-when . footer) (parse . lyskom-parse-personal-comments) (text-print . lyskom-print-personal-comments) (edit-insert . lyskom-edit-insert-personal-comments) (info . lyskom-aux-item-info)) 6 request-confirmation ((text-print-when . header) (parse . lyskom-parse-request-confirmation) (text-print . lyskom-print-request-confirmation) (edit-insert . lyskom-edit-insert-request-confirmation) (info . lyskom-aux-item-info) (read-action . lyskom-request-confirmation-action)) 7 read-confirm ((text-print-when . header) (text-print . lyskom-print-read-confirm) (info . lyskom-aux-item-info)) 8 redirect ((print . lyskom-print-redirect) (info . lyskom-aux-item-info)) 9 x-face ((print . lyskom-print-xface) (info . lyskom-aux-item-info)) 10 alternate-name ((text-print-when . header) (text-print . lyskom-print-alternate-name) (encode-data . lyskom-aux-item-encode-data) (parse-data . lyskom-aux-item-decode-data) (info . lyskom-aux-item-info)) 11 pgp-signature ((info . lyskom-aux-item-info)) 12 pgp-public-key ((info . lyskom-aux-item-info)) 13 e-mail-address ((info . lyskom-aux-item-info)) 14 faq-text ((info . lyskom-aux-item-info) (status-print . lyskom-status-print-faq-text)) 15 creating-software ((info . lyskom-aux-item-info) (text-print-when . header) (parse-data . lyskom-aux-item-decode-data) (encode-data . lyskom-aux-item-encode-data) (text-print . lyskom-print-creating-software)) 16 mx-author ((info . lyskom-aux-item-info)) 17 mx-from ((info . lyskom-aux-item-info)) 18 mx-reply-to ((info . lyskom-aux-item-info)) 19 mx-to ((info . lyskom-aux-item-info)) 20 mx-cc ((info . lyskom-aux-item-info)) 21 mx-date ((info . lyskom-aux-item-info)) 22 mx-message-id ((info . lyskom-aux-item-info)) 23 mx-in-reply-to ((info . lyskom-aux-item-info)) 24 mx-misc ((info . lyskom-aux-item-info)) 25 mx-allow-filter ((info . lyskom-aux-item-info)) 26 mx-reject-forward ((info . lyskom-aux-item-info)) 27 notify-comments ((info . lyskom-aux-item-info)) 28 faq-for-conf ((text-print . lyskom-print-faq-for-conf) (text-print-when . header) (info . lyskom-aux-item-info)) 29 recommended-conf ((info . lyskom-aux-item-info)) 30 allowed-content-type ((info . lyskom-aux-item-info))] 5) (defalias 'lyskom-aux-item-decode-data #[(item) "\304\211A\305H)\n\"\211A\305 I*\207" [item aux-item lyskom-server-coding-system data decode-coding-string 6] 5]) (defalias 'lyskom-aux-item-encode-data #[(item) "\303\211A\304H)\n\"\207" [item aux-item lyskom-server-coding-system encode-coding-string 6] 4]) (defalias 'lyskom-aux-item-info #[(item header) "\305!\306\307!\n\310\311\312\211A\313H)\211A\314H) \203#\315 !\202$\316\211A\317H)\320\211A\321H)!\211A\322H)\211A\313H)\203M\323\324\306\325!\"\202N\326\327\330\331\332\211A\322H)\211A\317H)\205e\306\333!\211A\322H)\211A\321H)\205x\306\334!\211A\322H)\211A\314H)\205\213\306\335!E\"\336#\211A\322H)\211A\314H)\204\245\306\337!\202\324\211A\340H)\313U\203\267\306\341!\202\324\211A\340H)\314=\203\311\306\342!\202\324\311\343\211A\340H)S\"\211A\344H)&\nR)\207" [item def header aux-item aux-item-flags lyskom-find-aux-item-definition lyskom-get-string aux-item-for "\n" lyskom-format aux-item-info 0 1 lyskom-aux-item-definition->name "unknown" 2 lyskom-return-date-and-time 3 4 format "(%s)" deleted "" mapconcat identity delq nil secret hide-creator inherit ", " no-inheritance 5 unlimited-inherit no-more-inherit inherit-steps 6] 20]) (defalias 'lyskom-print-content-type #[(item &optional obj) "\303\304\211A\305H)\"\306\n\"P\207" [item aux-item obj lyskom-format content-type-aux 6 lyskom-aux-item-terminating-button] 5]) (defalias 'lyskom-parse-content-type #[nil "\300\301\302!!\205 \303\304!\207" [looking-at lyskom-get-string content-type-regexp match-string 1] 3]) (defalias 'lyskom-parse-cross-reference #[nil "\300\301\302!!\203\303\304\305!P\206-\300\301\306!!\203 \307\304\305!P\206-\300\301\310!!\205-\311\304\305!P\207" [looking-at lyskom-get-string cross-reference-text-regexp "T" match-string 1 cross-reference-conf-regexp "C" cross-reference-pers-regexp "P"] 3]) (defalias 'lyskom-edit-insert-cross-reference #[(item pers) "\302\303 #\207" [item pers lyskom-print-cross-reference nil] 4]) (defalias 'lyskom-print-cross-reference #[(item &optional obj pers) "\211A\304H)\305U\203\n\203\n\202\211A\304H)\306\307\211A\310H)\"\203<\311\312\313\314\315\211A\310H)\"!\n#\202\207\306\316\211A\310H)\"\203\\\311\317\313\314\315\211A\310H)\"!\n#\202\207\306\320\211A\310H)\"\203|\311\321\313\314\315\211A\310H)\"!\n#\202\207\311\322\211A\310H)\n#\323 \"P)\207" [item aux-item pers obj 2 0 string-match "^P\\([0-9]+\\)" 6 lyskom-format cross-reference-pers-aux string-to-int match-string 1 "^C\\([0-9]+\\)" cross-reference-conf-aux "^T\\([0-9]+\\)" cross-reference-text-aux strange-cross-reference lyskom-aux-item-terminating-button] 8]) (defalias 'lyskom-status-print-cross-reference #[(item &optional obj pers) "\304\305\306\211A\307H)\"\203'\310\311\312\313\314\211A\307H)\"!\n\211A\315H)#\202~\305\316\211A\307H)\"\203G\310\317\312\313\314\211A\307H)\"!\n#\202~\305\320\211A\307H)\"\203m\310\321\312\313\314\211A\307H)\"!\n\211A\315H)#\202~\310\322\211A\307H)\n\211A\315H)#\323 \"\324Q!\207" [item aux-item pers obj lyskom-insert string-match "^P\\([0-9]+\\)" 6 lyskom-format cross-reference-pers-status-aux string-to-int match-string 1 2 "^C\\([0-9]+\\)" cross-reference-conf-status-aux "^T\\([0-9]+\\)" cross-reference-text-status-aux strange-cross-reference-status lyskom-aux-item-terminating-button "\n"] 9]) (defalias 'lyskom-parse-no-comments #[nil "\300\301\302!!\205 \303\207" [looking-at lyskom-get-string no-comments-regexp ""] 3]) (defalias 'lyskom-print-no-comments #[(item &optional obj) "\302\303!\304 \"P\207" [item obj lyskom-format no-comments-aux lyskom-aux-item-terminating-button] 4]) (defalias 'lyskom-edit-insert-no-comments #[(item &optional obj) "\300\301!\207" [lyskom-format no-comments-edit-aux] 2]) (defalias 'lyskom-parse-personal-comments #[nil "\300\301\302!!\205 \303\207" [looking-at lyskom-get-string personal-comment-regexp ""] 3]) (defalias 'lyskom-print-personal-comments #[(item &optional obj) "\302\303!\304 \"P\207" [item obj lyskom-format personal-comment-aux lyskom-aux-item-terminating-button] 4]) (defalias 'lyskom-edit-insert-personal-comments #[(item &optional obj) "\300\301!\207" [lyskom-format personal-comment-edit-aux] 2]) (defalias 'lyskom-parse-request-confirmation #[nil "\300\301\302!!\205 \303\207" [looking-at lyskom-get-string request-confirmation-regexp ""] 3]) (defalias 'lyskom-print-request-confirmation #[(item &optional obj) "\303\304\211A\305H)\"\306\n\"P\207" [item aux-item obj lyskom-format request-confirmation-aux 2 lyskom-aux-item-terminating-button] 5]) (defalias 'lyskom-edit-insert-request-confirmation #[(item &optional obj) "\300\301!\207" [lyskom-format request-confirmation-edit-aux] 2]) (defalias 'lyskom-request-confirmation-action #[(text-stat) "\306\307\"\310\211\203# \n@\211A\311H)=\203\312\310\nA\211\204 ?\205\250\313 \210\314\315\316\317!\"!\205\250\320\307 \310\211\211\211\211\211\211\211\211\321\322 &.B\320\323 !\"#$%\324\322%$#\"! &.B&\325\326\310\211A\320\234)\310&C%\210\327\211A\320\234)!)*\207" [text-stat have-confirmation confirmations lyskom-pers-no aux-item reserved4 text-stat-find-aux 7 nil 2 t lyskom-scroll lyskom-j-or-n-p lyskom-format lyskom-get-string confirm-read-q 0 AUX-ITEM-FLAGS vector "" AUX-ITEM initiate-modify-text-info background cache-del-text-stat reserved3 reserved2 reserved1 anonymous secret inherit deleted data inherit-limit flags sent-at creator tag aux-no item] 15]) (defalias 'lyskom-print-read-confirm #[(item &optional obj) "\303\304\211A\305H)\306\211A\307H)!#\310\n\"P\207" [item aux-item obj lyskom-format read-confirm-aux 2 lyskom-return-date-and-time 3 lyskom-aux-item-terminating-button] 7]) (defalias 'lyskom-print-redirect #[(item &optional obj) "\303\304\211A\305H)\"\203\306\307\310\311\211A\305H)\"\"\2029\303\312\211A\305H)\"\2059\306\313\314\310\311\211A\305H)\"!\"\315\n\"P\207" [item aux-item obj string-match "^E-mail:\\(.*\\)$" 6 lyskom-format redirect-email-aux match-string 1 "^LysKOM:\\(.*\\)$" redirect-lyskom-aux string-to-int lyskom-aux-item-terminating-button] 8]) (defalias 'lyskom-print-xface #[(item &optional obj) "\300\207" [nil] 1]) (defalias 'lyskom-maybe-add-face-to-string #[(item string) "\207" [string] 1]) (defalias 'lyskom-print-alternate-name #[(item &optional obj) "\303\211A\304H)\305\306\n\"R\207" [item aux-item obj "[" 6 "] " lyskom-aux-item-terminating-button] 7]) (defalias 'lyskom-status-print-faq-text #[(item &optional obj) "\303\304\305\306\211A\307H)!\"\310\n\"\311Q!\207" [item aux-item obj lyskom-insert lyskom-format faq-in-text-aux string-to-int 6 lyskom-aux-item-terminating-button "\n"] 7]) (defalias 'lyskom-print-faq-for-conf #[(item &optional obj) "\303\304\305\211A\306H)!\"\307\n\"P\207" [item aux-item obj lyskom-format faq-for-conf-aux string-to-int 6 lyskom-aux-item-terminating-button] 6]) (defalias 'lyskom-print-creating-software #[(item &optional obj) "\204\n \305=\205\306\307\n\211A\310H)\"\311\n\f\"P\207" [kom-show-creating-software lyskom-current-command item aux-item obj kom-review-noconversion lyskom-format creating-software-aux 6 lyskom-aux-item-terminating-button] 5]) (byte-code "\303\304!\210\305P\306\301!\204\307\301\nB\303\207" [lyskom-clientversion-long lyskom-charset-alist current-load-list provide lyskom-aux-items "$Id: mime.el,v 44.4 1999/11/21 15:39:56 byers Exp $\n" boundp (((ascii) . us-ascii) ((ascii latin-iso8859-1) . iso-8859-1) ((ascii latin-iso8859-2) . iso-8859-2) ((ascii latin-iso8859-3) . iso-8859-3) ((ascii latin-iso8859-4) . iso-8859-4) ((ascii cyrillic-iso8859-5) . iso-8859-5) ((ascii arabic-iso8859-6) . iso-8859-6) ((ascii greek-iso8859-7) . iso-8859-7) ((ascii hebrew-iso8859-8) . iso-8859-8) ((ascii latin-iso8859-9) . iso-8859-9) ((ascii latin-jisx0201 japanese-jisx0208-1978 japanese-jisx0208) . iso-2022-jp) ((ascii latin-jisx0201 katakana-jisx0201 japanese-jisx0208) . shift_jis) ((ascii korean-ksc5601) . euc-kr) ((ascii chinese-gb2312) . gb2312) ((ascii chinese-big5-1 chinese-big5-2) . big5) ((ascii latin-iso8859-1 greek-iso8859-7 latin-jisx0201 japanese-jisx0208-1978 chinese-gb2312 japanese-jisx0208 korean-ksc5601 japanese-jisx0212) . iso-2022-jp-2))] 2) (defalias 'lyskom-mime-string-charset #[(data) "\306! \n\f\203* \203*\307 \f@@\"\203#\f@A\310\211\202 \fA\211\204\f +\207" [data lyskom-charset-alist lyskom-server-coding-system system tmp cs find-charset-string lyskom-subset-p nil] 4]) (defalias 'lyskom-mime-charset-coding-system #[(charset) "\300\301\302\217\207" [nil (byte-code "\301!\205\207" [charset check-coding-system] 2) ((error 'raw-text))] 3]) (defalias 'lyskom-mime-encode-string #[(data) "\303!\304 ! \205\n\205 \305\n\"B*\207" [data mime-charset coding-system lyskom-mime-string-charset lyskom-mime-charset-coding-system encode-coding-string] 4]) (defalias 'lyskom-mime-decode-string #[(data charset) "\303!\211\203\304\n \"\202\n)\207" [charset coding-system data lyskom-mime-charset-coding-system decode-coding-string] 4]) (defalias 'lyskom-mime-decode-content-type #[(data) "\301\302\"\210\303\304\"\303\305\"\205\306\303\305\"!B\207" [data string-match "^\\([^;]*\\)\\(;.*charset=\\([^;]*\\)\\)?" match-string 1 3 intern] 5]) (byte-code "\301\302!\210\303P\301\207" [lyskom-clientversion-long provide lyskom-mime "$Id: prefetch.el,v 44.22 2001/01/03 22:03:01 qha Exp $\n"] 2) (if (and (boundp 'lyskom-prefetch-stack) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-prefetch-stack)) #@2145 A stack where all prefetch requests are entered. New items are entered first and when an item is to be prefetched, it is taken from the front of this list. Each entry is either the atom 'DONE, a cons cell as described below or a lyskom-queue. ('CONFSTAT . number) - The conf stat of Conference NUMBER. ('PERSSTAT . number) - The pers stat of person NUMBER. ('TEXTSTAT . number) - The text stat of text NUMBER. ('TEXTMASS . number) - The text mass of text NUMBER. ('TEXTAUTH . number) - The text stat of the text NUMBER and the conf-stat of the author of it. ('TEXT-ALL . number) - The text stat and mass of text NUMBER, but also all information that will be used when writing this text for the user to see, such as conf-stat for the author, text stats for commented texts, comments, a.s.o. ('TEXTTREE . number) - The text stat, author, textauth of comments to and texttree of all comments and footnotes. ('CONFSTATFORMAP conf-no first-local) - The conf-stat of the conference number CONF-NO is fetched and then we continue to fetch the map. ('MAP conf-stat first-local) - The next part of the map in conference CONF-STAT. The length fetched per revolution is according to the value of lyskom-fetch-map-nos. ('MARKS) - The whole list of marked texts and then every info about these texts. ('WHOBUFFER) - The who-is-on-info to construct the who-buffer. ('MEMBERSHIP . pers-no) - The next part of the membership for person PERS-NO is fetched. How long we already have fetched is kept in the variable lyskom-membership-is-read. If lyskom-membership-is-read is not a number then we are done. For every membership-part we fetch the conf-stats before continuing with the next part. ('MEMBERSHIPISREAD) - Just sets the lyskom-membership-is-read variable to t. ('CANCELED . rest) Whatever it was, it has been canceled. See further documentation in the source code. (defvar lyskom-prefetch-stack nil (#$ . 701019)) (add-to-list 'lyskom-local-variables 'lyskom-prefetch-stack) (if (and (boundp 'lyskom-prefetch-in-action) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-prefetch-in-action)) #@51 t when the prefetch-process is started and going. (defvar lyskom-prefetch-in-action nil (#$ . 703496)) (add-to-list 'lyskom-local-variables 'lyskom-prefetch-in-action) #@123 Set this to a non-nil value locally to inhibit the prefetch. This is used to prevent the prefetch code to reenter itself. (defvar lyskom-inhibit-prefetch nil (#$ . 703671)) (if (and (boundp 'lyskom-pending-prefetch) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-pending-prefetch)) #@63 Variable counting the number of unfinished prefetch requests. (defvar lyskom-pending-prefetch 0 (#$ . 704063)) (add-to-list 'lyskom-local-variables 'lyskom-pending-prefetch) #@41 Sets up the prefetch process in lyskom. (defalias 'lyskom-setup-prefetch #[nil "\303 \304\304\211\207" [lyskom-prefetch-stack lyskom-pending-prefetch lyskom-membership-is-read lyskom-stack-create 0] 2 (#$ . 704243)]) (defalias 'lyskom-prefetch-cancel-prefetch-map #[(conf-no &optional queue) "\300\207" [nil] 1]) #@28 Reset the prefetch system. (defalias 'lyskom-reset-prefetch #[nil "\300 \207" [lyskom-setup-prefetch] 1 (#$ . 704565)]) #@76 Return t if the while membership list has been fetched, and nil otherwise. (defalias 'lyskom-membership-is-read #[nil "\301=\207" [lyskom-membership-is-read t] 2 (#$ . 704691)]) (put 'lyskom-membership-is-read 'byte-optimizer 'byte-compile-inline-expand) #@105 Block fetching map for MEMBERSHIP until we see a text. Start the prefetch for the remainder of the map. (defalias 'lyskom-fetch-start-of-map #[(conf-stat membership) "\211A\306\234)T \211A\307\234) \211A\310\234)\\S\311\n?\205r\312\313\211A\314\234)\f $\f \\\315 #\210\211A\314\234)\203f\f W\203f\211A\314\234)G\316V\203f\317\320 \f#\210\202n\f W\204n\317)\202+\207" [membership conf-stat done last-local first-local lyskom-fetch-map-nos 3 14 13 nil blocking-do get-map 1 lyskom-enter-map-in-to-do-list 0 t lyskom-prefetch-map-using-conf-stat map] 6 (#$ . 704954)]) #@152 Prefetch the conf-stat for the conference with number CONF-NO. If QUEUE is non-nil, put the request on it, otherwise put it on lyskom-prefetch-stack. (defalias 'lyskom-prefetch-conf #[(conf-no &optional queue) "\203< \2032 \305B\n\306B A@\204\" A A \241\240\202, AA \241\210 A \241)\210*\202A\307\f\305B\"\210\202A\310\311\312\"\210\313 \207" [conf-no queue element elementcell lyskom-prefetch-stack CONFSTAT nil lyskom-stack-push signal lyskom-internal-error "No argument to lyskom-prefetch-conf" lyskom-continue-prefetch] 4 (#$ . 705561)]) #@144 Prefetch the pers-stat for person with number PERS-NO. If QUEUE is non-nil, put the request on it, otherwise put it on lyskom-prefetch-stack. (defalias 'lyskom-prefetch-pers #[(pers-no &optional queue) "\203.\305 B\n\306BA@\204AA \241\240\202(AA \241\210A \241)\210*\2025\307\f\305 B\"\210\310 \207" [queue pers-no element elementcell lyskom-prefetch-stack PERSSTAT nil lyskom-stack-push lyskom-continue-prefetch] 4 (#$ . 706123)]) #@146 Prefetch the text-stat for the text with number TEXT-NO. If QUEUE is non-nil, put the request on it, otherwise put it on lyskom-prefetch-stack. (defalias 'lyskom-prefetch-text #[(text-no &optional queue) "\203.\305 B\n\306BA@\204AA \241\240\202(AA \241\210A \241)\210*\2025\307\f\305 B\"\210\310 \207" [queue text-no element elementcell lyskom-prefetch-stack TEXTSTAT nil lyskom-stack-push lyskom-continue-prefetch] 4 (#$ . 706578)]) #@146 Prefetch the text mass for the text with number TEXT-NO. If QUEUE is non-nil, put the request on it, otherwise put it on lyskom-prefetch-stack. (defalias 'lyskom-prefetch-textmass #[(text-no &optional queue) "\203.\305 B\n\306BA@\204AA \241\240\202(AA \241\210A \241)\210*\2025\307\f\305 B\"\210\310 \207" [queue text-no element elementcell lyskom-prefetch-stack TEXTMASS nil lyskom-stack-push lyskom-continue-prefetch] 4 (#$ . 707035)]) #@151 Prefetch the text stat and the author of text number TEXT-NO. If QUEUE is non-nil, put the request on it, otherwise put it on lyskom-prefetch-stack. (defalias 'lyskom-prefetch-textauth #[(text-no &optional queue) "\203.\305 B\n\306BA@\204AA \241\240\202(AA \241\210A \241)\210*\2025\307\f\305 B\"\210\310 \207" [queue text-no element elementcell lyskom-prefetch-stack TEXTAUTH nil lyskom-stack-push lyskom-continue-prefetch] 4 (#$ . 707496)]) #@143 Prefetch all info about the text with number TEXT-NO. If QUEUE is non-nil, put the request on it, otherwise put it on lyskom-prefetch-stack. (defalias 'lyskom-prefetch-text-all #[(text-no &optional queue) "\203.\305 B\n\306BA@\204AA \241\240\202(AA \241\210A \241)\210*\2025\307\f\305 B\"\210\310 \207" [queue text-no element elementcell lyskom-prefetch-stack TEXT-ALL nil lyskom-stack-push lyskom-continue-prefetch] 4 (#$ . 707962)]) #@148 Prefetch all info about the text with text stat TEXT-STAT. If QUEUE is non-nil, put the request on it, otherwise put it on lyskom-prefetch-stack. (defalias 'lyskom-prefetch-text-stat-all #[(text-stat &optional queue) "\204\f\303 \304 \"\210\305\n\"\207" [queue lyskom-prefetch-stack text-stat lyskom-queue-create lyskom-stack-push lyskom-prefetch-text-all-handler] 3 (#$ . 708420)]) #@270 Prefetch all info about the text with number TEXT-NO and descends recursively. If QUEUE is non-nil, put the request on it, otherwise put it on lyskom-prefetch-stack. If ONLY-NEW is non-nil and the text-stat in question is already prefetched the prefetch is not done. (defalias 'lyskom-prefetch-texttree #[(text-no &optional queue only-new) "\203\n\306 !\204?\n\2038\n\307 B \310B\nA@\204(\nA\nA\f\241\240\2022\nAA\f\241\210\nA\f\241)\210*\202?\311 \307 B\"\210\312 \207" [only-new text-no queue element elementcell lyskom-prefetch-stack cache-get-text-stat TEXTTREE nil lyskom-stack-push lyskom-continue-prefetch] 4 (#$ . 708816)]) #@68 h{mtar medlemsskapet i sm} delar och d{refter conf-stat f|r m|tena (defalias 'lyskom-prefetch-membership #[(pers-no &optional queue) "\203.\305 B\n\306BA@\204AA \241\240\202(AA \241\210A \241)\210*\2025\307\f\305 B\"\210\310 \207" [queue pers-no element elementcell lyskom-prefetch-stack MEMBERSHIP nil lyskom-stack-push lyskom-continue-prefetch] 4 (#$ . 709466)]) (defalias 'lyskom-prefetch-one-membership #[(conf-no pers-no &optional queue) "\203/\306 \nE \307BA@\204AA\f\241\240\202)AA\f\241\210A\f\241)\210*\2027\310 \306 \nE\"\210\311 \207" [queue conf-no pers-no element elementcell lyskom-prefetch-stack ONE-MEMBERSHIP nil lyskom-stack-push lyskom-continue-prefetch] 5]) #@35 Prefetches a map for conf CONFNO. (defalias 'lyskom-prefetch-map #[(conf-no membership &optional queue) "\303 \211A\304\234)T \n$\207" [conf-no membership queue lyskom-prefetch-map-from 3] 6 (#$ . 710180)]) #@60 Prefetches a map for conf CONFNO starting att FIRST-LOCAL. (defalias 'lyskom-prefetch-map-from #[(conf-no first-local membership &optional queue) "\2030\306 \n F\f\307BA@\204 AA \241\240\202*AA \241\210A \241)\210*\202:\310\n\306 \n F\"\210\311 \207" [queue conf-no first-local membership element elementcell CONFSTATFORMAP nil lyskom-stack-push lyskom-continue-prefetch lyskom-prefetch-stack] 6 (#$ . 710395)]) #@62 Prefetches a map for conf CONFSTAT starting att FIRST-LOCAL. (defalias 'lyskom-prefetch-map-using-conf-stat #[(conf-stat first-local membership &optional queue) "\2030\306 \n F\f\307BA@\204 AA \241\240\202*AA \241\210A \241)\210*\202:\310\n\306 \n F\"\210\311 \207" [queue conf-stat first-local membership element elementcell MAP nil lyskom-stack-push lyskom-continue-prefetch lyskom-prefetch-stack] 6 (#$ . 710828)]) #@5 +++ (defalias 'lyskom-prefetch-all-conf-stats #[(&optional queue) "\300\207" [nil] 1 (#$ . 711266)]) #@66 Prefetches the list of marked texts. Then all texts are fetched. (defalias 'lyskom-prefetch-marks #[(&optional queue) "\203-\304C \305BA@\204AA\n\241\240\202'AA\n\241\210A\n\241)\210*\2023\306 \304C\"\210\307 \207" [queue element elementcell lyskom-prefetch-stack MARKS nil lyskom-stack-push lyskom-continue-prefetch] 3 (#$ . 711373)]) #@47 Prefetches the list of persons on the system. (defalias 'lyskom-prefetch-who-is-on #[(&optional queue) "\203-\304C \305BA@\204AA\n\241\240\202'AA\n\241\210A\n\241)\210*\2023\306 \304C\"\210\307 \207" [queue element elementcell lyskom-prefetch-stack WHOBUFFER nil lyskom-stack-push lyskom-continue-prefetch] 3 (#$ . 711730)]) #@29 Prefetches a list of texts. (defalias 'lyskom-prefetch-texts #[(texts &optional queue) "\2039 \2032 \305D\n\306B A@\204\" A A \241\240\202, AA \241\210 A \241)\210*\2029\307\f\305D\"\210\310 \207" [texts queue element elementcell lyskom-prefetch-stack TEXTS nil lyskom-stack-push lyskom-continue-prefetch] 4 (#$ . 712076)]) #@40 Stop the prefetch process temporarily. (defalias 'lyskom-stop-prefetch #[nil "\301\211\207" [lyskom-prefetch-in-action nil] 2 (#$ . 712417)]) #@34 Start the whole prefetch process (defalias 'lyskom-start-prefetch #[nil "\301\302 \207" [lyskom-prefetch-in-action t lyskom-continue-prefetch] 1 (#$ . 712566)]) #@122 Called after each prefetch is finished and also when the whole prefetch process is started. Used to keep prefetch going. (defalias 'lyskom-continue-prefetch #[nil "?\205\303 \nW\205\304 \205 T\211\205\202)\207" [lyskom-inhibit-prefetch lyskom-pending-prefetch lyskom-prefetch-limit t lyskom-prefetch-one-item] 2 (#$ . 712735)]) #@68 Remove all 'DONE entries and queues who's only entry is 'FINISHED. (defalias 'lyskom-skip-finished-in-queue #[(queue) "\303\211?\205i\n\211A@\242)\211\304=\2049 :\203# @\305=\2049 \211\242)\306=\203c \211A@\242)\307=\203c\n\211\211A@)\203_\n\211A@\242)\nA\nA@A\240\210\nA@\204^\nA\303\241\210\210)\202\310\211\202*\207" [done element queue nil DONE CANCELED QUEUE FINISHED t] 5 (#$ . 713082)]) #@129 Get the first element of the prefetch data structure and fetch it. Return t if an element was prefetched, otherwise return nil. (defalias 'lyskom-prefetch-one-item #[nil "\306\211\307!\310 \306 \204L\311!\211\312=\204?\f:\203'\f@\313=\204?\f\211\242)\314=\203F\f\211A@\242)\315=\203F\316!\210\202 \317\211\203 \204V \203V @ A\211\312=\204>\f\315=\204>\f:\203s\f@\313=\204>\f\211\242)\314=\203\236\320\f!\210\f\211A@)\203>\321\n\"\210\f\211A\242)\202>\f<\203\270\f@\322>\203\270 \312\240\210\323\f\306\"\210\317\202>\f<\203\331\f@\324>\203\331\325  \240\210\323\f\"\210\317)\202>\f<\2039\f@\326>\2039\f@\327=\203\362\317\202>\325  \240\210\330\331 \211!A)\"\210\315\f\306B\"A@\204%AA\"\241\240\2023AA\"\241\210A\"\241)\210+\202>\332\333\334\"\210\211\204R\n\211#A)\203R\316\n!*\202L -\207" [lyskom-prefetch-stack done list-stack prefetch-list element result nil lyskom-stack->all-entries lyskom-stack-create lyskom-stack->top DONE CANCELED QUEUE FINISHED lyskom-stack-pop t lyskom-skip-finished-in-queue lyskom-stack-push (CONFSTAT PERSSTAT TEXTSTAT TEXTMASS) lyskom-prefetch-one-request (TEXTAUTH TEXT-ALL TEXTTREE ONE-MEMBERSHIP CONFSTATFORMAP MAP MARKS MEMBERSHIP WHOBUFFER TEXTS) lyskom-queue-create (MEMBERSHIPISREAD ALL-CONF-TEXTS) MEMBERSHIPISREAD mapcar #[(read-info) "\302\303\211A\304\234)\211A)\"\207" [read-info text-list mapcar #[(text-no) "\302 \"\207" [text-no queue lyskom-prefetch-text-all] 3] 3] 5] signal lyskom-internal-error (lyskom-prefetch-one-item ": unknown key") queue rest-list lyskom-membership-is-read lyskom-to-do-list read-list elementcell stack] 6 (#$ . 713506)]) #@83 Prefetch REQUEST. If the request is complex, put the resulting requests on QUEUE. (defalias 'lyskom-prefetch-one-request #[(request queue) "@\306=\203\307\310\311A#\207@\312=\203\313\310\311A#\207@\314=\203*\315\310\311A#\207@\316=\2038\317\310\311A#\207@\320=\203G\315\310\321A $\207@\322=\203V\315\310\323A $\207@\324=\203e\315\310\325A $\207@\326=\203|\327\310\330\331\234\332\234\332\234 &\207@\333=\203\230\n\247\203\225\334\310\335A\n A &\207\311 \207@\336=\203\257\307\310\337A@\3318\3408 &\207@\341=\203\323\342\310\343A@\211A\344\234)\3318 A@\3318\3408 & \207@\345=\203\340\346\310\347 #\207@\350=\203\355\351\310\352 #\207@\353=\203\315\310\354A@@A@A %\207\355\356\357@D\"\207" [request queue lyskom-membership-is-read lyskom-fetch-membership-length conf-stat lyskom-fetch-map-nos CONFSTAT initiate-get-conf-stat prefetch lyskom-prefetch-handler PERSSTAT initiate-get-pers-stat TEXTSTAT initiate-get-text-stat TEXTMASS initiate-get-text TEXTAUTH lyskom-prefetch-textauth-handler TEXT-ALL lyskom-prefetch-text-all-handler TEXTTREE lyskom-prefetch-texttree-handler ONE-MEMBERSHIP initiate-query-read-texts lyskom-prefetch-read-texts-handler 2 1 MEMBERSHIP initiate-get-part-of-membership lyskom-prefetch-membership-handler CONFSTATFORMAP lyskom-prefetch-confstatformap-handler 3 MAP initiate-get-map lyskom-prefetch-map-handler 0 MARKS initiate-get-marks lyskom-prefetch-marks-handler WHOBUFFER initiate-who-is-on lyskom-prefetch-whobuffer-handler TEXTS lyskom-prefetch-texts-handler signal lyskom-internal-error "lyskom-prefetch-one-request - unknown key:"] 11 (#$ . 715212)]) #@87 Prefetch the conf-stat of the author of the text TEXT-STAT. Put the request on QUEUE. (defalias 'lyskom-prefetch-textauth-handler #[(text-stat queue) "\305 \210\2037\306\211A\307\234) \"\210 \310\n\311B A@\204* A A \241\240\2024 AA \241\210 A \241)\210*\fS\312 \207" [text-stat queue element elementcell lyskom-pending-prefetch lyskom-stop-prefetch lyskom-prefetch-conf 2 FINISHED nil lyskom-start-prefetch] 4 (#$ . 716863)]) #@101 Prefetch all info neccessary to write the text with text-stat TEXT-STAT. Put the requests on QUEUE. (defalias 'lyskom-prefetch-text-all-handler #[(text-stat queue) "\306 \210\307\211A\310\234) \"\210\311\211A\312\234) \"\210\312\211A\313\234)\211<\206* G\314\314\314 <\203\273 \203A @\211\211A\312\234)\211\315>\203^\307 \211A\316\234) \"\210\202\263\317=\203t\320 \211A\321\234) \"\210\202\263\322=\203\212\320 \211A\323\234) \"\210\202\263\324=\203\240\320 \211A\325\234) \"\210\202\263\326=\203\263\320 \211A\313\234) \"\210) A\211\2029\n\fW\203A \nH\211\211A\312\234)\211\315>\203\344\307 \211A\316\234) \"\210\2029\317=\203\372\320 \211A\321\234) \"\210\2029\322=\203\320 \211A\323\234) \"\210\2029\324=\203&\320 \211A\325\234) \"\210\2029\326=\2039\320 \211A\313\234) \"\210)\nT\211\202\274- \327\314B A@\204^ A A\241\240\202j AA\241\210 A\241)\210*S\330 \207" [text-stat queue __i__ __sequence__ __len__ misc lyskom-stop-prefetch lyskom-prefetch-conf 2 lyskom-prefetch-textmass 0 6 nil (RECPT BCC-RECPT CC-RECPT) 1 COMM-IN lyskom-prefetch-textauth 5 FOOTN-IN 7 COMM-TO 4 FOOTN-TO FINISHED lyskom-start-prefetch __result__ misc-info type element elementcell lyskom-pending-prefetch] 4 (#$ . 717306)]) #@148 Prefetch all info neccessary to write the text with text-stat TEXT-STAT. Then prefetch all info (texttree) of comments. Put the requests on QUEUE. (defalias 'lyskom-prefetch-texttree-handler #[(text-stat queue) "\203u\306 \210\307\211A\310\234) \"\210\311\211A\312\234) \"\210\312\211A\313\234)\211<\206. G\314\314\314 <\203\301 \203I @\211\211A\312\234)\211\315>\203b\307 \211A\316\234) \"\210\202\271\317=\203y\320 \211A\321\234) \322#\210\202\271\323=\203\220\320 \211A\324\234) \322#\210\202\271\325=\203\246\326 \211A\327\234) \"\210\202\271\330=\203\271\326 \211A\313\234) \"\210) A\211\202=\n\fW\203I \nH\211\211A\312\234)\211\315>\203\352\307 \211A\316\234) \"\210\202A\317=\203\320 \211A\321\234) \322#\210\202A\323=\203\320 \211A\324\234) \322#\210\202A\325=\203.\326 \211A\327\234) \"\210\202A\330=\203A\326 \211A\313\234) \"\210)\nT\211\202\302- \331\314B A@\204f A A\241\240\202r AA\241\210 A\241)\210* S \332 \207" [text-stat queue __i__ __sequence__ __len__ misc lyskom-stop-prefetch lyskom-prefetch-conf 2 lyskom-prefetch-textmass 0 6 nil (RECPT BCC-RECPT CC-RECPT) 1 COMM-IN lyskom-prefetch-texttree 5 t FOOTN-IN 7 COMM-TO lyskom-prefetch-textauth 4 FOOTN-TO FINISHED lyskom-start-prefetch __result__ misc-info type element elementcell lyskom-pending-prefetch] 5 (#$ . 718626)]) (defalias 'lyskom-prefetch-read-texts-handler #[(membership pers-no queue) "\305 \210S \203.\306 \211A\307\234)\310\"\204.\311 C!\210\312 !\203.\313 \211A\307\234) \n#\210\n\314 \315B\nA@\204F\nA\nA\f\241\240\202P\nAA\f\241\210\nA\f\241)\210*\316 \207" [lyskom-pending-prefetch membership queue element elementcell lyskom-stop-prefetch lyskom-try-get-membership 1 t lyskom-add-memberships-to-membership lyskom-visible-membership lyskom-prefetch-map FINISHED nil lyskom-start-prefetch] 5]) #@52 Handle the return of the membership prefetch call. (defalias 'lyskom-prefetch-membership-handler #[(memberships pers-no queue) "\306 \210G\307\310!\210 \nW\203 T\211\202 \247\203VG\fW\203V\311 \312C\313B A@\204D A A\241\240\202P AA\241\210 A\241)\210*\202` \f\\\314 \"\210* \315\313B A@\204} A A\241\240\202\211 AA\241\210 A\241)\210*S\316 \207" [memberships i size lyskom-membership-is-read lyskom-fetch-membership-length queue lyskom-stop-prefetch 0 lyskom-insert-memberships-in-membership almost MEMBERSHIPISREAD nil lyskom-prefetch-membership FINISHED lyskom-start-prefetch element elementcell pers-no lyskom-pending-prefetch] 4 (#$ . 720536)]) #@54 Now that we have the conf-stat we can fetch the map. (defalias 'lyskom-prefetch-confstatformap-handler #[(conf-stat first-local membership queue) "\306 \210\307 \n $\210 \310\f\311B A@\204\" A A \241\240\202, AA \241\210 A \241)\210* S \312 \207" [conf-stat first-local membership queue element elementcell lyskom-stop-prefetch lyskom-prefetch-map-using-conf-stat FINISHED nil lyskom-start-prefetch lyskom-pending-prefetch] 5 (#$ . 721242)]) #@92 Handle the return of the membership prefetch call. Maps are `cached' in lyskom-to-do-list. (defalias 'lyskom-prefetch-map-handler #[(map conf-stat first-local membership queue) "\306 \210 \\\n\211A\307\234)\n\211A\310\234)\\S \2032\f W\203+\311\n\f$\210\312 \n#\210*\313\314BA@\204TAA\241\240\202bAA\241\210A\241)\210*S\315 \210\316 \210\317 \207" [first-local lyskom-fetch-map-nos conf-stat last-local next-start map lyskom-stop-prefetch 14 13 lyskom-prefetch-map-using-conf-stat lyskom-enter-map-in-to-do-list FINISHED nil lyskom-start-prefetch lyskom-update-prompt lyskom-set-mode-line membership queue element elementcell lyskom-pending-prefetch] 6 (#$ . 721698)]) #@34 Handle the list of marked texts. (defalias 'lyskom-prefetch-marks-handler #[(marks queue) "\305!\210\306 \210\307 \211\203!\310 @\211A\311\234) \"\210 A\211\204)\fS\312 \207" [marks list mark queue lyskom-pending-prefetch cache-set-marked-texts lyskom-stop-prefetch cache-get-marked-texts lyskom-prefetch-text-all 0 lyskom-start-prefetch] 4 (#$ . 722418)]) #@75 Handle the who-is-on info. The goal here is to get an updated who-buffer. (defalias 'lyskom-prefetch-whobuffer-handler #[(who-is-on queue) "\303 \"\210\nS\211\207" [who-is-on lyskom-buffer lyskom-pending-prefetch cache-initiate-who-info-buffer] 3 (#$ . 722789)]) #@101 Prefetch all info neccessary to write the text with text-stat TEXT-STAT. Put the requests on QUEUE. (defalias 'lyskom-prefetch-texts-handler #[(text-stat texts queue) "\306 \210\307\211A\310\234) \"\210\311\211A\312\234) \"\210\312\211A\313\234)\211<\206* G\314\314\314 <\203\273 \203A @\211\211A\312\234)\211\315>\203^\307 \211A\316\234) \"\210\202\263\317=\203t\320 \211A\321\234) \"\210\202\263\322=\203\212\320 \211A\323\234) \"\210\202\263\324=\203\240\320 \211A\325\234) \"\210\202\263\326=\203\263\320 \211A\313\234) \"\210) A\211\2029\n\fW\203A \nH\211\211A\312\234)\211\315>\203\344\307 \211A\316\234) \"\210\2029\317=\203\372\320 \211A\321\234) \"\210\2029\322=\203\320 \211A\323\234) \"\210\2029\324=\203&\320 \211A\325\234) \"\210\2029\326=\2039\320 \211A\313\234) \"\210)\nT\211\202\274- \327\314B A@\204^ A A\241\240\202j AA\241\210 A\241)\210*\330!\210 S \331 \207" [text-stat queue __i__ __sequence__ __len__ misc lyskom-stop-prefetch lyskom-prefetch-conf 2 lyskom-prefetch-textmass 0 6 nil (RECPT BCC-RECPT CC-RECPT) 1 COMM-IN lyskom-prefetch-textauth 5 FOOTN-IN 7 COMM-TO 4 FOOTN-TO FINISHED lyskom-prefetch-texts lyskom-start-prefetch __result__ misc-info type element elementcell texts lyskom-pending-prefetch] 4 (#$ . 723061)]) #@60 Handler called after each simple prefetch request is done. (defalias 'lyskom-prefetch-handler #[(&rest data) "S\301 \207" [lyskom-pending-prefetch lyskom-continue-prefetch] 1 (#$ . 724422)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: startup.el,v 44.57 2000/12/29 17:27:45 qha Exp $\n" nil] 2) #@339 Phase when reading connection response from www-proxy: 1: (initial phase) waiting for the string "HTTP/1.0 2000 Connection established" 2: we have seen the connection string. After this, it may come lines stating proxy-agents and other things. They all seem to end with an empty line, so in this phase we wait for an empty line. (defvar lyskom-www-proxy-connect-phase 1 (#$ . 724744)) #@104 Start a LysKOM session. Optional arguments: HOST, USERNAME and PASSWORD. See lyskom-mode for details. (defalias 'lyskom #[(&optional host username password session-priority) "\306\307!\210\206 \310\311! \206\310\312!\nG\313U\2031\310\314!\315 \f\"\211@\206/ \206/@*\316\317AB\320\321\n\"\203Z\322\n\313\225\317O!B\313\224\313U\203T@\202Z\n\313\211\224O\323\317\324\325\326 \"\"C\317D\317EC@F\317G\327F\317\"\203\222\330\331\332!!\333\334!\210\204\222\335F!\210\336\211G\202T\337\216F\203\307\327F!\204\307Fq\210\336Gdb\210\340 H\341\342\331\343!\344\345\346H\"!\"!\210\347F!D)\202\322\350\n!F\347F!DI;\203\335I\202\365I<\203\364\351\nI\"A\206\365\336I\236A\202\365\317J\317K\317L\320\352J\206\334\"M\317NM\203\353\354J\"\206JKM\203+\322\353\355J\"!\206,\356LK\203\270O;\203?OC\202lO<\203QO@;\203QO\202lO<\205lO@:\205l\351KO\"\206k\336O\236AN\357DFKL$E\360E\361\211#\210\354P\362E\363\"\210\364E\317\"\210\365E\342\366\nB#\"\210\324\367N\"\210\365E\370\"\210\371E!\363=\203\312\372E!\210\202\247\357DF\nB$E\360E\361\211#\210-\335F!\210\373 \210FQR S\nTBUEV\374 \210\341\375\376W\n#!\210\362E\377\"\210\364E\317\"\210\365E\201e\201f\201g \201h\201i Q!\201jQ\"\210\371E!\377=\203-\372E!\210\202\201kE\201l\"\210\212\201mF!\210)\201n \210\201o \210\201p\201q\317\201rW$\210\201s\201t!X\201s\201u!\211Y\203~Y\211ZA\313\234)\201vX\203\206\201w\201x!\210\201y \210\201z\201{Y\211ZA\355\234)\"\210\201|[X\203\266\201s\201}!\\\317]\201~ \210X\211^A\201\234)\313U\204\201\200\201\201X\211^A\201\234)D\201\202X\211^A\201\234)DD!\211_\313\234_\354\234`a\201z\201\203a\203`\203\201\204a`\"\202\331\201\205!\"\210\341\201j!\210+\317b\201\206\336c\"\210Qd>\203HQd@=\204OdAd@C\244d\2022QdBd\336\211A).\207" [username password host env-kom kom-server-aliases canon run-hooks lyskom-init-hook getenv "KOMNAME" "KOMPASSWORD" 0 "KOMSERVER" lyskom-string-rassoc 4894 nil string-match ":" string-to-int delq mapcar #[(buffer) "\304\305\"\205*\306!\205*\307\310 !\306!\"\205*\212q\210\311\303!\205%\n =)\205*\207" [buffer host port lyskom-server-port lyskom-buffer-p t buffer-name string-match regexp-quote boundp] 4] buffer-list lyskom-buffer-p j-or-n-p lyskom-get-string start-new-session-same-server message "" switch-to-buffer t ((byte-code "\204 \203\f\304 !\210\n\204\305 !\210\304\207" [init-done proc reused-buffer buffer delete-process kill-buffer] 2)) lyskom-current-time lyskom-insert format new-session-in-buffer lyskom-format-time apply lyskom-create-time buffer-name lyskom-generate-new-buffer lyskom-string-assoc "\\(.*\\):\\([0-9]+\\)" match-string 1 2 80 open-network-stream set-process-coding-system no-conversion set-process-filter lyskom-www-proxy-connect-filter process-kill-without-query lyskom-process-send-string "CONNECT %s:%d HTTP/1.0 \n" #[(header) "\302 \"\210\302\303\"\207" [proc header lyskom-process-send-string " \n"] 3] " \n" process-filter accept-process-output lyskom-mode lyskom-setup-faces lyskom-format try-connect lyskom-connect-filter lyskom-default-server init-done port duplicate-buffers name proc buffer reused-buffer time kom-www-proxy proxy-host-string proxy-host proxy-port match headers kom-www-proxy-headers lyskom-www-proxy-connect-phase lyskom-buffer lyskom-default-user-name lyskom-default-password lyskom-server-name lyskom-server-port lyskom-proc lyskom-clientversion lyskom-server-info lyskom-server-version-info version-info lyskom-highest-call-feature-flag lyskom-collate-table lyskom-char-classes server-info multiple-bind-sym text-stat text lyskom-executing-command session-priority lyskom-buffer-list "A" lyskom-format-objects user-login-name "%" system-name "\n" set-process-sentinel lyskom-sentinel lyskom-init-parse lyskom-accept-async lyskom-setup-prefetch initiate-set-client-version background "lyskom.el" blocking-do get-server-info get-version-info 7 lyskom-error too-old-server lyskom-setup-client-for-server-version lyskom-format-insert connection-done 85 get-collate-table lyskom-update-command-completion 5 lyskom-blocking-do-multiple get-text get-text-stat "%#1t" text->decoded-text-mass lyskom-motd-was-garbed kom-start-anew] 8 (#$ . 725145) (list (lyskom-read-server-name (lyskom-format 'server-q (or (getenv "KOMSERVER") lyskom-default-server))) nil nil (if current-prefix-arg (prefix-numeric-value current-prefix-arg) nil))]) (defalias 'lyskom-accept-async #[nil "\302\303\304\"\210\302\305!\306\307 \310\")>?\205\302\303\311\")\207" [ans vector blocking-do accept-async (5 7 8 9 11 12 13 14 15 16 17 18) query-async 15 append nil (0 5 7 8 9 11 12 13 14 16 17 18)] 4]) #@48 Receive connection acknowledgement from proxy. (defalias 'lyskom-www-proxy-connect-filter #[(proc output) "\203\n\304 \305\n#\210 \306U\203\307\310\n\"\203\311\312 \n\"\207 \311U\205/\307\313\n\"\205/\314 \315\"\207" [lyskom-debug-communications-to-buffer proc output lyskom-www-proxy-connect-phase lyskom-debug-insert "-----> " 1 string-match "^HTTP/1\\.. 200.* \n" 2 lyskom-www-proxy-connect-filter "^ \n" set-process-filter lyskom-connect-filter] 4 (#$ . 729937)]) #@45 Setup flags according to protocol versions. (defalias 'lyskom-setup-client-for-server-version #[nil "\306 \210\211A\307\234)\211\310Y\203\311\311\312\311 \n\313Y\203&\311\311\n\314Y\2050\311\211)\207" [lyskom-server-version-info version-info protocol-version lyskom-bcc-misc-feature-flag lyskom-aux-items-feature-flag lyskom-highest-call-feature-flag lyskom-clear-features 0 10 t 105 9 8 lyskom-local-to-global-feature-flag lyskom-dynamic-session-info-feature-flag lyskom-idle-time-feature-flag lyskom-long-conf-types-feature-flag] 3 (#$ . 730420)]) #@49 Receive connection acknowledgement from server. (defalias 'lyskom-connect-filter #[(proc output) "\203\n\303 \304\n#\210\305\306\n\"\205\307 \310\"\207" [lyskom-debug-communications-to-buffer proc output lyskom-debug-insert "-----> " string-match "^LysKOM\n" set-process-filter lyskom-filter] 4 (#$ . 730993)]) #@24 Start as a new person. (defalias 'kom-start-anew #[(&optional lyskom-first-time-around session-priority) "\306\307!\210\310 \210\311\211\312\216\f\204\313\314!\210\315\n\204\f\203.;\203.\316\317;\320\"!\n\204M\321\322\323!\324\315\325\315%<\316\317<\326\"!\206K\327\n>\204e\332\333!\210\332>\211>A\334\234)\335P!\210\311\330\336\n \203\212 \311 \337\340\311\"\210\202\224?\206\224\341\322\342!!\343$\203\343?\203\336\330\344@\211AA\334\234)\n\345\334\311\211\211\211\211\211\211\211BCDEFGHI\346\347IHGFEDCB&.B&\210\315\202\f\350\351!\210\352@\211AA\353\234)\354\"\203\n\332\355!\210\356\357\352@\211AA\353\234)\354\"\"\210\311\311?*\202\350\360!\210J\204\361 \210K\204)L\2032K\2060LM\362\363N\343#\210\343N\364\330\365!!\210\330\366!\211O\203OOP*\367 \210,\370\371\372\217\207" [lyskom-pers-no login-successful new-me old-me lyskom-first-time-around lyskom-inhibit-prefetch lyskom-start-of-command kom-start-anew lyskom-completing-clear-cache nil ((byte-code "\203\306 \210 \n=\204\307\n!\203\310\311\312\n!\"\210\202 \313\314\f\"\211\203B \211A\315\234)\316U\204B\317\320!\210\321 \211A\315\234)!\210 \203b \211A\322\234)\316U\203b \211A\323\234)\316U\204b\317\324!\210)\325\326 \207" [login-successful lyskom-language kom-default-language old-me lyskom-pers-no conf-stat clear-all-caches lyskom-set-language lyskom-format-insert-before-prompt language-set-to lyskom-language-name blocking-do get-conf-stat 10 0 lyskom-insert-string you-have-motd lyskom-view-text 6 14 presentation-encouragement nil lyskom-end-of-command lyskom-is-new-user] 5)) lyskom-tell-internat kom-tell-login t conf-z-info->conf-no lyskom-lookup-conf-by-name (pers) lyskom-read-conf-name lyskom-get-string what-is-your-name (pers none) "" (pers) lyskom-create-new-person blocking-do get-conf-stat lyskom-insert "You don't exist. Go away.\n" 1 "\n" login set-default lyskom-default-password silent-read password 0 add-member 100 MEMBERSHIP-TYPE vector lyskom-insert-string wrong-password lyskom-get-aux-item 6 13 wrong-password-help mapcar #[(el) "\302\303\211A\304H)\"\207" [el aux-item lyskom-format-insert wrong-password-email 6] 5] are-logged-in lyskom-read-options lyskom-run-hook-with-args lyskom-change-conf-hook cache-set-marked-texts get-marks who-am-i lyskom-refetch err (byte-code "\300\301!\210\300\302!\207" [run-hooks lyskom-login-hook kom-login-hook] 2) ((error (byte-code "\301\302\303\304\"\"\207" [err lyskom-format-insert-before-prompt error-in-login-hook format "%s"] 5))) lyskom-default-user-name name lyskom-inhibit-minibuffer-messages conf-stat lyskom-is-new-user lyskom-server-info server-info rsv5 rsv4 rsv3 rsv2 rsv1 secret passive invitation lyskom-dont-read-user-area session-priority kom-default-session-priority lyskom-session-priority lyskom-current-conf lyskom-who-am-i lyskom-session-no] 17 (#$ . 731314) nil]) #@99 Resets and fetches all reading info. This is called at login and after prioritize and set-unread. (defalias 'lyskom-refetch #[nil "\306\307\306B\307\306B\310 \210\311\312\f!\210\313\314\f\"\315 \211A\315\234)\237\211<\206.G\306\306\306<\203X\203v@\316\f\"\210A\211\202AW\203vH\316\f\"\210T\211\202Z.\317 \207" [lyskom-membership lyskom-to-do-list lyskom-reading-list lyskom-inhibit-prefetch lyskom-pers-no unreads nil READ-LIST lyskom-reset-prefetch t lyskom-prefetch-membership blocking-do get-unread-confs 0 lyskom-prefetch-one-membership lyskom-start-prefetch __i__ conf-no-list __sequence__ __len__ conf-no __result__] 4 (#$ . 734278)]) #@58 Sets lyskom-membership to a new value. Args: MEMBERSHIP. (defalias 'lyskom-set-membership #[(membership) "\304 \305\")\306 \210\307\211\207" [membership vector lyskom-membership lyskom-membership-is-read append nil lyskom-sort-membership t] 3 (#$ . 734983)]) #@53 Print the name of the CONF-STAT, with a trailing . (defalias 'lyskom-print-name #[(conf-stat) "\301\211A\302\234)\303P!\207" [conf-stat lyskom-insert 1 "\n"] 4 (#$ . 735252)]) #@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) "\301\302\"\207" [conf-list lyskom-do-extract-persons-or-confs t] 3 (#$ . 735438)]) #@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) "\301\302\"\207" [conf-list lyskom-do-extract-persons-or-confs nil] 3 (#$ . 735692)]) #@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) "\306\307\n\211A@)\n\211AA) G W\2038\f \234\211 A\310\234)\n=\2031 \234B T\211\202\237-\207" [result i conf-list nos types len nil 0 3 conf-type want-persons] 3 (#$ . 735949)]) #@62 A new user named NAME (or an old that mis-spelled his name). (defalias 'lyskom-create-new-person #[(name) "\306\307\310\"!\210\311 \210\312\307\313\"!\203m\314\315\316!!\211\314\315\317!!\232\204+\320\321!\210\322\202k\323\324 \322\211\211\211\211\211\211\211\325\326 \f \n&.B\322%\211\204e\320\327!\210\202h ))\207\322\207" [name password flg8 flg7 flg6 flg5 lyskom-insert lyskom-format first-greeting lyskom-scroll ja-or-nej-p is-name-correct silent-read lyskom-get-string personal-password repeat-password lyskom-insert-string repeat-failure nil blocking-do create-person FLAGS vector could-not-create-you flg4 flg3 flg2 unread_is_secret new-person lyskom-is-new-user] 15 (#$ . 736317)]) #@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) "\305\306\307\"\306\310\"\"\311\312\313\f\314 !\312\211$\315 \"A\206! +\207" [kom-server-aliases server completion-ignore-case known-servers prompt append mapcar #[(pair) "@@B\207" [pair] 2] #[(pair) "A@B\207" [pair] 2] t nil lyskom-completing-read lyskom-maybe-frob-completion-table lyskom-string-assoc] 5 (#$ . 737052)]) (put 'lyskom-mode 'mode-class 'special) #@3827 \Mode for LysKOM client. Commands: \[kom-next-command] Do the default action. This can be to read the next text,select next 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 priority higher than 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 "\306 \210\307 \310P\311D\312\313\314\315!\316\f!\210\317\312\f\"\210\320\321!\210\322p!\210\323\211\207" [mode-line-buffer-identification major-mode mode-name mode-line-process lyskom-mode-map buffer-read-only lyskom-clear-vars lyskom-mode-name-from-host ": " mode-line-conf-name lyskom-mode "LysKOM" lyskom-get-string mode-line-working use-local-map lyskom-set-menus run-hooks lyskom-mode-hook buffer-disable-undo t] 3 (#$ . 737640) nil]) #@27 Set up buffer-local vars. (defalias 'lyskom-clear-vars #[nil "\306\307\310\"\307\311\"\307\312\"\313\216\314 \210-\315 \210\f\211B\316\317\320\"\320\321\321\317W\203E\322 I\210T\211\202/)\320\323\324\325!!\207" [#1=#:lyskom-saved-symbols #2=#:lyskom-saved-variables #3=#:lyskom-saved-plist #4=#:lyskom-saved-local kom-do-when-done lyskom-do-when-done (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) mapcar symbol-value symbol-plist #[(v) "\301p\"\207" [v local-variable-p] 3] ((byte-code "\203* @\203\304\n@!\210\n@@L\210\305\n@ @\"\210A\nA A A\202\304\207" [#2# #4# #1# #3# make-local-variable setplist] 3)) kill-all-local-variables lyskom-setup-local-variables make-vector 10 nil 0 lyskom-queue-create lyskom-set-mode-line lyskom-get-string not-present-anywhere lyskom-output-queues lyskom-default-collate-table lyskom-collate-table lyskom-char-classes i lyskom-pending-calls] 4 (#$ . 741947)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: reading.el,v 44.13 2000/01/10 23:26:57 byers 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 membership) "\306 \"\307\n\211A\310\234)!\211\205W \205W\311\312\n\307\n\211A\310\234)!\211A\313\234)\f\314 )B\315\211\211\316\317\n\315&.B\"*\207" [map membership conf-stat mship list texts lyskom-list-unread lyskom-try-get-membership 0 read-list-enter-read-info CONF 2 TEXT-LIST nil READ-INFO vector misc forward comm-to text-list priority type lyskom-to-do-list] 12 (#$ . 743146)]) #@36 Sort the internal membership list. (defalias 'lyskom-sort-membership #[nil "\301\302\"\303 \207" [lyskom-membership sort lyskom-membership-< lyskom-update-membership-positions] 3 (#$ . 743853)]) #@75 Update all the position fields in the memberships in the membership list. (defalias 'lyskom-update-membership-positions #[nil "\305\211\203\n@ \211A\306 I\210* T\nA\211\204\307 *\207" [lyskom-membership num mship newval membership 0 8 lyskom-sort-to-do-list] 4 (#$ . 744056)]) #@190 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. (defalias 'lyskom-add-memberships-to-membership #[(memberships) "\212q\210 \306\n\307\")\211\205/ @\211A\310\234)\311\312 \">\204'\306 @C\" A\211\204\307*\207" [lyskom-buffer memberships vector list membership lyskom-membership append nil 1 mapcar membership->conf-no] 5 (#$ . 744351)]) (defalias 'lyskom-insert-memberships-in-membership #[(memberships) "\212q\210 \306\n\307\")\211\203, @\211A\310\234)\311\312 \">\204% @ B A\211\204)\313 )\207" [lyskom-buffer memberships vector list membership lyskom-membership append nil 1 mapcar membership->conf-no lyskom-sort-membership] 5]) (defalias 'lyskom-do-insert-membership #[(membership) "\211A\304\234)\203? \211A\304\234)\234\203&\305 \211\211A\304\234)\234#\202<\211A\304\234)\306Y\2039 C\244\202< B\211\207 \307\211\203l @\211A\310\234)\211A\310\234)X\203e\305 @#\307\311 A\211\204G\n?\205w C\244\211*\207" [membership lyskom-membership found mship-list 8 lyskom-insert-in-list 0 nil 2 t] 7]) #@60 Add MEMBERSHIP into lyskom-membership, sorted by priority. (defalias 'lyskom-insert-membership #[(membership) "\212q\210\302 !\210\303 )\207" [lyskom-buffer membership lyskom-do-insert-membership lyskom-update-membership-positions] 2 (#$ . 745547)]) #@115 Find the membership for the same conference as MEMBERSHIP, and replace it with MEMBERSHIP into lyskom-membership. (defalias 'lyskom-replace-membership #[(membership) "\212q\210\303 \211A\304\234)\305\"\205$\306 \211A\304\234)!\210\307 !\210\310\311 \n#)\207" [lyskom-buffer membership lyskom-membership lyskom-try-get-membership 1 t lyskom-do-remove-membership lyskom-do-insert-membership lyskom-run-hook-with-args lyskom-replace-membership-hook] 5 (#$ . 745805)]) #@59 Remove the membership for CONF-NO from lyskom-membership. (defalias 'lyskom-do-remove-membership #[(conf-no) "\211\203$\n @\211A\304\234)U\203 \305\240\210\305\211\202 A\211\204)\306\305\"\211\207" [lyskom-membership list conf-no membership 1 nil delq] 4 (#$ . 746280)]) #@59 Remove the membership for CONF-NO from lyskom-membership. (defalias 'lyskom-remove-membership #[(conf-no) "\212q\210\303 !\210\304\305 \n#)\207" [lyskom-buffer conf-no lyskom-membership lyskom-do-remove-membership lyskom-run-hook-with-args lyskom-remove-membership-hook] 4 (#$ . 746571)]) #@52 Return the position of the membership for CONF-NO. (defalias 'lyskom-membership-position #[(conf-no) "\212q\210\305 \306\"\211\211A\307\234)\206\n\f>G\fGZ*\207" [lyskom-buffer conf-no mship membership lyskom-membership lyskom-get-membership t 8] 4 (#$ . 746867)]) #@287 Sort lyskom-to-do-list in order of membership priorities. The priorities for CONF elements are updated to match the membership priorities. Elements that are not of type CONF appear first on the list within their priority. This may not be totally accurate, but it's a reasonable guess. (defalias 'lyskom-sort-to-do-list #[nil "\211A)\306 \203M @ A\n\211A\307\234)\310=\203\311\n\211A\312\234)\211A\307\234)\313\"\211\203I\n\211A\314\234)\211A\314I\210*)\202\315\316\211A)\317\"B\320 *\207" [lyskom-to-do-list read-list info todo read-info conf-stat nil 0 CONF lyskom-get-membership 1 t 2 READ-LIST sort lyskom-read-info-< lyskom-update-prompt mship membership newval] 5 (#$ . 747143)]) (defalias 'lyskom-read-info-< #[(a b) "\211A\304\234)\n\211A\304\234)W\203\305\207\211A\304\234)\n\211A\304\234)V\203(\306\207\211A\307\234)\310=\203`\n\211A\307\234)\310=\203`\311\211A\312\234)\211A\307\234)!\311\n\211A\312\234)\211A\307\234)!W\207\211A\307\234)\310=\203n\305\207\306\207" [a read-info b conf-stat 2 nil t 0 CONF lyskom-membership-position 1] 5]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: internal.el,v 44.8 1999/11/19 13:38:04 byers 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 (#$ . 748376)) (make-variable-buffer-local 'lyskom-call-data) #@47 Creates a new instance of an empty kom-queue. (defalias 'kom-queue-create #[nil "\300\301 \302\301 \303$\207" [vector lyskom-queue-create nil 0] 5 (#$ . 748793)]) #@51 Returns the pending field of the kom-queue QUEUE. (defalias 'kom-queue->pending #[(queue) "\301\234\207" [queue 0] 2 (#$ . 748962)]) #@56 Returns the collect-flag field of the kom-queue QUEUE. (defalias 'kom-queue->collect-flag #[(queue) "\301\234\207" [queue 1] 2 (#$ . 749102)]) #@57 Returns the collect-queue field of the kom-queue QUEUE. (defalias 'kom-queue->collect-queue #[(queue) "\301\234\207" [queue 2] 2 (#$ . 749252)]) #@63 Set the collect-flag field of the kom-queue QUEUE to NEW-VAL. (defalias 'set-kom-queue-collect-flag #[(queue new-val) "\302 I\207" [queue new-val 1] 3 (#$ . 749404)]) #@28 Halts the kom-queue QUEUE. (defalias 'kom-queue-halt #[(queue) "\301\301\234TI\207" [queue 3] 4 (#$ . 749578)]) #@42 Resume execution on the kom-queue QUEUE. (defalias 'kom-queue-resume #[(queue) "\301\234\302=\203\303\304\305D\"\207\301\301\234SI\207" [queue 3 0 signal lyskom-internal-error "kom-queue-resume called on an unhalted queue: "] 4 (#$ . 749698)]) #@58 Return t if the kom-queue QUEUE is halted at least once. (defalias 'kom-queue-is-halted #[(queue) "\301\234\302V\207" [queue 3 0] 2 (#$ . 749954)]) #@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) "\301\302\"\207" [kom-queue lyskom-call-add COLLECT] 3 (#$ . 750110)]) #@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) "\301\302\"\207" [kom-queue lyskom-call-add COLLECT-IGNORE] 3 (#$ . 750381)]) #@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) "\303\304 \n$\210\305!\207" [kom-queue multi-handler multi-handler-data lyskom-call-add USE lyskom-check-call] 5 (#$ . 750673)]) #@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) "\303\304 \n$\210\305!\207" [kom-queue multi-handler multi-handler-data lyskom-call-add LIST-USE lyskom-check-call] 5 (#$ . 751198)]) #@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) "\303\304 \n$\210\305!\207" [kom-queue function function-args lyskom-call-add RUN lyskom-check-call] 5 (#$ . 751928)]) #@115 Prohibit execution of handlers on QUEUE-NAME. The execution will resume when (lyskom-resume KOM-QUEUE) is called. (defalias 'lyskom-halt #[(queue-name) " \236\211\204\f\303!\304\nA!)\207" [queue-name lyskom-call-data queue-pair lyskom-add-new-queue kom-queue-halt] 3 (#$ . 752347)]) #@87 Resume execution of waiting handlers on KOM-QUEUE. See documentation for lyskom-halt. (defalias 'lyskom-resume #[(kom-queue) " \236\211\204\303\304\305D\"\202*\306\nA!\203#\307\nA!\210\310!\202*\303\304\311\312E\")\207" [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 (#$ . 752641)]) #@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) "\306\307 \n \f &\207" [kom-queue ref-no parser parser-data handler handler-data lyskom-call-add CALL] 8 (#$ . 753090)]) #@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) "\304\305 \306\211\n &\207" [kom-queue ref-no handler handler-data lyskom-call-add CALL nil] 8 (#$ . 753458)]) #@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) "\304 \"\211\205\305\n \"\210\306!)\207" [kom-queue ref-no call-info result lyskom-locate-ref-no lyskom-tr-call-to-parsed lyskom-check-call] 4 (#$ . 753761)]) #@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) "\303 BC\n\204 \202\n \244\210 @)\207" [queue-name new-queue-list lyskom-call-data kom-queue-create] 2 (#$ . 754194)]) (defalias 'lyskom-set-queue-priority #[(queue-name priority) "\302\303 #\207" [queue-name priority put lyskom-queue-priority] 4]) (defalias 'lyskom-queue-priority #[(queue-name) "\301N\206\302\207" [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) "\306 \"\211\204 \307!\310\nA! \fB \311B\n\nA@\204,\nA\nA\n\241\240\2028\nAA\n\241\210\nA\n\241,\207" [queue-name lyskom-call-data queue type data element assoc lyskom-add-new-queue kom-queue->pending nil elementcell] 4 (#$ . 754740)]) #@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) "\306 !H\n B\f\307B A@\204 A A \241\240\202, AA \241\210 A \241)\210*\n B\nB\n\nT\310 \207" [lyskom-output-queues kom-queue lyskom-ref-no string element queue lyskom-queue-priority nil lyskom-check-output-queues elementcell lyskom-pending-calls] 3 (#$ . 755187)]) #@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 "\300\301\215\207" [done (byte-code "\306 \205j\n W\205j\fH\211A@)\204(S\211\307W\203\f\310\311\312\"\210\202\f\fH\211\211A@)??\205Q \211A@\242) A A@A\240\210 A@\204Q A\312\241\210)\nT\313\314@!A\315Q\"\210)\202)\207" [i lyskom-ok-to-send-new-calls lyskom-number-of-pending-calls lyskom-max-pending-calls lyskom-output-queues queue 9 0 throw done nil lyskom-process-send-string number-to-string "\n" entry lyskom-proc] 6)] 2 (#$ . 755632)]) #@83 A reply has come. Send a pending call or decrease lyskom-number-of-pending-calls. (defalias 'lyskom-decrease-pending-calls #[nil "S\211\301W\203 \301\302 \207" [lyskom-number-of-pending-calls 0 lyskom-check-output-queues] 3 (#$ . 756333)]) #@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) "\301\302\303\304\217\205\f\202)\207" [tries 0 err (byte-code "\302 \"\210\303\207" [process string lyskom-process-send-string-2 nil] 3) ((file-error (byte-code "\203 \305 \306\307\310\n\"#\210\nA@\311\230\2033\nAA@\312\230\204'\nAA@\313\230\2033 \314V\2033 \315\245\316\207\nA@\311\230\203_\nAA@\317\230\203_\320\310\321\322\323\fT\211\324\"\"\"\210\325\326!\210\320\310\327\330!\"\210\316\207\331\n@\nA\"\207" [lyskom-debug-communications-to-buffer process err lyskom-max-packet-size tries lyskom-debug-insert "Error: " format "%s" "writing to process" "message too long" "no more processes" 1 2 t "host is unreachable" lyskom-message lyskom-format shaky-tcp make-string 46 sit-for 4 lyskom-get-string retrying-tcp signal] 7)))] 3 (#$ . 756584)]) #@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\203\306\n \203\307\n\310#\210\"\207\311\311GW\205S\306\n\fG\f \\^O \203G\212\312 !q\210\212db\210\313\310\n\314\261\210)\315\n!q\210))\"\210\f \\\211\202)\207" [string lyskom-max-packet-size process lyskom-debug-communications-to-buffer i lyskom-debug-communications-to-buffer-buffer process-send-string lyskom-debug-insert "To " 0 get-buffer-create "\n" ": " process-buffer] 8 (#$ . 757535)]) #@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) "\306 \"\243\307\310\n!\211A@\242)\n\205\216\311\n!\206,\310\n!\211A@)?\206,\f@\312=?\205\216\f@\211\313=\203\212\314\n!\210\315\216\316\f!\210)\317\n!\320=\204Z\317\n!\321=\203X\fA@\203X\322\n!\fA@ \307B&\nA@\204x\nA\nA&\241\240\202\204\nAA&\241\210\nA&\241)\210*\202X \320=\203\261\317\n!\203\236\323\324\325\"\210\202X\326\n\320\"\210\322\n!\211\307\211B\241\210)\202X \321=\203\330\317\n!\203\305\323\324\327\"\210\202X\326\n\321\"\210\322\n!\211\307\211B\241\210)\202X \330=\203\317\n!\204\351\323\324\331\"\210\314\n!\210\332\216\333\f\322\n!\211A\242)\"\210)\326\n\307\"\210\202X \334=\2030\317\n!\204\323\324\335\"\210\314\n!\210\336\216\337\f\322\n!\211A\242)\"\210)\326\n\307\"\210\202X \340=\203O\317\n!\203A\323\324\341\"\210\314\n!\210\342\216\343\f!\210)\202X\323\324\344\345\f@E\"\210\310\n!\211\211A@)\203\200\n\211A@\242)\nA\nA@A\240\210\nA@\204\nA\307\241\210\210)\310\n!\211A@\242)\202+\207" [queue-name lyskom-call-data queue type first-pending element assoc nil kom-queue->pending kom-queue-is-halted CALL PARSED kom-queue-halt ((kom-queue-resume queue)) lyskom-apply-handler kom-queue->collect-flag COLLECT COLLECT-IGNORE kom-queue->collect-queue signal lyskom-internal-error ("lyskom-check-call COLLECT.") set-kom-queue-collect-flag ("lyskom-check-call COLLECT-IGNORE.") USE ("lyskom-check-call USE.") ((kom-queue-resume queue)) lyskom-apply-multi-handler 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:" elementcell] 6 (#$ . 758195)]) #@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) "AA@\205\301AA@A@AAA@#\207" [pending apply] 4 (#$ . 760565)]) #@62 Apply a handler for a lyskom-collect - lyskom-use construct. (defalias 'lyskom-apply-multi-handler #[(pending result-list) "\302A@ AA@\244\"\207" [pending result-list apply] 4 (#$ . 760889)]) #@67 Apply a handler for a lyskom-collect - lyskom-list-use construct. (defalias 'lyskom-apply-multi-list-handler #[(pending result-list) "\302A@ AA@B\"\207" [pending result-list apply] 4 (#$ . 761089)]) (defalias 'lyskom-apply-function #[(pending) "\301\240\210\302A@AA@\"\207" [pending HALTED apply] 3]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: services.el,v 44.28 2000/08/14 15:56:31 byers Exp $\n" nil] 2) #@78 Macro to protect initiate-somethings from being called in the wrong buffer. (defalias 'lyskom-server-call '(macro . #[(&rest body) "\301\302\303\304\305\306BBB\307BBE\207" [body let ((initiate-something-saved-buffer (current-buffer))) unwind-protect prog2 (or lyskom-output-queues (set-buffer lyskom-buffer)) lyskom-ref-no ((set-buffer initiate-something-saved-buffer))] 7 (#$ . 761526)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put lyskom-server-call lisp-indent-function 0 edebug-form-spec t] 4) #@72 Log in on server. Args: KOM-QUEUE HANDLER PERS-NO PASSWORD &rest DATA. (defalias 'initiate-login-old #[(kom-queue handler pers-no password &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 0 data pers-no password] 7 (#$ . 762050)]) #@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 #[(kom-queue handler pers-no password status &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 62 data pers-no password status] 8 (#$ . 762547)]) #@58 Log out from server. Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-logout #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 1 data] 7 (#$ . 763120)]) #@72 Change working conference. Args: KOM-QUEUE HANDLER CONF-NO &rest DATA. (defalias 'initiate-pepsi #[(kom-queue handler conf-no &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 2 data conf-no] 7 (#$ . 763561)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 3 data conf-no new-name] 7 (#$ . 764034)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 4 data what] 7 (#$ . 764547)]) #@72 Create a new person. Args: KOM-QUEUE HANDLER NAME PASSWORD &rest DATA. (defalias 'initiate-create-person #[(kom-queue handler name password pers-flags aux-items &rest data) "p\306\216 \204 \nq\210 \307\f \310%\210\311X\2030\312\f\313\311\314B%\"\210\202;\312\f\313\315#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-num 89 lyskom-send-packet lyskom-format-objects LIST 5 data lyskom-highest-call-feature-flag name password pers-flags aux-items] 10 (#$ . 765051)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 7 data pers-no priv-bits] 7 (#$ . 765680)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 8 data pers-no old-pw new-pw] 8 (#$ . 766192)]) #@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) "p\306\216 \204 \nq\210 \307\f \310X\203\311\202\312%\210\313\f\314\310X\203.\310\202/\315#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call 98 lyskom-parse-membership lyskom-parse-membership-old lyskom-send-packet lyskom-format-objects 9 data lyskom-highest-call-feature-flag pers-no conf-no] 8 (#$ . 766719)]) #@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 aux-items &rest data) "p\306\216 \204 \nq\210 \307\f \310%\210\311X\203.\312\f\313\311\314B$\"\210\2029\312\f\313\315#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-num 88 lyskom-send-packet lyskom-format-objects LIST 10 data lyskom-highest-call-feature-flag conf-name conf-type aux-items] 9 (#$ . 767388)]) #@66 Delete a conference. Args: KOM-QUEUE HANDLER CONF-NO &rest DATA. (defalias 'initiate-delete-conf #[(kom-queue handler conf-no &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 11 data conf-no] 7 (#$ . 768018)]) #@75 See what conferences match NAME. Args: KOM-QUEUE HANDLER NAME &rest DATA. (defalias 'initiate-lookup-name #[(kom-queue handler name &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-conf-list lyskom-send-packet lyskom-format-objects 12 data name] 7 (#$ . 768492)]) #@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 type &rest data) "p\306\216 \204 \nq\210 \307\f  \310%\210\311X\2031\312\f\313\311&\"\210\202@\312\f\313\314%\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void 100 lyskom-send-packet lyskom-format-objects 14 data lyskom-highest-call-feature-flag conf-no pers-no priority where type] 10 (#$ . 768974)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 15 data conf-no pers-no] 7 (#$ . 769628)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 16 data conf-no text-no] 7 (#$ . 770143)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 17 data conf-no text-no] 7 (#$ . 770660)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 18 data conf-no admin] 7 (#$ . 771166)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 19 data conf-no perm-sub] 7 (#$ . 771674)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 20 data conf-no super-conf] 7 (#$ . 772372)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 21 data conf-no conf-type] 7 (#$ . 772974)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 22 data conf-no garb-nice] 7 (#$ . 773487)]) #@59 Get all marked texts. Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-get-marks #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-mark-list lyskom-send-packet lyskom-format-objects 23 data] 7 (#$ . 774061)]) #@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) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313X\203#\313\202$\314#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 72 24 data lyskom-highest-call-feature-flag text-no mark-type] 7 (#$ . 774513)]) #@60 Unmark a text. Args: KOM-QUEUE HANDLER TEXT-NO &rest DATA. (defalias 'initiate-unmark-text #[(kom-queue handler text-no &rest data) "p\306\216 \204 \nq\210 \307\f \310%\210\311X\203%\312\f\313\311\"\"\210\312\f\313\314\315#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void 73 lyskom-send-packet lyskom-format-objects 24 0 data lyskom-highest-call-feature-flag text-no] 7 (#$ . 775252)]) #@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) "p\306\216 \204 \nq\210 \307\f!\211\2040\310 \311\f&\210\312\313\314\f\315$\"\210\202@\316\317 %\210\320!\210+\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no text-no text ((set-buffer initiate-something-saved-buffer)) cache-get-text lyskom-call lyskom-parse-text lyskom-send-packet lyskom-format-objects 25 0 lyskom-call-add PARSED lyskom-check-call kom-queue handler data lyskom-max-int] 9 (#$ . 775797)]) #@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) "p\306\216 \204 \nq\210 \307\f!\211\204C\310 \311X\203'\312\202(\313\f&\210\314\315\311X\203;\311\202<\316\f\"\"\210\202S\317\320 %\210\321!\210+\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no text-no text-stat ((set-buffer initiate-something-saved-buffer)) cache-get-text-stat lyskom-call 90 lyskom-parse-text-stat lyskom-parse-text-stat-old lyskom-send-packet lyskom-format-objects 26 lyskom-call-add PARSED lyskom-check-call kom-queue handler data lyskom-highest-call-feature-flag] 9 (#$ . 776417)]) #@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) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313\314B#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 27 LIST data conf-no text-list] 8 (#$ . 777149)]) #@161 Create a new text. Args: KOM-QUEUE HANDLER MESSAGE MISC-LIST AUX-ITEMS &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 aux-items &rest data) "p\306\216 \204 \nq\210 \307\f \310%\210\311X\2030\312\f\313\311\314B\315B$\"\210\202=\312\f\313\316\314B#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-num 86 lyskom-send-packet lyskom-format-objects STRING LIST 28 data lyskom-highest-call-feature-flag message misc-list aux-items] 9 (#$ . 777663)]) #@60 Delete a text. Args: KOM-QUEUE HANDLER TEXT-NO &rest DATA. (defalias 'initiate-delete-text #[(kom-queue handler text-no &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 29 data text-no] 7 (#$ . 778380)]) #@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) "p\306\216 \204 \nq\210 \307\f \310%\210\311\f\312\313\314=\203(\315\202D\316=\2033\317\202D\320=\205D\203C\321\202D\317$\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 30 recpt 0 cc-recpt 1 bcc-recpt 15 data text-no conf-no type lyskom-bcc-misc-feature-flag] 9 (#$ . 778848)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 31 data text-no conf-no] 7 (#$ . 779511)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 32 data comment-text-no text-no] 7 (#$ . 780025)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 33 data comment-text-no text-no] 7 (#$ . 780552)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-map lyskom-send-packet lyskom-format-objects 34 data-list conf-no first-local no-of-texts] 8 (#$ . 781087)]) #@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) "p\306\216 \204 \nq\210 \307\f \236\243!\203(\310\311\f\f &\210\202E\311\f\312 \211\\Z \313\f\f&\f\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue lyskom-call-data ((set-buffer initiate-something-saved-buffer)) kom-queue->collect-flag apply initiate-get-map lyskom-receive-partial-map nil handler conf-no first-local no-of-texts data lyskom-fetch-map-nos] 14 (#$ . 781776)]) #@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) "p\306\216 \204 \nq\210 \f C\244\f \307X\203(\310\310\311\f\"#\210\202H\312\313\211\\ Z\f&\f\210+\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no map-so-far map ((set-buffer initiate-something-saved-buffer)) 0 apply lyskom-map-concat initiate-get-map lyskom-receive-partial-map map-list no-of-texts handler data-list kom-queue conf-no first-local lyskom-fetch-map-nos] 14 (#$ . 782831)]) #@59 Get time from server. Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-get-time #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-time lyskom-send-packet lyskom-format-objects 35 data] 7 (#$ . 783468)]) #@27 Get info about the server (defalias 'initiate-get-server-info #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \310X\203\311\202\312%\210\313\f\314\310X\203.\310\202/\315!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call 94 lyskom-parse-server-info lyskom-parse-server-info-old lyskom-send-packet lyskom-format-objects 36 data lyskom-highest-call-feature-flag] 8 (#$ . 783913)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 37 data footnote-text-no text-no] 7 (#$ . 784450)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 38 data footnote-text-no text-no] 7 (#$ . 784982)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 40 data conf-no no-of-unread] 7 (#$ . 785522)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 41 data text-no] 7 (#$ . 786066)]) #@63 Set security level. Args: KOM-QUEUE HANDLER LEVEL &rest DATA. (defalias 'initiate-enable #[(kom-queue handler level &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 42 data level] 7 (#$ . 786560)]) #@54 Sync the LysKOM datbase. This is a prioritized call. (defalias 'initiate-sync #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 43 data] 7 (#$ . 787022)]) #@68 Shutdown the server. Args: KOM-QUEUE HANDLER PARAMETER &rest DATA. (defalias 'initiate-shutdown #[(kom-queue handler parameter &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 44 data parameter] 7 (#$ . 787458)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 45 data message] 7 (#$ . 787935)]) #@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) "p\306\216 \204 \nq\210 \307\f \310X\203\311\202\312%\210\313\f\314\310X\203.\310\202/\315\316\317%\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call 99 lyskom-parse-membership-list lyskom-parse-membership-list-old lyskom-send-packet lyskom-format-objects 46 0 1 data lyskom-highest-call-feature-flag pers-no lyskom-max-int] 9 (#$ . 788435)]) #@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) "p\306\216 \204 \nq\210 \307\f \310X\203\311\202\312%\210\313\f\314\310X\203.\310\202/\315\316%\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call 99 lyskom-parse-membership-list lyskom-parse-membership-list-old lyskom-send-packet lyskom-format-objects 46 1 data lyskom-highest-call-feature-flag pers-no first length] 9 (#$ . 789090)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-map lyskom-send-packet lyskom-format-objects 47 data pers-no first-local no-of-texts] 8 (#$ . 789781)]) #@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) "p\306\216 \204 \nq\210 \307\f \310X\203\311\202\312%\210\313\f\314\310X\203.\310\202/\315$\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call 101 lyskom-parse-member-list lyskom-parse-member-list-old lyskom-send-packet lyskom-format-objects 48 data lyskom-highest-call-feature-flag conf-no first-local no-of-members] 8 (#$ . 790369)]) #@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) "p\306\216 \204 \nq\210 \307\f!\211\204-\310 \311\f&\210\312\313\314\f\"\"\210\202=\315\316 %\210\317!\210+\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no pers-no pers-stat ((set-buffer initiate-something-saved-buffer)) cache-get-pers-stat lyskom-call lyskom-parse-pers-stat lyskom-send-packet lyskom-format-objects 49 lyskom-call-add PARSED lyskom-check-call kom-queue handler data] 9 (#$ . 791096)]) #@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) "p\306\216 \204 \nq\210 \307\f!\f\310U\203)\311\312\313%\210\314!\210\202l \204\\\315 \316X\203@\317\202A\320\f&\210\321\322\316X\203T\316\202U\323\f\"\"\210\202l\311\312 %\210\314!\210+\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no conf-no conf-stat ((set-buffer initiate-something-saved-buffer)) cache-get-conf-stat 0 lyskom-call-add PARSED nil lyskom-check-call lyskom-call 91 lyskom-parse-conf-stat lyskom-parse-conf-stat-old lyskom-send-packet lyskom-format-objects 50 kom-queue handler data lyskom-highest-call-feature-flag] 8 (#$ . 791716)]) #@58 Ask server who is on. Args: KOM-QUEUE HANDLER &rest DATA (defalias 'initiate-who-is-on #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-who-info-list lyskom-send-packet lyskom-format-objects 51 data] 7 (#$ . 792505)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-conf-no-list lyskom-send-packet lyskom-format-objects 52 data pers-no] 7 (#$ . 792960)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 53 data recipient message] 7 (#$ . 793542)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-session-info lyskom-send-packet lyskom-format-objects 54 data session-no] 7 (#$ . 794073)]) #@66 Disconnect a session. Args: KOM-QUEUE HANDLER SESSION &rest DATA (defalias 'initiate-disconnect #[(kom-queue handler session-no &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 55 data session-no] 7 (#$ . 794584)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-num lyskom-send-packet lyskom-format-objects 56 data] 7 (#$ . 795063)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 57 data pers-no text-no] 7 (#$ . 795531)]) #@75 Get text created before BEFORE. Args: KOM-QUEUE HANDLER BEFORE &rest DATA (defalias 'initiate-get-last-text #[(kom-queue handler before &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-num lyskom-send-packet lyskom-format-objects 58 data before] 7 (#$ . 796038)]) #@171 Create a new anonymous text. Args: KOM-QUEUE HANDLER MESSAGE MISC-LIST AUX-ITEMS &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 aux-items &rest data) "p\306\216 \204 \nq\210 \307\f \310%\210\311X\2030\312\f\313\311\314B\315B$\"\210\202=\312\f\313\316\314B#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-num 87 lyskom-send-packet lyskom-format-objects STRING LIST 59 data lyskom-highest-call-feature-flag message misc-list aux-items] 9 (#$ . 796521)]) #@42 Find the text following the text TEXT-NO (defalias 'initiate-find-next-text-no #[(kom-queue handler text-no &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-num lyskom-send-packet lyskom-format-objects 60 data text-no] 7 (#$ . 797258)]) #@42 Find the text preceding the text TEXT-NO (defalias 'initiate-find-previous-text-no #[(kom-queue handler text-no &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-num lyskom-send-packet lyskom-format-objects 61 data text-no] 7 (#$ . 797713)]) #@29 Who is logged on. Obsolete. (defalias 'initiate-who-is-on-ident #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-who-info-ident-list lyskom-send-packet lyskom-format-objects 63 data] 7 (#$ . 798172)]) #@29 Get session info. Obsolete. (defalias 'initiate-get-session-info-ident #[(kom-queue handler session-no &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-session-info-ident lyskom-send-packet lyskom-format-objects 64 data session-no] 7 (#$ . 798609)]) #@43 Look up person based on regexp. Obsolete. (defalias 'initiate-re-lookup-person #[(kom-queue handler regexp &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-number-array lyskom-send-packet lyskom-format-objects 65 data regexp] 7 (#$ . 799077)]) #@47 Look up conference based on regexp. Obsolete. (defalias 'initiate-re-lookup-conf #[(kom-queue handler regexp &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-number-array lyskom-send-packet lyskom-format-objects 66 data regexp] 7 (#$ . 799539)]) #@53 Look up person based on abbreviated name. Obsolete. (defalias 'initiate-lookup-person #[(kom-queue handler regexp &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-number-array lyskom-send-packet lyskom-format-objects 67 data regexp] 7 (#$ . 800003)]) #@57 Look up conference based on abbreviated name. Obsolete. (defalias 'initiate-lookup-conf #[(kom-queue handler regexp &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-number-array lyskom-send-packet lyskom-format-objects 68 data regexp] 7 (#$ . 800472)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 #\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 69 data name version] 7 (#$ . 800943)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-string lyskom-send-packet lyskom-format-objects 70 data session] 7 (#$ . 801439)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 \"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-string lyskom-send-packet lyskom-format-objects 71 data session] 7 (#$ . 801989)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-conf-z-info-list lyskom-send-packet lyskom-format-objects 74 data regexp want-persons want-confs] 8 (#$ . 802541)]) #@69 Perform a get-version-info vall. Args: KOM-QUEUE HANDLER &rest DATA (defalias 'initiate-get-version-info #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-version-info lyskom-send-packet lyskom-format-objects 75 data] 7 (#$ . 803103)]) #@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) "p\306\216 \204 \nq\210 \307\fX\203,\310 \311%\210\312 \313\307$\"\210\202L \314 $\210 T\315\316\317 &\210)*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no lyskom-highest-call-feature-flag kom-queue ((set-buffer initiate-something-saved-buffer)) 76 lyskom-call lyskom-parse-conf-z-info-list lyskom-send-packet lyskom-format-objects lyskom-fake-call initiate-lookup-name compat initiate-compat-lookup-z-name-2 handler data name want-persons want-confs ref-no] 9 (#$ . 803574)]) (defalias 'initiate-compat-lookup-z-name-2 #[(result kom-queue ref-no want-persons want-confs) "p\306\216 \204 \nq\210 \f\204\307 \310#\210\f\211A@)\311\310\")\f\211AA)\311\310\")\312\313!\210\203{\203T@\211A\314\234)\204f\203n@\211A\314\234)\204n\315\313\310@#\210AA\202=\316\313\317 $\210,\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no result kom-queue ((set-buffer initiate-something-saved-buffer)) lyskom-complete-call nil append lyskom-collect follow 3 initiate-get-conf-stat lyskom-list-use initiate-compat-lookup-z-name-3 ref-no conf-list vector conf-types conf-nos want-persons conf-type want-confs] 7]) (defalias 'initiate-compat-lookup-z-name-3 #[(conf-list kom-queue ref-no) "p\306\216 \204 \nq\210 \307\f \310\311\312 \"!#\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue ref-no ((set-buffer initiate-something-saved-buffer)) lyskom-complete-call lyskom-create-conf-z-info-list mapcar #[(conf-stat) "\301\211A\302\234)\211A\303\234)\211A\304\234)#\207" [conf-stat lyskom-create-conf-z-info 1 2 0] 6] conf-list] 8]) #@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) "p\306\216 \204 \nq\210 \307\fX\203*\310 \311%\210\312 \313\307#\"\210\202;\314 \315 &\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no lyskom-highest-call-feature-flag kom-queue ((set-buffer initiate-something-saved-buffer)) 77 lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects initiate-get-conf-stat initiate-set-last-read-2 handler data conf-no text-no] 10 (#$ . 805495)]) (defalias 'initiate-set-last-read-2 #[(conf-stat kom-queue handler conf-no text-no data) "p\306\216 \204 \nq\210 \f\211A\307\234)\f\211A\310\234)\\S Z\211\311W\203)\311\312 \313%\210\314\315\316#\"\210+\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no conf-stat text-no ((set-buffer initiate-something-saved-buffer)) 13 14 0 lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 40 no-of-unread kom-queue handler data conf-no] 8]) #@83 Get an uconf-stat from LysKOM server. Args: KOM-QUEUE HANDLER CONF-NO &rest DATA. (defalias 'initiate-get-uconf-stat #[(kom-queue handler conf-no &rest data) "p\306\216 \204 \nq\210 \307\f!\f\310U\203)\311\312\313%\210\314!\210\202V \204F\315 \316\f&\210\317\320\321\f\"\"\210\202V\311\312 %\210\314!\210+\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no conf-no conf-stat ((set-buffer initiate-something-saved-buffer)) cache-get-uconf-stat 0 lyskom-call-add PARSED nil lyskom-check-call lyskom-call lyskom-parse-uconf-stat lyskom-send-packet lyskom-format-objects 78 kom-queue handler data] 8 (#$ . 806689)]) #@18 Set server info. (defalias 'initiate-set-info #[(kom-queue handler conf-pres-conf pers-pres-conf motd-conf kom-news-conf motd-of-lyskom &rest data) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313\314&\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 79 0 data conf-pres-conf pers-pres-conf motd-conf kom-news-conf motd-of-lyskom] 11 (#$ . 807375)]) #@79 Request asynchronous messages in LIST Args: KOM-QUEUE HANDLER LIST &rest DATA (defalias 'initiate-accept-async #[(kom-queue handler list &rest data) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313\314B\"\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 80 LIST data list] 7 (#$ . 807934)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-number-array lyskom-send-packet lyskom-format-objects 81 data] 7 (#$ . 808425)]) #@79 Notify the server that the user is active Args: KOM-QUEUE HANDLER &rest DATA. (defalias 'initiate-user-active #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 82 data] 7 (#$ . 808918)]) #@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) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-dynamic-session-info-list lyskom-send-packet lyskom-format-objects 83 data want-visible want-invisible active-last] 8 (#$ . 809386)]) #@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) "p\306\216 \204 \nq\210 \307\f!\211\204-\310 \311\f&\210\312\313\314\f\"\"\210\202=\315\316 %\210\317!\210+\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no session-no info ((set-buffer initiate-something-saved-buffer)) cache-get-static-session-info lyskom-call lyskom-parse-static-session-info lyskom-send-packet lyskom-format-objects 84 lyskom-call-add PARSED lyskom-check-call kom-queue handler data] 9 (#$ . 809986)]) #@40 Get the collate table from the server. (defalias 'initiate-get-collate-table #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-string lyskom-send-packet lyskom-format-objects 85 data] 7 (#$ . 810645)]) (defalias 'initiate-modify-text-info #[(kom-queue handler text-no delete-items add-items &rest data) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313\314B\314B$\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 92 LIST data text-no delete-items add-items] 9]) (defalias 'initiate-modify-conf-info #[(kom-queue handler conf-no delete-items add-items &rest data) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313\314B\314B$\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 93 LIST data conf-no delete-items add-items] 9]) (defalias 'initiate-modify-server-info #[(kom-queue handler delete-items add-items &rest data) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313\314B\314B#\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 95 LIST data delete-items add-items] 8]) #@47 Send query-predefined-aux-items to the server (defalias 'initiate-query-predefined-aux-items #[(kom-queue handler &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313!\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-number-array lyskom-send-packet lyskom-format-objects 96 data] 7 (#$ . 812437)]) #@28 Send set-expire to server. (defalias 'initiate-set-expire #[(kom-queue handler conf-no expire &rest data) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313#\"\210\314!\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 97 cache-del-conf-stat data conf-no expire] 7 (#$ . 812896)]) #@41 Send set-membership-type to the server. (defalias 'initiate-set-membership-type #[(kom-queue handler pers-no conf-no type &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 102 data pers-no conf-no type] 8 (#$ . 813376)]) #@33 Send local-to-global to server. (defalias 'initiate-local-to-global #[(kom-queue handler conf-no first-local-no no-of-texts &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-text-mapping lyskom-send-packet lyskom-format-objects 103 data conf-no first-local-no no-of-texts] 8 (#$ . 813863)]) #@39 Send map-created-texts to the server. (defalias 'initiate-map-created-texts #[(kom-queue handler author first-local-no no-of-texts &rest data) "p\306\216 \204 \nq\210 \307\f \f\310%\210\311\f\312\313 $\"\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-text-mappinng lyskom-send-packet lyskom-format-objects 104 data author first-local-no no-of-texts] 8 (#$ . 814374)]) (defalias 'initiate-set-keep-commented #[(kom-queue handler conf-no keep &rest data) "p\306\216 \204 \nq\210 \307\f  \310%\210\311\f\312\313#\"\210\314!\210*\207" [initiate-something-saved-buffer lyskom-output-queues lyskom-buffer lyskom-ref-no kom-queue handler ((set-buffer initiate-something-saved-buffer)) lyskom-call lyskom-parse-void lyskom-send-packet lyskom-format-objects 105 cache-del-conf-stat data conf-no keep] 7]) #@26 Return from blocking-do. (defvar lyskom-blocking-return nil (#$ . 815330)) #@25 Sets blocking variable. (defalias 'blocking-return #[(retval) "\303\211\207" [retval lyskom-blocking-return lyskom-ok-to-send-new-calls nil] 2 (#$ . 815411)]) #@264 Does the COMMAND agains the lyskom-server and returns the result. COMMAND is one lyskom-command (like the initiate-* but the initiate- is stripped. DATA is the args to command. The cache is consulted when command is get-conf-stat, get-pers-stat or get-text-stat. (defalias 'blocking-do #[(command &rest data) "\212\206\306 !q\210\n\203\307 \210\310\311\312\313\314\315 !P!\316\317$\210\320\216 \310=\203>\321 !\322>\203>\204>\323 \210\202%)\204I\203N\324\325\326\"\210\326 *\207" [lyskom-buffer lyskom-proc lyskom-is-parsing lyskom-blocking-return lyskom-ok-to-send-new-calls command process-buffer lyskom-really-serious-bug not-yet-gotten t apply intern-soft "initiate-" symbol-name blocking blocking-return ((byte-code "\301\302 \207" [lyskom-ok-to-send-new-calls t lyskom-check-output-queues] 1)) process-status (open run) lyskom-accept-process-output signal quit nil data lyskom-quit-flag quit-flag] 5 (#$ . 815580)]) #@50 Waits until all data on QUEUE has been processed (defalias 'lyskom-wait-queue #[(queue) "\212\206\306 !q\210\307\310 \311\312C#\210\313\216\n\307=\203%\f\204%\314 \210\202)\f\204. \2039\315\316\317!!\210\320\321\322\"\210\322\n*\207" [lyskom-buffer lyskom-proc lyskom-blocking-return queue lyskom-quit-flag quit-flag process-buffer not-yet-gotten lyskom-run blocking-return t ((byte-code "\301\302 \207" [lyskom-ok-to-send-new-calls t lyskom-check-output-queues] 1)) lyskom-accept-process-output lyskom-insert-before-prompt lyskom-get-string interrupted signal quit nil] 4 (#$ . 816532)]) #@34 Return from blocking-do-multiple (defvar lyskom-multiple-blocking-return nil (#$ . 817139)) (defalias 'lyskom-blocking-do-multiple #[(call-list) "\212\206\306 !q\210\n\203\307 \210\310\311\312\313!\210 \2035\314\315\316\317 @@!P!\313\320 @A$\210 A\211\204\321\313\322\"\210\323\216 \310=\203U\324 !\325>\203U\204U\326 \210\202<)\203i\320\327\330\331!!\210\332\333\320\"\210 *\207" [lyskom-buffer lyskom-proc lyskom-is-parsing lyskom-multiple-blocking-return lyskom-ok-to-send-new-calls call-list process-buffer lyskom-really-serious-bug not-yet-gotten t lyskom-collect blocking apply intern-soft "initiate-" symbol-name nil lyskom-use lyskom-blocking-do-multiple-1 ((byte-code "\301\302 \207" [lyskom-ok-to-send-new-calls t lyskom-check-output-queues] 1)) process-status (open run) lyskom-accept-process-output lyskom-insert-before-prompt lyskom-get-string interrupted signal quit lyskom-quit-flag] 6]) (defalias 'lyskom-blocking-do-multiple-1 #[(&rest data) "\303\211\207" [data lyskom-multiple-blocking-return lyskom-ok-to-send-new-calls nil] 2]) #@238 Attempt to cancel calls in queue QUEUE-NAME with ref-no in REF-NOS. There is no guarantee that the call will be canceled. In particular, if the call is not on QUEUE-NAME or has been sent to the server, it will probably not be canceled. (defalias 'lyskom-cancel-call #[(queue-name ref-nos) "\306 \n\236A\211\205\307 !\211A\242) \203\341\307 !\211\306\211B\241\210)\310\f\211\f<\2060\fG \306\306\306\f<\203\220\f\203\340\f@\211\311\234>\203Y\312\202\207\307 !\306B A@\204x A A\241\240\202\204 AA\241\210 A\241)\210*\fA\211\f\202C  W\203\340\f H\211\311\234>\203\253\312\202\331\307 !\306B A@\204\312 A A\241\240\202\326 AA\241\210 A\241)\210* T\211\202\221-*\313 !H\211\205\262\205\262 \211A\242) \211\306\211B\241\210)\310\f\211\f<\206\fG \306\306\306\f<\203f\f\203\256\f@\211@>\204] \306B A@\204N A A\241\240\202Z AA\241\210 A\241)\210*\fA\211\f\202!  W\203\256\f H\211@>\204\247 \306B A@\204\230 A A\241\240\202\244 AA\241\210 A\241)\210* T\211\202g.*\207" [found queue-name lyskom-call-data queue calls __i__ nil kom-queue->pending 0 1 t lyskom-queue-priority __sequence__ __len__ el __result__ ref-nos element elementcell lyskom-output-queues] 4 (#$ . 818221)]) (byte-code "\301\302\303\304#\210\305\306!\210\307P\301\310\311\312#\210\301\310\313\314#\207" [lyskom-clientversion-long put blocking-do-multiple edebug-form-spec (sexp body) provide lyskom-services "$Id: parse.el,v 44.36 2001/01/03 22:03:01 qha Exp $\n" 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) "\302\303\"\211\204 \304\202 \305O)\207" [string start string-match "[^ \n ]" "" nil] 4 (#$ . 819959)]) #@29 Skip to the next whitespace (defalias 'lyskom-parse-skip-rest-of-token #[nil "\301 \211\302U\206\f\303U?\205\301 \211\202)\207" [c lyskom-parse-char 32 10] 3 (#$ . 820175)]) #@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 "\301 \211\302U\204\303U\203\301 \211\202)\207" [char lyskom-parse-char 32 10] 3 (#$ . 820364)]) #@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 "dW\203\ffT\207\301\302\303\"\207" [lyskom-parse-pos signal lyskom-parse-incomplete nil] 3 (#$ . 820704)]) #@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) "\302 U?\205\303\304\305 Sf$\207" [char lyskom-parse-pos lyskom-parse-nonwhite-char lyskom-protocol-error lyskom-expect-char "Expecting %S but got %S"] 5 (#$ . 821020)]) #@44 Check if next token is CHAR (a character). (defalias 'lyskom-char-p #[(char) "\303 \n *=\207" [lyskom-parse-pos c char lyskom-parse-nonwhite-char] 2 (#$ . 821404)]) #@35 Return unparsed data as a string. (defalias 'lyskom-string-to-parse #[nil "\301d{!\207" [lyskom-parse-pos lyskom-string-skip-whitespace] 3 (#$ . 821578)]) #@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 "b\210\301\302!\203\303\225f\203\303\225b\304\305\303!!\207\306\307\310\"\207\301\311!\203,db\210\306\307\310\"\207\312\313\314\315 #\207" [lyskom-parse-pos looking-at "[ \n]*[0-9]+" 0 string-to-int match-string signal lyskom-parse-incomplete nil "[ \n]*\\'" lyskom-protocol-error lyskom-parse-num "Expected number, got %S" lyskom-string-to-parse] 4 (#$ . 821741)]) #@189 Parse the next token as a string in the server coding system. 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 "\301\302 \"\207" [lyskom-server-coding-system decode-coding-string lyskom-parse-raw-string] 3 (#$ . 822329)]) #@161 Parse next token as a raw 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-raw-string #[nil "\304 \210S\211b\210\305\306!\203\307\310\311\"\207\305\312!\204!\313\314\315\316 #\207\317\320!\320\225\321 !\nd \\W\203F\322\323 \\dZ\"\210\307\310\311\"\202T\211 \\{\322\323\320\"\210 \\+\207" [lyskom-parse-pos num end len lyskom-parse-nonwhite-char looking-at "[0-9]*\\(\\|H\\)\\'" signal lyskom-parse-incomplete nil "[0-9]+H" lyskom-protocol-error lyskom-parse-string "Expected hollerith, got %S" lyskom-string-to-parse match-string 0 string-to-int lyskom-set-default lyskom-string-bytes-missing] 5 (#$ . 822673)]) #@161 Parse next token as a raw 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-coding #[nil "\304 \210S\305 \306\307 \"\203\310\311\312\"\202X\306\313 \"\204&\314\315\316 #\202X\317\225\320 ! \\d\n\\W\203I\321\322\n\\dZ\"\210\310\311\312\"\202W\211\n\\{\321\322\317\"\210\n\\*)\207" [lyskom-parse-pos to-parse len end lyskom-parse-nonwhite-char lyskom-string-to-parse string-match "\\`[0-9]*\\(\\|C\\)\\'" signal lyskom-parse-incomplete nil "\\`[0-9]+C" lyskom-protocol-error lyskom-parse-string "Expected hollerith, got %S" 0 string-to-int lyskom-set-default lyskom-string-bytes-missing] 4 (#$ . 823417)]) #@38 Parse a string with explicit coding. (defalias 'lyskom-parse-coded-string #[nil "\302\303 !\304 \305\306\307\217*\207" [data coding intern lyskom-parse-coding lyskom-parse-raw-string nil (byte-code "\302!\210\303 \"\207" [coding data check-coding-system decode-coding-string] 3) ((nil data))] 3 (#$ . 824154)]) #@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 "\301 \211\302U\203 \303\202\304U\203\305\202\306\307\310#)\207" [char lyskom-parse-nonwhite-char 48 nil 49 t lyskom-protocol-error lyskom-parse-1-or-0 "Expected boolean, got %S"] 5 (#$ . 824476)]) #@28 Parse a generic bit string (defalias 'lyskom-parse-bitstring #[(default) "\304\305 \306\203P \203P \307=\203\"\304\nB A\310 \202 \311=\2035\306\nB A\310 \202 \312U\204A \313U\203G\304\211\202\314\315\316 #\210\202 \317>\204^\320 \210\n\237\202d\n\237\321 !\244+\207" [continue char result default nil lyskom-parse-nonwhite-char t 48 lyskom-parse-char 49 32 10 lyskom-protocol-error lyskom-parse-bitstring "Expected bool or space, got %S" (32 10) lyskom-parse-skip-rest-of-token copy-sequence] 5 (#$ . 824921)]) #@39 Parse a time from server. Args: none. (defalias 'lyskom-parse-time #[nil "\306 \306 \306 \306 \306 \306 \306 \306 \306 \307\211\n \f \310\311 \f \n \f \n & . B\207" [tzmin tzhr isdst yday wday year lyskom-parse-num nil TIME vector mon mday hour min sec] 13 (#$ . 825465)]) #@26 Skip next TO-SKIP tokens (defalias 'lyskom-skip-tokens #[(to-skip) "\301U?\205\302 \210S\211\202\207" [to-skip 0 lyskom-skip-one-token] 3 (#$ . 825763)]) (defalias 'lyskom-skip-one-token #[nil "\301 \302\303\"\203\304 \210\305 \202H\302\306\"\203\304 \202H\302\307\"\203*\310 \202H\302\311\"\2036\312 \202H\302\313\"\203D\314\315\316\"\202H\317\320\321\")\207" [to-parse lyskom-string-to-parse string-match "\\`{" lyskom-parse-nonwhite-char lyskom-skip-array "\\`*" "\\`[0-9]+H" lyskom-parse-string "\\`[0-9]+[ \n ]" lyskom-parse-num "\\`[0-9]\\'" signal lyskom-parse-incomplete nil lyskom-protocol-error lyskom-skip-one-token "Unrecognized token"] 3]) (defalias 'lyskom-skip-array #[nil "\301 \302\303\"\203\304 \202\305 \210\306 )\207" [to-parse lyskom-string-to-parse string-match "\\`}" lyskom-parse-nonwhite-char 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) "\302U\203\303\304!\203\305\304!\207\305\306!\210\305\307!\207\303\304!\203\"\305\304!\207\305\306!\210\310\311\312\" \"\305\307!\210\207" [len parser 0 lyskom-char-p 42 lyskom-expect-char 123 125 lyskom-fill-vector make-vector nil] 4 (#$ . 826665)]) #@129 Parse a vector with LEN elements and return it as a list. Each element is parsed by PARSER, a function that takes no arguments. (defalias 'lyskom-parse-list #[(len parser) "\303U\203\304\305!\203\306\305!\210\202\306\307!\210\306\310!\210\311\207\304\305!\203)\306\305!\210\311\207\306\307!\210\311\303V\203A\n BS\211\2020 \237)\207" [len result parser 0 lyskom-char-p 42 lyskom-expect-char 123 125 nil] 3 (#$ . 827080)]) #@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) "\304G\211 W\203\n I\210\nT\211\202*\207" [vector len index parser 0] 4 (#$ . 827525)]) #@29 Parse a conf-type. No args. (defalias 'lyskom-parse-conf-type #[nil "\300\301\302\303!\"\207" [apply lyskom-create-conf-type lyskom-parse-bitstring (nil nil nil nil t nil nil nil)] 4 (#$ . 827824)]) #@28 Parse privileges. No args. (defalias 'lyskom-parse-privs #[nil "\300\301\302\303!\"\207" [apply lyskom-create-privs lyskom-parse-bitstring (nil nil nil t t t nil nil nil nil nil nil nil nil nil nil)] 4 (#$ . 828029)]) #@32 Parse Personal_flags. No args. (defalias 'lyskom-parse-flags #[nil "\300\301\302\303!\"\207" [apply lyskom-create-flags lyskom-parse-bitstring (nil nil nil nil nil nil nil nil)] 4 (#$ . 828253)]) #@25 Parse a misc-info-list. (defalias 'lyskom-parse-misc-info-list #[nil "\302 \303 \304U\203\305\202%\306U\203 \307 !\310\311!\210\202%\312\313\314#*\207" [char n lyskom-parse-num lyskom-parse-nonwhite-char 42 nil 123 lyskom-parse-misc-info-list-sub lyskom-expect-char 125 lyskom-protocol-error lyskom-parse-misc-info-list "Expected * or {, got %S"] 4 (#$ . 828455)]) #@38 Parse a misc-info list with N items. (defalias 'lyskom-parse-misc-info-list-sub #[(n) "\305C\211\306 \307\f\310V\203\207\n\310=\203\311\312 \f#\202{\n\313=\203.\311\314 \f#\202{\n\315=\203<\316 \f\"\202{\n\317=\203J\320 \f\"\202{\n\321=\203X\322 \f\"\202{\n\323=\203f\324 \f\"\202{\n\325=\203u\311\326 \f#\202{\327\330\331\n#\210 @ A A\202\nA,\207" [result last next-key res n dummy lyskom-parse-num nil 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 15 BCC-RECPT lyskom-protocol-error lyskom-parse-misc-info-list-sub "Unknown misc-info type %S"] 5 (#$ . 828836)]) #@211 Parse a recipient. Args: TYPE LAST N. TYPE is either RECPT, CC-RECPT or BCC-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) "\306\211\211\211\211\211\211\211\211\211\307\310 \f \n &\n.\nB\306B\241\210A@\306\211\211A\311I\210*\312 \211A\313I\210* S \314 \306\"\315U\204o\316\317\320\"\210\312 \211A\321I\210* S \314 \306\"\211\322U\203\251\323 \211A\324I\210* S \306\314 \"\211\325U\203\317\312 \211A\325I\210* S \306\314 \"\211\326U\203\365\323 \211A\326I\210* S \306 \314 \"*B\207" [last sent-at sender footn-in footn-to comm-in nil MISC-INFO vector 0 lyskom-parse-num 1 lyskom-next-num 6 lyskom-protocol-error lyskom-parse-misc-recipient "Expected 6, got something else" 2 7 lyskom-parse-time 3 8 9 comm-to rec-time local-no recipient-no type next-key info newval misc-info n] 14 (#$ . 829554)]) #@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) "\306\211\211\211\211\211\211\211\211\211\307\310 \f \n &\n.\nB\306B\241\210A@\306\211\311\211A\312I\210*\313 \211A\314I\210*S\315\306\"\211\316U\203\204\313 \211A\316I\210*S\306\315\"\211\317U\203\252\320 \211A\317I\210*S\306\315\"*B\207" [last sent-at sender footn-in footn-to comm-in nil MISC-INFO vector COMM-TO 0 lyskom-parse-num 4 lyskom-next-num 8 9 lyskom-parse-time comm-to rec-time local-no recipient-no type next-key info newval misc-info n] 14 (#$ . 830617)]) #@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) "\306\211\211\211\211\211\211\211\211\211\307\310 \f \n &\n.\nB\306B\241\210A@\306\211\311\211A\312I\210*\313 \211A\314I\210*S\315\306\"\211\316U\203\204\317 \211A\316I\210*S\306\315\"*B\207" [last sent-at sender footn-in footn-to comm-in nil MISC-INFO vector FOOTN-TO 0 lyskom-parse-num 6 lyskom-next-num 9 lyskom-parse-time comm-to rec-time local-no recipient-no type next-key info newval misc-info n] 14 (#$ . 831397)]) #@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) "\306\211\211\211\211\211\211\211\211\211\307\310 \f \n &\n.\nB\306B\241\210A@\211\311\211A\312I\210*\313 \211A\314I\210*S\211\315\306\")B\207" [last sent-at sender footn-in footn-to comm-in nil MISC-INFO vector COMM-IN 0 lyskom-parse-num 5 lyskom-next-num comm-to rec-time local-no recipient-no type info newval misc-info n] 14 (#$ . 832109)]) #@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) "\306\211\211\211\211\211\211\211\211\211\307\310 \f \n &\n.\nB\306B\241\210A@\211\311\211A\312I\210*\313 \211A\314I\210*S\211\315\306\")B\207" [last sent-at sender footn-in footn-to comm-in nil MISC-INFO vector FOOTN-IN 0 lyskom-parse-num 7 lyskom-next-num comm-to rec-time local-no recipient-no type info newval misc-info n] 14 (#$ . 832716)]) #@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) "\302U\203\303\207 \206\304 \207" [items-to-parse pre-fetched 0 -1 lyskom-parse-num] 2 (#$ . 833326)]) #@29 Parse an array of integers. (defalias 'lyskom-parse-number-array #[nil "\300\301 \301\"\207" [lyskom-parse-vector lyskom-parse-num] 3 (#$ . 833645)]) #@25 Parse a membership type (defalias 'lyskom-parse-membership-type #[nil "\300\301\302\303!\"\207" [apply lyskom-create-membership-type lyskom-parse-bitstring (nil nil nil nil nil nil nil nil)] 4 (#$ . 833801)]) #@35 Parse an old-style member record. (defalias 'lyskom-parse-member-old #[nil "\306 \307\310 \311\211\211\211\211\211\211\211 \312\313 \f \n &.B\314\313$,B\207" [rsv5 rsv4 rsv3 rsv2 rsv1 secret lyskom-parse-num 0 lyskom-current-time nil MEMBERSHIP-TYPE vector MEMBER passive invitation membership-type created-at created-by pers-no] 13 (#$ . 834016)]) #@23 Parse a member record (defalias 'lyskom-parse-member #[nil "\304 \304 \305 \306 \307\310 \n $,B\207" [membership-type created-at created-by pers-no lyskom-parse-num lyskom-parse-time lyskom-parse-membership-type MEMBER vector] 6 (#$ . 834403)]) #@25 Parse a list of members (defalias 'lyskom-parse-member-list #[nil "\301\302 \303\"\304\305!)B\207" [members lyskom-parse-vector lyskom-parse-num lyskom-parse-member MEMBER-LIST vector] 3 (#$ . 834659)]) #@21 Parse a membership. (defalias 'lyskom-parse-membership #[nil "\306 \307 \306 \306 \306 \310\306 \306\"\306 \307 \311 \f \312\313 \f \f \n & . B\207" [type created-at created-by read-texts last-text-read priority lyskom-parse-num lyskom-parse-time lyskom-parse-vector lyskom-parse-membership-type MEMBERSHIP vector conf-no last-time-read position] 11 (#$ . 834870)]) #@21 Parse a membership. (defalias 'lyskom-parse-membership-old #[nil "\306\307 \310 \310 \310 \311\310 \310\"\312\313 \306\211\211\211\211\211\211\211\314\315 \f \n &.B\316\315& . B\207" [rsv5 rsv4 rsv3 rsv2 rsv1 secret nil lyskom-parse-time lyskom-parse-num lyskom-parse-vector 0 lyskom-current-time MEMBERSHIP-TYPE vector MEMBERSHIP passive invitation type created-at created-by read-texts last-text-read priority conf-no last-time-read position] 18 (#$ . 835257)]) #@43 Parse info about the server and protocol. (defalias 'lyskom-parse-version-info #[nil "\303 \304 \304 \305\306\n #+B\207" [software-version server-software protocol-version lyskom-parse-num lyskom-parse-string VERSION-INFO vector] 5 (#$ . 835780)]) #@30 Parse info about the server. (defalias 'lyskom-parse-server-info #[nil "\306 \306 \306 \306 \306 \306 \307 \n\310\311\n \f \n &.B\207" [aux-items motd-of-lyskom kom-news-conf motd-conf pers-pres-conf conf-pres-conf lyskom-parse-num lyskom-parse-aux-item-list SERVER-INFO vector version] 9 (#$ . 836038)]) #@30 Parse info about the server. (defalias 'lyskom-parse-server-info-old #[nil "\306 \306 \306 \306 \306 \306 \307\n\310\311\n \f \n &.B\207" [aux-items motd-of-lyskom kom-news-conf motd-conf pers-pres-conf conf-pres-conf lyskom-parse-num nil SERVER-INFO vector version] 9 (#$ . 836360)]) #@40 Parse a text-list (also known as map). (defalias 'lyskom-parse-map #[nil "\302 \303\302 \302\"\304\305 \"*B\207" [text-nos first-local lyskom-parse-num lyskom-parse-vector MAP vector] 4 (#$ . 836662)]) #@27 Parse a sparce l2g block. (defalias 'lyskom-parse-sparse-map #[nil "\301\302 \303\"\304\305!)B\207" [mapping lyskom-parse-list lyskom-parse-num lyskom-parse-text-number-pair SPARSE-MAP vector] 3 (#$ . 836873)]) (defalias 'lyskom-parse-text-number-pair #[nil "\300 \300 B\207" [lyskom-parse-num] 2]) #@22 Parse a text-mapping (defalias 'lyskom-parse-text-mapping #[nil "\304 \305 \306U\203 \307\310 \311\312 \n#+B\2023\313U\2053 \314\315 \311\312 \n#+B*\207" [kind have-more mapping type lyskom-parse-1-or-0 lyskom-parse-num 0 sparse lyskom-parse-sparse-map TEXT-MAPPING vector 1 dense lyskom-parse-map] 5 (#$ . 837180)]) #@19 Parse a who-info. (defalias 'lyskom-parse-who-info #[nil "\306 \306 \306 \307 \307 \310\211 \311\312 \f \n &.B\207" [ident-user hostname username doing-what connection working-conf lyskom-parse-num lyskom-parse-string nil WHO-INFO vector pers-no] 9 (#$ . 837519)]) #@24 Parse a who-info-ident (defalias 'lyskom-parse-who-info-ident #[nil "\306 \306 \306 \307 \307 \307 \307 \n\310\311\n \f \n &.B\207" [ident-user hostname username doing-what connection working-conf lyskom-parse-num lyskom-parse-string WHO-INFO vector pers-no] 9 (#$ . 837802)]) #@23 Parse a session-info. (defalias 'lyskom-parse-session-info #[nil "\306 \306 \306 \307 \307 \310\211\306 \311 \f \312\313 \f \f  \n& . B\207" [connect-time idletime ident-user hostname username doing lyskom-parse-num lyskom-parse-string nil lyskom-parse-time SESSION-INFO vector connection working-conf pers-no] 11 (#$ . 838096)]) #@23 Parse a session-info. (defalias 'lyskom-parse-session-info-ident #[nil "\306 \306 \306 \307 \307 \307 \307 \306 \310  \f \311\312 \f \f  \n& . B\207" [connect-time idletime ident-user hostname username doing lyskom-parse-num lyskom-parse-string lyskom-parse-time SESSION-INFO vector connection working-conf pers-no] 11 (#$ . 838447)]) #@22 Parse session-flags. (defalias 'lyskom-parse-session-flags #[nil "\300\301\302\303!\"\207" [apply lyskom-create-session-flags lyskom-parse-bitstring (nil nil nil nil nil nil nil nil)] 4 (#$ . 838802)]) #@31 Parse a dynamic-session-info. (defalias 'lyskom-parse-dynamic-session-info #[nil "\306 \306 \306 \306 \307 \310 \311\312 \f \n &.B\207" [what-am-i-doing flags idle-time working-conference person session lyskom-parse-num lyskom-parse-session-flags lyskom-parse-string DYNAMIC-SESSION-INFO vector] 8 (#$ . 839010)]) #@61 Parse result from functions that only return an OK/FAILURE. (defalias 'lyskom-parse-void #[nil "\300\207" [t] 1 (#$ . 839339)]) #@54 Parse result from functions that return conf-no-list (defalias 'lyskom-parse-conf-no-list #[nil "\301\302 \302\"\303\304\305!\203\306\307\"\202!)B\207" [conf-nos lyskom-parse-vector lyskom-parse-num CONF-NO-LIST vector vectorp append nil] 5 (#$ . 839473)]) #@54 Parse result from functions that return a conf-list. (defalias 'lyskom-parse-conf-list #[nil "\303 \304\303\"\304\305\"\306\n +BB\207" [list-len conf-types conf-nos lyskom-parse-num lyskom-parse-vector lyskom-parse-conf-type CONF-LIST] 4 (#$ . 839744)]) #@57 Parse result from functions that return a conf-no-list. (defalias 'lyskom-parse-member-list-old #[nil "\301\302 \303\"\304\305!)B\207" [members lyskom-parse-vector lyskom-parse-num lyskom-parse-member-old MEMBER-LIST vector] 3 (#$ . 840009)]) #@56 Parser result from functions that returns a mark-list. (defalias 'lyskom-parse-mark-list #[nil "\300\301 \302\"\207" [lyskom-parse-vector lyskom-parse-num lyskom-parse-mark] 3 (#$ . 840260)]) #@22 Parse a marked text. (defalias 'lyskom-parse-mark #[nil "\302 \302 \303\304 \"*B\207" [mark-type text-no lyskom-parse-num MARK vector] 4 (#$ . 840458)]) #@24 Parse an aux-item list (defalias 'lyskom-parse-aux-item-list #[nil "\301\302 \303\"\304\305\")\207" [vector lyskom-parse-vector lyskom-parse-num lyskom-parse-aux-item append nil] 3 (#$ . 840620)]) #@19 Parse an aux-item (defalias 'lyskom-parse-aux-item #[nil "\306\307 \307 \307 \310 \311 \307 \312  \313\314 \f \n &.B!\207" [data inherit-limit flags sent-at creator tag lyskom-aux-item-after-parse lyskom-parse-num lyskom-parse-time lyskom-parse-aux-item-flags lyskom-parse-raw-string AUX-ITEM vector aux-no] 10 (#$ . 840825)]) #@22 Parse aux-item flags (defalias 'lyskom-parse-aux-item-flags #[nil "\300\301\302\303!\"\207" [apply lyskom-create-aux-item-flags lyskom-parse-bitstring (nil nil nil nil nil nil nil nil)] 4 (#$ . 841170)]) #@54 Parse a static-session-info and add it to the cache. (defalias 'lyskom-parse-static-session-info #[(session) "\306 \306 \306 \307 \310\311 \n $,Bp\312\216\fq\210\313 \f\"\210*\f)\207" [connection-time ident-user hostname username info __buffer__ lyskom-parse-string lyskom-parse-time STATIC-SESSION-INFO vector ((set-buffer __buffer__)) cache-add-static-session-info lyskom-buffer session] 6 (#$ . 841380)]) #@82 Parse a conf-stat, add add it in the cache. Retuns the conf-stat. Args: CONF-NO. (defalias 'lyskom-parse-conf-stat-old #[(conf-no) "\306 \307 \310 \310 \311 \311 \311 \311 \311 \311 \311 \312\311 \311 \311 \313\211\314\315 \f \n\206_\316 &.Bp\317\216q\210\320!\210*)\207" [conf-no aux-items expire no-of-texts first-local-no no-of-members lyskom-parse-string lyskom-parse-conf-type lyskom-parse-time lyskom-parse-num 77 nil CONF-STAT vector 0 ((set-buffer __buffer__)) cache-add-conf-stat keep-commented garb-nice msg-of-day super-conf permitted-submitters supervisor presentation creator last-written creation-time conf-type name conf-stat __buffer__ lyskom-buffer] 19 (#$ . 841803)]) #@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) "\306 \307 \310 \310 \311 \311 \311 \311 \311 \311 \311 \311 \311 \311 \311 \311 \312 \313\314 \f \n\206b\315 &.Bp\316\216q\210\317!\210*)\207" [conf-no aux-items expire no-of-texts first-local-no no-of-members lyskom-parse-string lyskom-parse-conf-type lyskom-parse-time lyskom-parse-num lyskom-parse-aux-item-list CONF-STAT vector 0 ((set-buffer __buffer__)) cache-add-conf-stat keep-commented garb-nice msg-of-day super-conf permitted-submitters supervisor presentation creator last-written creation-time conf-type name conf-stat __buffer__ lyskom-buffer] 19 (#$ . 842562)]) #@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) "\306 \307 \310 \310 \311\312\f \n %-Bp \313\216q\210\314 !\210* )\207" [conf-no nice highest-local-no conf-type name conf-stat lyskom-parse-string lyskom-parse-conf-type lyskom-parse-num UCONF-STAT vector ((set-buffer __buffer__)) cache-add-uconf-stat __buffer__ lyskom-buffer] 7 (#$ . 843340)]) #@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) "\306 \307 \310 \311 \312 \312 \312 \312 \312 \312 \312 \312 \312 \312 \312 \312 \312 \313\314 \f \n &.Bp\315\216q\210\316!\210*)\207" [pers-no no-of-confs no-of-marks no-of-created-texts first-created-text created-confs lyskom-parse-string lyskom-parse-privs lyskom-parse-flags lyskom-parse-time lyskom-parse-num PERS-STAT vector ((set-buffer __buffer__)) cache-add-pers-stat 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 __buffer__ lyskom-buffer] 20 (#$ . 843783)]) #@78 Parse a text-stat and add it in the cache. Args: TEXT-NO. Value: text-stat. (defalias 'lyskom-parse-text-stat-old #[(text-no) "\306 \307 \307 \307 \307 \310 \311\312\313 \f \n &.Bp\314\216q\210\315!\210*)\207" [text-no aux-items misc-info-list no-of-marks no-of-chars no-of-lines lyskom-parse-time lyskom-parse-num lyskom-parse-misc-info-list nil TEXT-STAT vector ((set-buffer __buffer__)) cache-add-text-stat author creation-time text-stat __buffer__ lyskom-buffer] 10 (#$ . 844565)]) #@78 Parse a text-stat and add it in the cache. Args: TEXT-NO. Value: text-stat. (defalias 'lyskom-parse-text-stat #[(text-no) "\306 \307 \307 \307 \307 \310 \311 \312\313 \f \n &.Bp\314\216q\210\315!\210*)\207" [text-no aux-items misc-info-list no-of-marks no-of-chars no-of-lines lyskom-parse-time lyskom-parse-num lyskom-parse-misc-info-list lyskom-parse-aux-item-list TEXT-STAT vector ((set-buffer __buffer__)) cache-add-text-stat author creation-time text-stat __buffer__ lyskom-buffer] 10 (#$ . 845086)]) #@75 Parse a text and add it to the cache. Args: TEXT-NO. Result: text-stat. (defalias 'lyskom-parse-text #[(text-no) "\305 \306\307 \"*Bp\310\216\fq\210\311\n!\210*\n)\207" [text-no text-mass text __buffer__ lyskom-buffer lyskom-parse-raw-string TEXT vector ((set-buffer __buffer__)) cache-add-text] 4 (#$ . 845627)]) #@61 Parse result from functions that return a conf-z-info-list. (defalias 'lyskom-parse-conf-z-info-list #[nil "\301 \302\303\304\"!)\207" [list-len lyskom-parse-num lyskom-create-conf-z-info-list lyskom-parse-vector lyskom-parse-conf-z-info] 4 (#$ . 845955)]) #@22 Parse a conf-z-info. (defalias 'lyskom-parse-conf-z-info #[nil "\300\301 \302 \303 #\207" [lyskom-create-conf-z-info lyskom-parse-string lyskom-parse-conf-type lyskom-parse-num] 4 (#$ . 846220)]) #@44 Parse a membership-list. Returns a vector. (defalias 'lyskom-parse-membership-list #[nil "\300\301 \302\"\207" [lyskom-parse-vector lyskom-parse-num lyskom-parse-membership] 3 (#$ . 846422)]) #@44 Parse a membership-list. Returns a vector. (defalias 'lyskom-parse-membership-list-old #[nil "\300\301 \302\"\207" [lyskom-parse-vector lyskom-parse-num lyskom-parse-membership-old] 3 (#$ . 846620)]) #@42 Parse a who-info-list. Returns a vector. (defalias 'lyskom-parse-who-info-list #[nil "\300\301 \302\"\207" [lyskom-parse-vector lyskom-parse-num lyskom-parse-who-info] 3 (#$ . 846826)]) #@48 Parse a who-info-ident-list. Returns a vector. (defalias 'lyskom-parse-who-info-ident-list #[nil "\300\301 \302\"\207" [lyskom-parse-vector lyskom-parse-num lyskom-parse-who-info-ident] 3 (#$ . 847018)]) #@42 Parse a who-info-list. Returns a vector. (defalias 'lyskom-parse-dynamic-session-info-list #[nil "\300\301 \302\"\207" [lyskom-parse-vector lyskom-parse-num lyskom-parse-dynamic-session-info] 3 (#$ . 847228)]) #@105 Does all initialization of the parsing routines. i.e creates the buffer, sets all markers and pointers. (defalias 'lyskom-init-parse #[(buffer) "\306\307 \203 \310\202\f\311\312 \313Q!\212\nq\210\314\306!\210)p\315\216\f\nq\210\316\304!\210\316\317!\210 \316\320!\210\321\317\322\"\210db\210\323 +\211\207" [lyskom-is-parsing lyskom-debug-communications-to-buffer lyskom-unparsed-buffer __buffer__ lyskom-proc proc nil lyskom-generate-new-buffer "" " " buffer-name "-replies" set-buffer-multibyte ((set-buffer __buffer__)) make-local-variable lyskom-string-bytes-missing lyskom-buffer lyskom-set-default 0 point-marker buffer lyskom-unparsed-marker] 4 (#$ . 847445)]) #@62 Parse the results of a successful call and call the handler. (defalias 'lyskom-parse-success #[(ref-no buffer) "p\306\216 q\210\n \236A\307\f\n\"\fq\210 \203\310 !\210 q\210\311 \210\312\n \"\313\f!,\207" [__buffer__ buffer ref-no lyskom-pending-calls kom-queue call-info ((set-buffer __buffer__)) lyskom-locate-ref-no apply-parser lyskom-decrease-pending-calls lyskom-assoc-dremove lyskom-check-call lyskom-unparsed-buffer] 3 (#$ . 848132)]) (defalias 'lyskom-locate-ref-no #[(kom-queue ref-no) "\306\307 \"A!\211A\242)\310 \2045\f\2035\f@@\311=\203/\f@A@ =\203/\f@\211\202\fA\202 *\207" [kom-queue lyskom-call-data queue result pending ref-no kom-queue->pending assoc nil CALL] 5]) #@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) "\304B\211\nA\203$ \nA@@\232\203\n\211AA\241\210\202\nA\211\202 A*\207" [list head tail elt nil] 3 (#$ . 848843)]) #@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) "\302AA@AAA@\"\303 \")\207" [call-info result apply lyskom-tr-call-to-parsed] 3 (#$ . 849112)]) #@31 Transform a CALL to a PARSED. (defalias 'lyskom-tr-call-to-parsed #[(call-info result) "\302\240\210A \240\210AAAAA\241\207" [call-info result PARSED] 2 (#$ . 849516)]) #@64 Parse the result of an unsuccessful call and call the handler. (defalias 'lyskom-parse-error #[(ref-no buffer) "p\306\216 q\210\n \236A\307\f\n\"\310\310q\210\311 \311  q\210\312\n \"\313 \210 \203?\314 \310\"\210\315\f!.\207" [__buffer__ buffer ref-no lyskom-pending-calls kom-queue call-info ((set-buffer __buffer__)) lyskom-locate-ref-no nil lyskom-parse-num lyskom-assoc-dremove lyskom-decrease-pending-calls lyskom-tr-call-to-parsed lyskom-check-call errno err-stat lyskom-unparsed-buffer lyskom-errno lyskom-err-stat] 3 (#$ . 849695)]) #@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\300 \n\203 \306 \203\307\202\310!\311\312 \204 \313\314!\210p\315\216q\210dS\316U\204N\317\320 \321\322\323\217\210eb\210\324\325!\203J\316\224\316\225|\210*\202(*\326!*\207" [match-data lyskom-buffer lyskom-is-saving lyskom-executing-command mode-line-process __buffer__ lyskom-get-string mode-line-working mode-line-waiting nil lyskom-is-in-minibuffer message "" ((set-buffer __buffer__)) 0 1 lyskom-parse-nonwhite-char err (byte-code "\304 \305U\203\306\307 \n\"\210\202, \310U\203 \311\307 \n\"\210\202, \312U\203,\313\307 \n\"\210e |\210)\304\207" [inhibit-quit key lyskom-buffer lyskom-parse-pos t 61 lyskom-parse-success lyskom-parse-num 37 lyskom-parse-error 58 lyskom-parse-async] 3) ((lyskom-protocol-error (byte-code "edT^|\210\302\303 \"\207" [lyskom-parse-pos err signal lyskom-protocol-error] 3))) looking-at "[ \n]+" store-match-data lyskom-unparsed-buffer lyskom-parse-pos key] 3 (#$ . 850268)]) (defalias 'lyskom-protocol-error #[(function format-string &rest args) "\203+\306 \307\310\n\"\311\307 \f##\210\306 \312\313#\210\314 !\315 \210)\306 \307\316!d{#\210\317\320 !\210\321\322\307\323\n\311\307 \f##\"\207" [lyskom-debug-communications-to-buffer lyskom-proc function format-string args lyskom-debug-communications-to-buffer-buffer lyskom-debug-insert format " Protocol error in %S: " apply " Backtrace:" "" get-buffer-create backtrace " Current string: " lyskom-save-backtrace lyskom-string-to-parse signal lyskom-protocol-error "Protocol error in %S: %s" standard-output lyskom-parse-pos] 9]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: cache.el,v 44.10 1999/11/19 13:37:20 byers 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) "\303 \"\206\n\205\304\305!!\207" [conf-no lyskom-uconf-cache lyskom-long-conf-types-feature-flag cache-assoc cache-construct-uconf-stat cache-get-conf-stat] 3 (#$ . 852255)]) #@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) "\306 \203I\307 \211A\310\234) \211A\311\234) \211A\312\234) \211A\313\234) \211A\314\234)\\ \211A\315\234)\316\317 \f %-B\211!\210)\207" [tmp conf conf-stat nice highest-local-no conf-type nil cache-add-uconf-stat 0 1 2 13 14 11 UCONF-STAT vector name conf-no] 9 (#$ . 852637)]) #@35 Insert a UCONF-STAT in the cache. (defalias 'cache-add-uconf-stat #[(uconf-stat) "\301\211A\302H)\303#\207" [uconf-stat cache-add 0 lyskom-uconf-cache] 5 (#$ . 853089)]) #@51 Delete a conf-stat from the cache. Args: CONF-NO. (defalias 'cache-del-uconf-stat #[(conf-no) "\301\302\"\210\301\303\"\207" [conf-no cache-del lyskom-uconf-cache lyskom-conf-cache] 3 (#$ . 853268)]) #@68 Get conf-stat for conference CONF-NO, or nil if nothing is cached. (defalias 'cache-get-conf-stat #[(conf-no) "\302 \"\207" [conf-no lyskom-conf-cache cache-assoc] 3 (#$ . 853476)]) #@34 Insert a CONF-STAT in the cache. (defalias 'cache-add-conf-stat #[(conf-stat) "\301\211A\302\234)\303#\207" [conf-stat cache-add 0 lyskom-conf-cache] 5 (#$ . 853665)]) #@51 Delete a conf-stat from the cache. Args: CONF-NO. (defalias 'cache-del-conf-stat #[(conf-no) "\301\302\"\210\301\303\"\207" [conf-no cache-del lyskom-conf-cache lyskom-uconf-cache] 3 (#$ . 853842)]) #@64 Get pers-stat for person PERS-NO, or nil if nothing is cached. (defalias 'cache-get-pers-stat #[(pers-no) "\302 \"\207" [pers-no lyskom-pers-cache cache-assoc] 3 (#$ . 854049)]) #@34 Insert a PERS-STAT in the cache. (defalias 'cache-add-pers-stat #[(pers-stat) "\301\211A\302\234)\303#\207" [pers-stat cache-add 0 lyskom-pers-cache] 5 (#$ . 854234)]) #@51 Delete a pers-stat from the cache. Args: PERS-NO. (defalias 'cache-del-pers-stat #[(pers-no) "\301\302\"\207" [pers-no cache-del lyskom-pers-cache] 3 (#$ . 854411)]) #@64 Get text-stat for texton TEXT-NO, or nil if nothing is cached. (defalias 'cache-get-text-stat #[(text-no) "\302 \"\207" [text-no lyskom-text-cache cache-assoc] 3 (#$ . 854584)]) #@34 Insert a TEXT-STAT in the cache. (defalias 'cache-add-text-stat #[(text-stat) "\301\211A\302\234)\303#\207" [text-stat cache-add 0 lyskom-text-cache] 5 (#$ . 854769)]) #@51 Delete a text-stat from the cache. Args: TEXT-NO. (defalias 'cache-del-text-stat #[(text-no) "\301\302\"\207" [text-no cache-del lyskom-text-cache] 3 (#$ . 854946)]) #@59 Get text for textno TEXT-NO, or nil if nothing is cached. (defalias 'cache-get-text #[(text-no) "\304 \"\211\211\242)\305=\205\n)\207" [text-no lyskom-text-mass-cache tx object cache-assoc TEXT] 4 (#$ . 855119)]) #@29 Insert a TEXT in the cache. (defalias 'cache-add-text #[(text) "\301\211A\302\234)\303#\207" [text cache-add 0 lyskom-text-mass-cache] 5 (#$ . 855343)]) #@46 Delete a text from the cache. Args: TEXT-NO. (defalias 'cache-del-text #[(text-no) "\301\302\"\207" [text-no cache-del lyskom-text-mass-cache] 3 (#$ . 855505)]) #@50 Return the a list of marks for all marked texts. (defalias 'cache-get-marked-texts #[nil "\207" [lyskom-marked-text-cache] 1 (#$ . 855673)]) #@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) "\303 \304\")\211\207" [mark-array vector lyskom-marked-text-cache append nil] 3 (#$ . 855822)]) #@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) "\304\n\203& \204& \n@\211A\305\234)\232\203\n@\202\nA\211\204 *\207" [lyskom-marked-text-cache mark marks text-no nil 0] 4 (#$ . 856104)]) #@67 Insert a mark into the cache. If it is already there, replace it. (defalias 'cache-add-marked-text #[(text-no mark-type) "\306 \n\307\310 \n\"*B\f\204: \203: @\2034 @\211A\311\234)\232\2034 \240\210\312\211\202 A\202\f?\205D B\211+\207" [lyskom-marked-text-cache text-no mark-type mark found marks nil MARK vector 0 t] 7 (#$ . 856396)]) #@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) "\305 ?\205,\n??\205, \n@\211A\306\234)\232\203&\n\305\240\210\307\211\202\nA\202*\207" [lyskom-marked-text-cache found marks text-no mark nil 0 t] 4 (#$ . 856762)]) #@75 Get static-session-info for session SESSION, or nil if nothing is cached. (defalias 'cache-get-static-session-info #[(session) "\304 \"\211\211:\205 @\305=)\205\n)\207" [session lyskom-static-session-info-cache tx static-session-info cache-assoc STATIC-SESSION-INFO] 4 (#$ . 857110)]) #@27 Insert INFO in the cache. (defalias 'cache-add-static-session-info #[(session info) "\302 \303#\207" [session info cache-add lyskom-static-session-info-cache] 4 (#$ . 857408)]) #@46 Delete a text from the cache. Args: SESSION. (defalias 'cache-del-static-session-info #[(session) "\301\302\"\207" [session cache-del lyskom-static-session-info-cache] 3 (#$ . 857592)]) #@35 Sets the cache of who-info items. (defalias 'cache-initiate-who-info-buffer #[(who-info-arr kombuf) "\306Cp\307\216\310\311\312 \313P\314#\211q\210\315\316!\210 \317\320\321\"\210\322 \210*\323\324\325 \326\327\")\330\"\"\207" [lyskom-who-info-cache __buffer__ lyskom-who-info-buffer kombuf lyskom-buffer who-info-arr WHO-INFO-LIST ((set-buffer __buffer__)) lyskom-get-buffer-create WHO-INFO buffer-name "-who" t make-local-variable kom-buffer local-set-key [mouse-2] kom-mouse-2 erase-buffer mapcar cache-add-who-info sort append nil #[(who1 who2) "\211A\303\234)\n\211A\303\234)W\207" [who1 who-info who2 2] 4] vector] 7 (#$ . 857785)]) #@71 Adds another entry to the lyskom-who-info-cache. Updating the buffer. (defalias 'cache-add-who-info #[(who-info) "\205%\302\303!\210\304\303\305 \211A\306\234)#\210\304\303\305 \211A\307\234)#\210\310\303\311 #\207" [lyskom-who-info-buffer-is-on who-info lyskom-collect who-buffer initiate-get-conf-stat nil 0 1 lyskom-use lyskom-set-who-info-buffer-2] 6 (#$ . 858441)]) #@89 Adds another entry to the lyskom-who-info-cache. Updating the buffer. ARG: session-info (defalias 'cache-add-session-info #[(session-info) "\205/\301\302!\210\303\304!\210\305\304\306\211A\307\234)#\210\305\304\306\211A\310\234)#\210\311\304\312#\210\313\304\314\302#\207" [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 (#$ . 858822)]) #@80 Delete the session SESSION-NO from the lyskom-who-info-cache. Updating buffer. (defalias 'cache-del-who-info #[(session-no) "\2054\306 \n\"\211\2053p\307\216 q\210\310\311 !!\310\312 !!|\210*\311 !\313\211\223\210\312 !\313\211\223\210\314 \302\")\207" [lyskom-who-info-buffer-is-on session-no lyskom-who-info-cache where __buffer__ lyskom-who-info-buffer cache-assoc ((set-buffer __buffer__)) marker-position who-buffer-info->start-marker who-buffer-info->end-marker nil cache-del] 5 (#$ . 859283)]) #@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) "\300\207" ["Inserts a who-buffer-info into lyskom-who-info-cache"] 1 (#$ . 859795)]) #@51 Inserts a session-info into lyskom-who-info-cache (defalias 'lyskom-set-session-info #[(pers-conf-stat conf-conf-stat session-info) "\300\207" ["Inserts a session-info into lyskom-who-info-cache"] 1 (#$ . 860023)]) #@91 A list of all the caches in use. This is used to clear all caches with `clear-all-caches' (defvar lyskom-caches nil (#$ . 860244)) (defalias 'cache-create #[(cache) "\302L\210 B\211\207" [cache lyskom-caches nil] 2]) #@91 Get data for item with key KEY from CACHE. CACHE is an assoc-list in this implementation. (defalias 'cache-assoc #[(key cache) "\302 \"\243\207" [key cache assoc] 3 (#$ . 860470)]) #@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\204 \304!\210\305 J\"\211\204 BJBL\202!\n \241)\207" [cache key oldval data cache-create assoc] 4 (#$ . 860659)]) #@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) "\303 J\"\211\205 \n\304\241)\207" [key cache oldval assoc nil] 4 (#$ . 860999)]) (defalias 'cache-clear #[(cache) "\302L\210\303 \"\211\207" [cache lyskom-caches nil delete] 3]) (defalias 'clear-all-caches #[nil "\301\302\"\210\303\211\207" [lyskom-caches mapcar #[(cache) "\301L\207" [cache nil] 2] nil] 3]) (if (and (boundp 'lyskom-what-i-am-doing) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-what-i-am-doing)) #@61 What the client thinks the server thinks the user is doing. (defvar lyskom-what-i-am-doing nil (#$ . 861667)) (add-to-list 'lyskom-local-variables 'lyskom-what-i-am-doing) #@55 Tell the server what the user is doing. Args: STRING. (defalias 'lyskom-tell-server #[(string) "?\205\212 \203 q\210\n \232\206\n\304\305\306\n#)\207" [lyskom-is-anonymous lyskom-buffer string lyskom-what-i-am-doing initiate-change-what-i-am-doing background nil] 4 (#$ . 861845)]) (byte-code "\301\302!\210\303P\301\207" [lyskom-clientversion-long provide lyskom-cache "$Id: view-mode.el,v 44.6 1999/06/10 13:36:29 byers Exp $\n"] 2) #@29 Keymap for LysKOM view mode (defvar lyskom-view-mode-map nil (#$ . 862296)) (defalias 'lyskom-view-base-mode #[nil "\305\306!\203 \306 \207\307\236\203&\310 !\311\304!\210\312\n \"\210\307\nB\fB\307 )\207\307 \207" [minor-mode-alist lyskom-view-mode-map keymap view-mode-map minor-mode-map-alist fboundp view-major-mode view-mode copy-keymap make-variable-buffer-local set-keymap-parent] 3]) (byte-code "\2049\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314\315!!\316#\210\302\313\314\317!!\320#\210\302\321\322#\210\301\207" [lyskom-view-mode-map make-sparse-keymap define-key "*" kom-button-press "+" kom-menu-button-press " " kom-next-link [(meta tab)] kom-previous-link read-kbd-macro lyskom-keys button2up kom-button-click button3 kom-popup-menu "q" lyskom-view-mode-quit] 5) (defalias 'lyskom-view-mode-quit #[nil "p\301!\210\302!)\207" [buf lyskom-undisplay-buffer kill-buffer] 2 nil nil]) (byte-code "\300\301!\210\302\301\303\304#\207" [derived-mode-init-mode-variables lyskom-view-mode put derived-mode-parent lyskom-view-base-mode] 4) #@32 Major mode for viewing buffers (defalias 'lyskom-view-mode #[nil "\302 \210\302\303N\203\304\305\303\306#\210\305\307\310\305!\210\311\305!\210\312\305!\210\313\305!\207" [major-mode mode-name lyskom-view-base-mode special put lyskom-view-mode t "LysKOM View" derived-mode-set-keymap derived-mode-set-syntax-table derived-mode-set-abbrev-table derived-mode-run-hooks] 4 (#$ . 863403) nil]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: commands1.el,v 44.98 2001/02/20 20:43:52 joel Exp $\n" nil] 2) #@42 Give the user a little light in the dark (defalias 'kom-get-appreciation #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-get-appreciation-start-buffer lyskom-start-of-command kom-get-appreciation ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-get-appreciation-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301!\207" [lyskom-insert-string appreciation] 2) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 863928) nil]) #@38 Give the user a little verbal abuse. (defalias 'kom-get-abuse #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-get-abuse-start-buffer lyskom-start-of-command kom-get-abuse ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-get-abuse-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301!\207" [lyskom-insert-string abuse] 2) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 864525) nil]) #@34 Delete a person or a conference. (defalias 'kom-delete-conf #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-delete-conf-start-buffer lyskom-start-of-command kom-delete-conf ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-delete-conf-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\310!\311\312\211\313%\211\203\203\314\315\316\211A\317\234)\211A\320\234)\203'\307\321!\202*\307\322!\211A\323\234)#!\203}\324\325\211A\326\234)\"\203v\327\330\211A\323\234)\"\210\211A\326\234)\nU\205\206\331\307\332!!\210\312\312\333\312B\333\312B\334!B\211!\202\206\327\335\"\202\206\336\337!\202\206\336\340!)\207" [conf-stat conf-type lyskom-pers-no lyskom-membership lyskom-to-do-list lyskom-reading-list lyskom-read-conf-stat lyskom-get-string what-conf-to-delete (all) nil t lyskom-ja-or-nej-p lyskom-format confirm-delete-pers-or-conf 2 3 the-pers the-conf 1 blocking-do delete-conf 0 lyskom-format-insert conf-is-deleted lyskom-insert you-have-deleted-yourself READ-LIST kom-start-anew you-could-not-delete lyskom-insert-string deletion-not-confirmed somebody-else-deleted-that-conf lyskom-pending-commands] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 865083) nil]) #@34 Delete a text. Argument: TEXT-NO (defalias 'kom-delete-text #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-delete-text-start-buffer lyskom-start-of-command kom-delete-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-delete-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203s\305\306\307\"\211\211A\310\234)\311!\n\204$\312\313!\210\313\202X\n\211A\310\234)\314V\203X\315\316\317 \314V\205U\f\203Q \320U\203I\321\322!\202U\316\323 S\"\202U\316\324 \"\"! \205q\325\326\"\210\312\306\327\"!\205q\f\205q\330!,\207\331\332!\207" [text-no do-delete text-stat num-marks is-marked-by-me t blocking-do get-text-stat 5 cache-text-is-marked lyskom-report-command-answer nil 0 lyskom-j-or-n-p lyskom-format delete-marked-text 1 lyskom-get-string delete-marked-by-you delete-marked-by-you-and-others delete-marked-by-several lyskom-format-insert deleting-text delete-text lyskom-unmark-text lyskom-insert confusion-what-to-delete] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 866455) (let ((lyskom-current-command 'kom-delete-text)) (list (lyskom-read-text-no-prefix-arg 'what-text-to-delete)))]) #@55 Review the presentation for a person or a conference. (defalias 'kom-review-presentation #[(&optional who) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-presentation-start-buffer lyskom-start-of-command kom-review-presentation ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-presentation-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203 \302\303\"\202\304\305\306!\307\310\311\312%\211\204\313\314!\202@\315\316 \"\210 \211A\317\234)\320U\204<\321 \211A\317\234)!\202@\315\322 \")\207" [who conf-stat blocking-do get-conf-stat lyskom-read-conf-stat lyskom-get-string presentation-for-whom (all) nil "" t lyskom-insert-string somebody-deleted-that-conf lyskom-format-insert review-presentation-of 6 0 lyskom-view-text has-no-presentation] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 867761) nil]) #@252 View the commented text. If the current text is comment to (footnote to) several text then the first text is shown and a REVIEW list is built to shown the other ones. If the optional arg TEXT-NO is present review the text that text commented instead. (defalias 'kom-view-commented-text #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-view-commented-text-start-buffer lyskom-start-of-command kom-view-commented-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-view-commented-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\301\302!\210\303\304\305\"!\207\306\307!\207" [text-no lyskom-tell-internat kom-tell-read lyskom-view-commented-text blocking-do get-text-stat lyskom-insert-string confusion-what-to-view] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 868764) (let ((lyskom-current-command 'kom-view-commented-text)) (list (lyskom-read-text-no-prefix-arg 'review-commented-q)))]) #@198 View the text the previous text commented. If the previously viewed text is a comment to (footnote to) several texts then the first text is shown and a REVIEW list is built to show the other ones. (defalias 'kom-view-previous-commented-text #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-view-previous-commented-text-start-buffer lyskom-start-of-command kom-view-previous-commented-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-view-previous-commented-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\302\303!\210\304\305\306 \"!\207\307\310!\207" [text-no lyskom-previous-text lyskom-tell-internat kom-tell-read lyskom-view-commented-text blocking-do get-text-stat lyskom-insert-string confusion-what-to-view] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 869850) (let ((lyskom-current-command 'kom-view-previous-commented-text)) (list (lyskom-read-text-no-prefix-arg 'review-commented-q nil lyskom-previous-text)))]) #@79 Handles the return from the initiate-get-text-stat, displays and builds list. (defalias 'lyskom-view-commented-text #[(text-stat) "\205 \211A\306\234)\211\205\307\310\311 \"\310\312 \"\"\211\205#\313\314\n\"\211\203z\315\316 @\"\210 A\203k\317\320\321\322 A\323\f)B \321\211 \324\325 \321&.B!\326#\210\327 @\321\211\211\211\211\211\326&\202}\330\331!+\207" [text-stat misc-info-list misc-infos text-nos texts lyskom-current-text 6 append lyskom-misc-infos-from-list COMM-TO FOOTN-TO mapcar #[(misc-info) "\211A\301\234)\302\232\203\211A\303\234)\207\211A\304\234)\207" [misc-info 0 COMM-TO 4 6] 3] lyskom-format-insert review-text-no read-list-enter-read-info REVIEW nil lyskom-get-current-priority TEXT-LIST READ-INFO vector t lyskom-view-text lyskom-insert-string no-comment-to misc forward comm-to text-list priority conf-stat type lyskom-reading-list] 12 (#$ . 870972)]) #@114 Get all the misc-infos from the misc-info-list LIST with the same type as TYPE. If no such misc-info, return NIL (defalias 'lyskom-misc-infos-from-list #[(type list) "\204\303\207 @\211A\304\234)\232\203@\305 A\"B\207\305 A\"\207" [list type misc-info nil 0 lyskom-misc-infos-from-list] 5 (#$ . 871907)]) #@53 Send a personal letter to a person or a conference. (defalias 'kom-send-letter #[(&optional pers-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-send-letter-start-buffer lyskom-start-of-command kom-send-letter ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-send-letter-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301\302\217\207" [nil (byte-code "\305\306!\210\206\307\310\311!\312\313\211\314%\315\316 \"\317 !\210\n\211A\320\234)\321U\204B\322\323!\210\324\325\n\"\210\326\n\211A\320\234)!\210\327\310\330!!\205l U\203T\331\f\332\333 \"\334\211$\202l\331\f\335 !\203c\332\333 \"\202i\332\333 \333 $\334\211$*\207" [pers-no tono conf-stat lyskom-pers-no lyskom-proc lyskom-tell-internat kom-tell-write-letter lyskom-read-conf-no lyskom-get-string who-letter-to (all) nil t blocking-do get-conf-stat cache-del-conf-stat 10 0 recenter 1 lyskom-format-insert has-motd lyskom-view-text lyskom-j-or-n-p motd-persist-q lyskom-edit-text lyskom-create-misc-list recpt "" lyskom-get-membership] 8) ((quit (byte-code "\300\301\302\"\207" [signal quit nil] 3)))] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 872228) nil]) #@109 Add a person as a member of a conference. Ask for the name of the person, the conference to add him/her to. (defalias 'kom-add-member #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-member-start-buffer lyskom-start-of-command kom-add-member ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-member-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\304\305\306!\307\310\211\311%\304\305\312!\313\310\211\311%\314\315\211A\316\234)\"\317\320  \310\211\311& #+\207" [who whereto conf-stat pers-stat lyskom-read-conf-stat lyskom-get-string who-to-add (pers) nil t where-to-add (all) blocking-do get-pers-stat 0 lyskom-add-member-answer lyskom-try-add-member] 9) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 873541) nil]) #@46 Add this person as a member of a conference. (defalias 'kom-add-self #[(&optional conf) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-self-start-buffer lyskom-start-of-command kom-add-self ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-self-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203 \306\307\"\202\310\311\312!\313\314\315\316%\306\307\n\"\306\317\n\"\320 \211A\321\234)\316\"\211\203N\211A\322\234)\211A\323H)\203N\211A\324\234)\202P\325\326 \f\314\211\316& #-\207" [conf whereto lyskom-pers-no who pers-stat conf-stat blocking-do get-conf-stat lyskom-read-conf-stat lyskom-get-string where-to-add-self (all) nil "" t get-pers-stat lyskom-get-membership 0 7 1 2 lyskom-add-member-answer lyskom-try-add-member mship membership membership-type kom-membership-default-priority] 9) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 874446) nil]) #@38 Change the priority of a conference. (defalias 'kom-change-priority #[(&optional conf) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-priority-start-buffer lyskom-start-of-command kom-change-priority ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-priority-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203 \306\307\"\202\310\311\312!\313\314\315\316%\317 \211A\320\234)\316\"\314\321\307\fD\322\fDD!\211\320\234 \323\234\n\204E \203E\324\325 \"\202_ \204O\324\326!\202_\327\330 \314\331\316& #.\207" [conf conf-stat mship kom-membership-default-priority lyskom-pers-no multiple-bind-sym blocking-do get-conf-stat lyskom-read-conf-stat lyskom-get-string change-priority-for-q (all) nil "" t lyskom-get-membership 0 lyskom-blocking-do-multiple get-pers-stat 1 lyskom-format-insert not-member-of-conf no-such-conf lyskom-add-member-answer lyskom-try-add-member change-priority-for pers-stat who] 9) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 875506) nil]) #@189 Fetch info to be able to add a person to a conf. Get the conf-stat CONF-NO for the conference and the conf-stat and pers-stat for person PERS-NO and send them into lyskom-try-add-member. (defalias 'lyskom-add-member-by-no #[(conf-no pers-no &optional thendo &rest data) "\306\307D\307 D\310 DE!\211\311\234\n\312\234\n\313\234\314 \f \315\211\316&\317 \f#\210\2037\320\"\210@-\207" [conf-no pers-no multiple-bind-sym pers-stat who whereto lyskom-blocking-do-multiple get-conf-stat get-pers-stat 0 1 2 lyskom-try-add-member nil t lyskom-add-member-answer apply result thendo data] 8 (#$ . 876677)]) #@580 Add a member to a conference. Args: CONF-CONF-STAT PERS-CONF-STAT PERS-STAT CONF-CONF-STAT: the conf-stat of the conference the person is being added to PERS-CONF-STAT: the conf-stat of the person being added. PERS-STAT: the pers-stat of the person being added. Optional MESSAGE-STRING is the message to print before making server call. Returns t if it was possible, otherwise nil. If optional NEED-EXTRA-INFORMATION is non-nil, the return value will be a list where the first element is the result of add-member and the second is the position where the membership was placed. (defalias 'lyskom-try-add-member #[(conf-conf-stat pers-conf-stat pers-stat membership-type &optional message-string need-extra-information) "?\206 ??\205\311\n \211A\306\234)U\204#\307\306\310\311\312!\313\314%\202?\f\247\2038\f\315W\2038\f\306Y\2038\f\202?\307\306\310\311\312!#\n \211A\306\234)U\204O\316\202\206 \247\203^ \306Y\203^ \202\206 \317=\203h\306\202\206 \320=\203tG\202\206\307\306\211A\321\234)\322\323G\"# !\n \211A\306\234)=\2031\313\306\313\"#$%%\2030%@$%A%$\211&A\324\234)!V\204$\211&A\324\234)!W\203\335# \313%\325\"\202$\211&A\324\234)!U\203\375# U\203\375\313%\325\"\202$\211&A\324\234)!U\203# V\203# \313%\325\"#T#\"\204\243#T \202\243,'\204g\313\211\211\211\211\211\211\211()*+,-./\326\327/.-,+*)(&.B'0\203v\3300 #\210\202\220 \211A\306\234)\nU\203\212\330\331\"\210\202\220\330\332 #\210\333\n\211A\306\234)E1B1\334\335\211A\306\234) \211A\306\234)! '&23\203\3062 D\202\3102,\207" [conf-conf-stat pers-conf-stat lyskom-pers-no conf-stat kom-membership-default-priority kom-membership-default-placement 0 lyskom-read-num-range 255 lyskom-get-string priority-q nil 100 256 1 first last 17 lyskom-format where-on-list-q 2 t MEMBERSHIP-TYPE vector lyskom-format-insert member-in-conf add-member-in 18 blocking-do add-member lyskom-membership pers-stat where priority found index mship mship-list membership membership-type rsv5 rsv4 rsv3 rsv2 rsv1 secret passive invitation message-string lyskom-ignoring-async-list res need-extra-information] 11 (#$ . 877302)]) #@68 Handle the result from an attempt to add a member to a conference. (defalias 'lyskom-add-member-answer #[(answer conf-conf-stat pers-conf-stat) ":\205\306\234:\203\307\234\202\204\242\310\311!\210\n\312\f\211A\307\234)\"\313\f\211A\307\234)\211A\307\234)\" \f\211A\314\234)\211!A\307\234)\" \203^\315\316\f#\202\236\"\203q\203q\315\317\320 !\"\202\236\"\203\227\321\322\f\211A\323\234)\"\211#\203\217\315\324\f##\202\223\315\325\f\")\202\236\315\317\320\n!\n#,\202\370\326\211A\307\234)!\210\327\f\211A\307\234)!\210\211A\307\234)U\203\365\321\330\f\211A\307\234)#\211$\211%A\331\234)\204\355$ &\211%A\331&I\210*\332$\f\333#\210)\310\334!*\207" [answer pos lyskom-errno errno conf-conf-stat conf-stat 1 0 lyskom-insert-string nope lyskom-is-supervisor lyskom-is-member 2 lyskom-format-insert add-already-member error-code lyskom-get-error-text blocking-do get-conf-stat 7 is-read-protected-contact-supervisor cant-find-supervisor cache-del-pers-stat cache-del-conf-stat query-read-texts 8 lyskom-add-membership t done lyskom-pers-no is-supervisor pers-conf-stat is-member conf-type rd-prot supervisorconf mship membership newval] 6 (#$ . 879512)]) #@251 Adds MEMBERSHIP to the sorted list of memberships. If BLOCKING is non-nil, block while reading the conference map until at least one text has been seen. CONF-NO-OR-STAT is the conf-no to add unless BLOCKING is t, in which cast it is the conf-stat. (defalias 'lyskom-add-membership #[(membership conf-no-or-stat &optional blocking) "\203\303!\210 \203\304\n\"\210\202\305\n\"\210\306\307\"\207\310\311!\207" [membership blocking conf-no-or-stat lyskom-insert-membership lyskom-fetch-start-of-map lyskom-prefetch-map lyskom-run-hook-with-args lyskom-add-membership-hook lyskom-insert-string conf-does-not-exist] 3 (#$ . 880737)]) #@82 Subtract a person as a member from a conference. Ask for the name of the person. (defalias 'kom-sub-member #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-sub-member-start-buffer lyskom-start-of-command kom-sub-member ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-sub-member-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301\302\303!\304\305\306\307%\301\302\310!\311\305\306\307%\"\207" [lyskom-sub-member lyskom-read-conf-stat lyskom-get-string who-to-exclude (pers) nil "" t where-from-exclude (all)] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 881384) nil]) #@53 Subtract this person as a member from a conference. (defalias 'kom-sub-self #[(&optional conf) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-sub-self-start-buffer lyskom-start-of-command kom-sub-self ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-sub-self-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\305\306\307\" \203\306\307 \"\202=\310\311\312!\313\314\n\203 \n\315U\203$\316\202.\306\307\n\"\211A\317\234)\211\2039\f\315B\202:\316)\320%\"\207" [lyskom-pers-no conf lyskom-current-conf conf-stat ccn lyskom-sub-member blocking-do get-conf-stat lyskom-read-conf-stat lyskom-get-string leave-what-conf (all) nil 0 "" 1 t] 10) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 882134) nil]) #@58 Remove the person indicated by PERS as a member of CONF. (defalias 'lyskom-sub-member #[(pers conf) "\306 \211A\307\234) U\211\205 \205\310 \211A\307\234)!\211!\205<\311\"X\205<!\211#A\312\234)\211$A\313H)?% \204H\314\315!\202k \204S\314\316!\202k%\203\324\317 \211A\307\234)!\210\320\321 \"\210!\211#A\312\234)\322&\211$A\313&I\210*\323\324 \211A\307\234) \211A\307\234)!\211#A\312\234)$\211\204\252\320\325\326\327! #\202k\314\330!\210\320\331 \"\210 \211A\307\234)'U\203\305\332 \210\333 \211A\307\234)(\"\202k\f\203\343\317 \211A\307\234)!\210\f\203\360\320\321 \"\210\202\367\320\334  #\210\335 \211A\307\234)D)B)\323\336 \211A\307\234) \211A\307\234)#)\f\203)\337 \211A\307\234)!\210\204F\320\325\f\2039\326\327!\202@ \211A\313\234) #\202k\314\330!\210\f\203_ \211A\307\234)'U\203_\332 \210\333 \211A\307\234)(\",\207" [reply pers conf-stat lyskom-pers-no self kom-unsubscribe-makes-passive nil 0 lyskom-get-membership 102 7 1 lyskom-insert-string error-fetching-person error-fetching-conf lyskom-prefetch-cancel-prefetch-map lyskom-format-insert unsubscribe-to t blocking-do set-membership-type unsubscribe-failed lyskom-get-string You done passivate-done lyskom-leave-current-conf read-list-delete-read-info exclude-from 8 sub-member lyskom-remove-membership conf mship lyskom-highest-call-feature-flag membership membership-type passivate passive lyskom-current-conf lyskom-to-do-list lyskom-ignoring-async-list] 7 (#$ . 883008)]) #@22 Create a conference. (defalias 'kom-create-conf #[(&optional name) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-create-conf-start-buffer lyskom-start-of-command kom-create-conf ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-create-conf-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \306\307\310!!\311\307\312!!\211?\205\311\307\313!!\311\307\314!!\311\307\315!!\2052\316\307\317!!? \320\321 \n?\f? \322  \322\211!\"#$%&\323&% $ #\"!\257 .\322$\211'\204|\324\325 \"\210\324\326\327(!(#\202\261\320\330'\")\324\331)\206\214')\206\222 )\205\234\332\333)\"$\210)\334 \210\335'* ?\205\255\336' %.\207" [name conf-name open secret orig anarchy lyskom-read-string lyskom-get-string name-of-conf j-or-n-p anyone-member secret-conf comments-allowed anonymous-allowed lyskom-j-or-n-p secret-members-allowed blocking-do create-conf nil CONF-TYPE lyskom-format-insert could-not-create-conf error-code lyskom-get-error-text get-conf-stat created-conf-no-name lyskom-default-button conf lyskom-scroll lyskom-add-member-by-no lyskom-create-conf-handler-2 lyskom-long-conf-types-feature-flag secmem rsv3 rsv2 forbid-secret letterbox original rd_prot conf-no lyskom-errno conf-stat lyskom-pers-no] 13) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 884537) nil]) #@97 Starts editing a presentation for the newly created conference. This does lyskom-end-of-command (defalias 'lyskom-create-conf-handler-2 #[(conf-no conf-name) "\306\307!\210\310\311\"\211\205\312\n\313\314 \211A\315\234)\" \316\317&)\207" [conf-no conf lyskom-proc lyskom-server-info server-info conf-name lyskom-tell-internat kom-tell-conf-pres blocking-do get-conf-stat lyskom-dispatch-edit-text lyskom-create-misc-list recpt 1 "" lyskom-set-presentation] 8 (#$ . 886010)]) #@58 Set presentation of a conference. Args: text-no conf-no. (defalias 'lyskom-set-presentation #[(text-no conf-no) "\302\303\304 $\210\305!\207" [conf-no text-no initiate-set-presentation background nil cache-del-conf-stat] 5 (#$ . 886498)]) #@50 Set motd of a conference. Args: text-no conf-no. (defalias 'lyskom-set-conf-motd #[(text-no conf-no) "\302\303\304 $\210\305!\207" [conf-no text-no initiate-set-conf-motd background nil cache-del-conf-stat] 5 (#$ . 886745)]) #@101 Write a comment to a text. If optional arg TEXT-NO is present write a comment to that text instead. (defalias 'kom-write-comment #[(text-no) "\305\306\307\310\311\217) \203\312\313 \"\202\314P!\210\315\216 \203_\316\317 D\320 DD!\211\321\234\n\322\234\323 \324\"\203>\325\326\327!!\205[\323 \330\"\203U\325\326\331!!\203U\332 \f #\202[\333 \f \334$+\202b\335\336!)\207" [command text-no multiple-bind-sym text-stat text lyskom-start-of-command kom-write-comment nil (byte-code "\301\302\"\207" [command lyskom-get-string lyskom-command] 3) ((error)) lyskom-format " (%#1n)" "" ((lyskom-end-of-command)) lyskom-blocking-do-multiple get-text get-text-stat 0 1 text-stat-find-aux 4 lyskom-j-or-n-p lyskom-get-string no-comments-q 5 private-answer-q lyskom-private-answer-soon lyskom-write-comment-soon comment lyskom-insert-string confusion-who-to-reply-to] 6 (#$ . 886979) (list (let ((lyskom-current-command 'kom-write-comment)) (lyskom-read-text-no-prefix-arg 'what-comment-no)))]) #@103 Write a footnote to a text. If optional arg TEXT-NO is present write a footnote to that text instead. (defalias 'kom-write-footnote #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-write-footnote-start-buffer lyskom-start-of-command kom-write-footnote ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-write-footnote-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\301\302\303\"\302\304\"\305$\207\306\307!\207" [text-no lyskom-write-comment-soon blocking-do get-text-stat get-text footnote lyskom-insert-string confusion-what-to-footnote] 5) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 887984) (let ((lyskom-current-command 'kom-write-footnote)) (list (lyskom-read-text-no-prefix-arg 'what-footnote-no nil 'last-seen-written)))]) #@44 Write a comment to previously viewed text. (defalias 'kom-comment-previous #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-comment-previous-start-buffer lyskom-start-of-command kom-comment-previous ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-comment-previous-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203L\304\305D\306DD!\211\307\234 \310\234\211\203-\n\203-\311 \312\"\203-\313\314\315!!\205J\311 \316\"\203D\313\314\317!!\203D\320 \n#\202J\321 \n\322$+\207\323\324!\207" [text-no multiple-bind-sym text text-stat lyskom-blocking-do-multiple get-text-stat get-text 0 1 text-stat-find-aux 4 lyskom-j-or-n-p lyskom-get-string no-comments-q 5 private-answer-q lyskom-private-answer-soon lyskom-write-comment-soon comment lyskom-insert-string confusion-what-to-comment] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 888905) (let ((lyskom-current-command 'kom-comment-previous)) (list (lyskom-read-text-no-prefix-arg 'what-comment-no nil lyskom-previous-text)))]) #@102 Write a comment to the text with TEXT-STAT, TEXT and, TEXT-NO. TYPE is either 'comment or 'footnote. (defalias 'lyskom-write-comment-soon #[(text-stat text text-no type) "\205\f \205\f\305 \"\203 \204\306\307 \"\2024\310\311\n\"\203/\312\n\313\211\224O\f#\2024\312\314\f#)\207" [text-stat text str text-no type text->decoded-text-mass lyskom-format-insert cant-read-textno string-match "\n" lyskom-write-comment 0 ""] 5 (#$ . 890076)]) #@126 Write a comment to the text associated with TEXT-STAT. The default subject is SUBJECT. TYPE is either 'comment or 'footnote. (defalias 'lyskom-write-comment #[(text-stat subject type) "\204\306\307!\207\310\211\311 \312=\203\313\202\314!\210\310\315\316\211A\317\234)\"\210\320\f  \n &+\207" [text-stat bccrep ccrep type data lyskom-proc lyskom-insert-string confusion-what-to-comment nil lyskom-tell-internat comment kom-tell-write-comment kom-tell-write-footnote mapcar #[(misc-info) "\211A\305\234)\306=\203\307\310\211A\311\234)\" B\211\207\n\312=\203F\211A\305\234)\313=\203F\211A\311\234) B\307\310\211A\311\234)\" B\211\207\n\312=\205p\211A\305\234)\314=\205p\211A\311\234)\fB\307\310\211A\311\234)\" B\211\207" [misc-info data type ccrep bccrep 0 RECPT blocking-do get-conf-stat 1 footnote CC-RECPT BCC-RECPT] 5] 6 lyskom-comment-recipients subject] 9 (#$ . 890534)]) #@553 Compute recipients to a comment to a text. Args: DATA, LYSKOM-PROC TEXT-STAT SUBJECT TYPE CCREP BCCREP. DATA is a list of all the recipients that should receive this text. If DATA contains more than one conference the user is asked (using y-or-n-p) if all conferences really should receive the text. The call is continued to the lyskom-edit-text. TYPE is info whether this is going to be a comment of footnote. CCREP is a list of all recipients that are going to be cc-recipients. BCCREP is a list of all recipient that are going to be bcc-recipients. (defalias 'lyskom-comment-recipients #[(data lyskom-proc text-stat subject type ccrep bccrep) "\300\301\302\217\207" [nil (byte-code "\306=\203U G\307V\203U G\310U\203/\n @\211A\311\234)U\204U\n A@\211A\311\234)U\204U\312 \203Q\313\314\315 @\211A\307\234)\"!\203J @\fB A\211\2045\f\237)\312\316\317=\203c\320\202u\321=\203n\322\202u\323\324\325D\" \211 A\311\234)\"!\312\" \203 @\211\211A\311\234)#\321=\203\240#\202\321 \211\211A\310\234)\211$A\307\234)\203\311 \211A\326\234)\311U\204\311 \211A\326\234)\202\320 \211A\311\234))\211%\">\204 \327!#&>\203\351\330\202\366#'>\203\365\331\202\366\332%BC\"!\333%!\203\334%\"B\"+ A\211\204\210 \204#\327!\332\nBC\"!\335(!)\336$+\207" [kom-confirm-multiple-recipients data lyskom-pers-no conf-stat new-data member before 1 2 0 nil lyskom-j-or-n-p lyskom-format comment-keep-recpt-p lyskom-create-misc-list comment comm-to footnote footn-to signal lyskom-internal-error "Unknown comment type" 9 append cc-recpt bcc-recpt recpt lyskom-get-membership t lyskom-edit-text "" type text-stat recver recpts confno conf-type commno ccrep bccrep lyskom-proc subject] 6) ((quit (byte-code "\300\301\302\"\207" [signal quit nil] 3)))] 3 (#$ . 891460)]) #@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 #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-private-answer-start-buffer lyskom-start-of-command kom-private-answer ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-private-answer-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203,\304\305D\306DD!\211\307\234 \310\234\311 \312\"\203%\313\314\315!!\205*\316 \n#+\207\317\320!\207" [text-no multiple-bind-sym text text-stat lyskom-blocking-do-multiple get-text-stat get-text 0 1 text-stat-find-aux 4 lyskom-j-or-n-p lyskom-get-string no-comments-q lyskom-private-answer-soon lyskom-insert-string confusion-who-to-reply-to] 5) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 893283) (let ((lyskom-current-command 'kom-private-answer)) (list (lyskom-read-text-no-prefix-arg 'what-private-no)))]) #@44 Write a private answer to TEXT-STAT, TEXT. (defalias 'lyskom-private-answer-soon #[(text-stat text text-no) "\203% \203%\304 \"\305\306\n\"\203\307\n\310\211\224O\"\202#\307\311\")\207\312\313 \"\207" [text-stat text str text-no text->decoded-text-mass string-match "\n" lyskom-private-answer 0 "" lyskom-format-insert no-such-text-no] 5 (#$ . 894372)]) #@50 Write a private answer. Args: TEXT-STAT SUBJECT. (defalias 'lyskom-private-answer #[(text-stat subject) "\204\304\305!\207\306\307!\210\310 \311\312\211A\313\234)\314\211A\315\234)\314\n& \316$\207" [text-stat lyskom-proc lyskom-pers-no subject lyskom-insert-string confusion-what-to-answer-to lyskom-tell-internat kom-tell-write-reply lyskom-edit-text lyskom-create-misc-list comm-to 0 recpt 2 ""] 10 (#$ . 894742)]) #@51 Write a private answer to previously viewed text. (defalias 'kom-private-answer-previous #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-private-answer-previous-start-buffer lyskom-start-of-command kom-private-answer-previous ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-private-answer-previous-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203,\304\305D\306DD!\211\307\234 \310\234\311 \312\"\203%\313\314\315!!\205*\316 \n#+\207\317\320!\207" [text-no multiple-bind-sym text text-stat lyskom-blocking-do-multiple get-text-stat get-text 0 1 text-stat-find-aux 4 lyskom-j-or-n-p lyskom-get-string no-comments-q lyskom-private-answer-soon lyskom-insert-string confusion-who-to-reply-to] 5) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 895174) (let ((lyskom-current-command 'kom-private-answer-previous)) (list (lyskom-read-text-no-prefix-arg 'what-private-no nil lyskom-previous-text)))]) #@44 Write a private answer to TEXT-STAT, TEXT. (defalias 'lyskom-private-answer-soon-prev #[(text-stat text) "\303 \"\304\305\n\"\203\306 \n\307\211\224O\"\202\306 \310\")\207" [text text-stat str text->decoded-text-mass string-match "\n" lyskom-private-answer 0 ""] 5 (#$ . 896259)]) #@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) "\302\303\304\"\210\304\305\216\306\307!\203$\310\306\307!@!\203$\311\312\313!!\204$\304\2028 \2040\311\312\314!!\2037\315 \210\316\2028\304\211*\207" [do-end-of-command arg lyskom-start-of-command kom-quit t ((byte-code "\203\301 \210\301\207" [do-end-of-command lyskom-end-of-command] 1)) lyskom-buffers-of-category write-texts display-buffer lyskom-ja-or-nej-p lyskom-get-string quit-in-spite-of-unsent really-quit lyskom-quit nil] 3 (#$ . 896553) "P"]) #@86 Quit a session. Kill process and buffer-local variables. Don't ask for confirmation. (defalias 'lyskom-quit #[nil "\303\304\305\"\210\306!\210\307 \305\"\210\310 !\210\311\312\313!!\210\314 \210\315\316!\317\320!\207" [lyskom-buffer lyskom-proc mode-line-process initiate-logout main nil lyskom-remove-unread-buffer set-process-sentinel delete-process lyskom-insert-string lyskom-get-string-sol session-ended lyskom-scroll lyskom-get-string mode-line-down run-hooks kom-quit-hook] 3 (#$ . 897185)]) #@51 Change presentation for a person or a conference. (defalias 'kom-change-presentation #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-presentation-start-buffer lyskom-start-of-command kom-change-presentation ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-presentation-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\302\303\304\305!\306\307\310\307%\211\311U\203 \312\313\")\314\"\207" [no lyskom-pers-no lyskom-change-pres-or-motd-2 lyskom-read-conf-no lyskom-get-string what-to-change-pres-you (all) t nil 0 blocking-do get-conf-stat pres] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 897692) nil]) #@32 Change a FAQ for a conference. (defalias 'kom-change-conf-faq #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-conf-faq-start-buffer lyskom-start-of-command kom-change-conf-faq ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-conf-faq-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\310!\311\312\203\"\313\314\"\211\203 \211A\315H)\202\316)\202#\316\317B\320%\211\2054\321 !\210\313\322 \"\211\205\215\312\f\211A\323\234)\312\211\203\212@\211\211 A\324H)\211!A\317H)\204\201 \211 A\315H)\325=\203\201 \211 A\326H) \211 A\317H)B BA\211\204J* )\211\"G\315=\203\234\"@\202\263\"G\315V\205\263\327\330\307\331!\332\"!\312\320$\"\"#\f\204\301\333\307\334!!\202\326\335\f#\205\315\336#@!#\205\325#A#,\207" [lyskom-current-conf tmp uconf-stat conf-no conf-stat item lyskom-read-conf-no lyskom-get-string what-to-change-faq-you (conf) nil blocking-do get-uconf-stat 1 "" 0 t cache-del-conf-stat get-conf-stat 16 4 14 6 lyskom-string-assoc lyskom-completing-read text-to-change-as-faq lyskom-maybe-frob-completion-table lyskom-insert conf-does-not-exist lyskom-change-conf-faq string-to-int #1=#:aux-items aux-item aux-item-flags faq-list text-no-aux] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 898491) nil]) #@54 Interactively edit the FAQ for CONF-STAT in TEXT-NO. (defalias 'lyskom-change-conf-faq #[(conf-stat text-no aux-no) "\204\306\307!\207 \204\310\211A\311\234)\n\"\203\266\312\313 D\314 DD!\211\311\234\f\315\234 \2055\316 \"\211\203L\317\320\"\203L\311\211\224O\202M\321 \203e\317\320\"\203e\311\225\322O\202k\206k\321!\323\"\324\325\203\226 \203\226\326\327\211A\330\234)!\331\211A\311\234)D\"\202\237\332\211A\311\234)D\" !\333\211A\311\234)#&.\207\334\335\"\207" [conf-stat lyskom-is-administrator lyskom-pers-no text-no multiple-bind-sym text-mass lyskom-insert-string cant-get-conf-stat lyskom-is-supervisor 0 lyskom-blocking-do-multiple get-text-stat get-text 1 text->decoded-text-mass string-match "\n" "" nil lyskom-dispatch-edit-text apply lyskom-create-misc-list append lyskom-get-recipients-from-misc-list 6 comm-to recpt lyskom-change-conf-faq-2 lyskom-format-insert not-supervisor-for text-stat str subject body lyskom-proc aux-no] 10 (#$ . 899945)]) (defalias 'lyskom-change-conf-faq-2 #[(text-no conf-stat old-text-no old-aux-no) "\306\211A\307\234)!\210\310\311\312\211A\307\234) \205 C\307\313\307\211\314\211\211\211\211\211\211\211\315\316 \f \n&.B\307\317!\320\316&.BC&\207" [conf-stat old-aux-no reserved4 reserved3 reserved2 reserved1 cache-del-conf-stat 0 initiate-modify-conf-info background #[(retval conf-stat old-text-no text-no) "\203 \304\305 \n $\207\304\306 \n \307 %\207" [retval conf-stat old-text-no text-no lyskom-format-insert-before-prompt changed-faq-for-conf-done changed-faq-for-conf-failed lyskom-current-error] 6] 14 nil AUX-ITEM-FLAGS vector int-to-string AUX-ITEM anonymous secret inherit deleted text-no data inherit-limit flags sent-at creator tag aux-no old-text-no] 20]) #@43 Change motd for a person or a conference. (defalias 'kom-change-conf-motd #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-conf-motd-start-buffer lyskom-start-of-command kom-change-conf-motd ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-conf-motd-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\302\303\304\305!\306\307\310\307%\211\311U\203 \312\313\")\314\"\207" [no lyskom-pers-no lyskom-change-pres-or-motd-2 lyskom-read-conf-no lyskom-get-string who-to-put-motd-for (all) t nil 0 blocking-do get-conf-stat motd] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 901801) nil]) #@57 Return a misc-info-list containing only the recipients. (defalias 'lyskom-get-recipients-from-misc-list #[(misc-list) "@\211\211A\305\234)\204\306\2024 \f>\2030\307\310\311 !\227! \211A\312\234)D\313A!\"\2024\313A!*\207" [misc-list info misc-info type lyskom-recpt-types-list 0 nil append intern symbol-name 1 lyskom-get-recipients-from-misc-list] 5 (#$ . 902576)]) #@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) "\204\306\307!\207 \204%\310\211A\311\234)\312\"\204%\n\211A\313\234)U\203,\314\315\211A\316\234)D\317 \320=\203@\211A\316\234)\202M \321=\205M\211A\322\234)DD!\211\313\234\f\323\234( \205c\324 (\")\325*\326\327 \320=\203\225\211A\316\234)\313U\204\225\330\331(\211(A\316\234)!\332\211A\316\234)D\"\202\325\333 \321=\203\250+\211,A\334\234)\202\324 \320=\205\324\211A\335\234)\211-A\334\234)\203\313+\211,A\335\234)\202\324+\211,A\323\234)D\"\211A\323\234) \203\362\336\337)\"\203\362)\313\225\340O\202 \320=\203\211A\335\234)\211-A\334\234)\203\341\342!\202\343 \320=\203\344\202! \321=\205!\345\211A\313\234)&,\207\346\347\"\207" [conf-stat lyskom-is-administrator lyskom-pers-no type multiple-bind-sym text-mass lyskom-insert-string cant-get-conf-stat lyskom-get-membership 7 t 0 lyskom-blocking-do-multiple get-text-stat 6 get-text pres motd 10 1 text->decoded-text-mass lyskom-dispatch-edit-text apply lyskom-create-misc-list append lyskom-get-recipients-from-misc-list comm-to recpt 3 2 string-match "\n" nil lyskom-get-string presentation-form "" lyskom-set-presentation lyskom-set-conf-motd lyskom-format-insert not-supervisor-for text-stat str lyskom-proc lyskom-server-info server-info conf-type] 10 (#$ . 902962)]) #@44 Removes motd for a person or a conference. (defalias 'kom-unset-conf-motd #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-unset-conf-motd-start-buffer lyskom-start-of-command kom-unset-conf-motd ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-unset-conf-motd-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\303\304\305!\306\307\310\307%\206\311\312\"\211\204\313\314!\202=\n\204,\315 \211A\316\234)\307\"\2039\317\320 \211A\320\234)\"\202=\321\322 \")\207" [lyskom-pers-no conf-stat lyskom-is-administrator lyskom-read-conf-stat lyskom-get-string who-to-remove-motd-for (all) t nil blocking-do get-conf-stat lyskom-insert-string cant-get-conf-stat lyskom-get-membership 7 lyskom-set-conf-motd 0 lyskom-format-insert not-supervisor-for] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 904441) 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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-go-to-conf-start-buffer lyskom-start-of-command kom-go-to-conf ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-go-to-conf-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203 \302\303\"\202\304\305\306!\307\310\311\312%\313 !\205\314 !)\207" [conf-no conf blocking-do get-conf-stat lyskom-read-conf-stat lyskom-get-string go-to-conf-p (all) nil "" t lyskom-check-go-to-conf lyskom-go-to-conf] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 905428) nil]) #@211 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. If NO-PROMPT is non-nil, don't print message that we have gone to conf. (defalias 'lyskom-go-to-conf #[(conf &optional no-prompt) "\247\203\n\306\307\"\310\211A\311\234)\312\" \204\313\314\"\210\312\n\203,\315\n\"\210\202~\211A\316\234)\211A\317\234)\203D\313\320\"\210\202~\313\321\"\210\322 \210\323\324\325!!\203z\326\211A\311\234)\"\203s\315\310\211A\311\234)\312\"\"\210\202~\327\330!\210\202~\327\331!\210)\332 )\207" [conf conf-stat membership no-prompt lyskom-inhibit-prefetch conf-type blocking-do get-conf-stat lyskom-get-membership 0 t lyskom-format-insert go-to-conf lyskom-do-go-to-conf 2 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-insert-string nope no-ok lyskom-continue-prefetch lyskom-pers-no] 6 (#$ . 906335)]) #@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) "\306 \307\310!\210 \203\311 !\210\312\n\211GS)\310\f\204n W\203n\n\211A\234*\211A\313\234)\203f \211A\312\234)\n\211A\234*\211A\313\234)\211A\312\234)U\203f\314\211\202T\202\f\203\301\n\211A\234*\211  AB\241\210*\315 \211A\312\234)\n\"\210\n  AB\241\210*\211A\316I\210*\317 \")\202\304\320 !,\207" [priority conf-stat lyskom-to-do-list read-list found len lyskom-get-current-priority lyskom-maybe-move-unread nil lyskom-set-mode-line 0 1 t read-list-delete-read-info 2 lyskom-enter-conf lyskom-go-to-empty-conf r n read-info lyskom-reading-list newval] 4 (#$ . 907340)]) #@62 Go to a conference with no unseen messages. Args: CONF-STAT. (defalias 'lyskom-go-to-empty-conf #[(conf-stat) "\204\303\304 \211A\305\234)\"\210\306\307\n \211A\305\234)#\210 \211A\305\234)\310\311 \"\207" [lyskom-is-anonymous conf-stat lyskom-current-conf blocking-do pepsi 0 lyskom-run-hook-with-args lyskom-change-conf-hook lyskom-format-insert conf-all-read] 6 (#$ . 908190)]) #@36 Return the current priority level. (defalias 'lyskom-get-current-priority #[nil "\211A\242)\211A\304\234)\206 \211A\242)\211A\304\234)\206\305\207" [lyskom-reading-list read-list read-info lyskom-to-do-list 2 -1] 3 (#$ . 908584)]) #@15 write a text. (defalias 'kom-write-text #[(&optional arg) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-write-text-start-buffer lyskom-start-of-command kom-write-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-write-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\304 :\203\305\306\307!\310\304\211\311%\202 \247\203 \202 \n\203*\312U\2030\313\314!\202=\315\316!\210\317 \320\300\"\321\211$)\207" [recpt arg lyskom-current-conf lyskom-proc nil lyskom-read-conf-no lyskom-get-string who-send-text-to (all) t 0 lyskom-insert-string no-in-conf lyskom-tell-internat kom-tell-write-text lyskom-edit-text lyskom-create-misc-list ""] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 908830) "P"]) #@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-persons #[(match) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-persons-start-buffer lyskom-start-of-command kom-list-persons ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-persons-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\310\311$\211\203`\312 !\203Y\311\312 !\211<\206 G\313\313\313 <\203> \203S @\314 !\210 A\211\202-\n\fW\203S \nH\314 !\210\nT\211\202?-\202d\315\316\"\202d\317\320 !)\207" [match result __i__ __sequence__ __len__ info blocking-do lookup-z-name 1 0 conf-z-info-list->conf-z-infos nil lyskom-list-pers-print lyskom-format-insert no-matching-perss lyskom-insert lyskom-current-error __result__] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 909719) (let ((lyskom-current-command 'kom-list-persons)) (list (lyskom-read-string (lyskom-get-string 'search-for-pers))))]) #@56 Print name of the person CONF-NO for kom-list-persons. (defalias 'lyskom-list-pers-print #[(conf-z) "\301\302\303\304\305!\"#\207" [conf-z lyskom-format-insert "%[%#1@%4#2:p %#2P%]\n" lyskom-default-button pers conf-z-info->conf-no] 6 (#$ . 910878)]) #@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 #[(&optional match) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-conferences-start-buffer lyskom-start-of-command kom-list-conferences ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-conferences-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\204 \306\307!\210\310 \210 \206\311\312\313!!\314\315 \307\316$\211\203z\317\n!\203s\307\317\n!\211<\2063\fG\320\320\320\f<\203V\f\203m\f@\321!\210\fA\211\202C W\203m\f H\321!\210 T\211\202W-\202~\322\323 \"\202~\324\325 !)\207" [kom-allow-incompleteness match result __i__ __sequence__ __len__ sit-for 0 lyskom-prefetch-all-confs lyskom-read-string lyskom-get-string search-for-conf blocking-do lookup-z-name 1 conf-z-info-list->conf-z-infos nil lyskom-list-conf-print lyskom-format-insert no-matching-confs lyskom-insert lyskom-current-error info __result__] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 911138) nil]) #@46 List all conferences created by some person. (defalias 'kom-list-created-conferences #[(arg) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-created-conferences-start-buffer lyskom-start-of-command kom-list-created-conferences ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-created-conferences-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\204 \306\307!\210\310 \210\311\312 \"\210\313\n\203\314\202\315\316\317\320 !\205-\320 !\211A\321\234)\307B\322%\323\324\f\211A\307\234)\"\210\325\326\n\203E\327\202F\330!!\210\311\331\332\n\203T\321\202U\307\321$\325\326\n\203b\333\202c\334!!\210 \203\240\335 !\203\220\336\317\321\335 !G\307$\317\212\317\210`)dU%&'\302\337\340\217+\202\244\341\326\n\203\232\342\202\233\343!!\202\244\323\344 !*\207" [kom-allow-incompleteness lyskom-pers-no arg conf-stat pers result sit-for 0 lyskom-prefetch-all-confs blocking-do get-uconf-stat lyskom-read-conf-stat list-pers-confs-created-by list-confs-created-by (all) nil cache-get-uconf-stat 1 t lyskom-format-insert listing-confs-created-by lyskom-message lyskom-get-string getting-all-pers-confs getting-all-confs lookup-z-name "" getting-all-pers-confs-done getting-all-confs-done conf-z-info-list->conf-z-infos vector (byte-code "\306\307 !\211<\206 \nG\310\310\310\n<\203A\n\203l\n@\311\312\313\314\f!\211A\306\234)&B\nA\211\202 W\203l\nH\311\312\313\314\f!\211A\306\234)&BT\211\202B-\315\312!\210\316\234\306=\203\200\317\320\"\207\321p!\211\205\242\205\242\322d\"\203\233db\202\242\205\242\323 )\207" [__i__ result __sequence__ __len__ conf-z __result__ 0 conf-z-info-list->conf-z-infos nil initiate-get-conf-stat main lyskom-list-created-conferences-2 conf-z-info->conf-no lyskom-wait-queue 3 lyskom-format-insert no-created-confs get-buffer-window pos-visible-in-window-p lyskom-scroll counter pers conf-stat arg calls window was-at-max kom-continuous-scrolling] 8) ((quit (byte-code "\302\303I\210\304\305 \"\210\306\307\310\"\207" [counter calls 0 t lyskom-cancel-call main signal quit nil] 3))) lyskom-insert no-pers-confs-exist no-confs-exist lyskom-current-error was-at-max calls counter] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 912383) "P"]) (defalias 'lyskom-list-conf-membership-char #[(conf-no) "\203\302 !\203\f\303\207\302 \304\"\203\305\207\306\207\307 !\203\303\207\307 \304\"\203(\305\207\310\207" [lyskom-membership-is-read conf-no lyskom-get-membership 32 t 45 42 lyskom-try-get-membership 63] 3]) (defalias 'lyskom-list-created-conferences-2 #[(cs counter pers-no arg) "\306\234?\205\335\307\307\234TI\210\310\311 \203\312\202\313\307\234\314\234#!\210\n\205\335 \n\211A\315\234)\n\211A\316\234)\n\211A\317\234)E>\205\335\320\320\234TI\210\321\322\323\324\n\211A\306\234)\"\n\325\n\211A\306\234)! \n\211A\315\234)=\203r\326\327!\202s\330 \n\211A\316\234)=\203\205\326\331!\202\206\330\n\211A\314\234)\211A\307\234)\203\250 \n\211A\317\234)=\203\250\326\332!\202\251\330Q\n\211A\314\234)\211A\314\234)\203\300\326\333!\202\327\n\211A\314\234)\211A\306\234)\203\326\326\334!\202\327\330&\210\335\306!\207" [counter arg cs pers-no conf-stat conf-type 0 1 lyskom-message lyskom-format finding-created-pers-confs finding-created-confs 2 5 7 9 3 lyskom-format-insert "%[%#1@%4#2:m %#3c %4#4s %#5s %#2M%]\n" lyskom-default-button conf lyskom-list-conf-membership-char lyskom-get-string created-conf-letter " " supervisor-conf-letter superconf-conf-letter secret-conf-letter protected-conf-letter sit-for] 11]) #@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-z) "\301\302\303\304\305!\"\306\305!!$\207" [conf-z lyskom-format-insert "%[%#1@%4#2:m %#3c %#2M%]\n" lyskom-default-button conf conf-z-info->conf-no lyskom-list-conf-membership-char] 7 (#$ . 916128)]) #@53 Convert the regexp RE to a case insensitive regexp. (defalias 'lyskom-make-re-case-insensitive #[(re) "\204\306 !\307\n\310 \307\")\307 \203\f @\311=\203k\312B A\211\203:\313\314 @\"B A \203V @\315=\204V\313\314 @\"B A\211\204> \203\313\314 @\"B A\211\202 @\316=\203\220\317B A\211\203\313\314 @\"B A\211\202 @\320>\203\250\313\314 @\"B A\211\202\321 @\"\243\211\203\373\312B\322\f\235\203\305\322B\f\203\356\f@\322\230\204\347\f@\323\230\203\340\324B\202\347\f@B\fA\211\204\311\322B A\211\202\313\314 @\"B A\211\204\325\326\237\"+\207" [lyskom-char-classes lyskom-collate-table re vector val input lyskom-compute-char-classes nil append 91 "[" make-string 1 93 92 "\\" (40 41 124 43 42 63) assoc "]" "-" "---" apply concat res] 5 (#$ . 916494)]) #@181 List all persons and conferences whose name matches REGEXP. If the optional argument CASE-INSENSITIVE is true, the regexp will be converted so that the search is case insensitive. (defalias 'kom-list-re #[(regexp &optional case-insensitive) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-re-start-buffer lyskom-start-of-command kom-list-re ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-re-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\306 !\307\310 \"\210\311\312 \313\211$\211\203\250\314\n!\203\241\315\314\n!\211<\206+\fG\316\316\316\f<\203i\f\203\233\f@\307\317\320\321\322!\"\323!\211A\324\234)\203_\325\202`\326$\210\fA\211\202; W\203\233\f H\307\317\320\321\322!\"\323!\211A\324\234)\203\221\325\202\222\326$\210 T\211\202j-\202\254\307\327 \"\202\254\307\330 !)\207" [case-insensitive regexp conf-list __i__ __sequence__ __len__ lyskom-make-re-case-insensitive lyskom-format-insert matching-regexp blocking-do re-z-lookup 1 conf-z-info-list->conf-z-infos 0 nil "%[%#1@%4#2:m %#3c %#2:M%]\n" lyskom-default-button conf conf-z-info->conf-no conf-z-info->conf-type 3 80 77 no-matching-anys lyskom-current-error czi __result__ conf-type] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 917352) (let ((lyskom-current-command 'kom-list-re)) (list (lyskom-read-string (lyskom-get-string 'search-re)) current-prefix-arg))]) #@44 Change the name of a person or conference. (defalias 'kom-change-name #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-name-start-buffer lyskom-start-of-command kom-change-name ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-name-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\303\304\305!\306\307\211\310%\211\204\311\312!\202[\307\313\314\"\210\315 \210\316\317!\210\320\304\321!\211A\322\234)\"\323\324\211A\325\234) #\203R\313\326 \327\330\"#\210\331\211A\325\234)!\202Z\313\332 \333\n!\n$))\207" [conf-stat name lyskom-errno lyskom-read-conf-stat lyskom-get-string name-to-be-changed (all) nil t lyskom-insert-string no-such-conf-or-pers 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 cache-del-conf-stat change-name-nope lyskom-get-error-text] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 918918) nil]) #@44 Change the name of a person or conference. (defalias 'kom-change-parenthesis #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-parenthesis-start-buffer lyskom-start-of-command kom-change-parenthesis ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-parenthesis-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\310!\311\312\313\314\"\211A\315\234)\316B\317%\211\204\320\321!\202\224\322\323 \211A\315\234)\"\203\221\324\315 \211A\315\234)\"\324\325 \211A\315\234)\"\324\326 \211A\315\234)\"\327\307\330!\f\"\n\331 \332 \260$\313\333 \211A\316\234)$#\203\202\334\335$\336\337 \"#\210\340 \211A\316\234)!\202\215\334\341$\342%!%$-\202\224\320\343!)\207" [lyskom-pers-no conf-stat pre-paren post-paren old-paren paren lyskom-read-conf-stat lyskom-get-string name-to-be-changed (all) nil blocking-do get-conf-stat 1 0 t lyskom-insert-string no-such-conf-or-pers string-match "^\\(.*\\)(\\(.*\\))\\(.*\\)$" match-string 3 2 lyskom-read-string new-paren "(" ")" change-name lyskom-format-insert change-name-done lyskom-default-button conf cache-del-conf-stat change-name-nope lyskom-get-error-text no-paren-in-name name lyskom-errno] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 920092) nil]) #@50 Change the supervisor of a person or conference. (defalias 'kom-change-supervisor #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-supervisor-start-buffer lyskom-start-of-command kom-change-supervisor ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-supervisor-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\303\304\305!\306\307\211\310%\211\204\311\312!\202Q\313\314!\210\303\304\315!\316\307\211\310%\317\320 #\210\321\322\211A\323\234) \211A\323\234)#\203L\311\324!\210\325\211A\323\234)!\202P\317\326\"))\207" [supervisee supervisor conf-stat lyskom-read-conf-stat lyskom-get-string who-to-change-supervisor-for (all) nil t lyskom-insert-string no-such-conf-or-pers lyskom-tell-internat kom-tell-change-supervisor new-supervisor (all) lyskom-format-insert change-supervisor-from-to blocking-do set-supervisor 0 done cache-del-conf-stat change-supervisor-nope] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 921501) nil]) #@24 Mark the text TEXT-NO. (defalias 'kom-mark-text #[(&optional text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-mark-text-start-buffer lyskom-start-of-command kom-mark-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-mark-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\301!\207\302\303!\207" [text-no lyskom-mark-text lyskom-insert confusion-what-to-mark] 2) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 922630) (let ((lyskom-current-command 'kom-mark-text)) (list (lyskom-read-text-no-prefix-arg 'text-to-mark)))]) #@26 Unmark the text TEXT-NO. (defalias 'kom-unmark-text #[(&optional text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-unmark-text-start-buffer lyskom-start-of-command kom-unmark-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-unmark-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\301!\207\302\303!\207" [text-no lyskom-unmark-text lyskom-insert confusion-what-to-unmark] 2) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 923340) (let ((lyskom-current-command 'kom-unmark-text)) (list (lyskom-read-text-no-prefix-arg 'text-to-unmark)))]) #@46 Do the actual unmarking of the text TEXT-NO. (defalias 'lyskom-unmark-text #[(text-no) "\301\302\"\210\303\304\"\203\305\306!\210\307!\210\202\305\310!\210\311!\207" [text-no lyskom-format-insert unmarking-textno blocking-do unmark-text lyskom-insert-string done cache-del-marked-text nope cache-del-text-stat] 3 (#$ . 924068)]) #@91 Mark TEXT-NO using kom-default-mark (if non-nil) or prompt the user for what mark to use. (defalias 'lyskom-mark-text #[(text-no &optional mark) "\206 \206\303\304\305\306\307!\310$\311\312\n\"\210\313\314\n#\203*\315\316!\210\317\n\"\210\202.\315\320!\210\321\n!)\207" [mark kom-default-mark text-no lyskom-read-num-range 0 255 lyskom-get-string what-mark t lyskom-format-insert marking-textno blocking-do mark-text lyskom-insert-string done cache-add-marked-text nope cache-del-text-stat] 5 (#$ . 924411)]) #@42 Review marked texts with a certain mark. (defalias 'kom-review-marked-texts #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-marked-texts-start-buffer lyskom-start-of-command kom-review-marked-texts ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-marked-texts-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301\302\303\304\305!\306$!\207" [lyskom-review-marked-texts lyskom-read-num-range 0 255 lyskom-get-string what-mark-to-view t] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 924936) nil]) #@25 Review all marked texts (defalias 'kom-review-all-marked-texts #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-all-marked-texts-start-buffer lyskom-start-of-command kom-review-all-marked-texts ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-all-marked-texts-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (lyskom-review-marked-texts nil) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 925626) nil]) #@102 Review all marked texts with the mark equal to MARK-NO. If MARK-NO is nil, review all marked texts. (defalias 'lyskom-review-marked-texts #[(mark-no) "\306 \307\211\2032 @\211\203* \203 \n\211A\310\234)=\203*\n\211A\311\234)B) A\211\204 G\311=\203L\312 \204D\313\314!\202H\315\316 \"!\202\213\317\307\320 \321\f)B\307\322\307\323\324\307 &.B\325\322#\210\325\322#)*\207" [text-list mark-list mark mark-no texts misc cache-get-marked-texts nil 1 0 lyskom-insert lyskom-get-string no-marked-texts lyskom-format no-marked-texts-mark REVIEW-MARK lyskom-get-current-priority TEXT-LIST t READ-INFO vector read-list-enter-read-info forward comm-to priority conf-stat type read-info lyskom-reading-list lyskom-to-do-list] 11 (#$ . 926202)]) #@35 Change the password for a person. (defalias 'kom-change-password #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-password-start-buffer lyskom-start-of-command kom-change-password ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-password-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\305\306\307!\310\311\312\311%\313\306\314!!\313\306\315!!\313\306\316!!\317 \"\203<\320\321!\210\322\323\324 \325U\2034\f\2025 \n $!\202?\320\326!,\207" [new-pw2 new-pw1 old-pw pers-no lyskom-pers-no lyskom-read-conf-no lyskom-get-string whos-passwd (pers) t "" silent-read old-passwd new-passwd new-passwd-again lyskom-string= lyskom-insert-string changing-passwd lyskom-report-command-answer blocking-do set-passwd 0 retype-dont-match] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 926998) nil]) (byte-code "\302\300 B\300\207" [lyskom-times current-load-list (((nil 12 24 nil nil nil) . xmaseve) ((nil 12 25 nil nil nil) . xmasday) ((nil 1 1 nil nil nil) . newyearday) ((nil 12 31 23 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))] 2) #@36 Return TIME as a formatted string. (defalias 'lyskom-format-time #[(time) "\301\302\211A\303\234)\304\\\211A\305\234)T\211A\306\234)\211A\307\234)\211A\310\234)\211A\311\234)\312\313!\211A\314\234)\234&\207" [time lyskom-format time-format-exact 5 1900 4 3 2 1 0 lyskom-get-string weekdays 6] 12 (#$ . 928381)]) #@33 Ask server about time and date. (defalias 'kom-display-time #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-display-time-start-buffer lyskom-start-of-command kom-display-time ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-display-time-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307!\310\211\311 \203\310\312\313\217\202\314\315\n!\n\211A\316\234)\n\211A\317\234)\320\245\n\211A\317\234)\320\246\320_\\U\203T\n\211A\321\234)\320\245\n\211A\321\234)\320\246U\203T\322\323!\202U\324$\210\325\326\f\"\210 \327=\203{\203{\330\n!\211\203z\331\332!\210\331!\210)+\331\332!\207" [weekno lyskom-last-text-format-flags time kom-show-week-number lyskom-times lyskom-language blocking-do get-time nil lyskom-format-insert (byte-code "\302\303!\210\302\304!\210\305\306\211A\307\234)T\211A\310\234)\211A\311\234)\312\\E!!@\313\207" [time weekno require calendar cal-iso calendar-iso-from-absolute calendar-absolute-from-gregorian 4 3 5 1900 time-is-week] 7) ((error 'time-is)) time-is lyskom-format-time 2 0 10 1 lyskom-get-string palindrome "" mapcar #[(el) "@A\211\304\234\203 \211A\305\234)\306\\\n\304\234U\205\205\n\307\234\2031 \211A\310\234)T\n\307\234U\205\205\n\311\234\203E \211A\312\234)\n\311\234U\205\205\n\312\234\203Y \211A\311\234)\n\312\234U\205\205\n\310\234\203m \211A\307\234)\n\310\234U\205\205\n\305\234\203\201 \211A\304\234)\n\305\234U\205\205\313\314\315\217*\207" [el event when time 0 5 1900 1 4 2 3 nil (byte-code "\302\303!\210\304\305\306 \211A\307\234)\310\\ \211A\311\234)T \211A\312\234) \211A\313\234) \211A\314\234) \211A\315\234)&\"\207" [event time lyskom-insert " " lyskom-format-insert "%#1t" lyskom-format 5 1900 4 3 2 1 0] 12) ((error))] 4] sv lyskom-nameday lyskom-insert "\n" kom-show-namedays tmp] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 928714) nil]) (byte-code "\302\300!\204\303\300 B\302\207" [lyskom-nameday-alist current-load-list boundp ((1 (1) (2 "Svea" "Sverker") (3 "Alfred" "Alfrida") (4 "Rut" "Ritva") (5 "Hanna" "Hannele") (6 "Baltsar" "Kasper") (7 "August" "Augusta") (8 "Erland" "Erhard") (9 "Gunnar" "Gunder") (10 "Sigurd" "Sigmund") (11 "Hugo" "Hagar") (12 "Frideborg" "Fridolf") (13 "Knut") (14 "Felix" "Felicia") (15 "Laura" "Liv") (16 "Hjalmar" "Hervor") (17 "Anton" "Tony") (18 "Hilda" "Hildur") (19 "Henrik" "Henry") (20 "Fabian" "Sebastian") (21 "Agnes" "Agneta") (22 "Vincent" "Veine") (23 "Emilia" "Emilie") (24 "Erika" "Eira") (25 "Paul" "Pl") (26 "Bodil" "Boel") (27 "Gte" "Gta") (28 "Karl" "Karla") (29 "Valter" "Vilma") (30 "Gunhild" "Gunilla") (31 "Ivar" "Joar")) (2 (1 "Max" "Magda") (2 "Marja" "Mia") (3 "Disa" "Hjrdis") (4 "Ansgar" "Anselm") (5 "Lisa" "Elise") (6 "Dorotea" "Dora") (7 "Rikard" "Dick") (8 "Berta" "Berthold") (9 "Fanny" "Betty") (10 "Egon" "Egil") (11 "Yngve" "Ingolf") (12 "Evelina" "Evy") (13 "Agne" "Agnar") (14 "Valentin" "Tina") (15 "Sigfrid" "Sigbritt") (16 "Julia" "Jill") (17 "Alexandra" "Sandra") (18 "Frida" "Fritz") (19 "Gabriella" "Ella") (20 "Rasmus" "Ruben") (21 "Hilding" "Hulda") (22 "Marina" "Marlene") (23 "Torsten" "Torun") (24 "Mattias" "Mats") (25 "Sigvard" "Sivert") (26 "Torgny" "Torkel") (27 "Lage" "Laila") (28 "Maria" "Maja")) (3 (1 "Albin" "Inez") (2 "Ernst" "Erna") (3 "Gunborg" "Gunvor") (4 "Adrian" "Ada") (5 "Tora" "Tor") (6 "Ebba" "Ebbe") (7 "Isidor" "Doris") (8 "Siv" "Saga") (9 "Torbjrn" "Ambjrn") (10 "Edla" "Ethel") (11 "Edvin" "Elon") (12 "Viktoria" "Viktor") (13 "Greger" "Iris") (14 "Matilda" "Maud") (15 "Kristofer" "Christel") (16 "Herbert" "Gilbert") (17 "Gertrud" "Grel") (18 "Edvard" "Eddie") (19 "Josef" "Josefina") (20 "Joakim" "Kim") (21 "Bengt" "Benny") (22 "Viking" "Vilgot") (23 "Gerda" "Gert") (24 "Gabriel" "Rafael") (25 "Mary" "Marion") (26 "Emanuel" "Manne") (27 "Ralf" "Raymond") (28 "Elma" "Elmer") (29 "Jonas" "Jens") (30 "Holger" "Reidar") (31 "Ester" "Estrid")) (4 (1 "Harald" "Halvar") (2 "Gunnel" "Gun") (3 "Ferdinand" "Florence") (4 "Irene" "Irja") (5 "Nanna" "Nanny") (6 "Vilhelm" "Willy") (7 "Irma" "Mimmi") (8 "Vanja" "Ronja") (9 "Otto" "Ottilia") (10 "Ingvar" "Ingvor") (11 "Ulf" "Ylva") (12 "Julius" "Gillis") (13 "Artur" "Douglas") (14 "Tiburtius" "Tim") (15 "Olivia" "Oliver") (16 "Patrik" "Patricia") (17 "Elias" "Elis") (18 "Valdemar" "Volmar") (19 "Olaus" "Ola") (20 "Amalia" "Amelie") (21 "Annika" "Anneli") (22 "Allan" "Alida") (23 "Georg" "Gran") (24 "Vega" "Viveka") (25 "Markus" "Mark") (26 "Teresia" "Terese") (27 "Engelbrekt" "Enok") (28 "Ture" "Tyko") (29 "Kennet" "Kent") (30 "Mariana" "Marianne")) (5 (1 "Valborg" "Maj") (2 "Filip" "Filippa") (3 "John" "Jack") (4 "Monika" "Mona") (5 "Vivianne" "Vivan") (6 "Marit" "Rita") (7 "Lilian" "Lilly") (8 "ke" "Ove") (9 "Jonatan" "Gideon") (10 "Elvira" "Elvy") (11 "Mrta" "Mrit") (12 "Charlotta" "Lotta") (13 "Linnea" "Nina") (14 "Lillemor" "Lill") (15 "Sofia" "Sonja") (16 "Hilma" "Hilmer") (17 "Nore" "Nora") (18 "Erik" "Jerker") (19 "Majken" "Majvor") (20 "Karolina" "Lina") (21 "Konstantin" "Conny") (22 "Henning" "Hemming") (23 "Desiree" "Renee") (24 "Ivan" "Yvonne") (25 "Urban" "Ursula") (26 "Vilhelmina" "Helmy") (27 "Blenda" "Beda") (28 "Ingeborg" "Borghild") (29 "Jean" "Jeanette") (30 "Fritiof" "Frej") (31 "Isabella" "Isa")) (6 (1 "Rune" "Runa") (2 "Rutger" "Roger") (3 "Ingemar" "Gudmar") (4 "Solveig" "Solbritt") (5 "Bo" "Boris") (6 "Gustav" "Gsta") (7 "Robert" "Robin") (8 "Eivor" "Elaine") (9 "Petra" "Petronella") (10 "Kerstin" "Karsten") (11 "Bertil" "Berit") (12 "Eskil" "Esbjrn") (13 "Aina" "Eila") (14 "Hkan" "Heidi") (15 "Margit" "Mait") (16 "Axel" "Axelina") (17 "Torborg" "Torvald") (18 "Bjrn" "Bjarne") (19 "Germund" "Jerry") (20 "Linda" "Linn") (21 "Alf" "Alva") (22 "Paulina" "Paula") (23 "Adolf" "Adela") (24 "Johan" "Jan") (25 "David" "Salomon") (26 "Gunni" "Jim") (27 "Selma" "Herta") (28 "Leo" "Leopold") (29 "Petrus" "Peter") (30 "Elof" "Leif")) (7 (1 "Aron" "Mirjam") (2 "Rosa" "Rosita") (3 "Aurora" "Adina") (4 "Ulrika" "Ulla") (5 "Melker" "Agaton") (6 "Ronald" "Ronny") (7 "Klas" "Kaj") (8 "Kjell" "Tjelvar") (9 "Jrgen" "rjan") (10 "Anund" "Gunda") (11 "Eleonora" "Ellinor") (12 "Herman" "Hermine") (13 "Joel" "Judit") (14 "Folke" "Odd") (15 "Ragnhild" "Ragnvald") (16 "Reinhold" "Reine") (17 "Alexis" "Alice") (18 "Fredrik" "Fred") (19 "Sara" "Sally") (20 "Margareta" "Greta") (21 "Johanna" "Jane") (22 "Magdalena" "Madeleine") (23 "Emma" "Emmy") (24 "Kristina" "Stina") (25 "Jakob" "James") (26 "Jesper" "Jessika") (27 "Marta" "Moa") (28 "Botvid" "Seved") (29 "Olof" "Olle") (30 "Algot" "Margot") (31 "Elin" "Elna")) (8 (1 "Per" "Pernilla") (2 "Karin" "Kajsa") (3 "Tage" "Tanja") (4 "Arne" "Arnold") (5 "Ulrik" "Alrik") (6 "Sixten" "Slve") (7 "Dennis" "Donald") (8 "Silvia" "Sylvia") (9 "Roland" "Roine") (10 "Lars" "Lorentz") (11 "Susanna" "Sanna") (12 "Klara" "Clary") (13 "Hillevi" "Gullvi") (14 "William" "Bill") (15 "Stella" "Stefan") (16 "Brynolf" "Sigyn") (17 "Verner" "Veronika") (18 "Helena" "Lena") (19 "Magnus" "Mns") (20 "Bernhard" "Bernt") (21 "Jon" "Jonna") (22 "Henrietta" "Henny") (23 "Signe" "Signhild") (24 "Bartolomeus" "Bert") (25 "Lovisa" "Louise") (26 "sten" "Ejvind") (27 "Rolf" "Rudolf") (28 "Gurli" "Gull") (29 "Hans" "Hampus") (30 "Albert" "Albertina") (31 "Arvid" "Vidar")) (9 (1 "Samuel" "Sam") (2 "Justus" "Justina") (3 "Alfhild" "Alfons") (4 "Gisela" "Glenn") (5 "Harry" "Harriet") (6 "Sakarias" "Esaias") (7 "Regina" "Roy") (8 "Alma" "Ally") (9 "Anita" "Anja") (10 "Tord" "Tove") (11 "Dagny" "Daniela") (12 "Tyra" "sa") (13 "Sture" "Styrbjrn") (14 "Ida" "Ellida") (15 "Sigrid" "Siri") (16 "Dag" "Daga") (17 "Hildegard" "Magnhild") (18 "Alvar" "Orvar") (19 "Fredrika" "Carita") (20 "Agda" "Agata") (21 "Ellen" "Elly") (22 "Maurits" "Morgan") (23 "Tekla" "Tea") (24 "Gerhard" "Gert") (25 "Kre" "Tryggve") (26 "Einar" "Enar") (27 "Dagmar" "Rigmor") (28 "Lennart" "Leonard") (29 "Mikael" "Mikaela") (30 "Helge" "Helny")) (10 (1 "Ragnar" "Ragna") (2 "Ludvig" "Louis") (3 "Evald" "Osvald") (4 "Frans" "Frank") (5 "Bror" "Bruno") (6 "Jenny" "Jennifer") (7 "Birgitta" "Britta") (8 "Nils" "Nelly") (9 "Ingrid" "Inger") (10 "Helmer" "Hadar") (11 "Erling" "Jarl") (12 "Valfrid" "Ernfrid") (13 "Birgit" "Britt") (14 "Manfred" "Helfrid") (15 "Hedvig" "Hedda") (16 "Fingal" "Finn") (17 "Antonia" "Annette") (18 "Lukas" "Matteus") (19 "Tore" "Torleif") (20 "Sibylla" "Camilla") (21 "Birger" "Brje") (22 "Marika" "Marita") (23 "Sren" "Severin") (24 "Evert" "Eilert") (25 "Inga" "Ingvald") (26 "Amanda" "My") (27 "Sabina" "Ina") (28 "Simon" "Simone") (29 "Viola" "Vivi") (30 "Elsa" "Elsie") (31 "Edit" "Edgar")) (11 (1 "Andre" "Andrea") (2 "Tobias" "Toini") (3 "Hubert" "Diana") (4 "Uno" "Unn") (5 "Eugen" "Eugenia") (6 "Gustav" "Adolf") (7 "Ingegerd" "Ingela") (8 "Vendela" "Vanda") (9 "Teodor" "Ted") (10 "Martin" "Martina") (11 "Mrten") (12 "Konrad" "Kurt") (13 "Kristian" "Krister") (14 "Emil" "Mildred") (15 "Katja" "Nadja") (16 "Edmund" "Gudmund") (17 "Naemi" "Nancy") (18 "Pierre" "Percy") (19 "Elisabet" "Lisbeth") (20 "Pontus" "Pia") (21 "Helga" "Olga") (22 "Cecilia" "Cornelia") (23 "Klemens" "Clarence") (24 "Gudrun" "Runar") (25 "Katarina" "Carina") (26 "Linus" "Love") (27 "Astrid" "Asta") (28 "Malte" "Malkolm") (29 "Sune" "Synnve") (30 "Anders" "Andreas")) (12 (1 "Oskar" "Ossian") (2 "Beata" "Beatrice") (3 "Lydia" "Carola") (4 "Barbro" "Barbara") (5 "Sven" "Svante") (6 "Nikolaus" "Niklas") (7 "Angelika" "Angela") (8 "Virginia" "Vera") (9 "Anna" "Annie") (10 "Malin" "Malena") (11 "Daniel" "Dan") (12 "Alexander" "Alex") (13 "Lucia") (14 "Sten" "Stig") (15 "Gottfrid" "Gotthard") (16 "Assar" "Astor") (17 "Inge" "Ingemund") (18 "Abraham" "Efraim") (19 "Isak" "Rebecka") (20 "Israel" "Moses") (21 "Tomas" "Tom") (22 "Natanael" "Natalia") (23 "Adam") (24 "Eva") (26 "Stefan" "Staffan") (27 "Johannes" "Hannes") (29 "Abel" "Set") (30 "Gunlg" "slg") (31 "Sylvester")))] 2) (defalias 'lyskom-nameday #[(&optional now) "\206\305\306!\211\211A\307\234)T\n\236A \211A\310\234) \236A\211\204'\311\202Y\fG\312=\2036\313\314\f@\"\202Y\fG\315=\203I\313\316\f\317\234\f\312\234#\202Y\320\321\322\323\324\f\312\"\325#\f\211GS\234#+\207" [now time lyskom-nameday-alist mlist dlist blocking-do get-time 4 3 nil 1 lyskom-format "%#1s har namnsdag i dag." 2 "%#1s och %#2s har namnsdag i dag." 0 format "%s och %s har namnsdag i dag." mapconcat identity lyskom-butlast ", "] 8]) (put 'lyskom-no-users 'error-conditions '(error lyskom-error lyskom-no-users)) #@218 Display a list of all connected users. The prefix arg controls the idle limit of the sessions showed. If the prefix is negative, invisible sessions are also shown. If the prefix is 0, all visible sessions are shown. (defalias 'kom-who-is-on #[(&optional arg) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-who-is-on-start-buffer lyskom-start-of-command kom-who-is-on ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-who-is-on-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301\302\217\207" [nil (byte-code "\203\302 !\207\303 \207" [lyskom-dynamic-session-info-feature-flag arg lyskom-who-is-on-9 lyskom-who-is-on-8] 2) ((lyskom-no-users (byte-code "\300\301\302!!\207" [lyskom-insert lyskom-get-string null-who-info] 3)))] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 939363) "P"]) #@226 Display a list of all connected users in CONF. The prefix arg controls the idle limit of the sessions showed. If the prefix is negative, invisible sessions are also shown. If the prefix is 0, all visible sessions are shown. (defalias 'kom-who-is-on-in-conference #[(&optional arg) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-who-is-on-in-conference-start-buffer lyskom-start-of-command kom-who-is-on-in-conference ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-who-is-on-in-conference-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303!\304\305\211\306%\305\307\310\217)\207" [conf-stat lyskom-read-conf-stat lyskom-get-string who-is-on-in-what-conference (all) nil t (byte-code "\203 \303 \n\"\207\304\n!\207" [lyskom-dynamic-session-info-feature-flag arg conf-stat lyskom-who-is-on-9 lyskom-who-is-on-8] 3) ((lyskom-no-users (byte-code "\300\301\302!!\207" [lyskom-insert lyskom-get-string null-who-info] 3)))] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 940329) "P"]) #@72 Display a list of all connected users. Uses Protocol A version 8 calls (defalias 'lyskom-who-is-on-8 #[(&optional conf-stat) "\306\307!\310 \203\311 \"\202\312\n\313\")\314\"\211G\315\fS 8\211A\316\234)!GT.\317.\320\321#/\317.\322\211#0\3231\3242 \203L\325\326 \"\210\3250\327\330\331!\330\332!$\2103\203i\3250\327\330\333!\330\334!$\210\335\336\337 S\340\"\341P!\210 \203\330 @\315 \211A\316\234)!45 \211A\316\234)U\203\227\342\202\230\3436\325/46P \211A\344\234) \211A\345\234)\206\266\330\323!$\2103\203\320\3250\327\346 !\347 \211A\350\234)\351Q$\210+ A\211\204x\335\336\337 S\340\"\341P!\210\335\352\353\f\354\355!#!.\207" [who-info-list conf-stat vector who-list total-users who-info blocking-do who-is-on sort lyskom-who-is-on-check-membership-8 append nil #[(who1 who2) "\211A\303\234)\n\211A\303\234)W\207" [who1 who-info who2 2] 4] int-to-string 2 lyskom-info-line-format-string "P" "M" "s" not-present-anywhere unknown-person lyskom-format-insert who-is-active-and-member "" lyskom-get-string lyskom-name is-in-conf from-machine is-doing lyskom-insert make-string lyskom-window-width 45 "\n" "*" " " 0 1 lyskom-return-username "(" 3 ")" lyskom-format total-visible-users lyskom-client-date-string time-format-exact session-width format-string-1 format-string-2 lyskom-default-conf-string lyskom-default-pers-string kom-show-where-and-what session-no lyskom-session-no my-session] 8 (#$ . 941492)]) #@72 Display a list of all connected users. Uses Protocol A version 9 calls (defalias 'lyskom-who-is-on-9 #[(arg &optional conf-stat) "\247\203 \306W\2069\205\307=\247\203\310!\202;\307=\203)\306\202;\n\247\2032\n\202;\n\203:\311\202;\306\312\313\314 \315_$\316 \203Q\317\f \"\202Z\f@\320@\321\")\322\"\211AGBA\204n\323\324\321\"\202\325BSA8\211CA\306H)!GTD\326D\327\330#E\326D\331\332#F\326D\331\332#G\333H\334I \306U\203\256\335\336\337!!\210\202\263\340\341 \"\210 \203\275\335\336\342!!\210 \203\306\340\343 \"\210\340F\344\336\345!\336\346!$\210J\203\343\340F\344\336\347!\336\350!$\210K\203\364\340G\344\336\351!\336\352!$\210\335\353\354 S\355\"\356P!\210A\203rA@\211L\211CA\306H)M\325M!NOMU\203%\357\202&\360P\340ENPPL\211CA\361H)L\211CA\362H)\206H\336\333!$\210J\203\331\321Q\321R\321ST\203\236\363M!\211Q\203\211\364Q\211UA\306H)Q\211UA\362H)Q\211UA\361H)#S\202\304\365\366M\367\370 VG\371&\211RS\202\304\312\366M\"Q\364Q\211UA\306H)Q\211UA\362H)Q\211UA\361H)#S\340F\344S\372L\211CA\373H)\374Q$\210+K\203iL\211CA\375H)\315W\203\362\336\376!\202\375\377L\211CA\375H)!\321\211\211WQR>T\203D\363M!\211Q\203-\201X\201YQ\211UA\375H)!!W\202^\365\366M\201Z\370 VG\371&\211RW\202^\312\366M\"Q\201X\201YQ\211UA\375H)!!W\340G\344W>$\210,AAA,\202\377\335\353\354 S\355\"\356P!\210\335\201[ \203\221 \306U\203\221\201B\202\252 \203\233\201\\\202\252 \306U\203\247\201]\202\252\201^B\201_\201`!#!. \207" [arg wants-invisibles kom-idle-hide idle-hide who-info-list conf-stat 0 - abs 30 blocking-do who-is-on-dynamic t 60 sort lyskom-who-is-on-check-membership-9 append nil #[(who1 who2) "\211A\303H)\n\211A\303H)W\207" [who1 dynamic-session-info who2 0] 4] signal lyskom-no-users int-to-string lyskom-info-line-format-string "P" "M" "D" "s" not-present-anywhere unknown-person lyskom-insert lyskom-get-string who-is-active-all lyskom-format-insert who-is-active-last-minutes showing-invisibles who-is-active-and-member "" lyskom-name is-in-conf from-machine is-doing connection-time active-last make-string lyskom-window-width 45 "\n" "*" " " 1 2 cache-get-static-session-info lyskom-combine-username lyskom-create-defer-info get-static-session-info lyskom-insert-deferred-session-info make-marker "%#1s" "(" 5 ")" 3 active lyskom-format-secs vector who-list total-users dynamic-session-info session-width format-string-1 format-string-2 format-string-3 lyskom-default-conf-string lyskom-default-pers-string kom-show-where-and-what kom-show-since-and-when who-info session-no session-no-s lyskom-session-no my-session static defer-info username kom-deferred-printing static-session-info lyskom-defer-indicator since upcase-initials lyskom-format-time lyskom-insert-deferred-session-info-since lyskom-format total-active-users total-visible-users total-visible-active-users lyskom-client-date-string time-format-exact] 8 (#$ . 942955)]) #@72 Returns a list of those in WHO-INFO-LIST which is member in CONF-STAT. (defalias 'lyskom-who-is-on-check-membership-8 #[(who-info-list conf-stat) "\306\307\211A\310\234)\310\211A\311\234)$ G\310\312 \fW\203=\313 H\211\fA\310\234) \"\2036 H\nB T\211\202\n,\207" [conf-stat who-info-list res i len members blocking-do get-members 0 12 nil lyskom-member-list-find-member who-info] 7 (#$ . 945965)]) #@72 Returns a list of those in WHO-INFO-LIST which is member in CONF-STAT. (defalias 'lyskom-who-is-on-check-membership-9 #[(who-info-list conf-stat) "\306\307\211A\310\234)\310\211A\311\234)$ G\310\312 \fW\203=\313 H\211 A\314H) \"\2036 H\nB T\211\202\n,\207" [conf-stat who-info-list res i len members blocking-do get-members 0 12 nil lyskom-member-list-find-member 1 dynamic-session-info] 7 (#$ . 946384)]) (defalias 'lyskom-insert-deferred-session-info #[(session-info defer-info) "\203\303 \304\211A\305H)\211A\306H)\211A\307H)#\"\207\303 \310\"\207" [session-info defer-info static-session-info lyskom-replace-deferred lyskom-combine-username 0 2 1 ""] 8]) (defalias 'lyskom-insert-deferred-session-info-since #[(session-info defer-info) "\203\303 \304\305\211A\306H)!!\"\207\303 \307\"\207" [session-info defer-info static-session-info lyskom-replace-deferred upcase-initials lyskom-format-time 3 ""] 7]) #@40 Display a list of all connected users. (defalias 'kom-list-clients #[(prefix) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-clients-start-buffer lyskom-start-of-command kom-list-clients ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-clients-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\205\306\307\310\306 \311$\312\n\313 \311\")\314\"\211G\315 S\f8\211/A\316H)!GT0\3170\3201\2039\321\202:\322#2\323 3\3242\325\326\327!\326\330!$\210\331\332\333 \334Z\335\"\336P!\210\f\203\376\f@4\3154\211/A\316H)!564\211/A\316H)U\203\201\337\202\202\34071\203\251\341\3424\211/A\316H)\343\311\211\2114\211/A\316H)3D&\202\337\344\3424\211/A\316H)D\3454\211/A\316H)DD!\2118\316\2348\346\2349:\347:93#\210:\3409Q+;\324257P4\211/A\346H);$\210,\fA\211\204]\331\332\333 \334Z\335\"\336P!\210\331\350 \203\305\202\351 \352\353!#!\210\324\354\341\355\311\356\311\211\2113&\".\207" [prefix want-invisible who-info-list vector who-list total-users t blocking-do who-is-on-dynamic nil sort append #[(who1 who2) "\211A\303H)\n\211A\303H)W\207" [who1 dynamic-session-info who2 0] 4] int-to-string 0 lyskom-info-line-format-string "P" "D" "s" make-collector lyskom-format-insert "" lyskom-get-string lyskom-name lyskom-client lyskom-insert make-string lyskom-window-width 2 45 "\n" "*" " " lyskom-create-defer-info get-client-name lyskom-deferred-client-1 lyskom-blocking-do-multiple get-client-version 1 lyskom-list-clients-collect lyskom-format total-visible-users lyskom-client-date-string time-format-exact "%#1D\n" get-time lyskom-list-clients-statistics-1 dynamic-session-info s-width kom-deferred-printing format-string collect who-info session-no lyskom-session-no my-session multiple-bind-sym version name client] 11) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 947329) "P"]) #@27 Collect client statistics (defalias 'lyskom-list-clients-collect #[(client version collect) "\306 Q\307\n \211A)\"\211\203 \211AT\241\202, \n\310B \211A)B \211 \241**\207" [client version name collect collector el " " assoc 1 value] 4 (#$ . 949342)]) (defalias 'lyskom-list-clients-statistics-1 #[(time arg defer-info) "\301\302\303#\207" [defer-info initiate-get-time deferred lyskom-list-clients-statistics-2] 4]) (defalias 'lyskom-list-clients-statistics-2 #[(time defer-info) "\302\303\304\305!\306\307\310\311!\211A)\312\"\237\303#\303R\"\207" [defer-info collector lyskom-replace-deferred "\n" lyskom-get-string client-statistics mapconcat #[(el) "\301\302@\303\232\203\304\305!\202@A#\207" [el lyskom-format client-statistics-line " " lyskom-get-string Unknown] 4] sort defer-info->data #[(a b) "@ @\231\207" [a b] 2]] 10]) (defalias 'lyskom-deferred-client-1 #[(name defer-info) "\305!\211:\203 \306\234\202  :\205 \307\234\310\311\312\n\f &+\207" [defer-info data session collector name defer-info->data 0 1 initiate-get-client-version deferred lyskom-deferred-client-2] 8]) (defalias 'lyskom-deferred-client-2 #[(version defer-info name collect) "\203\n\304 \n#\210\305 G\306U\203\307\202 \310\nQ\"\207" [collect name version defer-info lyskom-list-clients-collect lyskom-replace-deferred 0 "-" " "] 5]) #@67 Return a format string suitable for inserting who-info lines etc. (defalias 'lyskom-info-line-format-string #[(prefixlen type1 type2) "\206\305\306 Z\307Z\310\311 !\312\313\311\n\307\245!\314 \315\311\n\307\245\n\307\246\\!\316\f\317\260\f*\207" [prefixlen plen width type1 type2 7 lyskom-window-width 2 "%" int-to-string "#1s" "%=-" "#2" " %=-" "#3" "\n"] 12 (#$ . 950705)]) #@78 Returns the width of the lyskom-window or the screen-width if not displayed. (defalias 'lyskom-window-width #[nil "\301p!\211\203\302!\202\303 )\207" [win get-buffer-window window-width frame-width] 3 (#$ . 951093)]) #@73 Takes the username from the WHO-INFO and returns it on a better format. (defalias 'lyskom-return-username #[(who-info) "\211A\306\234)\307\310 \"\206\307\311 \"\211\203u \312\313\225O\314\224\205( \315\224\315\225O\314\224\2036 \314\224\314\225O\202< \315\224\315\225O \312\225\316O \203^\317 \227\f\227\"\204^\317 \227\f P\227\"\203g\320\f R\202q\320 \321\f \322\260,\202v *\207" [who-info username type rest gott sent 4 string-match "\\([^%@.]+\\)%\\(.+\\)@\\([^%@.]+\\)" "\\([^%@.]+\\)@\\([^%@.]+\\)" 0 1 3 2 nil lyskom-string= "@" " (" ")" name] 8 (#$ . 951322)]) #@57 Return a description of from where a user is logged in. (defalias 'lyskom-combine-username #[(username identname hostname) "\304\305\"\203)\306\224\306\225O\307\224\307\225O\310 \"\203#\n\311 Q\202'\311 Q*\207\311 Q\207" [username uhost user hostname string-match "\\(.*\\)%\\(.*\\)" 1 2 lyskom-string= "@"] 4 (#$ . 951921)]) #@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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-status-session-start-buffer lyskom-start-of-command kom-status-session ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-status-session-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "<\203 \202\247\203C\206\305\306\307!!\310\211\204%\311\312!\202c\n@\247\203=\n@\313X\203=\314\306\315!\n@[\"\202c \203U\316\317\320\211\313$\321\f\310\")\322\323\n\"\202c\316\324!\321\f\310\")\322\325\n\"*\207" [arg who-info sessions lyskom-dynamic-session-info-feature-flag vector lyskom-read-session-no lyskom-get-string status-for-session nil lyskom-insert-string no-such-session-r 0 lyskom-format-insert person-not-logged-in-r blocking-do who-is-on-dynamic t append mapcar #[(x) "\302 \"\207" [x who-info lyskom-status-session-9] 3] who-is-on #[(x) "\302 \"\207" [x who-info lyskom-status-session-8] 3]] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 952265) "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) "\205\334 @\211A\306\234)=\203\324@\f\2031\307\310 \211A\306\234)\311\312\211\211 \211A\306\234)&\202W\313\310 \211A\306\234)D\314 \211A\306\234)DD!\211\315\234 \316\234\211\317Q+\320\321\322! \211A\306\234) \211A\315\234)\323 ! \211A\316\234)\315=\204\204 \211A\316\234)\202\207\321\324!\325\326 \211A\327\234)\"\203\241\330\316 \211A\327\234)\"\202\250 \211A\327\234)\211 \331\230\203\266\321\332!\202\270 ) \211A\316\234)\315=\204\315\321\333!\202\320\321\334!&\210*A\211\204\312\207" [who-info-list sid who-info info kom-deferred-printing multiple-bind-sym 2 lyskom-create-defer-info get-client-name lyskom-deferred-client-1 nil lyskom-blocking-do-multiple get-client-version 0 1 " " lyskom-format-insert lyskom-get-string session-status lyskom-return-username not-present-anywhere string-match "^\\(.*[^.]\\)\\.*$" 3 match-string "" unknown-doing-what doing-where-conn doing-nowhere-conn version name client string] 11 (#$ . 953577)]) #@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) "\306\307\"\n\205R\n@\211A\310H)=\203J\n@ \2036\311\312\f\211A\310H)\313\314\211\211\f\211A\310H)&\202^\315\312\f\211A\310H)D\316\f\211A\310H)DD!\211*\310\234*\317\234+\211,\320+Q+-\321\322\323!\f\211A\310H)\f\211A\317H)\324 \211.A\310H) \211.A\325H) \211.A\317H)#\f\211A\325H)\310=\204\242\f\211A\325H)\202\245\322\326!\327\330\f\211A\331H)\"\203\277\332\317\f\211A\331H)\"\202\306\f\211A\331H)\211/\333\230\203\324\322\334!\202\326/)-\f\211A\325H)\310=\204\353\322\335!\202\356\322\336!\337 \211.A\340H)!\f\211A\340H)\341\245\310=\203\f\322\342!\202/\f\211A\343H)\2110A\317H)\204!\344\202/\345\322\346!\347\f\211A\340H)!\"&\n\210\f\211A\343H)\2110A\310H)\203I\350\322\351!!\210*\nA\211\204 \314)\207" [sid static who-info-list dynamic-session-info info kom-deferred-printing blocking-do get-static-session-info 0 lyskom-create-defer-info get-client-name lyskom-deferred-client-1 nil lyskom-blocking-do-multiple get-client-version 1 " " lyskom-format-insert lyskom-get-string session-status-9 lyskom-combine-username 2 not-present-anywhere string-match "^\\(.*[^.]\\)\\.*$" 5 match-string "" unknown-doing-what doing-where-conn doing-nowhere-conn lyskom-format-time 3 60 session-is-active 4 "\n" lyskom-format session-status-inactive lyskom-format-secs lyskom-insert session-is-invisible multiple-bind-sym version name client static-session-info string session-flags] 16 (#$ . 954726)]) (defalias 'lyskom-format-secs-aux #[(string num x1 x2 one many) "\306X\203 \207\307U\2036 \310\230\203 \311\n!P\207 \306U\2030\f\306U\2030\312\313\311\314!\"\2021\315\311\n!Q\207 \310\230\203F \312\316\311 !#P\207 \306U\203\\\f\306U\203\\\312\313\311\314!\"\202]\315\312\316\311 !#Q\207" [num string one x1 x2 many 0 1 "" lyskom-get-string format " %s " and ", " "%d %s"] 7]) #@66 Format the number of seconds in TIME as a human-readable string. (defalias 'lyskom-format-secs #[(time) "\305\245\305\246\306\245\307\246\310\245\311\312 \n \f\313\302&\312 \f\314\315\316&\312 \f\314\211\317\320&\211,\207" [time string days hrs mins 60 3600 24 86400 "" lyskom-format-secs-aux one-day 0 one-hour hours one-minute minutes] 7 (#$ . 956725)]) #@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) "\203\301\302!\210\303\304\305\306$\210\307\304\310\"\207\301\302!\210\311\312!\210\310 \207" [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 (#$ . 957102) (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 'lyskom-internal-error '(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) "\205E \203\f\306!\210\307\211A\310\234)!\210\310\211A\311\234)\211<\206' G\312\312\312 <\203\272 \203B @\211\211A\310\234)>\203\263 \211A\310\234)\313=\203b \211A\314\234)\202j \211A\315\234)\211A\310\234)V\203\263 \211A\310\234)\313=\203\215 \211A\314\234)\202\225 \211A\315\234)\203\252\316\317\320\" #\210\202\262\321\322\316 $\210) A\211\2026\n\fW\203B \nH\211\211A\310\234)>\203; \211A\310\234)\313=\203\352 \211A\314\234)\202\362 \211A\315\234)\211A\310\234)V\203; \211A\310\234)\313=\203 \211A\314\234)\202 \211A\315\234)\2032\316\317\320\" #\210\202:\321\322\316 $\210)\nT\211\202\273-\207" [text-stat mark-as-read __i__ __sequence__ __len__ misc lyskom-mark-as-read lyskom-is-read 0 6 nil COMM-IN 5 7 lyskom-jump blocking-do get-text-stat initiate-get-text-stat main __result__ misc-info lyskom-comment-types-list comment sync] 6 (#$ . 957920)]) #@28 Add a recipient to a text. (defalias 'kom-add-recipient #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-recipient-start-buffer lyskom-start-of-command kom-add-recipient ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-recipient-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303\304\305%\207" [text-no lyskom-add-helper lyskom-last-added-rcpt who-to-add-q adding-name-as-recipient recpt] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 959160) (let ((lyskom-current-command 'kom-add-recipient)) (list (lyskom-read-text-no-prefix-arg 'text-to-add-recipient)))]) #@28 Add a recipient to a text. (defalias 'kom-add-copy #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-copy-start-buffer lyskom-start-of-command kom-add-copy ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-copy-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303\304\305%\207" [text-no lyskom-add-helper lyskom-last-added-ccrcpt who-to-add-copy-q adding-name-as-copy cc-recpt] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 959920) (let ((lyskom-current-command 'kom-add-copy)) (list (lyskom-read-text-no-prefix-arg 'text-to-add-copy)))]) #@28 Add a recipient to a text. (defalias 'kom-add-bcc #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-bcc-start-buffer lyskom-start-of-command kom-add-bcc ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-bcc-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303\304\305%\207" [text-no lyskom-add-helper lyskom-last-added-bccrcpt who-to-add-bcc-q adding-name-as-copy bcc-recpt] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 960655) (let ((lyskom-current-command 'kom-add-bcc)) (list (lyskom-read-text-no-prefix-arg 'text-to-add-copy)))]) (defalias 'lyskom-add-helper #[(text-no last-variable who-prompt doing-prompt type) "\306\307\310!\"\311\312\n!\313\314 \203 \211A\315\234)\202\316\317B\320%\211\205] \205]\321=\203D\203D\322\323\324\f\"!\204D\325\326\327\f\211A\317\234)\"\210\330\f #\210\331 \314\f$*\207" [last-variable conf who-prompt conf-stat target text-no blocking-do get-conf-stat lyskom-default-value lyskom-read-conf-stat lyskom-get-string (all) nil 1 "" 0 t recpt lyskom-j-or-n-p lyskom-format really-add-as-recpt-q cc-recpt adding-name-as-copy lyskom-set-default lyskom-format-insert lyskom-move-recipient type kom-confirm-add-recipients doing-prompt] 7]) #@154 Select the default recipient for removal from RECIPIENTS. The value of RECIPIENTS should be the result of a call to (lyskom-text-recipients text-no t). (defalias 'lyskom-default-recpt-for-sub #[(recipients) "\303\304!\211 \236\203\305\306\"\206?\n \236\203\305\306\n\"\206?\307\310 \"\2030\305\306\307\310 \"@\"\206? @\203>\305\306 @@\"\206?\311)\207" [last-sub recipients lyskom-current-conf lyskom-default-value lyskom-last-sub-rcpt blocking-do get-conf-stat rassq RECPT nil] 6 (#$ . 962049)]) #@39 Remove a recipient from text TEXT-NO. (defalias 'kom-sub-recipient #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-sub-recipient-start-buffer lyskom-start-of-command kom-sub-recipient ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-sub-recipient-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\"\211\203]\310 \311\"\211\203U\312\n!\313\314\315!\316\317\320\n\"BC\321 \2030 \211A\322\234)\2021\323\324B\311%\211\205Q\325\326 #\210\327\330 \211A\324\234)\"\210\331 \321\211$*\202Y\325\332\")\202a\325\333\")\207" [text-no text-stat recipients conf conf-stat source blocking-do get-text-stat lyskom-text-recipients t lyskom-default-recpt-for-sub lyskom-read-conf-stat lyskom-get-string who-to-sub-q restrict mapcar car nil 1 "" 0 lyskom-format-insert remove-name-as-recipient lyskom-set-default lyskom-last-sub-rcpt lyskom-move-recipient text-has-no-recipients-r no-such-text-no] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 962564) (let ((lyskom-current-command 'kom-sub-recipient)) (list (lyskom-read-text-no-prefix-arg 'text-to-delete-recipient)))]) #@51 Move text TEXT-NO from one conference to another. (defalias 'kom-move-text #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-move-text-start-buffer lyskom-start-of-command kom-move-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-move-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\"\211\203\233\310 \311\"\312\n!\306\313\314\315!\206\f\" \204(\316\317\"\202\227\320\321\322\323\324\n\"BC\325 \203A \211!A\326\234)\202B\327\330B\311%\320\331\332\325 \203Y \211!A\326\234)\202Z\327\330B\311%\"\211#\205\226\"\205\226\316\333#\" $\210\334\315\"\211!A\330\234)\"\210\334\335#\211!A\330\234)\"\210\336#\"\337$*+\202\237\316\340\")\207" [text-no text-stat recipients default-from lyskom-current-conf default-to blocking-do get-text-stat lyskom-text-recipients t lyskom-default-recpt-for-sub get-conf-stat lyskom-default-value lyskom-last-added-rcpt lyskom-format-insert text-has-no-recipients-r lyskom-read-conf-stat who-to-move-from-q restrict mapcar car nil 1 "" 0 who-to-move-to-q (all) moving-name lyskom-set-default lyskom-last-sub-rcpt lyskom-move-recipient recpt no-such-text-no conf-stat target source] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 963825) (let ((lyskom-current-command 'kom-move-text)) (list (lyskom-read-text-no-prefix-arg 'text-to-move)))]) #@317 Remove TEXT-NO from SOURCE and add it to TARGET as TYPE. This is the internal function for moving texts around. SOURCE or TARGET may be nil. TYPE is ignored if TARGET is nil. Calls lyskom-report-command-answer to report the result, to callers must have printed something without a newline at the end of the buffer. (defalias 'lyskom-move-recipient #[(text-no source target type) "\306\307\"\211\203\310 ! \203 \306\311 \211A\312\234) $\202!\313 !\"#\203@ \203@\306\314#\211A\312\234)#\202A\313$!% \204\241\"\315=\203`\316\317!\210\320\321 #\210\202\241\"\322=\203s\316\317!\210\320\323 \"\210\202\241\"\324=\203\207\316\317!\210\320\325 #\210\202\241\"\326=\203\233\316\317!\210\320\327 #\210\202\241\330\331\"\"\210$\204\347 \203\267\306\314#\211A\312\234)#\210%\332=\203\314\316\317!\210\320\333 ##\210\202\347%\324=\203\341\316\317!\210\320\334 ##\210\202\347\330\331%\"\210 \203\365$\203\365\330\313!\210\335!\210 \203  \203 \n\203 \336\306\307\"!\210 \205$-\202\320\337\"\210\331)\207" [text-no text-stat was-read target conf-stat type blocking-do get-text-stat lyskom-text-read-p add-recipient 0 t sub-recipient 27 lyskom-insert-string nope lyskom-format-insert error-already-recipient 33 error-recipient-limit 12 error-permission-denied-add-recpt 11 error-access-denied-add-recpt lyskom-report-command-answer nil 30 error-not-recipient error-permission-denied-sub-recpt cache-del-text-stat lyskom-mark-as-read no-such-text-no add-result lyskom-errno add-errno source sub-result sub-errno] 6 (#$ . 965323)]) #@42 Add a text as a comment to another text. (defalias 'kom-add-comment #[(text-no-arg) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-comment-start-buffer lyskom-start-of-command kom-add-comment ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-comment-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303!\304#\207" [text-no-arg lyskom-add-sub-comment lyskom-get-string text-to-add-comment-to t] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 966917) "P"]) #@31 Remove a comment from a text. (defalias 'kom-sub-comment #[(text-no-arg) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-sub-comment-start-buffer lyskom-start-of-command kom-sub-comment ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-sub-comment-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303!\304#\207" [text-no-arg lyskom-add-sub-comment lyskom-get-string text-to-delete-comment-from nil] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 967558) "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) "\306\n\307 #)\211\203P\310\311 \203\312\202\313!\f =?\205! \"\314 \203-\315\202.\316\f#\210\317\f!\210\317!\210\320\321 \203F\322\202G\323\f#!)\202[\314 \203Y\324\202Z\325!)\207" [text-no-arg current-prefix-arg prompt lyskom-current-text text-no do-add lyskom-read-text-no-prefix-arg nil lyskom-read-number lyskom-get-string text-to-add-q text-to-remove-q lyskom-format-insert add-comment-to sub-comment-to cache-del-text-stat lyskom-report-command-answer blocking-do add-comment sub-comment confusion-what-to-add-comment-to confusion-what-to-sub-comment-from comment-text-no] 6 (#$ . 968196)]) #@43 Add a text as a footnote to another text. (defalias 'kom-add-footnote #[(text-no-arg) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-footnote-start-buffer lyskom-start-of-command kom-add-footnote ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-footnote-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303!\304#\207" [text-no-arg lyskom-add-sub-footnote lyskom-get-string text-to-add-footnote-to t] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 969195) "P"]) #@32 Remove a footnote from a text. (defalias 'kom-sub-footnote #[(text-no-arg) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-sub-footnote-start-buffer lyskom-start-of-command kom-sub-footnote ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-sub-footnote-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303!\304#\207" [text-no-arg lyskom-add-sub-footnote lyskom-get-string text-to-delete-footnote-from nil] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 969843) "P"]) #@313 Get the number of the text that is going to have a footnote 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 footnote should be subtracted. Otherwise a footnote is added (defalias 'lyskom-add-sub-footnote #[(text-no-arg prompt do-add) "\306\n\307 #)\211\203P\310\311 \203\312\202\313!\f =?\205! \"\314 \203-\315\202.\316\f#\210\317\f!\210\317!\210\320\321 \203F\322\202G\323\f#!)\202[\324 \203Y\325\202Z\326!)\207" [text-no-arg current-prefix-arg prompt lyskom-current-text text-no do-add lyskom-read-text-no-prefix-arg nil lyskom-read-number lyskom-get-string text-to-add-footn-q text-to-remove-footn-q lyskom-format-insert add-footnote-to sub-footnote-to cache-del-text-stat lyskom-report-command-answer blocking-do add-footnote sub-footnote lyskom-insert confusion-what-to-add-footnote-to confusion-what-to-sub-footnote-from footnote-text-no] 6 (#$ . 970488)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: commands2.el,v 44.89 2001/02/25 16:26:40 joel Exp $\n" nil] 2) #@59 Show memberships last visited, priority, unread and name. (defalias 'kom-membership #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-membership-start-buffer lyskom-start-of-command kom-membership ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-membership-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\302\303\304p!\305P\306#\307\213\210\310 \311\216\312!\210*\313 )\207" [buffer save-selected-window-window lyskom-get-buffer-create list-membership buffer-name "-membership" t ((byte-code "q\210\303 \210\304\305\306\307#\210\307\307\310 \210\311\312!c\210\311\313!c\210)\303\207" [buffer truncate-lines inhibit-read-only lyskom-view-mode lyskom-add-hook lyskom-new-membership-list-hook lyskom-update-membership-when-changed t erase-buffer lyskom-get-string your-memberships memberships-header] 4)) selected-window ((select-window save-selected-window-window)) lyskom-display-buffer lyskom-update-membership-buffer] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 971649) nil]) (defalias 'lyskom-update-membership-buffer #[nil "\306\307!@\310!\205v\311\212q\210\312 \210)\313 \211<\206 \fG\314\314\314\f<\203O\f\203r\f@\315\316\317\211A\320\234)%\210\fA\211\2020\n W\203r\f\nH\315\316\317\211A\320\234)%\210\nT\211\202P.)\207" [buf inhibit-read-only __i__ lyskom-membership __sequence__ __len__ lyskom-buffers-of-category list-membership buffer-live-p t erase-buffer 0 nil initiate-get-conf-stat memberhsip lyskom-memb-received-1 1 x __result__ membership] 7]) (defalias 'lyskom-update-membership-when-changed #[nil "\301\302!@\303!\203\212q\210\304 )\202\305\306\307\")\207" [buffer lyskom-buffers-of-category list-membership buffer-live-p lyskom-update-membership-buffer lyskom-remove-hook lyskom-new-membership-list-hook lyskom-update-membership-when-changed] 3]) #@238 Part of kom-membership. Get maps for the conference CONF-STAT. MEMBERSHIP is the users membership in that conference. Call lyskom-memb-received with the resulting MAP, CONF-STAT, MEMBERSHIP and BUFFER. Args: CONF-STAT MEMBERSHIP BUFFER. (defalias 'lyskom-memb-received-1 #[(conf-stat membership buffer) "\211A\305\234) \211A\306\234)U\204\307\310\311\"\210 \211A\312\234)T\211A\313\234)\211A\314\234)\\\315\\\n V\203D\316\301\317\320 \f&\202p \nZ\321V\203Z\316\301\317 \nZ \f&\202p\322\301\317 \211A\306\234)\n \n[\\\306\\ \f&*\207" [conf-stat membership first-wanted last-existing buffer 0 1 signal lyskom-internal-error ("lyskom-memb-received-1") 3 13 14 -1 lyskom-run lyskom-memb-received nil 50 initiate-get-map] 10 (#$ . 973649)]) #@118 Args: MAP CONF-STAT MEMBERSHIP BUFFER. Prints membership in a conferences. MAP may be nil if there are no new texts. (defalias 'lyskom-memb-received #[(map conf-stat membership buffer) "\300\213\207" [((byte-code "q\210db\210\306\211\307\310\311\312\f\211A\313\234)!\f\211A\314\234) \204&\313\202@ \247\203/ \202@ <\203<\315 \f\"G\202@\316\317\320\"%+\207" [buffer inhibit-read-only lyskom-current-command lyskom-executing-command membership map kom-membership t lyskom-format-insert memberships-line lyskom-return-date-and-time 0 2 lyskom-list-unread signal lyskom-internal-error ("Erroneous map in lyskom-memb-received") conf-stat] 8))] 1 (#$ . 974415)]) #@165 Prints conference status. If argument CONF-NO is existing and non-nil then this conference is used. otherwise: the conference is read with lyskom-completing-read. (defalias 'kom-status-conf #[(&optional conf-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-status-conf-start-buffer lyskom-start-of-command kom-status-conf ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-status-conf-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \306\307\310!\311\312\211\313%\314!\210\315!\210\316\317D\320DD!\211\321\234 \322\234\211\2042\323\324!\202\233\n\211A\325H)\211\211A\326\234)@\f\211A\322\234)A\f\211A\321\234)B\f\211A\325\234)C\327\330 \211@\204vA\204vB\204vC\203\351\331@\203\202\307\332!\202\203\333@\203\233C\204\227A\204\227B\203\233\334\202\234\333C\203\247\307\335!\202\250\333C\203\273A\204\267B\203\273\334\202\274\333A\203\307\307\336!\202\310\333A\203\326B\203\326\334\202\327\333B\203\342\307\337!\202\343\333\340\260 \202\352\333$\210- \211A\341\234)D\327\342D\211\211\211E\242)\343=\203\344D\211A\322\234)!\345 \346ZV\203\347\202\333$\210)\327\350\351 \211A\326\234)!\"\210\327\352 \211A\353\234)\"\210\327\354\307\n\211A\325H)\211A\341\234)\203O\355\202P\356!\"\210\327\357\307\n\211A\325H)\211A\360\234)\203j\361\202k\362!\"\210\327\363 \211A\364\234)\"\210\327\365 \211A\366\234)\"\210\327\367 \211A\370\234) \211A\366\234)\\S\"\210\327\371\351 \211A\360\234)!\"\210\327\372 \211A\373\234)\"\210 \211A\374\234)F\327\375F\211\211\211E\242)\343=\203\337\344F\211A\322\234)!\345 \346ZV\203\337\347\202\340\333$\210) \211A\376\234)G\327\377G\211\321U\203\376\307\201W!\202G\333$\210) \211A\201X\234)H\327\201YH\211\333$\210)\327\201Z \211A\201[\234)\"\210 \211A\373\234)\321U\204H\327\201\\ \"\210\201] \211A\373\234)!\210 \211A\201^\234)\312I\211J\203\207J@\211I\211KA\360H)\211LA\321H)\204~\201_I\201`I $\210JA\211J\204Z*\201a \211A\321\234)\313\"\211M\203\270\327\201bM\211NA\325\234)\201cM\211NA\201X\234)!#\210)\201d \210\201e\307\201f!!\205\233\201g\201h \211A\321\234)\321O$\211P\204\352\327\201i \"\202\232\327\201j \"\210\201e\307\201k!!\203!\323\201l!\210\321QP\211PA\321H)\211R<\206RGS\312T\312U\312UR<\203 R\203R@T\201g\201mT\211TA\321H) \211A\321\234)#\211N\204Z\323\201n!\210\202\201o\201p\201q\351N\211NA\321\234)!\"!\210 \211A\366\234) \211A\370\234)\\N\211NA\326\234)ZN\211NA\360\234)GZ\322ZV\327\201rV\321U\203\252\201s\202\263\201p\201tV\"T\211TA\321H)\201cT\211TA\326H)!$\210T\211TA\322H)\203T\211TA\322H)\321U\204T\211TA\321H)T\211TA\322H)=\204\327\201u\351T\211TA\325H)!T\211TA\322H)#\210))RA\211R\202,QSW\203RQHT\201g\201mT\211TA\321H) \211A\321\234)#\211N\204U\323\201n!\210\202\201o\201p\201q\351N\211NA\321\234)!\"!\210 \211A\366\234) \211A\370\234)\\N\211NA\326\234)ZN\211NA\360\234)GZ\322ZV\327\201rV\321U\203\245\201s\202\256\201p\201tV\"T\211TA\321H)\201cT\211TA\326H)!$\210T\211TA\322H)\203T\211TA\322H)\321U\204T\211TA\321H)T\211TA\322H)=\204\327\201u\351T\211TA\325H)!T\211TA\322H)#\210))QT\211Q\202\"U-\202\232\201o\347!\210\321QP\211PA\321H)\211R<\206=RGS\312T\312U\312UR<\203pR\203\227R@T\327\201vT\211TA\321H)\"\210RA\211R\202PQSW\203\227RQHT\327\201vT\211TA\321H)\"\210QT\211Q\202rU-),\207" [conf-no multiple-bind-sym uconf-stat conf-stat type conf-type lyskom-read-conf-no lyskom-get-string conf-for-status (all) nil t cache-del-conf-stat cache-del-uconf-stat lyskom-blocking-do-multiple get-conf-stat get-uconf-stat 0 1 lyskom-insert-string no-such-conf 2 3 lyskom-format-insert status-record "(" Mailbox "" ", " Protected no-comments closed ")" 5 created-by CONF-STAT lyskom-string-width lyskom-window-width 46 "\n" created-at lyskom-return-date-and-time members 12 conf-allows-secret-members secret-members-not-permitted secret-members-permitted conf-allows-anon-texts 4 anon-texts-permitted anon-texts-not-permitted garb-nice 11 lowest-local-no 13 highest-local-no 14 last-text-time no-of-motd 10 9 superconf-is-no-name 8 permitted-submitters-no-name box ori pro sec creator object superconf permitted-submitters supervisor item #1=#:aux-items aux-item aux-item-flags mship membership lyskom-max-int member-list __i__ __sequence__ __len__ member __result__ unread Everybody 7 supervisor-is-no-name presentation-no 6 conf-has-motd lyskom-view-text 16 lyskom-aux-item-call status-print lyskom-try-get-membership conf-mship-priority lyskom-return-membership-type lyskom-scroll lyskom-j-or-n-p show-members-list-also-q blocking-do get-members conf-has-no-members conf-has-these-members show-membership-info-q member-list-header query-read-texts secret-membership lyskom-insert format "%17s" conf-membership-line " " "%9d " conf-membership-line-2 " %#1P\n"] 14) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 975093) nil]) #@29 Prints status for a person. (defalias 'kom-status-person #[(&optional pers-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-status-person-start-buffer lyskom-start-of-command kom-status-person ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-status-person-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \306\307\310!\311\312\313\314%\312\211\315!\210\316!\210\317\320\"\317\321\" \203,\n\2042\322\323!\202\250\324\325\n\211#\210\324\326\327\n\211A\330\234)!\"\210\324\331 \211A\332\234)\"\210\324\333 \211A\334\234)\"\210\324\335 \211A\336\234) \211A\337\234)\\S\"\210\324\340 \211A\341\234)\"\210\324\342 \211A\343\234)\"\210\324\344 \211A\345\234)\"\210 \211A\346\234)\211\347U\204\274\324\350\351 \352\347\\\"\353\351 \354\"\355\"\353\351 \356\"\356\"\357\353 \356\"!%\210)\324\360\327 \211A\361\234)!\"\210\324\362 \211A\363\234)\"\210\324\364 \211A\365\234)\"\210 \211A\347\234)\fU\203\367\324\366 \211A\367\234)\"\210\324\370\327\n\211A\361\234)!\"\210\n\211A\343\234)\324\305 \211\313$\210)\n\211A\345\234)\347U\2042\n\211A\345\234)9\324\3719\211\313$\210)\324\372 \211A\373\234)\"\210\324\374\n\211A\346\234)\"\210\n\211A\365\234)\347U\204c\324\375\n\"\210\376\n\211A\365\234)!\210\n\211A\367\234)\312@\211A\203\236A@\211@\211BA\361H)\211CA\347H)\204\225\377@\201N@\n$\210AA\211A\204s*\201O \210\201P\307\201Q!!\205\250\317\201R\n\211A\347\234)\"\347D\211E\204\317\324\201S\n\"\210\202\237\324\201T\n\"\210\322\201U!\210\347D\347FE\211G<\206\356GGH\312I\312J\312JG<\203LG\203\236G@I\201VI\211IA\363\234)!\211K\203?\201WI\211IA\347\234)\n\211A\361\234)\"\203?\315I\211IA\363\234)!\210)\317\321I\211IA\363\234)\"\211L\203WI\204`\322\201X!\210\202B\201Y\201Z\201[\327I\211IA\347\234)!\"!\210L\211A\332\234)L\211A\337\234)\\I\211IA\330\234)ZI\211IA\361\234)GZ\363ZM\324\201\\M\347U\203\262\201]\202\273\201Z\201^M\"\n\211A\347\234)L\211A\345\234)U\203\326\307\201_!\202\331\201`L\201aI\211IA\345\234)!%\210I\211IA\201b\234)\203:I\211IA\201b\234)\347U\204:\n\211A\347\234)I\211IA\201b\234)=\204:\324\201c\327I\211IA\346\234)!I\211IA\201b\234)#\210DM\\D))GA\211G\202FHW\203\236GFHI\201VI\211IA\363\234)!\211K\203\221\201WI\211IA\347\234)\n\211A\361\234)\"\203\221\315I\211IA\363\234)!\210)\317\321I\211IA\363\234)\"\211L\203\251I\204\262\322\201X!\210\202\224\201Y\201Z\201[\327I\211IA\347\234)!\"!\210L\211A\332\234)L\211A\337\234)\\I\211IA\330\234)ZI\211IA\361\234)GZ\363ZM\324\201\\M\347U\203\201]\202 \201Z\201^M\"\n\211A\347\234)L\211A\345\234)U\203(\307\201_!\202+\201`L\201aI\211IA\345\234)!%\210I\211IA\201b\234)\203\214I\211IA\201b\234)\347U\204\214\n\211A\347\234)I\211IA\201b\234)=\204\214\324\201c\327I\211IA\346\234)!I\211IA\201b\234)#\210DM\\D))FT\211F\202N-\324\201d\nD#*+\207" [pers-no pers-stat conf-stat time lyskom-pers-no superconf lyskom-read-conf-no lyskom-get-string pers-for-status (pers) nil "" t 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 floor 86400 mod 3600 24 60 round last-log-in 4 user-name 1 read-texts 10 marked-texts 16 time-for-last-letter supervisor member-of-confs 17 presentation has-motd lyskom-view-text lyskom-aux-item-call item #1=#:aux-items aux-item aux-item-flags lyskom-count-var membership-list __i__ __sequence__ __len__ membership __result__ cs member-conf-stat unread status-print lyskom-scroll lyskom-j-or-n-p show-membership-list-also-q get-membership not-allowed-see-confs is-member-of membership-list-header cache-get-conf-stat lyskom-time-greater secret-membership lyskom-insert format "%17s" pers-membership-line " " "%9d " is-supervisor-mark " " lyskom-return-membership-type 5 pers-membership-line-2 his-total-unread] 10) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 980295) nil]) #@54 Send a message to one of the users in KOM right now. (defalias 'kom-send-message #[(&optional who message) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-send-message-start-buffer lyskom-start-of-command kom-send-message ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-send-message-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306 \206\203\307\310\311\312!\311\313!\"\n\203\314\202\315\316 \317=\203#\306\202\201 \320=\2033\f\2033\f\321B\202\201 \320=\203=\f\203G \322=\203M \203M \321B\202\201 \323=\203v\203v\321=\204v\324\325\"\211\203v\211 A\326\234)\321B\202\201 \203\200 \321B\202\201\327\316%\211!\321U\203\231\330\331\332\"\306\333\334\217)\"\202\251!\330\335!\"\210\336!#\"*\207" [tmp who kom-permissive-completion kom-default-message-recipient lyskom-last-group-message-recipient lyskom-last-personal-message-sender nil lyskom-read-conf-no format lyskom-get-string who-to-send-message-to nobody (all) (login conf) t everybody group 0 sender last-recipient blocking-do get-uconf-stat 1 "" lyskom-format-insert message-use-alarm-instead kom-send-alarm (byte-code "\301\302\"\207" [command lyskom-get-string lyskom-command] 3) ((error)) message-recipient-info lyskom-send-message lyskom-last-message-recipient conf-stat target command message] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 984661) nil]) #@54 Send a message to all of the users in KOM right now. (defalias 'kom-send-alarm #[(&optional message) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-send-alarm-start-buffer lyskom-start-of-command kom-send-alarm ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-send-alarm-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303!!\210\304\305\"\207" [message lyskom-insert lyskom-get-string message-all-info lyskom-send-message 0] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 986191) nil]) (byte-code "\301B\302B\301\207" [current-load-list lyskom-message-recipient lyskom-message-string] 2) (defalias 'lyskom-send-message-minibuffer-setup-hook #[nil "\300\216\301\302!)\207" [((byte-code "\300\301\302\"\207" [remove-hook minibuffer-setup-hook lyskom-send-message-minibuffer-setup-hook] 3)) run-hooks lyskom-send-message-setup-hook] 2]) (defalias 'lyskom-send-message-minibuffer-exit-hook #[nil "\300\216\301\302!)\207" [((byte-code "\300\301\302\"\207" [remove-hook minibuffer-exit-hook lyskom-send-message-minibuffer-exit-hook] 3)) run-hooks lyskom-send-message-exit-hook] 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) "\306\306\306\306\307\310\311\"\210\307\312\313\"\210\f\206\314\315\316!\306\317# \320U?\205)\321\322 \"\323\324!\210\203m\321\325 #\211\203_ ?\205p\326\n\203Q\327\330\331!\n#\202W\327\330\332!\"!\"#\202p\333\334\n\206h\315\335!#\202p\336\337!,\207" [lyskom-message-string reply lyskom-message-recipient lyskom-last-text-format-flags message pers-no nil add-hook minibuffer-setup-hook lyskom-send-message-minibuffer-setup-hook minibuffer-exit-hook lyskom-send-message-minibuffer-exit-hook lyskom-read-string lyskom-get-string message-prompt lyskom-message-history 0 blocking-do get-conf-stat run-hooks lyskom-send-message-hook send-message lyskom-handle-as-personal-message lyskom-format lyskom-get-string-sol message-sent-to-user message-sent-to-all lyskom-format-insert-before-prompt message-nope everybody lyskom-insert-string interrupted dontshow lyskom-pers-no lyskom-filter-outgoing-messages] 6 (#$ . 987452)]) (defalias 'lyskom-send-message-trim-newlines #[nil ";\205EG\211\302V\203 SH\303=\203 S\211\202 \302=\2032\304\305\306!!\2042\307\211\202D \302=\203>\310\211\202D\302 O\211)\207" [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 "\300\301!\210\302\303\304\"\207" [resize-minibuffer-mode -1 remove-hook lyskom-send-message-exit-hook lyskom-send-message-turn-off-resize-on-exit] 3]) (byte-code "\301B\301\207" [current-load-list resize-minibuffer-mode] 2) #@44 Temporarily turn on resizing of minibuffer (defalias 'lyskom-send-message-resize-minibuffer #[nil "?\205\300\301!\210\302 \210\303\304\305\"\207" [resize-minibuffer-mode 1 resize-minibuffer-setup add-hook lyskom-send-message-exit-hook lyskom-send-message-turn-off-resize-on-exit] 3 (#$ . 989251)]) #@45 Temporarily turn on auto fill in minibuffer (defalias 'lyskom-send-message-auto-fill #[nil "\301\302\303!\207" [fill-column 78 auto-fill-mode 1] 2 (#$ . 989558)]) #@54 Set number of unread articles in current conference. (defalias 'kom-set-unread #[(&optional arg conf-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-set-unread-start-buffer lyskom-start-of-command kom-set-unread ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-set-unread-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \211\203\306U\203\307\310!\210\307\311!\207\312\313\"\211\204'\314\315!\202\250\316 ! \203E\306\fX\203E\f\n\211A\317\234)X\203E\f\202`\320\306\n\211A\317\234)\321\322\n\211A\317\234)\n\211A\323\234)##\312\324 #\312\325# \326!\210\327 !\210 U\203\211!\211\"\330\241\210)\331#\"\210 U\203\242\332\n \"\210\333 \334\"\202\247\335 \",)\207" [conf-no lyskom-current-conf conf-stat arg narg n 0 lyskom-insert-string not-present-anywhere "\n" blocking-do get-conf-stat lyskom-insert "Error!\n" prefix-numeric-value 14 lyskom-read-num-range lyskom-format only-last 1 set-unread query-read-texts lyskom-ignore lyskom-replace-membership nil read-list-delete-read-info lyskom-fetch-start-of-map lyskom-go-to-conf t lyskom-prefetch-map result lyskom-pers-no membership lyskom-reading-list read-list lyskom-to-do-list] 9) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 989728) "P"]) #@46 Regexp to match conf names that are special. (defvar lyskom-special-conf-name "\\`\\(Inl.gg .t mig\\|NL:\\)\\'" (#$ . 991138)) (byte-code "\301B\302B\303B\304B\305B\301B\301\207" [current-load-list lyskom-iter-list-news-total-confs lyskom-iter-list-news-mship-confs lyskom-iter-list-news-shown-unreads lyskom-iter-list-news-shown-confs lyskom-iter-list-news-total-unreads] 2) #@146 Callback function used to show the number of unread messages of a conference. It heavily relies on (and destructively modifies) its environment. (defalias 'lyskom-iter-list-news #[(unreads conf-stat at-least at-most) "\203\n Y\203U\n\203 \nX\203U \203#\306\f\211A\307\234) \"\310\305!\203D ;\203D\311 \f\211A\312\234)\"\203D\313\314 \f#\210\202J\313\315 \f#\210 \\T \\T\211\207" [at-least unreads at-most lyskom-iter-list-news-mship-confs conf-stat lyskom-special-conf-name delq 0 boundp string-match 1 lyskom-format-insert you-have-unreads-special you-have-unreads lyskom-iter-list-news-shown-unreads lyskom-iter-list-news-shown-confs lyskom-iter-list-news-total-unreads lyskom-iter-list-news-total-confs] 5 (#$ . 991533)]) #@269 Print the number of unread articles to the user. A prefix argument of zero lists all conferences, a positive prefix arguments sets a lower bound on the number of unread messages, whereas a negative prefix argument sets an upper bound on the number of unread messages. (defalias 'kom-list-news #[(&optional num) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-news-start-buffer lyskom-start-of-command kom-list-news ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-news-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\247\203 \202<\203@\247\203@\202\306\306\307\306\310\211\211\211\211\203j\310U\203G\306\311\306\312\313\"\"\202j\310V\203Z\314\315\211\"\210\202j\310W\203j\314\316[\211\"\210\317\320 D\"\210\203\317\310\211<\206\206G\306 \306!\306!<\203\260\203\316@ \314\321 \"\210A\211\202\231W\203\316H \314\321 \"\210T\211\202\262- \310U\203\333\322\323!\202\f\310U\203\350\322\324!\210\202\354\325\326!\210\f\310V\203\376\f W\203\376\314\327\f\n#\210\314\330 #.\207" [num lyskom-iter-list-news-total-confs lyskom-iter-list-news-shown-confs lyskom-iter-list-news-total-unreads lyskom-iter-list-news-shown-unreads at-most nil 1 0 delq mapcar #[(el) "\211A\303\234)\211A\304H)?\205\211A\304\234)\207" [el membership membership-type 7 1] 3] lyskom-format-insert list-unread-with-n-unread list-unread-with-at-most-n-unread lyskom-list-news lyskom-iter-list-news you-have-no-unreads lyskom-insert-string you-have-read-everything no-unreads-shown lyskom-insert "\n" shown-unreads total-unreads at-least lyskom-iter-list-news-mship-confs num-arg lyskom-membership __i__ __sequence__ __len__ conf-no __result__] 9) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 992296) "P"]) #@507 With no arguments, returns a list of tuples (unread . conf-stat). When called with a CALLBACK function, this function is called iteratively as the list is built up. This function should take the two arguments `number-of-unread-messages-in-conference' and `conf-stat' and optionally any other arguments sent in the list CALLBACK-ARGS, and its return value will form the elements of the list returned from lyskom-list-news. The callback will only be fed conferences with at least one unread message in them. (defalias 'lyskom-list-news #[(&optional callback &optional callback-args) "\204 \303\304!\210\305 \210\306\307 \211A)\"\207" [kom-allow-incompleteness lyskom-to-do-list read-list sit-for 0 lyskom-prefetch-all-confs mapcar #[(info) "\211A\306\234)AG\211A\307\234)\211A\310\234)\311=\205.\f\203+\312\f \n $\202. \nB*\207" [info read-info conf-stat unreads callback callback-args 3 1 0 CONF apply] 6]] 4 (#$ . 994261)]) #@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) "\306\307!\210\310\216\250\203\202<\203@\206) \211A\242)\211A\311\234)\206)\312\313 !\210\211A)\203?\211\314\241\210)\f\312U\203L\315\316!\210\202Q\317\320\f\"\210\321 \210\322\323\fE\203y\324\325!\210\326\314\327\"\210\324\325!\210\203Z\330\331\314\"\210\202Z*\332 !\210\211A)\204\213\333 \210\334 \207" [arg lyskom-to-do-list read-list read-info waitfor kom-mercial lyskom-start-of-command kom-busy-wait ((lyskom-end-of-command)) 2 -2 lyskom-tell-server 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) sit-for 0 accept-process-output 1 signal quit lyskom-beep kom-go-to-next-conf kom-next-command lyskom-reading-list lyskom-is-waiting lyskom-quit-flag kom-ding-on-wait-done] 4 (#$ . 995206) "P"]) #@53 Returns t if TIME2 is before TIME1 chronologically. (defalias 'lyskom-time-greater #[(time1 time2) "\211A\303\234)\n\211A\303\234)W\206i\211A\304\234)\n\211A\304\234)W\206i\211A\305\234)\n\211A\305\234)W\206i\211A\306\234)\n\211A\306\234)W\206i\211A\307\234)\n\211A\307\234)W\206i\211A\310\234)\n\211A\310\234)W\207" [time2 time time1 5 4 3 2 1 0] 4 (#$ . 996500)]) #@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 "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-summary-start-buffer lyskom-start-of-command kom-list-summary ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-summary-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\211A)\204\f\306\307!\207\310\211GS)\311\n W\203?\n\211A\f\234*\211A\311\234)\211\f\312>\2038\311\202;\nT)\202\n\211A\f\234,\211A\313\234)\211 A)!\207" [lyskom-reading-list read-list r len n read-info lyskom-insert-string have-to-be-in-conf-with-unread lyskom-list-summary 0 (CONF REVIEW-MARK REVIEW) 3 type text-list] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 996896) 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) "\306\307!\310 \311Z\312\245\313\314\315!\316Q\317\320!\317\321!\317\322!\317\323!\317\324!&\210\325 \211<\206/\fG\326\326\326\f<\203\f\203\303\f@\306\327\"\306\330\" \331  \211A\332\234) \211A\333\234) \211A\312\234)&\210\334\325!\210*\fA\211\202?\n W\203\303\f\nH\306\327\"\306\330\" \331  \211A\332\234) \211A\333\234) \211A\312\234)&\210\334\325!\210*\nT\211\202\200.\207" [author-width time __i__ texts __sequence__ __len__ blocking-do get-time lyskom-window-width 22 3 lyskom-format-insert "%-8#1s%-6#2s%-4#3s %-" int-to-string "#4s %#5s\n" lyskom-get-string Texts Date Lines Author Subject 0 nil get-text-stat get-text lyskom-print-summary-line 5 4 sit-for text-no __result__ text text-stat] 9 (#$ . 997871)]) #@217 Handle the info, fetch the author and print it. Args: TEXT-STAT TEXT TEXT-NO YEAR DAY. The year and day is there to be able to choose format on the day. Format is 23:29 if the text is written today. Otherwise 04-01. (defalias 'lyskom-print-summary-line #[(text-stat text text-no year mon mday) "\203 \204 \306\307\n\"\207\211A\310\234)\311 \"\312\313\314!\f\"\f\315 O#\316\211A\317\234)\320\"@$\316\211A\317\234)\321\"@%\316\211A\317\234)\322\"@&\323$!\206\\\211A\324\234)'('\211'A\325\234)U\203\243)'\211'A\326\234)U\203\243*'\211'A\310\234)U\203\243\327\330'\211'A\331\234)'\211'A\324\234)#\202\271\327\332'\211'A\326\234)T'\211'A\310\234)#'\333 \334Z\310\245+\333 \334Z\331_\310\245,\335\336+!\337\336,!\340\260-\306-\n' %\204\355&\203\366\341%&\"\202\375\211A\331\234)\342\301\n\"#&.\f\207" [text-stat text text-no lines txt eos lyskom-format-insert could-not-read 3 text->decoded-text-mass string-match regexp-quote "\n" 0 lyskom-get-aux-item 7 21 17 16 lyskom-mx-date-to-time 1 5 4 format "%02d:%02d" 2 "%02d-%02d" lyskom-window-width 22 "%=-8#1n%#2s%4#3d %=-" int-to-string "#4P %[%#5@%=-" "#6r%]\n" lyskom-format-mx-author lyskom-default-button subject mx-date mx-from mx-author time year mon mday namelen subjlen format-string] 10 (#$ . 998828)]) #@50 List texts marked with a particular mark number. (defalias 'kom-list-marks #[(&optional which-mark) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-marks-start-buffer lyskom-start-of-command kom-list-marks ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-marks-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\247\204\306\307\310\311\312!\313\211\211\314&\315\316\317!\320 \313\")\321\"\316\322!\323 \324Z\325\245\326\327\330 !\331Q\311\332!\311\333!\311\334!\311\335!\311\336!\311\337!&\210\307\n\211'<\206S'G(\313)\313*\313*'<\203\301'\203'@)\203\200)\211)A\340\234)=\203\270)\211)A\307\234)+\316\341+\",\316\342+\"-\343),-+\f\211A\344\234)\f\211A\345\234)&\210\346\307!\210+'A\211'\202f (W\203' H)\203\340)\211)A\340\234)=\203)\211)A\307\234)+\316\341+\",\316\342+\"-\343),-+\f\211A\344\234)\f\211A\345\234)&\210\346\307!\210+ T\211\202\302*.\207" [which-mark vector marks author-width time __i__ lyskom-read-num-range 0 255 lyskom-get-string list-which-mark nil t sort blocking-do get-marks append #[(a b) "\211A\303\234)\n\211A\303\234)W\207" [a mark b 1] 4] get-time lyskom-window-width 26 3 lyskom-format-insert "%-4#6s%-8#1s%-6#2s%-4#3s %-" int-to-string "#4s %#5s\n" Texts Date Lines Author Subject mark-type 1 get-text-stat get-text lyskom-print-mark-summary-line 5 7 sit-for __sequence__ __len__ mark __result__ text-no text-stat text] 10) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1000158) "P"]) #@217 Handle the info, fetch the author and print it. Args: TEXT-STAT TEXT TEXT-NO YEAR DAY. The year and day is there to be able to choose format on the day. Format is 23:29 if the text is written today. Otherwise 04-01. (defalias 'lyskom-print-mark-summary-line #[(mark text-stat text text-no year day) "\306\307\211A\310\234)\"\210 \203\n\204\306\311 \"\207 \211A\312\234)\313\n \"\314\315\316! \" \317O \211A\310\234) ! \211 A\320\234)U\203s\" \211 A\321\234)U\203s\322\323 \211 A\324\234) \211 A\310\234)#\202\211\322\325 \211 A\326\234)T \211 A\312\234)# \327 \330Z\312\245#\327 \330Z\324_\312\245$\331\332#!\333\332$!\334\260%\306%  \f \211A\324\234)\335\302 \"&. \207" [mark text-stat text text-no lines txt lyskom-format-insert "%3#1d " 1 could-not-read 3 text->decoded-text-mass string-match regexp-quote "\n" 0 5 7 format "%02d:%02d" 2 "%02d-%02d" 4 lyskom-window-width 26 "%=-8#1n%#2s%4#3d %=-" int-to-string "#4P %[%#5@%=-" "#6r%]\n" lyskom-default-button eos subject time year day namelen subjlen format-string] 10 (#$ . 1001830)]) #@14 Show my name (defalias 'kom-who-am-i #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-who-am-i-start-buffer lyskom-start-of-command kom-who-am-i ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-who-am-i-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\306U\204\307\310 #\210\202\307\311 \"\210\307\312\n \211A\313\234)#\210\307\314 #\210\307\315\316 #\207" [lyskom-current-conf lyskom-pers-no lyskom-server-name lyskom-server-version-info version-info lyskom-clientversion 0 lyskom-format-insert who-i-am-present who-i-am-not-present who-i-am-server 2 who-i-am-client who-i-am-emacs emacs-version lyskom-mule-compiled enable-multibyte-characters] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1002925) nil]) #@74 Prints a short list of alternatives when you don't know what you can do. (defalias 'lyskom-help #[nil "\306 ;\203\306 \307\310O\2021\306 \311GS\312\"\307\307 GW\203/ \n\nHI\210\nT\211\202 +\313 !\2119\203F\314\f!\203F\fK\202G\f\315 !\316\317\320\321 \322#\320\323\324##\325=\203n\326!\210\327 \202u\330\220\331!\221-\207" [tck newvec r tohere binding keymap this-command-keys 0 -1 make-vector nil key-binding fboundp lyskom-help-get-keylist format "\n%s: \n%s\n" mapconcat single-key-description " " #[(arg) "\302\303\304\305!\203\306@!\204\305\307@!!\202A\305@!\202A@9\203-\302\310@\"\202A\311@!\203<\302\312@\"\202A\302\313@\"A\314\315\316\217)\206[\317A!\203Y\320\321!\206[A#\207" [arg command format "%s - %s" fboundp key-description vectorp vector "%s" characterp "%c" "%S" nil (byte-code "\301\302\"\207" [command lyskom-get-string lyskom-command] 3) ((error)) keymapp lyskom-get-string multiple-choice] 6] "\n" lyskom-mode lyskom-insert lyskom-end-of-command "*Help*" princ keylis text major-mode] 8 (#$ . 1003826) nil]) (defalias 'lyskom-help-get-keylist #[(keymap) "\304\305!\203\205B\306\305\307\310#\210 \237)\207\311!\203@\306\312\nGW\203<\nH\2035\n\nHB B\nT\211\202! \237*\207A\207" [keymap list r lis fboundp map-keymap nil #[(event function) " B\nB\211\207" [event function list] 2] t vectorp 0] 5]) #@43 Set the garb-nice value for a conference. (defalias 'kom-set-garb-nice #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-set-garb-nice-start-buffer lyskom-start-of-command kom-set-garb-nice ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-set-garb-nice-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\302\303\304!\305\306\211\307%\211\204\310\311!\202@\312\313!\314\315 #\210\316\317\211A\320\234) #\2042\310\321!\202?\310\322!\210\323\211A\320\234)!))\207" [conf-stat garb-nice lyskom-read-conf-stat lyskom-get-string conf-to-set-garb-nice-q (all) nil t lyskom-insert-string somebody-deleted-that-conf lyskom-read-number new-garb-nice-q lyskom-format-insert garb-nice-for-is blocking-do set-garb-nice 0 nope done cache-del-conf-stat] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1005226) nil]) #@47 Set the permitted submitters of a conference. (defalias 'kom-set-permitted-submitters #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-set-permitted-submitters-start-buffer lyskom-start-of-command kom-set-permitted-submitters ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-set-permitted-submitters-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\302\303\304!\305\306\211\307%\211\204\310\311!\202k\302\312\313\211A\314\234)\"\315\307\306\307%\211\306=\2033\316\317\"\210\2029\316\320 #\210\321\322\211A\323\234) \306=\203L\323\202S \211A\323\234)#\204]\310\324!\202j\310\325!\210\326\211A\323\234)!))\207" [conf-stat new-conf lyskom-read-conf-stat lyskom-get-string conf-to-set-permitted-submitters-q (all) nil t lyskom-insert-string somebody-deleted-that-conf lyskom-format new-permitted-submitters-q 1 (all) 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) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1006209) nil]) #@44 Set the super conference for a conference. (defalias 'kom-set-super-conf #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-set-super-conf-start-buffer lyskom-start-of-command kom-set-super-conf ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-set-super-conf-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\302\303\304!\305\306\211\307%\211\204\310\311!\202S\302\312\313\211A\314\234)\"\315\306\211\307%\316\317 #\210\320\321\211A\322\234) \211A\322\234)#\204E\310\323!\202R\310\324!\210\325\211A\322\234)!))\207" [conf-stat new-conf lyskom-read-conf-stat lyskom-get-string conf-to-set-super-conf-q (all) nil t lyskom-insert-string somebody-deleted-that-conf lyskom-format new-super-conf-q 1 (all) lyskom-format-insert super-conf-for-is blocking-do set-super-conf 0 nope done cache-del-conf-stat] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1007430) nil]) #@27 Save the LysKOM database. (defalias 'kom-sync-database #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-sync-database-start-buffer lyskom-start-of-command kom-sync-database ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-sync-database-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\211A\303\234)\304Y\203\305\306\307!!\203\310\311!\210\312\313\314!!\207\315\312\316!\207" [lyskom-server-version-info version-info lyskom-errno 0 8 lyskom-ja-or-nej-p lyskom-get-string really-sync lyskom-insert-string syncing-server lyskom-report-command-answer blocking-do sync 12 nil] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1008477) nil]) #@29 Shutdown the LysKOM server. (defalias 'kom-shutdown-server #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-shutdown-server-start-buffer lyskom-start-of-command kom-shutdown-server ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-shutdown-server-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301\302!!\205\303\304!\210\305\306\307\310\"!\207" [lyskom-ja-or-nej-p lyskom-get-string really-shutdown lyskom-insert-string closing-server lyskom-report-command-answer blocking-do shutdown 0] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1009292) nil]) #@63 Enable the LysKOM adminstrator commands for the current user. (defalias 'kom-enable-adm-caps #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-enable-adm-caps-start-buffer lyskom-start-of-command kom-enable-adm-caps ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-enable-adm-caps-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301\302\303\"\304\305!\306#\207" [lyskom-enable-adm-caps blocking-do enable 255 lyskom-get-string administrator t] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1010023) nil]) #@64 Disable the LysKOM adminstrator commands for the current user. (defalias 'kom-disable-adm-caps #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-disable-adm-caps-start-buffer lyskom-start-of-command kom-disable-adm-caps ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-disable-adm-caps-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301\302\303\"\304\305!\306#\207" [lyskom-enable-adm-caps blocking-do enable 0 lyskom-get-string no-longer-administrator nil] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1010707) nil]) #@37 Tell the user if the call succeded. (defalias 'lyskom-enable-adm-caps #[(answer string is-administrator) "\203 \304\305 \"\210\n\211\207\306\307!\207" [answer string is-administrator lyskom-is-administrator lyskom-format-insert you-are-now lyskom-insert-string nope] 3 (#$ . 1011406)]) #@40 Set the message of the day for LysKOM. (defalias 'kom-set-motd #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-set-motd-start-buffer lyskom-start-of-command kom-set-motd ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-set-motd-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\211A\302\234)\203+\303\304!\210\305\304\306\211A\302\234)#\210\307\304\306\211A\302\234)#\210\310\304\311\"\207\311\306\211\"\207" [lyskom-server-info server-info 5 lyskom-collect main initiate-get-text-stat nil initiate-get-text lyskom-use lyskom-set-motd] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1011701) 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-stat old-motd-text) "\205\f \205\f\304 \"\305 \306 \n\203%\307\310\n\"\203%\n\311\211\225SO\202&\312\n\2039\307\310\n\"\2039\n\311\225\313O\202:\312\314%)\207" [old-motd-text old-motd-text-stat str lyskom-proc text->decoded-text-mass lyskom-edit-text lyskom-create-misc-list string-match "\n" 0 "" nil lyskom-set-motd-2] 7 (#$ . 1012480)]) #@55 Set motd of LysKOM to the newly created text TEXT-NO. (defalias 'lyskom-set-motd-2 #[(text-no ignore) "\301\302\303\"!\210\304\305\306\211$\207" [text-no lyskom-insert-before-prompt lyskom-format setting-motd initiate-set-motd-of-lyskom background lyskom-set-motd-3] 5 (#$ . 1012971)]) #@62 Handle the return from the initiate-set-motd-of-lyskom call. (defalias 'lyskom-set-motd-3 #[(result text-no) "\203\305\306 \307U\203\310\202\311!!\210\n \211A\312 I*\207\305\306\313!!\207" [result text-no lyskom-server-info newval server-info lyskom-insert-before-prompt lyskom-get-string 0 removed-motd set-motd-success 5 set-motd-failed] 5 (#$ . 1013265)]) #@43 Remove the message of the day for LysKOM. (defalias 'kom-remove-motd #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-remove-motd-start-buffer lyskom-start-of-command kom-remove-motd ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-remove-motd-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301!\210\302\303\304\305\211$\207" [lyskom-insert-string removing-motd initiate-set-motd-of-lyskom background lyskom-set-motd-3 0] 5) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1013639) nil]) #@32 Force another user to log out. (defalias 'kom-force-logout #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-force-logout-start-buffer lyskom-start-of-command kom-force-logout ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-force-logout-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303!\304\211\305$\242\211\205\306\307\"\210\310\311\312\"!)\207" [session lyskom-read-session-no lyskom-get-string who-to-throw-out nil t lyskom-format-insert throwing-out lyskom-report-command-answer blocking-do disconnect] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1014303) nil]) #@103 Postpone the reading of all but the last TODAY articles in the current conference to another session. (defalias 'kom-postpone #[(today) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-postpone-start-buffer lyskom-start-of-command kom-postpone ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-postpone-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\211GS)\306\n\204\212 \307V\203\212\211A\242)\211A\307\234)\211>\203.\310!\210\202\203 >\203F\211A\203B \211AA\241\210)\202\203 \311=\203r\211A\242)\211A\312\234)\211GZ\313]\233\241\210*\314\202\203 \315=\204\203 \316=\204\203\317\320\321\"\210) S\202 *\307U\205\234\322\306\"\210\322\306\"\207" [lyskom-reading-list read-list finished len read-info type nil 0 read-list-rotate CONF 3 1 t RE-EDIT-TEXT PRI-SESSION signal lyskom-internal-error ("lyskom-remove-comment-chains") read-list-delete-text lyskom-review-types-list lyskom-comment-types-list rlist today cell lyskom-to-do-list] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1015064) (let ((lyskom-current-command 'kom-postpone)) (list (cond ((null current-prefix-arg) (lyskom-read-number 'postpone-prompt kom-postpone-default)) (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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-set-session-priority-start-buffer lyskom-start-of-command kom-set-session-priority ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-set-session-priority-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206\304\305\306\307\310!\311 \206\312%\211\313 )\207" [priority kom-default-session-priority pri lyskom-session-priority lyskom-read-num-range 0 255 lyskom-get-string set-session-priority t 100 lyskom-refetch] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1016470) "P"]) #@41 Puts the kom-session in the background. (defalias 'kom-bury #[nil "\303p!p\n\203\304\n!\210\304 \210\305\306 !\303p!\"\205)p=?\205)\304 \210\202*\207" [buffer session-name lyskom-who-info-buffer buffer-name bury-buffer string-match regexp-quote] 4 (#$ . 1017343) nil]) #@211 Returns non-nil if BUF is an active LysKOM buffer If optional second argument MAY-BE-DEAD is non-nil, this function returns t whether the session is alive or not. Otherwise it checks that the session is alive. (defalias 'lyskom-buffer-p #[(buf &optional may-be-dead) "\304!\2052\212q\210 \305=\2051\306\302!\2051\n\2051\307\n!\2051 \203,\310\n!\311>\2061\310\n!\312>)\207" [buf major-mode lyskom-proc may-be-dead buffer-live-p lyskom-mode boundp processp process-status (run open closed) (run open)] 2 (#$ . 1017628)]) #@446 Internal version of kom-next-kom BUFFER-LIST-NAME is the list of buffers to rotate through. It must be a name since this function may modify the list. DIRECTION should be one of 'forward or 'backward and is the direction to rotate through the buffer list. Return-value: 'no-session if there is no suitable session to switch to 'same-session if the current buffer is the only suitable one nil if everything went well (defalias 'lyskom-next-kom #[(buffer-list-name direction) "\305 \210\306p!J\307\n\204\310\307\202-\311 !\203* \n>\204- \nB\202-\n@ \203k\f\312=\203C\313\n \n>A@\"\202S\313\n\314\n \"@\206Q\315\n!@\"\nL\210p\n@=\203c\316\202k\317\n@ \"\210\307 +\207" [buffer-list-name result buffer-list current direction lyskom-clean-all-buffer-lists lyskom-buffer-root-ancestor nil no-session lyskom-buffer-p forward lyskom-rotate-list lyskom-preceding-cons last same-session lyskom-switch-to-kom-buffer] 5 (#$ . 1018163)]) #@33 Pop up the next lyskom-session. (defalias 'kom-next-kom #[nil "\302\302\303\304\217\210p\305\216\302\306\307\217+\207" [kom-next-kom-running-as-kom-command kom-next-kom-start-buffer nil (byte-code "\301\302!\210\303\301\207" [kom-next-kom-running-as-kom-command lyskom-start-of-command kom-next-kom t] 2) ((error)) ((byte-code "\203p\303\216\304\n!\203\nq\210\305 \210*\304\207" [kom-next-kom-running-as-kom-command __buffer__ kom-next-kom-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) (byte-code "\302\303\304\"\211\305=\203\306\307\310!!\202.\311=\203- \203%\312\307\313!!\202.\306\307\310!!\202.\314)\207" [result kom-next-kom-running-as-kom-command lyskom-next-kom lyskom-buffer-list forward no-session error lyskom-get-string no-lyskom-session same-session lyskom-insert-before-prompt no-other-lyskom-r nil] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1019148) nil]) #@37 Pop up the previous lyskom-session. (defalias 'kom-previous-kom #[nil "\302\302\303\304\217\210p\305\216\302\306\307\217+\207" [kom-previous-kom-running-as-kom-command kom-previous-kom-start-buffer nil (byte-code "\301\302!\210\303\301\207" [kom-previous-kom-running-as-kom-command lyskom-start-of-command kom-previous-kom t] 2) ((error)) ((byte-code "\203p\303\216\304\n!\203\nq\210\305 \210*\304\207" [kom-previous-kom-running-as-kom-command __buffer__ kom-previous-kom-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) (byte-code "\302\303\304\"\211\305=\203\306\307\310!!\202.\311=\203- \203%\312\307\313!!\202.\306\307\310!!\202.\314)\207" [result kom-previous-kom-running-as-kom-command lyskom-next-kom lyskom-buffer-list backward no-session error lyskom-get-string no-lyskom-session same-session lyskom-insert-before-prompt no-other-lyskom-r nil] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1020164) nil]) #@37 Pop up the previous lyskom-session. (defalias 'kom-next-unread-kom #[nil "\302\302\303\304\217\210p\305\216\302\306\307\217+\207" [kom-next-unread-kom-running-as-kom-command kom-next-unread-kom-start-buffer nil (byte-code "\301\302!\210\303\301\207" [kom-next-unread-kom-running-as-kom-command lyskom-start-of-command kom-next-unread-kom t] 2) ((error)) ((byte-code "\203p\303\216\304\n!\203\nq\210\305 \210*\304\207" [kom-next-unread-kom-running-as-kom-command __buffer__ kom-next-unread-kom-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) (byte-code "\303\304\305\"\211\306=\203 \203\307\310\311!!\202E\312\310\313!!\202E\314=\203D \203<\307\310\nG\315U\2036\316\2027\317!!\202E\312\310\320!!\202E\321)\207" [result kom-next-unread-kom-running-as-kom-command lyskom-buffer-list lyskom-next-kom lyskom-sessions-with-unread forward no-session lyskom-insert-before-prompt lyskom-get-string no-unread-lyskom-r error no-unread-lyskom same-session 1 no-other-lyskom-r no-other-unread-lyskom-r no-lyskom-session nil] 5) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1021217) nil]) #@60 Pop up the previous unread lyskom session, if there is one (defalias 'kom-modeline-next-unread-kom #[nil "\300\301\302\"\207" [lyskom-next-kom lyskom-sessions-with-unread forward] 3 (#$ . 1022435) nil]) #@40 Pop up a menu of sessions with unreads (defalias 'kom-modeline-select-unread-kom #[(event) "\205\303\304\"\305\306\307! B\n\")\207" [lyskom-sessions-with-unread unreads event mapcar #[(buffer) "\212q\210\306\307\310 \311\n \"A\206\n\f>\312\313!%\314D \315$)\207" [buffer lyskom-pers-no lyskom-server-name kom-server-aliases lyskom-sessions-with-unread-letters :active vector lyskom-format "%#1P, %#2s%#3?b%[ (%#4s)%]%[%]" assoc lyskom-get-string unread-letters lyskom-switch-to-kom-buffer t] 8] popup-menu lyskom-get-string sessions-with-unreads] 3 (#$ . 1022644) "@e"]) (defalias 'lyskom-switch-to-kom-buffer #[(buffer &optional current) "\205 \203\np=\203\303 \210\304!\207" [buffer kom-bury-buffers current kom-bury switch-to-buffer] 2]) #@39 Show on which key a LysKOM command is (defalias 'kom-where-is #[(cmd) "\302\302\303\304\217\210p\305\216\302\306\307\217+\207" [kom-where-is-running-as-kom-command kom-where-is-start-buffer nil (byte-code "\301\302!\210\303\301\207" [kom-where-is-running-as-kom-command lyskom-start-of-command kom-where-is t] 2) ((error)) ((byte-code "\203p\303\216\304\n!\203\nq\210\305 \210*\304\207" [kom-where-is-running-as-kom-command __buffer__ kom-where-is-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) (byte-code "\305!\306\204\307\310\311!\306\312\313\217)\"\202@\n\204.\307\310\314!\306\312\313\217)\"\202@\307\310\315!\306\312\313\217)\316\317\n\320##\f\203L\321 \322P!\202O\323 !*\207" [cmd msg w command kom-where-is-running-as-kom-command where-is-internal nil lyskom-format lyskom-get-string where-is-doesnt-exist (byte-code "\301\302\"\207" [command lyskom-get-string lyskom-command] 3) ((error)) where-is-on-no-key where-is-on-key mapconcat #[(x) "\301\302\303!\"\207" [x format "`%s'" key-description] 4] ", " lyskom-insert-before-prompt "\n" message] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1023409) (let ((lyskom-current-command 'kom-where-is)) (list (lyskom-read-extended-command)))]) #@53 Get and display the user area of the current person (defalias 'kom-show-user-area #[nil "\302\303!\210\304\305\"\306 \211A\307\234)\310\211\211\211\211&\210\311\312\313\")\207" [lyskom-pers-no pers-stat lyskom-start-of-command kom-show-user-area blocking-do get-pers-stat lyskom-view-text 5 nil lyskom-run main lyskom-end-of-command] 8 (#$ . 1024760) nil]) #@25 Become pseudo-anonymous (defalias 'kom-become-anonymous #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-become-anonymous-start-buffer lyskom-start-of-command kom-become-anonymous ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-become-anonymous-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\302\303!\207\304\305 !\210\302\306!\210\307\304!\207" [lyskom-is-anonymous kom-mercial lyskom-insert you-are-already-anonymous t lyskom-tell-server you-are-anonymous lyskom-update-prompt] 2) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1025127) nil]) #@29 Leave pseudo-anonymous mode (defalias 'kom-become-nonanonymous #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-become-nonanonymous-start-buffer lyskom-start-of-command kom-become-nonanonymous ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-become-nonanonymous-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203 \203 \302U\204\303\304\305 #\210\305\306\307!\210\310\311!\207\310\312!\207" [lyskom-is-anonymous lyskom-current-conf 0 initiate-pepsi main nil lyskom-update-prompt t lyskom-insert you-are-nonanonymous you-are-already-nonanonymous] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1025854) nil]) #@29 Change type of a conference (defalias 'kom-change-conf-type #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-conf-type-start-buffer lyskom-start-of-command kom-change-conf-type ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-conf-type-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\310!\311\312\313\314%\211\211A\315H)\211\211A\316\234) \211A\317\234) \211A\320\234) \211A\315\234). \211A\321\234)/ \211A\322\234)0\323\324\211\325\326\327\312 \205T\307\330!.\205\\\307\331!\f\205c\307\332! \205j\307\333!/\205r\307\334!0\205z\307\335!\257\"\336#$\210\337\307\340!!\2111?\205\222\337\307\341!!2\337\307\342!!3\337\307\343!!45\205\255\337\307\344!!?6\345\211A\320H)!\210\346\211A\320H)!\210\347\350\211A\320H)1?3?2\211A\315H)\211A\316\234)45\203\3556\202\372\211A\315H)\211A\322\234)\211A\315H)\211A\322\234)\211A\315H)\211A\322\234)7894:2;<\351<;2:4987\257 .#?\205K\352\353!\210\323\354\355=!=#. \207" [uconf-stat type conf-type box ori pro lyskom-read-uconf-stat lyskom-get-string what-conf-to-change (conf pers) nil "" t 2 3 1 0 4 5 lyskom-format-insert change-type-prompt mapconcat identity delq Mailbox Protected no-comments closed allow-anon allow-secret ", " lyskom-j-or-n-p anyone-member secret-conf comments-allowed anonymous-allowed secret-members-allowed cache-del-conf-stat cache-del-uconf-stat blocking-do set-conf-type CONF-TYPE lyskom-insert-string nope error-code lyskom-get-error-text sec ano ope open secret orig anarchy lyskom-long-conf-types-feature-flag secmem rsv3 rsv2 forbid-secret letterbox original rd_prot lyskom-errno] 16) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1026645) nil]) #@39 Change the current language in LysKOM (defalias 'kom-change-language #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-language-start-buffer lyskom-start-of-command kom-change-language ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-language-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\303\304 \305\306\307!\310 !\311\303\311\312&\313\n \"\205!\314\313\n \"A!+\207" [completion-ignore-case table language t lyskom-available-language-list lyskom-completing-read lyskom-get-string which-language lyskom-maybe-frob-completion-table nil lyskom-language-history lyskom-string-assoc lyskom-set-language] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1028532) nil]) #@75 Return an alist suitable for completing read of available language names. (defalias 'lyskom-available-language-list #[nil "\304\305\306\307N\"\304\310\"\311\304\312\n\"\210 +\207" [lyskom-languages result codes tmp mapcar #[(el) "@\301A!B\207" [el eval] 3] lyskom-language-codes lyskom-language-var car nil #[(code) "\301\302\"\207" [tmp mapcar #[(codelist) " \236\205 \236AB\nB\211\207" [code codelist result] 2]] 3]] 4 (#$ . 1029390)]) #@69 Calculate optional arg EXPRX, or prompt the user for an expression. (defalias 'kom-calculate #[(&optional exprx) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-calculate-start-buffer lyskom-start-of-command kom-calculate ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-calculate-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\305\306\307\310!\"\205B\206#\311\312 \"\313\216\314\315\316\"\210\317\307\320!\321\211\211\322%*\323 !\211;\2035\324\325 \f#\202A\324\326 \327\f@\330\"\fA@$*\207" [exprx lyskom-minibuffer-variables lyskom-minibuffer-values expr result lyskom-try-require calc lyskom-get-string need-library mapcar symbol-value ((byte-code "\300\301\302\"\207" [remove-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables] 3)) add-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables lyskom-read-from-minibuffer calc-expression nil lyskom-expression-history calc-eval lyskom-format-insert-before-prompt "%#1s = \n %#2s\n" "%#1s = \n%#2s^ %#3s\n" make-string 32] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1029847) nil]) #@48 Set a personal label on an object of some kind (defalias 'kom-set-personal-label #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-set-personal-label-start-buffer lyskom-start-of-command kom-set-personal-label ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-set-personal-label-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307!\310B\306\311!\312B\306\313!\313BE\314\315\316\306\317!\320!\321\314$\"A\321\321\321\3215\3216\n\313=\203\325\322\323!\324\325 \"\211\204F\326\327 \"\210\330 \3317#6\332\306\333!!?5\334\3358\"9\336\216\337\340\341\"\210\342\306\343!!*\324\344 \334\3456\"\346\331\346\211\321\2115\321\211\211\211\211:;<=>5?@\347\350@?5>=<;:&.B\346\fABCDEFG\351\350GFEDCBA&.BC$\210\352 !\202\216\n\353>\205\216\354\306\n\312=\203\347\355\202\350\356!\n\312=\203\363\357\202\364\360\321\211\314%\211\211HA\346\234)\361 \3317#6\332\306\333!!?5\334\3358\"9\362\216\337\340\341\"\210\342\306\343!!*\324\363 \334\3456\"\346\331\346\211\321\2115\321\211\211\211\211:;<=>5?@\347\350@?5>=<;:&.B\346\fABCDEFG\351\350GFEDCBA&.BC$\210\364 !.\207" [completions completion-ignore-case type objno label object lyskom-get-string conference conf person pers text t lyskom-string-assoc completing-read label-what-kind lyskom-maybe-frob-completion-table nil lyskom-read-number label-what-text blocking-do get-text-stat lyskom-error no-such-text-no text-stat-find-aux 10 lyskom-j-or-n-p label-secret mapcar symbol-value ((byte-code "\300\301\302\"\207" [remove-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables] 3)) add-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables lyskom-read-from-minibuffer label-what-label modify-text-info aux-item->aux-no 0 AUX-ITEM-FLAGS vector AUX-ITEM cache-del-text-stat (conf pers) lyskom-read-conf-stat label-what-pers label-what-conf (pers) (all) conf-stat-find-aux ((byte-code "\300\301\302\"\207" [remove-hook minibuffer-setup-hook lyskom-setup-minibuffer-variables] 3)) modify-conf-info cache-del-conf-stat secret aux lyskom-pers-no lyskom-minibuffer-variables lyskom-minibuffer-values reserved4 reserved3 reserved2 reserved1 anonymous inherit deleted data inherit-limit flags sent-at creator tag aux-no conf-stat] 19) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1031079) nil]) #@38 Add a remark (fast reply) to a text. (defalias 'kom-fast-reply #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-fast-reply-start-buffer lyskom-start-of-command kom-fast-reply ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-fast-reply-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\301\302\"\210\303\304\305\306!\307\310#\"\207\311\312!\207" [text-no lyskom-format-insert fast-replying lyskom-fast-reply lyskom-read-string lyskom-get-string fast-reply-prompt nil lyskom-fast-reply-history lyskom-insert-string confusion-what-to-reply-to] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1033595) (let ((lyskom-current-command 'kom-fast-reply)) (list (lyskom-read-text-no-prefix-arg 'what-fast-reply-no)))]) (defalias 'lyskom-default-agree-string #[(&optional text) "\204 \204\302\303!\207;\203\207\304!\203 \207<\205+\305\306 G!\234!\207" [text kom-agree-text lyskom-get-string default-agree-string functionp lyskom-default-agree-string random] 4]) #@40 Convenience function to add agreement. (defalias 'kom-agree #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-agree-start-buffer lyskom-start-of-command kom-agree ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-agree-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\301\302\"\210\303\304\305\306!\307 \310#\"\207\311\312!\207" [text-no lyskom-format-insert agreeing lyskom-fast-reply lyskom-read-string lyskom-get-string agree-prompt lyskom-default-agree-string lyskom-fast-reply-history lyskom-insert-string confusion-what-to-agree-to] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1034751) (let ((lyskom-current-command 'kom-agree)) (list (lyskom-read-text-no-prefix-arg 'what-agree-no)))]) #@46 To text TEXT-NO add MESSAGE as a fast reply. (defalias 'lyskom-fast-reply #[(text-no message) "\306!\210\307\310\311\312\313\314\313\211\312\211\211\211\211\211\211\211\315\316 \f \n &.B\313\317\316&.BC$!\207" [text-no reserved4 reserved3 reserved2 reserved1 anonymous cache-del-text-stat lyskom-report-command-answer blocking-do modify-text-info nil 0 2 AUX-ITEM-FLAGS vector AUX-ITEM secret inherit deleted message data inherit-limit flags sent-at creator tag aux-no] 19 (#$ . 1035634)]) #@27 Add a FAQ to a conference (defalias 'kom-add-faq #[(&optional conf-no text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-faq-start-buffer lyskom-start-of-command kom-add-faq ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-faq-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\"\211\204\310\311\"\202z\310\312\n#\210\313!\210\314\n!\210\315\306\316\n\317\320\321\320\211\317\211\211\211\211\211\211\211\322\323 \f &.B\320\324! !\325\323! &.BC$!)\207" [text-no text conf-no reserved4 reserved3 reserved2 blocking-do get-text-stat lyskom-format-insert no-such-text-no adding-faq cache-del-text-stat cache-del-conf-stat lyskom-report-command-answer modify-conf-info nil 0 14 AUX-ITEM-FLAGS vector int-to-string AUX-ITEM reserved1 anonymous secret inherit deleted data inherit-limit flags sent-at creator tag aux-no] 20) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1036183) (let ((lyskom-current-command 'kom-add-faq)) (list (lyskom-read-conf-no 'conf-to-add-faq '(conf) nil nil t) (lyskom-read-text-no-prefix-arg 'text-to-add-as-faq nil 'last-seen-written)))]) #@32 Remove a FAQ from a conference (defalias 'kom-del-faq #[(&optional conf-no text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-del-faq-start-buffer lyskom-start-of-command kom-del-faq ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-del-faq-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203 \306\307\"\202\310\311\312\313\211\314%\211\205c\313 \211A\315\234)\313\211\203`\f@\211\211A\316H)\211!A\317H)\204Y \211A\320H)\321=\203Y \211A\322H) \211A\317H)B\nB\fA\211\204'*\n)\"\313# \204s\323\324\"\202\316\"\204\323\325 \"\202\316\"G\320=\203\216\"@@\202\231\326\327\330!\331\"!\313\314$\211#\205\316\323\332\333#! #\210\334\333#!!\210\335\211A\317\234)!\210\336\306\337 \211A\317\234)\340#\"\"AC\313$!+\207" [conf-no conf-stat tmp item #1=#:aux-items aux-item blocking-do get-conf-stat lyskom-read-conf-stat conf-to-del-faq (conf) nil t 16 4 0 1 14 6 lyskom-format-insert conf-no-does-not-exist-r conf-has-no-faq lyskom-completing-read lyskom-get-string text-to-del-as-faq lyskom-maybe-frob-completion-table deleting-faq string-to-int cache-del-text-stat cache-del-conf-stat lyskom-report-command-answer modify-conf-info lyskom-string-assoc aux-item-flags faq-list text-no] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1037491) nil]) #@32 View the FAQs for a conference (defalias 'kom-review-faq #[(&optional conf-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-faq-start-buffer lyskom-start-of-command kom-review-faq ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-faq-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\"\211\205O\310 \211A\311\234)\310\211\203L\f@\211\211A\312H)\211A\313H)\204E \211A\314H)\315=\203E\316 \211A\317H)!\nB\fA\211\204*\n) \204\\\320\321\"\202\300\204h\320\322 \"\202\300G\314=\203\204\320\323 \"\210\324@\310\211\211\211\211\325&\202\300\320\323 \"\210\326\327\310\330 \331)B\310\325\310 !\"#$\332\333$ #\"! \310&.B%\325#*\207" [conf-no conf-stat tmp item #1=#:aux-items aux-item blocking-do get-conf-stat nil 16 4 0 1 14 string-to-int 6 lyskom-format-insert conf-no-does-not-exist-r conf-has-no-faq review-faq-for-r lyskom-view-text t read-list-enter-read-info REVIEW lyskom-get-current-priority TEXT-LIST READ-INFO vector aux-item-flags faq-list texts misc forward comm-to text-list priority type lyskom-reading-list] 12) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1038949) (let ((lyskom-current-command 'kom-review-faq)) (list (lyskom-read-conf-no 'view-which-faq '(conf) nil nil t)))]) #@51 Add a don't comment me please aux-item to a text. (defalias 'kom-add-no-comments #[(&optional text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-no-comments-start-buffer lyskom-start-of-command kom-add-no-comments ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-no-comments-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307\"\211\204\310\311\"\202\231\312 \211A\313\234)\314\"\203$\310\315\"\202\231 \211A\316\234)\n=\2046\317\320!\205\231\310\321\"\210\322\306\323\324\325\326\324\211\211\211\211\211\211\211\211\211 \327\330  \f &.B\325\331!\"#$%&'\332\330'&%$#\"!&.BC$!\210\333!)\207" [text-no text-stat lyskom-pers-no reserved4 reserved3 reserved2 blocking-do get-text-stat lyskom-format-insert no-such-text-no lyskom-match-aux-items 7 #[(el) "\211A\303H)\304=\205\211A\305H)\n=\207" [el aux-item lyskom-pers-no 1 4 2] 3] already-no-comments 2 lyskom-j-or-n-p not-author-try-anyway-p adding-no-comments lyskom-report-command-answer modify-text-info nil 0 4 AUX-ITEM-FLAGS vector "" AUX-ITEM cache-del-text-stat reserved1 anonymous secret inherit deleted data inherit-limit flags sent-at creator tag aux-no] 20) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1040388) (let ((lyskom-current-command 'kom-add-no-comments)) (list (lyskom-read-text-no-prefix-arg 'what-no-comments-no nil 'last-seen-written)))]) #@54 Add a private answer only please aux-item to a text. (defalias 'kom-add-private-answer #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-private-answer-start-buffer lyskom-start-of-command kom-add-private-answer ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-private-answer-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\237\306\307\"\211\204\310\311\"\202\235\312 \211A\313\234)\314\"\203(\310\315\"\202\235 \211A\316\234)\n=\204:\317\320!\205\235\310\321\"\210\322\306\323\324\325\326\324\211\211\211\211\211\211\211\211\211 !\"\327\330\"!  \f &.B\325\331#$%&'()\332\330)('&%$#&.BC$!\210\333!)\207\334\335!\207" [text-no text-stat lyskom-pers-no reserved4 reserved3 reserved2 blocking-do get-text-stat lyskom-format-insert no-such-text-no lyskom-match-aux-items 7 #[(el) "\211A\303H)\304=\205\211A\305H)\n=\207" [el aux-item lyskom-pers-no 1 5 2] 3] already-private-answer 2 lyskom-j-or-n-p not-author-try-anyway-p adding-private-answer lyskom-report-command-answer modify-text-info nil 0 5 AUX-ITEM-FLAGS vector "" AUX-ITEM cache-del-text-stat lyskom-insert confusion-what-to-comment reserved1 anonymous secret inherit deleted data inherit-limit flags sent-at creator tag aux-no] 20) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1041948) (let ((lyskom-current-command 'kom-add-private-answer)) (list (lyskom-read-text-no-prefix-arg 'what-private-answer-no nil 'last-seen-written)))]) #@46 Add confirmation request aux-item to a text. (defalias 'kom-add-request-confirm #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-add-request-confirm-start-buffer lyskom-start-of-command kom-add-request-confirm ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-add-request-confirm-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\237\306\307\"\211\204\310\311\"\202\235\312 \211A\313\234)\314\"\203(\310\315\"\202\235 \211A\316\234)\n=\204:\317\320!\205\235\310\321\"\210\322\306\323\324\325\326\324\211\211\211\211\211\211\211\211\211 !\"\327\330\"!  \f &.B\325\331#$%&'()\332\330)('&%$#&.BC$!\210\333!)\207\334\335!\207" [text-no text-stat lyskom-pers-no reserved4 reserved3 reserved2 blocking-do get-text-stat lyskom-format-insert no-such-text-no lyskom-match-aux-items 7 #[(el) "\211A\303H)\304=\205\211A\305H)\n=\207" [el aux-item lyskom-pers-no 1 6 2] 3] already-request-confirm 2 lyskom-j-or-n-p not-author-try-anyway-p adding-request-confirm lyskom-report-command-answer modify-text-info nil 0 6 AUX-ITEM-FLAGS vector "" AUX-ITEM cache-del-text-stat lyskom-insert confusion-what-to-request-confirmation reserved1 anonymous secret inherit deleted data inherit-limit flags sent-at creator tag aux-no] 20) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1043588) (let ((lyskom-current-command 'kom-add-request-confirm)) (list (lyskom-read-text-no-prefix-arg 'what-request-confirm-no nil 'last-seen-written)))]) #@48 Review the mail headers of an imported message (defalias 'kom-review-mail-headers #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-mail-headers-start-buffer lyskom-start-of-command kom-review-mail-headers ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-mail-headers-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203;\304\305\"\211\205\306 \211A\307\234)\310\"\311 \204%\312\313\"\2029\n\2040\312\314\"\2029\312\315\"\210\316\317\n\"+\207\320\321!\207" [text-no text-stat headers lyskom-transforming-external-text blocking-do get-text-stat lyskom-get-aux-item 7 24 t lyskom-format-insert no-such-text-no no-mail-headers mail-headers-for mapcar #[(el) "\303\304\305 \211A\306H)\"\210\307\310!)\207" [kom-autowrap el aux-item nil lyskom-format-insert "%#1t" 6 lyskom-insert "\n"] 5] lyskom-insert confusion-what-to-review-mail-headers] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1045241) (let ((lyskom-current-command 'kom-review-mail-headers)) (list (lyskom-read-text-no-prefix-arg 'review-mail-headers-to-what)))]) (if (and (boundp 'lyskom-keep-alive-timers) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-keep-alive-timers)) #@38 List of all active keep alive timers (defvar lyskom-keep-alive-timers nil (#$ . 1046690)) (add-to-list 'lyskom-local-variables 'lyskom-keep-alive-timers) (defalias 'lyskom-keep-alive-callback #[(buffer) "\300\301\302\217\207" [nil (byte-code "\212q\210\302 !\303=\203\304\305\306\"\202\307 )\207" [buffer lyskom-proc process-status open initiate-get-time keep nil lyskom-stop-keep-alive] 3) ((error (lyskom-stop-keep-alive)))] 3]) #@151 Keep the LysKOM session alive by sending a request every once in a while. The variable kom-keep-alive-interval controls the frequency of the request. (defalias 'kom-keep-alive #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-keep-alive-start-buffer lyskom-start-of-command kom-keep-alive ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-keep-alive-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "q\210\302 \210\303 \210p=\204\304\305 \"\210\306\305 \"\210\307\310!\207" [lyskom-buffer kom-keep-alive-interval lyskom-stop-keep-alive lyskom-keep-alive lyskom-message start-keep-alive lyskom-format-insert lyskom-insert "\n"] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1047133) nil]) (defalias 'lyskom-keep-alive #[nil "\302\303p$ B\211\207" [kom-keep-alive-interval lyskom-keep-alive-timers add-timeout lyskom-keep-alive-callback] 5]) #@59 Stop sending periodic requests to keep the session alive. (defalias 'kom-stop-keep-alive #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-stop-keep-alive-start-buffer lyskom-start-of-command kom-stop-keep-alive ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-stop-keep-alive-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301 \210p=\204\302\303\304\"\210\305\304!\210\305\306!\207" [lyskom-buffer lyskom-stop-keep-alive lyskom-message "%#1s" stop-keep-alive lyskom-insert "\n"] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1048151) nil]) (defalias 'lyskom-stop-keep-alive #[nil "\301\302\"\210\303\211\207" [lyskom-keep-alive-timers mapcar disable-timeout nil] 3]) #@61 Find out whether PERS-NO is a member of conference CONF-NO. (defalias 'kom-is-person-member-of-conference #[(&optional pers-no &optional conf-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-is-person-member-of-conference-start-buffer lyskom-start-of-command kom-is-person-member-of-conference ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-is-person-member-of-conference-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \302\303\304!\305\306\211\307%\206\302\303\310!\311\306\211\307%\312 \"\203+\313\314 #\2020\313\315 #*\207" [conf-no pers-no lyskom-read-conf-no lyskom-get-string pers-to-check-mship-for (all) nil t conf-to-check-mship-of (all) lyskom-is-member lyskom-format-insert pers-is-member-of-conf pers-is-not-member-of-conf] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1049000) nil]) (byte-code "\306P\307\310\311\312#\210\307\313\314\315#\210\316\301!\204\317\301\nB\316\303!\204$\317\303\nB\316\304!\2040\317\304\nB\316\305!\204<\317\305\nB\316\320!\204I\317\320\nB\316\321!\204V\317\321\nB\316\322!\204c\317\322\nB\316\323!\204p\317\323\nB\316\324!\204}\325\324\nB\316\326!\204\212\317\326\nB\316\327!\204\227\317\327\nB\316\330!\204\244\317\330\nB\317\207" [lyskom-clientversion-long lyskom-last-review-by current-load-list lyskom-last-review-to lyskom-last-review-num lyskom-last-review-pmark "$Id: review.el,v 44.34 2001/01/03 22:03:02 qha Exp $\n" put lyskom-cant-review-error error-conditions (error lyskom-error lyskom-review-error) lyskom-review-error error-message "Review error" boundp nil lyskom-last-review-cmark lyskom-last-review-saved-result-list lyskom-last-review-saved-by-list lyskom-last-review-saved-to-list lyskom-last-review-saved-result-size 0 lyskom-last-review-saved-smallest lyskom-last-review-saved-largest lyskom-have-review] 4) #@54 Returns a copy of list where all zeroes are removed. (defalias 'lyskom-remove-zeroes #[(a) "\301\302\303!\"\207" [a delq 0 copy-sequence] 4 (#$ . 1051012)]) #@61 Review every articles of an author written to a conference. (defalias 'kom-review-all #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-all-start-buffer lyskom-start-of-command kom-review-all ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-all-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300\301!\210\302\303!\207" [lyskom-tell-internat kom-tell-review lyskom-review-by-to 0] 2) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1051176) nil]) #@65 Review more articles using the same critera as the last review. (defalias 'kom-review-more #[(&optional count) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-more-start-buffer lyskom-start-of-command kom-review-more ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-more-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\204\306\307!\207\310\311\312!\313 !\"\211<\203$\n@\250\203$\nA\204$\n@\n\314U\2032\315\311\316!\202>\n\314V\205>\317\311\320!\n\"\f\306\321 \314U\203T\311\322!\202U \314U\203b\311\323!\202d$\210\324\325\326\217,\207" [lyskom-have-review lyskom-last-review-num count info lyskom-last-review-by by lyskom-format-insert no-review-done lyskom-read-number lyskom-get-string review-how-many-more abs 0 nil review-rest lyskom-format review-more review-more-info-by-to anybody all-confs arg (byte-code "\306 \n\307$\f\310W\203\n[\202\n \203O\311\312\313\314 \315 )B\313\307\313\316\317\313&.B\307\"\202R\320\321!)\207" [by to count list lyskom-last-review-num texts lyskom-get-texts-by-to t 0 lyskom-review-enter-read-info REVIEW nil lyskom-review-get-priority TEXT-LIST READ-INFO vector lyskom-insert-string no-such-text misc forward comm-to text-list priority conf-stat type] 11) ((lyskom-review-error (byte-code "?\205\301\302!\207" [arg lyskom-insert-string no-such-text] 2))) lyskom-last-review-to to] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1051807) "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 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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-first-start-buffer lyskom-start-of-command kom-review-first ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-first-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302!\210\303\206\304\305\306!\307\"[!\207" [count lyskom-tell-internat kom-tell-review lyskom-review-by-to lyskom-read-number lyskom-get-string review-how-many 1] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1053443) "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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-by-to-start-buffer lyskom-start-of-command kom-review-by-to ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-by-to-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\206 \302\303\304!\305\"!\207" [count lyskom-review-by-to lyskom-read-number lyskom-get-string review-how-many 1] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1054680) "P"]) #@59 Common function for kom-review-by-to and kom-review-first (defalias 'lyskom-review-by-to #[(count) "<\203@\250\203A\204@\306U\203!\307\310\311!\2029\306V\203.\312\313\"\2029\306W\2059\312\314[\"\315\312\316\312\317 \"\"\320\321\307\321%\315\312\316\312\322 \"\"\323\321 \203\\ \306U\203`\324\202l\325\326 \"\211A\327\234)\306B\321%\211\306U\204y\330 !\210\n\306U\204\203\331\n!\210\332\333 \n\306U\203\222\310\334!\202\223\n \306U\203\237\310\335!\202\240 $\210\n! \"#\307$\307%\307&\307'\307(\306)\307*\307+\321,\336\337\340\217+\207" [count info by lyskom-current-conf conf-stat to 0 nil lyskom-get-string everything lyskom-format latest-n first-n lyskom-read-conf-no review-info info-by-whom (pers) t info-to-conf (all) "" blocking-do get-conf-stat 1 cache-del-conf-stat cache-del-pers-stat lyskom-format-insert review-info-by-to anybody all-confs arg (byte-code "\306 \n#\211\203?\307\310\311\312 \313\f)B\311\314\311\315\316\311 &.B\314\"\202B\317\320!)\207" [by to count list texts misc lyskom-get-texts-by-to lyskom-review-enter-read-info REVIEW nil lyskom-review-get-priority TEXT-LIST t READ-INFO vector lyskom-insert-string no-such-text forward comm-to text-list priority conf-stat type] 12) ((lyskom-review-error (byte-code "?\205\301\302!\207" [arg lyskom-insert-string no-such-text] 2))) lyskom-last-review-by lyskom-last-review-to lyskom-last-review-num lyskom-last-review-pmark lyskom-last-review-cmark lyskom-last-review-saved-result-list lyskom-last-review-saved-by-list lyskom-last-review-saved-to-list lyskom-last-review-saved-result-size lyskom-last-review-saved-smallest lyskom-last-review-saved-largest lyskom-have-review] 8 (#$ . 1055865)]) #@83 Get NUM texts written by person number BY in conference number TO Args: BY TO NUM (defalias 'lyskom-get-texts-by-to #[(by to num &optional again) "\306U\203 \306U\203\307\n \"\207 \306U\203\310\n #\207\306U\203)\311 \n #\207\f=\203u =\204u\312\313 \"\211\211A\314\234)\211A\315\234)\205h\312\316 \211A\306\234) \211A\317\234)\320$\211A\320\234)?)\203u\321\n\322 C %\207\323 \n $\207" [by to num again lyskom-pers-no conf 0 lyskom-get-texts-globally lyskom-get-texts-by lyskom-get-texts-to blocking-do get-conf-stat 2 3 get-map 13 1 lyskom-get-texts-by-generic #[(x to) "\306\307\n\211A\310\234)\211<\206\fG\306\n\306 \306 \f<\203Q\f\203\203\f@\n\206I\n\211\fA\307\234) >\205I\n\211\fA\311\234)=\fA\211\202# W\203\203\f H\n\206{\n\211\fA\307\234) >\205{\n\211\fA\311\234)= T\211\202R-)\207" [found __i__ x text-stat __sequence__ __len__ nil 0 6 1 misc __result__ misc-info lyskom-recpt-types-list to] 3] lyskom-get-texts-by-and-to conf-stat conf-type map] 7 (#$ . 1057619)]) #@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) "\204 \306\307!\210\310\311\312\"\207 \204\306\313!\210\310\311\312\"\207\211\242)\314=\205t\211A\315\234)\316U\2039\306\317!\210\310\311\312\"\207\320\321\211A\316\234)\211A\322\234)\323$\211A\323\234)?\205t\211A\324\234)\211A\325\234)\203l\306\326!\210\202p\306\327!\210\310\311\312\"\207" [conf pers object conf-stat map conf-type lyskom-format-insert review-conf-gone signal lyskom-cant-review-error t review-pers-gone CONF-STAT 14 0 review-cant-read-empty blocking-do get-map 13 1 2 3 review-cant-read-letterbox review-cant-read-conf] 6 (#$ . 1058672)]) #@102 Get the last NUM texts created in LysKOM. If AGAIN is non-nil, keep going from where we were before. (defalias 'lyskom-get-texts-globally #[(num &optional again) "\203 \204 \n\202*\203\n\306W\203 [\202* \204*\307\310!\210\311\312\313\"\210\314\2033 \202? \306W\203=\315\202?\316 \306W\203I\317\202J\320 \306=\204t \203tG\321 !W\203t\322\f \"\211\203N B\202N  \306W\203\202\237\202\204+\207" [again num lyskom-last-review-num lyskom-last-review-cmark op textno 0 lyskom-format-insert cant-review-everything signal lyskom-cant-review-error t nil 1 lyskom-maxint find-next-text-no find-previous-text-no abs blocking-do result] 5 (#$ . 1059544)]) #@86 Get NUM texts written by PERSNO. Args: persno num Cannot be called from a callback. (defalias 'lyskom-get-letters-to #[(persno recipient num &optional again pstart) "\306\307\"\310\311 \"\210\n\203 \204\f\202$\n\203$\f\312W\203$ [ \2060 \211A\313\234)\211 \211A\314\234)\\S\n\205E \205N\315 !\n\203Y\202j \203h \312W\203h\202j \316!\316\"\316#\316$ \204\211T T X\203D Y\203D\315 !GV\203D%^ \312W\203\265 \202\273 SZ\211#\312W\203\315#Z\312#\317\306\320#$\211&A\321\234)'\322'\316\")!$\323 !\324\325$\"\210\326\327!\210!\211!A)\237\" \312V\203\"\244 Z \202%\"\244 \\ \"\2048%\211\\\312\\^\202\211\315 !GZ\202\211  \312V\203f\330G Z\"\312G Z]\233\202s [\233\330 [\".\n\207" [persno persstat again num lyskom-last-review-num pstart blocking-do get-pers-stat lyskom-check-review-access t 0 14 15 abs nil lyskom-remove-zeroes get-created-texts 1 append make-collector mapcar #[(x) "\303\304\305 \n%\207" [x collector recipient initiate-get-text-stat main #[(x collector pers-no) "\205\304 \"\205\305\211A\306\234) \"\207" [x pers-no text-stat collector lyskom-is-recipient collector-push 0] 4]] 6] lyskom-wait-queue main nfirst pers-stat plow phigh lyskom-last-review-saved-result-list result increment lyskom-last-review-pmark mark collector found start data lyskom-fetch-map-nos map vector] 7 (#$ . 1060238)]) #@192 Get NUM texts written by person PERSNO with conference CONFNO as a recipient. If optional AGAIN is non-nil, continue from where we were. Args: persno confno num &optional again pstart cstart (defalias 'lyskom-get-texts-by-and-to #[(persno confno num &optional again pstart cstart) "\306\307D\310 DD!\211\311\234\n\312\234 =\203q \203q \211(A\313\234)\211)A\314\234)\204^ \211(A\313\234)\211)A\311\234)\203q\315\316 \211(A\311\234) \211(A\317\234)\312$\211*A\312\234)\204q =\204q\320 +,-%\202T\321 \f\"\210,\203\207+\204\207.+\202\230,\203\230.\311W\203\230+[+,\205\237/0,\205\25012,\205\26134,\203\2755\202\276\3116\3227\32289:-\206\327\f\211;A\323\234)\211<\f\211;A\324\234)\\S=,\203\360>\202+\203+\311W\203<\202=?@\206 \211(A\317\234)\211A \211(A\323\234)\\SB,\203+C\202>+\203<+\311W\203<A\202>BD,\205GEF,\205PGH\322I+\204_=T+?=X\203o?DC2143FEHG\332\333+\311W\203\3750\237\202\3770\"0+\311V\2033\3460G+Z0\"\211/G5/\3472GS\322\"B/\3110G+Z]0\233\202R+[0\233\211/G5/\3472GS\322\"B/\346+[0\".+\207" [persno confno multiple-bind-sym confstat persstat lyskom-pers-no lyskom-blocking-do-multiple get-pers-stat get-conf-stat 0 1 2 3 blocking-do get-map 13 lyskom-get-letters-to lyskom-check-review-access nil 14 15 abs lyskom-remove-zeroes get-created-texts append t apply nconc mapcar #[(x) "\302 \"\207" [to x lyskom-intersection] 3] mapcar2 #[(x y) "\303 \n\244\"\207" [y x by lyskom-intersection] 4] + length min #[(x) "\203 \301\302\"\207\303 \207" [x apply min lyskom-maxint] 3] max #[(x) "\203 \301\302\"\207\303\207" [x apply max -1] 3] nfirst make-list conf-stat conf-type map num again pstart lyskom-last-review-num lyskom-last-review-saved-result-list result-list lyskom-last-review-saved-by-list by-list lyskom-last-review-saved-to-list to-list lyskom-last-review-saved-result-size result-size by to lyskom-fetch-map-nos increment pers-stat plow phigh lyskom-last-review-pmark pmark cstart clow chigh lyskom-last-review-cmark cmark lyskom-last-review-saved-smallest smallest lyskom-last-review-saved-largest largest abort-loop vector] 8 (#$ . 1061715)]) #@51 Get NUM texts written by PERSNO. Args: persno num (defalias 'lyskom-get-texts-by #[(persno num &optional again pstart) "\305\306\"\307\310 \"\210\311\n\312\211 \f&)\207" [persno persstat num again pstart blocking-do get-pers-stat lyskom-check-review-access t lyskom-get-texts-by-generic nil] 7 (#$ . 1064597)]) #@86 Get NUM texts written by PERSNO. Args: persno num Cannot be called from a callback. (defalias 'lyskom-get-texts-by-generic #[(persno num pred args &optional again pstart) "\306\307\"\211\211A\310\234)\f\203 \204\202)\f\203)\311W\203) [\2065 \211A\312\234)\211 \211A\313\234)\\S\f\205I \205R\314 !\f\203] \202n \203l \311W\203l\202n!\315\"\315#\315$\315% \204\215T!T!X\203K!Y\203K\314 !GV\203K&^ \311W\203\271!\202\277!SZ\211$\311W\203\321$Z\311$\316 \317\306\320$$\211'A\321\234)(\322(\315\")!\"%\323 \"\324\325%\"\210\326\327!\210\"\211\"A)\237# \311V\203#\244!Z!\202,#\244!\\!#\204?&\211\\\311\\^\202\215\314 !GZ\202\215! \311V\203m\330G Z\"\311G Z]\233\202z [\233\330 [\". \207" [persno persstat pers-stat user-area again num blocking-do get-pers-stat 5 0 14 15 abs nil delq lyskom-remove-zeroes get-created-texts 1 append make-collector mapcar #[(x) "\304\305\306 \n &\207" [x collector pred args initiate-get-text-stat main #[(x collector pred args) "\205 \203\305 \n#\205\306\211A\307\234)\f\"\207" [x pred args text-stat collector apply collector-push 0] 5]] 7] lyskom-wait-queue main nfirst lyskom-last-review-num pstart plow phigh lyskom-last-review-saved-result-list result increment lyskom-last-review-pmark mark collector found start data lyskom-fetch-map-nos map vector] 9 (#$ . 1064918)]) #@28 From CONFNO get NUM texts. (defalias 'lyskom-get-texts-to #[(confno num &optional again cstart) "\306\307\"\310 \311\"\210\n\203 \204\f\202$\n\203$\f\312W\203$ [ \2060 \211A\313\234)\211 \211A\314\234)\\S\n\205E\315 \205Q\316 !\n\203\\\202m \203k \312W\203k\202m \204\200TTX\203-Y\203-\316 !GV\203-^ \312W\203\254\202\262SZ\211\312W\203\304Z\312\317\306\320$\211A\321\234)\322\315\")! \312V\203\377 \244Z\316 !GZ\202  \244\\ \204 \211\\\312\\^\202)\316 !GZ)\202\200 \312V\203O\323G Z\"\312G Z]\233\202\\ [\233\323 [\".\207" [confno confstat again num lyskom-last-review-num cstart blocking-do get-conf-stat lyskom-check-review-access t 0 13 14 nil abs lyskom-remove-zeroes get-map 1 append nfirst conf-stat clow chigh lyskom-last-review-saved-result-list result start increment lyskom-last-review-cmark mark lyskom-fetch-map-nos map vector found] 7 (#$ . 1066398)]) #@103 Toggles the reviewing order. If reading forward then starts reading backward and the other way round. (defalias 'kom-review-backward #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-backward-start-buffer lyskom-start-of-command kom-review-backward ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-backward-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\211A)\203Y\211A\242)\211A\306\234)\307>\203Y\211A\242)\211\211A\310\234)\211A \211A\311\234) \f \237\241\210  ?\211A\311I\210*\312\313\314 \204T\315\202U\316!\",\207\317\320!\207" [lyskom-reading-list read-list read-info info list texts 0 (REVIEW REVIEW-MARK) 3 5 lyskom-format-insert you-review lyskom-get-string forward backward lyskom-insert-string illegal-command newval] 5) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1067442) 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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-tree-start-buffer lyskom-start-of-command kom-review-tree ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-tree-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\302\303!\210\203\304\305\"\306 \307\310\311 \312%)\207\313\314!\207" [text-no ts lyskom-tell-internat kom-tell-review blocking-do get-text-stat lyskom-follow-comments nil review lyskom-review-get-priority t lyskom-insert-string read-text-first] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1068448) (let ((lyskom-current-command 'kom-review-tree)) (list (lyskom-read-text-no-prefix-arg 'review-tree-q)))]) #@77 Finds the root text of the tree containing the text in lyskom-current-text. (defalias 'kom-find-root #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-find-root-start-buffer lyskom-start-of-command kom-find-root ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-find-root-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307!\210\203d\310\311\"\312 \313\"\211G\314V\203S\315\316\317! \"\210\320\321\322\323 \n\324 )B\322\313\322 !\325\326!  \322\f&.B\313\"\202b\n\203^\327\n@!\202b\330\331\332\"*\207\333\334!\207" [text-no ts r texts misc forward lyskom-tell-internat kom-tell-review blocking-do get-text-stat lyskom-find-root t 1 lyskom-format-insert-before-prompt lyskom-get-string more-than-one-root lyskom-review-enter-read-info REVIEW nil lyskom-review-get-priority TEXT-LIST READ-INFO vector lyskom-view-text signal lyskom-internal-error "Could not find root" lyskom-insert-string confusion-what-to-find-root comm-to text-list priority conf-stat type] 12) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1069608) (let ((lyskom-current-command 'kom-find-root)) (list (lyskom-read-text-no-prefix-arg 'find-root-q)))]) #@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 #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-find-root-review-start-buffer lyskom-start-of-command kom-find-root-review ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-find-root-review-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\303\304!\210\2038\305\306\"\307 \310\"\211G\311V\203'\312\313\314! \"\210\315\n@!\2026\n\2032\315\n@!\2026\316\317\320\"*\207\321\322!\207" [text-no ts start lyskom-tell-internat kom-tell-review blocking-do get-text-stat lyskom-find-root t 1 lyskom-format-insert-before-prompt lyskom-get-string more-than-one-root-review lyskom-review-tree signal lyskom-internal-error "Could not find root" lyskom-insert-string confusion-what-to-find-root-review] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1070940) (let ((lyskom-current-command 'kom-find-root-review)) (list (lyskom-read-text-no-prefix-arg 'find-root-review-q)))]) #@142 Finds the root text of the tree containing the text TEXT-STAT. Args: TEXT-STAT &optional ALL If ALL is set, return a list of all root texts. (defalias 'lyskom-find-root #[(text-stat &optional all) "\203\235C\306\211\211\211\211\203\207 @ A\306\f\211A\307\234)\211\203k @\211A\310\234)\311=\203G\312\313 @\211A\314\234)\"\nB\202d @\211A\310\234)\315=\203d\312\313 @\211A\307\234)\"\nB A\211\204'\316\306\n\"\211\204\f B\204\306\n \244\211\204\203\223\317\320 \"\202\233 @\211A\310\234)-\207\306\207" [text-stat result tmp misclist head queue nil 6 0 COMM-TO blocking-do get-text-stat 4 FOOTN-TO delq mapcar text-stat->text-no misc-info all] 6 (#$ . 1072145)]) #@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) "\250\203\301\302\303\302\304 \303&\207\305\306\307\310E\"\207" [text lyskom-view-text nil t lyskom-review-get-priority signal lyskom-internal-error lyskom-review-tree "Called with incorrect argument."] 7 (#$ . 1072858)]) #@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 "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-next-start-buffer lyskom-start-of-command kom-review-next ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-next-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307!\210\211GS)\310\n?\205G \311V\205G\211A\242)\211A\312\234)\211\313=\204> \314=\204> \315=\204>\316!\210\202@\317) S\202 *\207" [lyskom-reading-list read-list finished len read-info type lyskom-tell-internat kom-tell-review nil 1 0 REVIEW REVIEW-TREE REVIEW-MARK read-list-rotate t] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1073250) nil]) #@28 Displays the review-stack. (defalias 'kom-review-stack #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-stack-start-buffer lyskom-start-of-command kom-review-stack ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-stack-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\211A)\203\303\304\211A)\"\207\n\203\305\306\n\"\207\307\310!\207" [lyskom-reading-list read-list lyskom-current-conf mapcar #[(info) "\211A\306\234)AG\211A\307\234)\211A\310\234)\211A\311\234)\f\312=\2030\313\314 #\202c\f\315=\203>\313\316 \n#\202c\f\317=\203K\313\320 \"\202c\f\321=\203Y\313\322 #\202c\f\323=\205c\313\324 \",\207" [info read-info conf cto type un 3 0 4 1 COMM-IN lyskom-format-insert view-many-comments CONF view-texts-in-conf REVIEW review-n-texts REVIEW-TREE review-many-comments REVIEW-MARK review-marked] 6] lyskom-format-insert you-have-no-unreads lyskom-insert not-reading-anywhere] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1074206) nil]) #@78 Deletes all review-types from the lyskom-reading-list and lyskom-to-do-list. (defalias 'kom-review-clear #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-clear-start-buffer lyskom-start-of-command kom-review-clear ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-clear-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306 \211A)\203. \211A\242)\211A\307\234)\f>\203. \211A\203(\n\211AA\241\210)\310\202\n \211A)\203Z \211A\242)\211A\307\234)\f>\203Z \211A\203T\n\211AA\241\210)\310\2026?\205b\311\312!)\207" [found lyskom-reading-list read-list read-info lyskom-review-types-list lyskom-to-do-list nil 0 t lyskom-insert not-reviewing] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1075363) 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 #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-comments-start-buffer lyskom-start-of-command kom-review-comments ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-comments-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302!\210\203\303\304\305\"!\207\306\207" [text-no lyskom-tell-internat kom-tell-review lyskom-review-comments blocking-do get-text-stat read-text-first] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1076270) (let ((lyskom-current-command 'kom-review-comments)) (list (lyskom-read-text-no-prefix-arg 'review-comments-q)))]) #@79 Handles the return from the initiate-get-text-stat, displays and builds list. (defalias 'lyskom-review-comments #[(text-stat) "\205 \211A\306\234)\211\205\307\310\311 \"\310\312 \"\"\211\205#\313\314\n\"\315 \203>\316\317 @\"\2037 @\fB A\211\204*\f\237\211\203\216\320\321\f@\"\210\fA\203\207\322\323\315\324 \fA\325 )B\315\211 !\"#\326\327#\"! \315&.B\330\"\210\331\f@!\202\221\332\333!,\207" [text-stat misc-info-list misc-infos all-text-nos text-nos texts 6 append lyskom-misc-infos-from-list FOOTN-IN COMM-IN mapcar #[(misc-info) "\211A\301\234)\302\232\203\211A\303\234)\207\211A\304\234)\207" [misc-info 0 COMM-IN 5 7] 3] nil blocking-do get-text-stat lyskom-format-insert review-text-no lyskom-review-enter-read-info REVIEW lyskom-review-get-priority TEXT-LIST READ-INFO vector t lyskom-view-text lyskom-insert-string no-such-text lyskom-current-text misc forward comm-to text-list priority conf-stat type] 12 (#$ . 1077224)]) #@42 Reviews the NO last normally read texts. (defalias 'kom-review-last-normally-read #[(no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-last-normally-read-start-buffer lyskom-start-of-command kom-review-last-normally-read ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-last-normally-read-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307!\210\310 \"\237\211\203T\311\312\n@\"\210\nA\203M\313\314\315\316 \nA\317 )B\f\315\211\320\321\315 &.B\322\"\210\323\n@!\202W\311\324!)\207" [no lyskom-normally-read-texts text-nos texts lyskom-current-text misc lyskom-tell-internat kom-tell-review nfirst lyskom-format-insert review-text-no lyskom-review-enter-read-info REVIEW nil lyskom-review-get-priority TEXT-LIST READ-INFO vector t lyskom-view-text no-such-text forward comm-to text-list priority conf-stat type] 12) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1078217) (let ((lyskom-current-command 'kom-review-last-normally-read)) (list (lyskom-read-number (lyskom-get-string 'read-normally-read) 1)))]) #@64 Displays TEXT-NO or the last read text without any conversion. (defalias 'kom-review-noconversion #[(text-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-review-noconversion-start-buffer lyskom-start-of-command kom-review-noconversion ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-review-noconversion-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\304\211\211\305!+\207\306\307!\207" [text-no kom-autowrap kom-smileys lyskom-format-special nil lyskom-view-text lyskom-insert confusion-what-to-view] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1079444) (let ((lyskom-current-command 'kom-review-noconversion)) (list (lyskom-read-text-no-prefix-arg 'review-noconversion-q)))]) #@46 Get the priority to use for reviewing texts. (defalias 'lyskom-review-get-priority #[nil "\206\301 \207" [kom-review-priority lyskom-get-current-priority] 1 (#$ . 1080311)]) #@65 Enter READ-INFO into lyskom-reading-list and lyskom-to-do-list. (defalias 'lyskom-review-enter-read-info #[(read-info before) "\304 \n#\210\304 \n#\207" [read-info lyskom-reading-list before lyskom-to-do-list read-list-enter-read-info] 4 (#$ . 1080494)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: edit-text.el,v 44.75 2001/01/28 12:49:29 joel Exp $\n" nil] 2) #@36 Mode variable for lyskom-edit-mode (defvar lyskom-edit-mode nil (#$ . 1080882)) (make-variable-buffer-local 'lyskom-edit-mode) #@44 Mode variable for lyskom-edit-sending-mode (defvar lyskom-edit-sending-mode nil (#$ . 1081015)) (make-variable-buffer-local 'lyskom-edit-sending-mode) #@41 Mode variable for lyskom-edit-sent-mode (defvar lyskom-edit-sent-mode nil (#$ . 1081172)) (byte-code "\303\304!\210\305\306\307\310#\210\306\236\204\311B\312\236\204\313B\304\236\204(\314B\306 \236\2044\306\nB B\312 \236\204@\312\nB B\304 \236\204L\312\nB B\303\207" [minor-mode-alist minor-mode-map-alist lyskom-edit-mode-map make-variable-buffer-local lyskom-edit-sent-mode put lyskom-edit-mode permanent-local t (lyskom-edit-mode " LysKOM Edit") lyskom-edit-sending-mode (lyskom-edit-sending-mode " LysKOM Sending") (lyskom-edit-sent-mode " LysKOM Sent")] 4) #@19 Name of the mode. (defvar lyskom-edit-mode-name "LysKOM edit" (#$ . 1081760)) #@35 Non-nil when a text has been sent (defvar lyskom-edit-text-sent nil (#$ . 1081844)) #@37 Status variable for an edit-window. (defvar lyskom-is-dedicated-edit-window nil (#$ . 1081934)) #@67 Status variable for an edit-buffer. See lyskom-edit-handler-data. (defvar lyskom-edit-handler nil (#$ . 1082036)) #@62 Status variable for an edit-buffer. See lyskom-edit-handler. (defvar lyskom-edit-handler-data nil (#$ . 1082156)) #@37 Status variable for an edit-buffer. (defvar lyskom-edit-return-to-configuration nil (#$ . 1082276)) (byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\207" [put lyskom-edit-text-abort error-conditions (error lyskom-error lyskom-edit-error lyskom-edit-text-abort) lyskom-unknown-header (error lyskom-error lyskom-edit-error lyskom-unknown-header) lyskom-no-subject (error lyskom-error lyskom-edit-error lyskom-no-subject) lyskom-edit-error (error lyskom-error lyskom-edit-error)] 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) "\306\307 \n \f &\207" [lyskom-is-writing proc misc-list subject body handler t lyskom-dispatch-edit-text data] 7 (#$ . 1082807)]) #@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) "\306\307\310\311!!\312P\"\313 \314\n!\210\315 \210\316\317\320\217\210\321 \210\322\304!\210\322\323!\210\322\324!\210   \325 \210\326\"#$#\210\327 \210eb\210\330\331\332\333!!d\334#\210\335\336!\204Vdb\210\337\340\332\341!\"\210*%q\207" [proc config buffer handler lyskom-edit-handler data lyskom-get-buffer-create write-texts buffer-name process-buffer "-edit" current-window-configuration lyskom-display-buffer text-mode nil (byte-code "\300\301!\207" [run-hooks lyskom-edit-mode-mode-hook] 2) ((error)) lyskom-edit-mode make-local-variable lyskom-edit-handler-data lyskom-edit-return-to-configuration buffer-disable-undo lyskom-edit-insert-miscs buffer-enable-undo re-search-forward regexp-quote lyskom-get-string header-subject end looking-at "\\s-*$" lyskom-message "%s" press-C-c-C-c misc-list subject body lyskom-buffer] 5 (#$ . 1083451)]) #@216 Insert MISC-LIST into header of text. recpt -> Mottagare: <%d> %s. cc-recpt -> Extra kopia: <%d> %s. bcc-recpt -> Fr knnedom: <%d> %s. comm-to -> Kommentar till text %d. footn-to -> Fotnot till text %d. (defalias 'lyskom-edit-insert-miscs #[(misc-list subject body &optional aux-list) "p\306  q\210\fA\f\203\213\f@@\f@A\211\307=\203/\310\311\312 \"\313\314!\n $\210\202\204\315=\203E\310\311\312 \"\313\316!\n $\210\202\204\317=\203[\310\311\312 \"\313\320!\n $\210\202\204\321=\203q\322\311\323 \"\313\324!\n $\210\202\204\325=\203\204\322\311\323 \"\313\326!\n $\210\fA*\202 \327\330 \"\210\331\332\333!\334\313\335!!\"\313\336!%\n\"\210 q\210\nb+\207" [lyskom-buffer main-buffer where-put-misc edit-buffer misc-list data point-min-marker recpt lyskom-edit-insert-misc-conf blocking-do get-conf-stat lyskom-get-string recipient cc-recpt carbon-copy bcc-recpt blank-carbon-copy comm-to lyskom-edit-get-commented-author get-text-stat comment footn-to footnote mapcar #[(item) "\304\305 $\211\205\306\307\310!\n\311Q \")\207" [item lyskom-pers-no data where-put-misc lyskom-aux-item-call (edit-insert print) lyskom-princ lyskom-get-string aux-item-prefix "\n"] 6] lyskom-princ lyskom-format text-mass substitute-command-keys header-separator header-subject key aux-list subject body] 9 (#$ . 1084489)]) #@34 Positions the editing at MARKER. (defalias 'lyskom-edit-goto-char #[(marker) "p\302 !q\210\303\213\210q)\207" [curbuf marker marker-buffer ((goto-char marker))] 2 (#$ . 1085845)]) #@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) "\304\305\306 \206 \n \206\307$ \"\207" [string conf-stat number stream lyskom-princ lyskom-format "%#1s <%#2m> %#3M\n" ""] 6 (#$ . 1086034)]) (defalias 'lyskom-edit-get-commented-author #[(text-stat string stream number) "\203<\306\211A\307\234)\310\"@\306\211A\307\234)\311\"@\312\n\204% \203,\313\n \"\2026\314\315\211A\316\234)\" \f $*\207\312\317 \f $\207" [text-stat mx-author mx-from string stream number lyskom-get-aux-item 7 17 16 lyskom-edit-insert-commented-author lyskom-format-mx-author blocking-do get-conf-stat 2 nil] 6]) (defalias 'lyskom-edit-insert-commented-author #[(conf-stat string stream number) "\304\305\306 \n\203\305\307\n\"\202\310$ \"\207" [string number conf-stat stream lyskom-princ lyskom-format comment-to-by by ""] 8]) #@704 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) ('bcc-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) "\302\303B \203 @ A@B\303B\244\210 AA\211\204)\207" [result misc-pairs MISC-LIST nil] 4 (#$ . 1087211)]) #@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 (#$ . -1088090)) #@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 (#$ . -1088417)) #@786 \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 or footnoted text. \[kom-edit-insert-text] inserts the shown text, you tell the number. Even though this is a minor mode, it's not intended to be turned on and off, so it's not as clean as it ought to be. (defalias 'lyskom-edit-mode #[(&optional arg) "\204 ?\202\306!\307V\310\301\n\"\210 \205g\311\307!\210\312\307!\210\313\314!\210\315\314!\210\316\303p\"\2045\317\303!\210\320\317\304!\210\317\305!\210\321\322\323\324\325!!!\326\fR\321\322\323\324\325!!!\326 R\317\327!\210\317\330!\210\331\332\333!\207" [arg lyskom-edit-mode lyskom-edit-mode-map lyskom-edit-text-sent paragraph-start paragraph-separate prefix-numeric-value 0 lyskom-set-menus lyskom-edit-sending-mode lyskom-edit-sent-mode auto-fill-mode 1 auto-save-mode local-variable-p make-local-variable nil "^" regexp-quote substitute-command-keys lyskom-get-string header-separator "$\\|" comment-start comment-end "" run-hooks lyskom-edit-mode-hook kom-cite-string] 5 (#$ . 1088865) "P"]) (defalias 'lyskom-edit-sending-mode #[(arg) "\204 ?\202\302!\303V\211\205\304\303!\210\305\303!\207" [arg lyskom-edit-sending-mode prefix-numeric-value 0 lyskom-edit-mode lyskom-edit-sent-mode] 3 nil "P"]) (defalias 'lyskom-edit-sent-mode #[(arg) "\204 ?\202\302!\303V\211\205\304\303!\210\305\303!\207" [arg lyskom-edit-sent-mode prefix-numeric-value 0 lyskom-edit-sending-mode lyskom-edit-mode] 3 nil "P"]) #@42 Send the text anonymously to the server. (defalias 'kom-edit-send-anonymous #[nil "\300\301\302\"\207" [lyskom-edit-send initiate-create-anonymous-text nil] 3 (#$ . 1090849) nil]) #@30 Send the text to the server. (defalias 'kom-edit-send #[nil "\300\301!\203\302\303!\203\304\305\306\"\207\304\307\310\"\207" [lyskom-default-value lyskom-is-anonymous lyskom-j-or-n-p do-send-anonymous lyskom-edit-send initiate-create-anonymous-text t initiate-create-text nil] 3 (#$ . 1091035) nil]) #@192 Send the text to the server by calling SEND-FUNCTION. If optional IS-ANONYMOUS is non-nil, assume that the text is being submitted anonymously and take actions to avoid revealing the sender. (defalias 'lyskom-edit-send #[(send-function &optional is-anonymous) "\300\301\302\217\207" [err (byte-code "\203\f\306\307\310!!\205\211p\311\211\211\211\211:\212\312 \313\314 \315\234\" \316\234 @) \2036 \317\230\203T`;eb\210\320\307\321!\311\322#\210\311\210`;U\204S\323\324\325\"\210)\326\f \"\211<\203h\313\314 \315\234<\244\")\327\330!\204t\323\331\311\"\210\332=!\203\203=\333 !\202\205\333 \212>\203\241 \203\226 \317\230\203\241\334\335\n\"\204\241\n\202\251 \206\246\317\336\nQ?\337 \315\"\211@\205\302\340@@\211AA\341H)!AB\342?!\211C\203\334B\204\334\343?!?\202\345\344\345!\203\345\346 \210@G\315V\203\366\347\307\350!!\210\202\200@\204]\351\315\311\211\211\211\211\211\211\211\211\211DEFGHIJK\352\353KJIHGFED&.B\351\354\355C\"LMNOPQR\356\353RQPONML&.B B\202\200B\204\200@@\354\357@@\211AA\341H)C#L\211AA\341LI\210*\360\315!\210Sq\210T\203\225U\204\225\322V\311W\361\362!\210\363\364?\fU\204\351\365\351\211\311\211\211\211\211\211\211\211DEFGHIJK\352\353KJIHGFED&.B\351\366XPLMNOPQR\356\353RQPONML&.B B\202 :U&\210Y\367\370?\fU\204z\351\365\351\211\311\211\211\211\211\211\211\211DEFGHIJK\352\353KJIHGFED&.B\351\366XPLMNOPQR\356\353RQPONML&.B B\202{ :U&\210. \371 \210db\207" [lyskom-edit-text-sent aux-list message subject misc-list headers j-or-n-p lyskom-get-string already-sent nil lyskom-edit-parse-headers apply lyskom-create-misc-list 1 2 "" re-search-forward header-subject t signal lyskom-no-subject (enter-subject-idi) lyskom-edit-send-check-recipients run-hook-with-args-until-failure lyskom-send-text-hook lyskom-edit-text-abort fboundp lyskom-edit-extract-text string-match ".*\n" "\n" lyskom-get-aux-item lyskom-mime-decode-content-type 6 lyskom-mime-string-charset lyskom-mime-encode-string lyskom-j-or-n-p too-many-languages keyboard-quit lyskom-error too-many-content-types 0 AUX-ITEM-FLAGS vector format "x-kom/text;charset=%S" AUX-ITEM "%s;charset=%S" lyskom-edit-sending-mode lyskom-tell-internat kom-tell-send run-hook-with-args lyskom-create-text-hook 15 "lyskom.el " sending lyskom-create-text-handler lyskom-undisplay-buffer buffer old extra-headers lyskom-send-text-transform-function lyskom-allow-missing-subject full-message content-type aux-item charset mime-charset reserved4 reserved3 reserved2 reserved1 anonymous secret inherit deleted data inherit-limit flags sent-at creator tag aux-no lyskom-buffer kom-created-texts-are-read is-anonymous lyskom-dont-change-prompt lyskom-is-writing lyskom-clientversion send-function] 20) ((lyskom-edit-text-abort (byte-code "\301\302\243\"\207" [err apply lyskom-message] 3)) (lyskom-no-subject (byte-code "\302!\210 \243\243\203 \243\243\242b\210\303\304\305 A@!\"\210\306\307\310\217\207" [kom-ding-on-no-subject err lyskom-beep lyskom-message "%s" lyskom-get-string nil (byte-code "\304\212 q\210\n\305\230\203 \306=\203\307)\212c*\207" [text lyskom-buffer lyskom-server-name lyskom-pers-no "" "kom.lysator.liu.se" 698 "rende, IDI!"] 2) ((error))] 4)) (lyskom-unknown-header (byte-code "\301\302\303A@!\"\207" [err lyskom-message "%s" lyskom-get-string] 4)))] 3 (#$ . 1091346)]) #@68 Check spelling of the text body. Put this in lyskom-send-text-hook (defalias 'lyskom-ispell-text #[nil "\300 \210\301\207" [kom-ispell-message t] 1 (#$ . 1094818)]) #@120 Check spelling of the text. kom-ispell-dictionary is the dictionary to use to check spelling. Based on ispell-message. (defalias 'kom-ispell-message #[nil "\306\307!\210\206 \310\301!?\206\311 \"?\312 \203!\313\314!\210\212eb\210\212\315\316\317\320\321\322!!!\323Q\312\314#)\324 \204?d\202Z\325 !\203V\315 \312\314#\203R\326\224\202Zd\202Zd ^!$\317\327\330!!%\331%P&\332%\333Q'()\314(\314*\316\317\321\334!!P+\335*!\210eb\210\f\203\226`\fW\202\230m?\203\274\336+!\203\266\326\225b\210)(\337`\312\210`\"\210)\202\214\340y\210\202\214`$W\203V\336&!\203\330`$W\203\330\340y\326U\204\303`$W\203\274`,\315'$\341#\205\356\326\224-,b\205\310\342!\205\315\"$\341#.-\203.\203-.^\206%-\206%.\206%\343$!!,b\210\337,!\".\203N!.U\203N!b\210\315/$\341#\210\202R!b\210,\202\274$\312\211\223\210.\n \203f\313\314!\210\n+\207" [kom-ispell-dictionary ispell-dictionary result kill-ispell internal-messagep ispell-message-text-end require ispell boundp lyskom-string= nil ispell-kill-ispell t re-search-forward "^" regexp-quote substitute-command-keys lyskom-get-string header-separator "$" copy-marker char-or-string-p 0 lyskom-default-value kom-cite-string "^[ ]*$\\|" "^\\(" "\\)" subject lyskom-ignore lyskom-looking-at ispell-region 1 end ispell-message-start-skip marker-position limit cite-regexp cite-regexp-start cite-regexp-end case-fold-search old-case-fold-search ispell-checking-message subject-string start end-c end-fwd ispell-message-end-skip] 6 (#$ . 1094990) nil]) (defalias 'lyskom-is-permitted-author #[(conf-stat) "\205\211A\302\234)\303=\206\304\211A\303\234) \"\207" [conf-stat lyskom-pers-no 8 0 lyskom-is-supervisor] 4]) #@216 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. Cannot be called from a callback. (defalias 'lyskom-edit-send-check-recipients #[(misc-list subject) "\306\306\306\306\306\307 \3060p1\2122q\2103)4\3105\3106\311\f!\210\31078A\2119<\20679G:\306;\306<\306<9<\203\2249\203\3459@\211;@\312=\203b;AB\202\213;@\313>\203\213;@\314=\203\2056T6;A4=\203\2055T5;A B9A\2119\202J7:W\203\34597H\211;@\312=\203\263;AB\202\334;@\313>\203\334;@\314=\203\3266T6;A4=\203\3265T5;A B7T\2117\202\226- \204\361\315\316\317\320!\"\210 \211=\203=@=A>\203\f\315\316\317\321=@\"\"\210=A\211=\204\370)\2122q\210>\204$\306\2028\322>!\2037>18?#\2028\323)\203\350\324\316\317\325!\"\210\2122q\210 \306@\211@\241\210*\326\327\"\210\330\331!\210\3107 \211A)\2119<\206n9G:\306\306<\306<9<\203\2549\203\3379@\211\203\243\332\333\215\203\243\334\317\335\f\"!\204\243\336\337\316\340\341!D\"\2109A\2119\202\2007:W\203\33797H\211\203\326\332\342\215\203\326\334\317\335\f\"!\204\326\336\337\316\340\341!D\"\2107T\2117\202\256.\324\316\317\343!\"\210\344\345!\203\344\345!\346=\20465Z\347V\203\212eb\210\334\317\350!!\204\336\337\316\340\351!D\"\210)\344\352!\203\306\3128A\236\203\306\324\316\340\353!\"\210\326\354\"\210\31078A\2119<\206@9G:\306;\306<\306<9<\203\2039\203\2729@\211;@\355>\203z;A\n>\204s;A4=\203z\356;A\n\"9A\2119\202S7:W\203\27297H\211;@\355>\203\261;A\n>\204\252;A4=\203\261\356;A\n\"7T\2117\202\205-\2122q\210\326\357\n\"\210)0. \207" [comm-to-list recipient-list author-list author-is-member text-stat collector nil make-collector 0 lyskom-ignore comm-to (recpt cc-recpt bcc-recpt) recpt lyskom-error "%s" lyskom-format no-recipients duplicate-recipients functionp t lyskom-message checking-comments mapcar #[(text-stat) "\302!\210\303\304\305 $\207" [text-stat collector cache-del-text-stat initiate-get-text-stat sending collector-push] 5] lyskom-wait-queue sending unread (byte-code "\306 \211A\307\234)\211<\206\nG\310\310\310\n<\203M\n\203\200\n@\211\211A\306\234)\311=\203F\312\313\314\f\211A\315\234)\"!\204F\316\317\320\"\210\nA\211\202 W\203\200\nH\211\211A\306\234)\311=\203y\312\313\314\f\211A\315\234)\"!\204y\316\317\320\"\210T\211\202N -\207" [__i__ text-stat __sequence__ __len__ misc-item __result__ 0 6 nil COMM-IN lyskom-text-read-at-least-once-p blocking-do get-text-stat 5 throw unread t misc-info] 6) lyskom-j-or-n-p have-unread-comment signal lyskom-edit-text-abort lyskom-get-string please-check-commented-texts (byte-code "\306 \211A\307\234)\211<\206\nG\310\310\310\n<\203M\n\203\200\n@\211\211A\306\234)\311=\203F\312\313\314\f\211A\315\234)\"!\204F\316\317\320\"\210\nA\211\202 W\203\200\nH\211\211A\306\234)\311=\203y\312\313\314\f\211A\315\234)\"!\204y\316\317\320\"\210T\211\202N -\207" [__i__ text-stat __sequence__ __len__ misc-item __result__ 0 6 nil COMM-IN lyskom-text-read-at-least-once-p blocking-do get-text-stat 5 throw unread t misc-info] 6) checking-comments-done lyskom-default-value kom-confirm-multiple-recipients before 1 comment-all-relevant-p please-edit-recipients kom-check-commented-author-membership checking-rcpt #[(x) "\304\305\"\211\205 \211A\306\234) >?\205 \307\310 \211A\306\234)\")\207" [x text text-stat kom-dont-check-commented-authors blocking-do get-text-stat 2 add-to-list author-list] 5] (recpt bcc-recpt cc-recpt) delq #[(author-number) "\306 \306\211\n\241\210*\307\310 \"\210\311\312!\210 \211A)\211\203G\f@\211\242)\313=\203@\f@\211A\314\234)\211A\315H)\204@\316\306\fA\211\204)?\205\201\317U?\205\201\320\321\322\"!\205\201\323\324\325\"!\205\201\323\324\326\"!\203w\327\202x\330D\244\211\207" [author-is-member collector value recipient-list tmp object nil mapcar #[(conference-number) "\303\304\305 \n%\207" [author-number conference-number collector initiate-query-read-texts sending collector-push] 6] lyskom-wait-queue sending MEMBERSHIP 7 1 t 0 lyskom-is-permitted-author blocking-do get-conf-stat lyskom-j-or-n-p lyskom-format add-recipient-p really-add-as-recpt-q recpt cc-recpt membership membership-type author-number extra-headers] 5] extra-headers buffer lyskom-buffer lyskom-pers-no me num-me num-real-recpt __i__ misc-list __sequence__ __len__ misc __result__ tmp kom-check-for-new-comments subject value] 6 (#$ . 1096729)]) (defalias 'lyskom-send-enriched #[(message) "\300\301\302\217\207" [err (byte-code "\303\304\305\306#\307\216\212q\210 c\210eb\210\310\311!\210eb\210\312\313!\210\314`d{ \"\204:\212\nq\210\315\316\317!!)\203:\320\321 P\202; +\207" [buf message lyskom-buffer lyskom-get-buffer-create lyskom-enriched "lyskom-enriched" t ((kill-buffer buf)) format-encode-buffer text/enriched search-forward "\n\n" lyskom-string= lyskom-j-or-n-p lyskom-get-string send-formatted "enriched:\n" buffer-string] 4) ((error (byte-code "\302\303\304\305!\306!\"!\203 \207\307\310\311\"\207" [err message lyskom-j-or-n-p lyskom-format lyskom-get-string transform-error error-message-string signal lyskom-edit-text-abort nil] 5)))] 3]) #@61 Kill the text (if any) written so far and continue reading. (defalias 'kom-edit-quit #[nil "pdb\210\303\304\305!\210p\306\216q\210\307 \210*\310!\210\311!\210)\312 \207" [edit-buffer lyskom-is-writing __buffer__ nil lyskom-tell-internat kom-tell-regret ((set-buffer __buffer__)) delete-auto-save-file-if-necessary lyskom-undisplay-buffer kill-buffer garbage-collect] 2 (#$ . 1102088) nil]) #@44 Show the commented text in another window. (defalias 'kom-edit-show-commented #[nil "\300\301!\207" [lyskom-edit-get-commented lyskom-edit-show-commented] 2 (#$ . 1102490) nil]) #@126 Insert the commented text. Unless an empty prefix argument is given, prepend each line with your commenting prefix (or '>'). (defalias 'kom-edit-insert-commented #[(arg) "\301\302\203<\203\303\202\304C\"\207" [arg lyskom-edit-get-commented lyskom-edit-insert-commented "" nil] 3 (#$ . 1102675) "P"]) #@62 Insert the commented buglist, Roxen Internet Software style. (defalias 'kom-edit-insert-buglist #[nil "\300\301!\207" [lyskom-edit-get-commented lyskom-edit-insert-buglist] 2 (#$ . 1102989) nil]) (defalias 'kom-edit-insert-digit-text #[nil " B\302\303\304\"\207" [last-command-event unread-command-events call-interactively kom-edit-insert-text nil] 3 nil nil]) #@56 Insert the text number NO with '>' first on each line. (defalias 'kom-edit-insert-text #[(no) "p\304 \nq\210\305\306!\210\307\306\310 #\210\311\306\310 #\210\312\306\313 $\210 q\210\314\315!*\207" [window buffer lyskom-buffer no selected-window lyskom-collect edit initiate-get-text nil initiate-get-text-stat lyskom-use lyskom-edit-insert-commented sit-for 0] 5 (#$ . 1103359) (list (cond ((null current-prefix-arg) (string-to-int (lyskom-read-from-minibuffer (format "%s" (lyskom-get-string 'which-text-include))))) ((prefix-numeric-value current-prefix-arg))))]) #@188 Get the commented text and text stat and then do THENDO with it. This function is called with an argument list TEXT TEXT-STAT BUFFER WINDOW plus any optional arguments given in ARG-LIST. (defalias 'lyskom-edit-get-commented #[(thendo &optional arg-list) "`\212p\306 \307\310\311\217\307 \203, @\312>\203$ A@\307\211\202 AA\211\204\f\203ab\210 q\210\313\314\fD\315\fDD!\211\316\234\317\234 q\210\320 \n&\210+\202h\321\322\323\324!\"\210-\325\316!)\207" [p buffer window headers no lyskom-buffer selected-window nil (byte-code "\300 \301\234\207" [lyskom-edit-parse-headers 1] 2) ((lyskom-edit-error)) (comm-to footn-to) lyskom-blocking-do-multiple get-text get-text-stat 0 1 apply lyskom-message "%s" lyskom-get-string no-such-text-m sit-for multiple-bind-sym text-stat text thendo arg-list] 8 (#$ . 1103935)]) (byte-code "\301B\302B\301\207" [current-load-list Info-current-node Info-current-file] 2) #@45 Put the current Info-node on the kill-ring. (defalias 'kom-yank-info-nodename #[nil "\302\303\304\305 !$!\207" [Info-current-node Info-current-file kill-new format "*Note %s: (%s)%s," file-name-nondirectory] 6 (#$ . 1104880) nil]) #@60 Insert a reference to the most recently visited info node. (defalias 'kom-insert-last-info-nodename #[nil "\300\301\302\217\207" [nil (byte-code "\303\212\304\305!q\210\306\307 \310\n! $)c)\207" [link Info-current-node Info-current-file nil get-buffer "*info*" format "*Note %s: (%s)%s," file-name-nondirectory] 5) ((error (byte-code "\300\301\302\303!\"\207" [lyskom-message "%s" lyskom-get-string cant-find-info-node] 4)))] 3 (#$ . 1105119) nil]) #@52 Adds a text as commented to the text being edited. (defalias 'kom-edit-add-comment #[nil "p\305 \306\307\310!!\311\312\n\"\313!\210p\314\216 \203*\315\311\312\n\"\307\316! \n$\2020\317\320\307\321!\".\207" [edit-buffer insert-at text-no text-stat __buffer__ point-min-marker lyskom-read-number lyskom-get-string text-to-comment-q blocking-do get-text-stat lyskom-ignore ((set-buffer __buffer__)) lyskom-edit-get-commented-author comment lyskom-error "%s" no-such-text-m] 5 (#$ . 1105577) nil]) #@58 Adds a conference as recipient to the text being edited. (defalias 'kom-edit-add-recipient #[nil "\300\301\302!\303\304#\207" [lyskom-edit-add-recipient/copy lyskom-get-string added-recipient nil recpt] 4 (#$ . 1106086) nil]) #@62 Adds a conference as bcc recipient to the text being edited. (defalias 'kom-edit-add-bcc #[nil "\300\301\302!\303\304#\207" [lyskom-edit-add-recipient/copy lyskom-get-string added-blank-carbon-copy nil bcc-recpt] 4 (#$ . 1106318) nil]) #@68 Adds a conference to which a copy of the edited text will be sent. (defalias 'kom-edit-add-copy #[nil "\300\301\302!\303\304#\207" [lyskom-edit-add-recipient/copy lyskom-get-string added-carbon-copy nil cc-recpt] 4 (#$ . 1106560) nil]) #@86 Adds a conference as a recipient, and changes all other recipients to CC recipients. (defalias 'kom-edit-move-text #[nil "\300\301\302!\303\"\207" [lyskom-edit-add-recipient/copy lyskom-get-string who-to-move-to-q lyskom-edit-move-recipients] 3 (#$ . 1106802) nil]) (defalias 'lyskom-edit-move-recipients #[(conf-stat insert-at edit-buffer) "\212q\210\306 \211@\307\310\311 \312\234!A\" \313\234\314\315 \316\211A\317\234)#\211\2033 \320\240\210\202L\321\320\211A\317\234)B \315 \322\314\323$ >A@#\210\324\n\325 B\f#.\207" [edit-buffer tmp subject miscs aux-list elem lyskom-edit-parse-headers mapcar #[(x) "@\301=\203\f\302AB\207\207" [x recpt cc-recpt] 2] lyskom-edit-translate-headers 1 2 nil lyskom-edit-find-misc (recpt cc-recpt bcc-recpt) 0 recpt lyskom-insert-in-list (footn-to comm-to) t lyskom-edit-replace-headers MISC-LIST conf-stat] 9]) (defalias 'lyskom-edit-do-add-recipient/copy #[(recpt-type recpt-no edit-buffer) "p\306\216 q\210\307 \310\n\311\234!\312 \313\f#\211\203\" \240\210\202+\314 \fBC\"\315\n\316\234 \n\317\234#-\207" [__buffer__ edit-buffer headers miscs recpt-no elem ((set-buffer __buffer__)) lyskom-edit-parse-headers lyskom-edit-translate-headers 1 lyskom-edit-find-misc (cc-recpt bcc-recpt recpt) append lyskom-edit-replace-headers 0 2 recpt-type] 6]) #@234 Adds a new recipient or a cc-recipient to the text which is being edited. PROMPT is the prompt to use to ask the user for a recipient. WHAT-TO-DO is a function to call to do the insertion. RECPT-TYPE is the type of recipient to add. (defalias 'lyskom-edit-add-recipient/copy #[(prompt &optional what-to-do recpt-type) "p\306 \307\310\311\312\313%p\314\216\212 q\210 \211A\315\234)\311\211\211\316 &'()\211*\317U\204]\320\321\322*&$\210\323\321\322*&$\210\324\321!\210&\211&A)\317\234'&\211&A)\325\234((\203\221'\203\221\326 !\203\221\327 )\330\220\331\332\333(\211(A\317\234)\334('\"#!\221\210\335\336\337!!\203\305+\203\251,\340=\203\251\341\332\342 \"!\204\251\343,-\203\270- \n #\210\202\305\344, \211A\317\234) #\210)\205\316\345)!. \207" [prompt conf-stat insert-at edit-buffer __buffer__ lyskom-buffer point-min-marker lyskom-read-conf-stat (all) nil "" t ((set-buffer __buffer__)) 10 make-collector 0 initiate-get-text edit collector-push initiate-get-text-stat lyskom-wait-queue 1 get-buffer-window current-window-configuration "*Motd*" lyskom-princ lyskom-format conf-has-motd-no text->decoded-text-mass j-or-n-p lyskom-get-string still-want-to-add recpt lyskom-j-or-n-p really-add-as-recpt-q cc-recpt lyskom-edit-do-add-recipient/copy set-window-configuration collector text-stat text win-config text-no kom-confirm-add-recipients recpt-type what-to-do] 9 (#$ . 1108128)]) (defalias 'kom-edit-add-cross-reference #[nil "\306\307!\310B\306\311!\312B\306\313!\313BE\314\315\316\306\317!\320!\321\314$\"A\321\321\321\n\313=\203\252\306\322! \204D\323\324\325\f!\"\306\326!\2022\327\330\327\211\321\211\211\211\211\211\211\211&'()*+,-\331\332-,+*)('&&.B\327\333\334 \211.A\327\234)\"/012345\335\332543210/&.B\202\224\n\310=\203\306\336! \204\224\337\f\340\321\211\314%\327\330\327\211\321\211\211\211\211\211\211\211&'()*+,-\331\332-,+*)('&&.B\327\333\341 \"/012345\335\332543210/&.B\202\264\n\312=\203\224\306\342! \204\224\337\f\343\321\211\314%\327\330\327\211\321\211\211\211\211\211\211\211&'()*+,-\331\332-,+*)('&&.B\327\333\344 \"/012345\335\332543210/&.B\202)\345 !.\207" [completions completion-ignore-case type obj prompt item lyskom-get-string conference conf person pers text t lyskom-string-assoc lyskom-completing-read xref-type lyskom-maybe-frob-completion-table nil which-text-to-xref blocking-do get-text-stat lyskom-read-number which-text-to-xref-err 0 3 AUX-ITEM-FLAGS vector format "T%d" AUX-ITEM which-conf-to-xref lyskom-read-conf-no (conf) "C%d" which-pers-to-xref (pers) "P%d" lyskom-edit-insert-aux-item reserved4 reserved3 reserved2 reserved1 anonymous secret inherit deleted text-stat data inherit-limit flags sent-at creator tag aux-no] 15 nil nil]) (defalias 'kom-edit-add-read-confirm-request #[nil "\306\307\310\307\211\311\211\211\211\211\211\211\211\312\313 \f \n &.B\307\314\315\313&.B!\207" [reserved4 reserved3 reserved2 reserved1 anonymous secret lyskom-edit-insert-aux-item 0 6 nil AUX-ITEM-FLAGS vector "" AUX-ITEM inherit deleted data inherit-limit flags sent-at creator tag aux-no] 15 nil nil]) (defalias 'kom-edit-add-no-comments #[nil "\306\307\310\307\211\311\211\211\211\211\211\211\211\312\313 \f \n &.B\307\314\315\313&.B!\207" [reserved4 reserved3 reserved2 reserved1 anonymous secret lyskom-edit-insert-aux-item 0 4 nil AUX-ITEM-FLAGS vector "" AUX-ITEM inherit deleted data inherit-limit flags sent-at creator tag aux-no] 15 nil nil]) (defalias 'kom-edit-add-personal-comments #[nil "\306\307\310\307\211\311\211\211\211\211\211\211\211\312\313 \f \n &.B\307\314\315\313&.B!\207" [reserved4 reserved3 reserved2 reserved1 anonymous secret lyskom-edit-insert-aux-item 0 5 nil AUX-ITEM-FLAGS vector "" AUX-ITEM inherit deleted data inherit-limit flags sent-at creator tag aux-no] 15 nil nil]) #@48 Insert the aux item ITEM in the current buffer (defalias 'lyskom-edit-insert-aux-item #[(item) "\212eb\210\302\303\304\305\306\307!!!\310Q\311\312#\210\313y\210\314y\210\315\316\317\306\320!\"\321\322p\323 B\"\324\325 $#\326Pc)\207" [item lyskom-pers-no re-search-forward "^" regexp-quote substitute-command-keys lyskom-get-string header-separator "$" nil t 0 -1 lyskom-format format "%%#1@%%[%s%%]%%#2s" aux-item-prefix lyskom-default-button aux-edit-menu point-marker lyskom-aux-item-call (edit-insert print) "\n"] 8 (#$ . 1112202)]) (defalias 'lyskom-edit-toggle-secret-aux #[(buf arg text) "p\304\216 @q\210 Ab\210\305\n \306$*\207" [__buffer__ arg buf text ((set-buffer __buffer__)) lyskom-edit-toggle-aux-item-flag secret] 5 nil nil]) (defalias 'lyskom-edit-toggle-anonymous-aux #[(buf arg text) "\212@q\210Ab\210\303 \n\304$)\207" [arg buf text lyskom-edit-toggle-aux-item-flag anonymous] 5 nil nil]) (defalias 'lyskom-edit-toggle-inherit-aux #[(buf arg text) "\212@q\210Ab\210\303 \n\304$)\207" [arg buf text lyskom-edit-toggle-aux-item-flag inherit] 5 nil nil]) (defalias 'lyskom-edit-delete-aux #[(buf arg text) "\212@q\210Ab\210\301y\210`\212\302y\210`)|)\207" [arg 0 1] 2 nil nil]) (defalias 'lyskom-edit-insert-aux-item-flags #[(flags) "\212\303\304\305\306\211A\307H)\205\310\311!\211A\312H)\205\310\313!\211A\314H)\205,\310\315!E\"\316#\211\317\230?\205@\306\210\320\321\n\"c*\207" [flags aux-item-flags str mapconcat identity delq nil 2 lyskom-get-string secret-aux-flag 3 anonymous-aux-flag 1 inherit-aux-flag ", " "" format " [%s]"] 9]) (defalias 'lyskom-edit-toggle-aux-item-flag #[(buf arg text flag) "\302y\210\303 \304\305\212\306\210`)\307#\203\302\224\302\225|\210\310\311\312 \"!\310\311\313 \"!!?\"\210\314!)\207" [flags flag 0 lyskom-edit-extract-aux-item-flags re-search-forward "\\s-?\\[[^]]*\\]\\s-*$" nil t intern format "set-aux-item-flags->%s" "aux-item-flags->%s" lyskom-edit-insert-aux-item-flags] 6]) #@273 Return the first misc-info pair in MISC-LIST of type TYPE containing DATA. If TYPE is a list, then any type in TYPE is considered to match. If DATA is nil, then any DATA is considered to match. If optional LAST is non-nil, then return the last match instead of the first. (defalias 'lyskom-edit-find-misc #[(misc-list type data &optional last) "@\306=\203\nA\307\211\203^ \204\n\204^@A\f<\2037 @\f>\203 \203Y A=\202V\f9\203N\f @=\203 \203Y A=\202V \203Y A=\203 \202\n*\207" [misc-list elem result last type data MISC-LIST nil] 2 (#$ . 1114179)]) #@102 Translate result of lyskom-edit-parse-header to something we can send to lyskom-edit-replace-headers (defalias 'lyskom-edit-translate-headers #[(misc-list) "\302 \203 @ A@BB AA\211\204\303\237)B\207" [result misc-list nil MISC-LIST] 3 (#$ . 1114766)]) #@48 Replace all headers with SUBJECT and MISC-LIST (defalias 'lyskom-edit-replace-headers #[(subject misc-list aux-list) "\212\305\211eb\210\306 \307 \310\"\210\311\312\313\314\315\316!!!\317Q!\210\305\210\306 eb\210\320\n \321\f$\210 |\210b\210\322\323!+\207" [end start misc-list subject aux-list nil point-marker set-marker-insertion-type t re-search-forward "^" regexp-quote substitute-command-keys lyskom-get-string header-separator "$" lyskom-edit-insert-miscs "" delete-char 1] 6 (#$ . 1115033)]) #@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) "\302\303! \304=\203\305\202 \205\306P!\205% \203$\307\310\224\310\225{!\207\311\207" [header match-number lyskom-looking-at lyskom-get-string angled "[^0-9]*<\\([0-9]+\\)>" "[^0-9]*\\([0-9]+\\)" string-to-int 1 t] 4 (#$ . 1115547)]) #@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 "eb\210\306\211\211\214\307\310\311\312\313\314!!!\315Q!\210\316y\210e`}\210eb\210`dW\203\315\317\306\320\321\322\"\211\203=\n\323 D\244\202\306\320\324\322\"\211\203O\n\325 D\244\202\306\320\326\322\"\211\203a\n\327 D\244\202\306\320\330\317\"\211\203s\n\331 D\244\202\306\320\332\317\"\211\203\205\n\333 D\244\202\306\320\334\306\"\203\222\335 \202\306\336\313\337!!\203\267\316\225b\210\340 \211\203\254 B\202\263\341\342\343`D\"\210)\202\306\336\313\344!!\204\306\341\342\343`D\"\210*\345y\210\202!) \nE+\207" [aux subject misc n case-fold-search item nil re-search-forward "^" regexp-quote substitute-command-keys lyskom-get-string header-separator "$" 0 t lyskom-looking-at-header recipient-prefix angled recpt carbon-copy-prefix cc-recpt blank-carbon-copy-prefix bcc-recpt comment-prefix comm-to footnote-prefix footn-to header-subject lyskom-edit-extract-subject lyskom-looking-at aux-item-prefix lyskom-edit-parse-aux-item signal lyskom-unknown-header unknown-header comment-item-prefix 1] 7 (#$ . 1116054)]) (defalias 'lyskom-edit-parse-aux-item #[nil "\306 \204\n\203\307\n@\310\"\211\204\nA\202 \205F\311\312\n@!\311\211\313 \311 \314\315 \f &.B*\207" [lyskom-aux-item-definitions data definitions inherit-limit flags sent-at nil lyskom-aux-item-call parse 0 lyskom-aux-item-definition->number lyskom-edit-extract-aux-item-flags AUX-ITEM vector creator tag aux-no] 10]) (defalias 'lyskom-edit-extract-aux-item-flags #[nil "\306\307!\203\242\310\311!\312\313\211\211\211\211\211\211\211\211\314\315 \f \n &.B\316\317\320#\203\236\310\311\"\312\225\317\321\322!\"\203h\316\211A\323 I\210*\2029\317\321\324!\"\203\202\316\211A\325\fI\210*\2029\317\321\326!\"\2039\316\211A\311I\210*\2029-\207\313\211\211\211\211\211\211\211\314\315 \f \n &.B\207" [reserved4 reserved3 reserved2 reserved1 anonymous secret lyskom-looking-at ".*\\[\\([^]]*\\)\\]\\s-*$" match-string 1 0 nil AUX-ITEM-FLAGS vector t string-match "\\s-*\\(\\w+\\)\\s-*" lyskom-get-string secret-aux-flag 2 anonymous-aux-flag 3 inherit-aux-flag inherit deleted case-fold-search flags flag start flag-strings aux-item-flags] 14]) #@75 Find the subject. Point must be located on the line where the subject is. (defalias 'lyskom-edit-extract-subject #[nil "\300\301!\210\302\224\302\225{\207" [re-search-forward ": \\(.*\\)" 1] 2 (#$ . 1118665)]) #@23 Get text as a string. (defalias 'lyskom-edit-extract-text #[nil "\212eb\210\300\301\302\303\304\305!!!\306Q\307d#\204\310\311\312\"\2024`TdSb\210\313\314!\203/\315\316!\210\202\"\316u\210`{)\207" [re-search-forward "^" regexp-quote substitute-command-keys lyskom-get-string header-separator "$" nil signal lyskom-internal-error "Altered lyskom-header-separator line." lyskom-looking-at "\\s-" backward-char 1] 6 (#$ . 1118881)]) #@60 Return non-nil if point is on the same line as an aux-item (defalias 'lyskom-edit-on-aux-item #[nil "\212\300y\210\301\302\303!!\205\304\305\306\307\302\310!!!\311Q\312d#)\207" [0 lyskom-looking-at lyskom-get-string aux-item-prefix re-search-forward "^" regexp-quote substitute-command-keys header-separator "$" nil] 6 (#$ . 1119321)]) #@36 Handle an attempt to write a text. (defalias 'lyskom-create-text-handler #[(text-no edit-buffer &optional is-anonymous) "\306\307!\210\310\311!\210\204m\312\313\314 \315 !#!\210\316 \210\317\320\313\314 \315 !#\"\210\nq\210\321\322\323\322\211\211 6789:\324\325:9876 \322\f&.B;<=<=\203z\333\334\"\210\202\201\312\313\335\"!\210?\203\236\336 !\203\236\337\340\341@\212 q\210\342 )>&\210A\203\301>\204\301\343!\210\344\340\345#\210\346\340\347\350\322$\210\346\340\351\"\210\202\304\322( q\210\352\330!\210>\204\332\353\354\"\210\353\355\"\210BCDE\356 !\203\366\357F!\210\360\361 !q\210db\210\nq\210E\203\362ED#\210*pG\363\216 q\210\364 \210*\365 !\207" [text-no lyskom-errno lyskom-buffer edit-buffer misc forward lyskom-tell-internat kom-tell-silence message "" lyskom-insert-before-prompt lyskom-format could-not-create-text lyskom-get-error-text beep lyskom-message "%s" RE-EDIT-TEXT nil 256 READ-INFO vector lyskom-update-prompt lyskom-edit-mode 1 sit-for 0 lyskom-format-insert-before-prompt text-created-anonymous text-created buffer-live-p initiate-get-conf-stat background lyskom-edit-fcc-text buffer-string lyskom-is-read initiate-get-text-stat lyskom-mark-as-read lyskom-run set lyskom-dont-change-prompt lyskom-set-mode-line lyskom-edit-sent-mode lyskom-set-default lyskom-last-written lyskom-last-seen-written get-buffer-window set-window-configuration window-buffer selected-window apply ((set-buffer __buffer__)) delete-auto-save-file-if-necessary kill-buffer comm-to text-list priority conf-stat type lyskom-reading-list read-list read-info is-anonymous kom-created-texts-are-saved lyskom-pers-no kom-created-texts-are-read lyskom-edit-handler lyskom-edit-handler-data dta hnd lyskom-edit-return-to-configuration __buffer__] 10 (#$ . 1119665)]) (defalias 'lyskom-edit-fcc-text #[(conf-stat text text-no is-anonymous) "\300\301\302\217\207" [arg (byte-code "\306\307\212\310\311\312\"q\210\313 \210\nc\210eb\210\314\315\316\317\320\321!!!\322Q\323\324#\203=\307\224b\210\307\224\307\225|\210\325 \326\"c\210\306y\210\307y\210`eb\210\314\327\323\324#\203N\307\224\307\225|\210db\210`\330\331\f\325 \332\333\f!!Z\334Z\326\"#c\210eb\210\335\336\f\337\340 !\341 \"$%&\210\342ed\343&!#+\207" [end start text kom-text-header-dash-length text-no kom-text-footer-dash-length 1 0 lyskom-get-buffer-create fcc "*kom*-fcc" erase-buffer re-search-forward "^" regexp-quote substitute-command-keys lyskom-get-string header-separator "$" nil t make-string 45 "\\(\\s-\\|[\n ]\\)+\\'" lyskom-format "\n(%#1n) %#2s\n\n" lyskom-string-width int-to-string 3 lyskom-format-insert-at-point text-no-comment lyskom-return-date-and-time lyskom-client-date count-lines append-to-file expand-file-name conf-stat is-anonymous kom-created-texts-are-saved] 8) ((file-error (byte-code "\303\304\"\210\305\306 \n\307\234\310\234%\207" [arg text-no kom-created-texts-are-saved message "%S" lyskom-format-insert-before-prompt cant-fcc-text-file-error 1 2] 7)) (error (byte-code "\303\304 \305\n!$\207" [text-no kom-created-texts-are-saved arg lyskom-format-insert-before-prompt cant-fcc-text error-message-string] 6)))] 3]) #@300 Handles the TEXT and TEXT-STAT 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 text-stat editing-buffer window) "\2059\306 !\2059 q\210\307\n!\210\310\311\312\"\313\314 \315\216\316\f!\210\212\fq\210\317 \210\320\211A\321\234)!\210\322\313!\210\323 -\207" [text editing-buffer window kom-deferred-printing buf save-selected-window-window get-buffer-window select-window lyskom-get-buffer-create view-commented "*Commented*" nil selected-window ((select-window save-selected-window-window)) lyskom-display-buffer erase-buffer lyskom-view-text 0 set-buffer-modified-p lyskom-view-mode] 4 (#$ . 1122904)]) #@208 Handles the TEXT and TEXT-STAT from the return of the call of the text. When given a PREFIX string, that is prepended to each inserted line. If PREFIX is nil, use the default prefix (kom-cite-string or ">". (defalias 'lyskom-edit-insert-commented #[(text text-stat editing-buffer window &optional prefix) "\203V \203V\306 \"\n\206\307\310!\206\311\fq\210n\204#\312c\210l\204+\313\314!\210`\315\312 \" T\316O\211c\210 `X\205T\317y\210\n\203N\nc\210\320y\210\202>-\207\321\322\323\324!\"\207" [text text-stat prefix str editing-buffer pb text->decoded-text-mass lyskom-default-value kom-cite-string ">" "\n" open-line 1 string-match nil 0 -1 lyskom-message "%s" lyskom-get-string no-get-text as te] 5 (#$ . 1123788)]) #@224 Handles the TEXT and TEXT-STAT from the return of the call of the text. The commented text is inserted in the buffer in the Roxen Internet Software buglist style, automating the removal of closed subjects and change-marks. (defalias 'lyskom-edit-insert-buglist #[(text text-stat editing-buffer window) "\203\200 \203\200\306 \" q\210n\204\307c\210l\204\310\311!\210`\312\307\n\"\n T\313O\211c\210\314\315\313\316#\203@\317\320\321\"\210\2020\fb\210\322\323\313\316#\205~\324y\210`\322\325\313\316#\211\203rb\210\324y\210\326\327!\203u\324y\210\330u\210\202udb\210`|\210*\202C,\207\331\332\333\334!\"\207" [text text-stat str editing-buffer pb as text->decoded-text-mass "\n" open-line 1 string-match nil re-search-backward "^\\s-*[!X][ (]*\\[" t replace-regexp "^\\(\\s-*\\)[!X]\\([ (]*\\[\\)" "\\1 \\2" re-search-forward "^[ *([]*\\[[^\\/ ]\\]" 0 "^[ *(]*\\[[\\/ ]\\]\\|^\\s-\\{0,2\\}[^ (*![]" lyskom-thing-at-point-looking-at "^\\s-\\{0,2\\}[^ (*![]" -1 lyskom-message "%s" lyskom-get-string no-get-text te delete-from delete-to] 5 (#$ . 1124533)]) #@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) "\305!\204 \207\305 !\204\207\306!\307\310\311!\203$\311\312 \"\210\202\213\313\314\f\"\203a\315 A@!\203a\n A@GW\203W A@\nH\203P\316 \317\n! A@\nH#\210\nT\211\2024\320\321 AA\"\210\202\213\315 !\203\205\n GW\203\213 \nH\203~\316 \317\n! \nH#\210\nT\211\202h\320\322 A\"\210 *\207" [oldmap newmap r map emacs-version keymapp copy-keymap 0 fboundp map-keymap #[(event function) "\303\304 !\n#\207" [map event function define-key vector] 4] string-match "^19" arrayp define-key char-to-string mapcar #[(ele) "\302 @\250\203\303 @!\202\304 @! A#\207" [map ele define-key char-to-string vector] 4] #[(ele) "\302 @\250\203\303 @!\202\304 @! A#\207" [map ele define-key char-to-string vector] 4]] 6 (#$ . 1125625)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: filter.el,v 44.19 2001/01/03 22:02:55 qha 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) "\302 \303!#\207" [p a lyskom-create-filter lyskom-create-compile-filter-function] 5 (#$ . 1126756)]) (defalias 'lyskom-create-filter #[(pattern attribute-list function) "\303\304 \n#D\207" [pattern attribute-list function filter vector] 5]) #@30 Re-compile the filter FILTER (defalias 'lyskom-recompile-filter #[(filter) "\301\302\303!!\"\207" [filter set-filter->function lyskom-create-compile-filter-function filter->pattern] 5 (#$ . 1127154)]) #@31 Create a copy of the filter F (defalias 'copy-filter #[(f) "\301\302\303!!\302\304!!\"\207" [f make-filter copy-tree filter->pattern filter->attribute-list] 5 (#$ . 1127363)]) #@36 Returns T if f looks like a filter (defalias 'filter-p #[(f) "<\205 @\301=\207" [f filter] 2 (#$ . 1127547)]) #@41 Extract the patterns part of a filter F (defalias 'filter->pattern #[(f) "\301\234\302\234\207" [f 1 0] 2 (#$ . 1127666)]) #@34 Extract the attribute list of F. (defalias 'filter->attribute-list #[(f) "\301\234\301\234\207" [f 1] 2 (#$ . 1127796)]) #@96 From filter F, extract the value of attribute A. Returns nil if no such attribute is present. (defalias 'filter->attribute #[(f a) "\302 !\236A\207" [a f filter->attribute-list] 3 (#$ . 1127924)]) #@34 Set the patterns part of F to P. (defalias 'set-filter->pattern #[(f p) "\302\234\303 I\207" [f p 1 0] 3 (#$ . 1128129)]) #@41 Set the attribute list of filter F to L (defalias 'set-filter->attribute-list #[(f l) "\302\234\302 I\207" [f l 1] 3 (#$ . 1128258)]) #@48 Set the value in filter F of attribute A to V. (defalias 'set-filter->attribute #[(f a v) "\304 !\236\211\203\n \241\202\305  B\304 !B\")\207" [a f x v filter->attribute-list set-filter->attribute-list] 6 (#$ . 1128399)]) #@31 Get the function for filter F (defalias 'filter->function #[(f) "\301\234\302\234\207" [f 1 2] 2 (#$ . 1128634)]) #@37 Set the function for filter F to FN (defalias 'set-filter->function #[(f fn) "\302\234\303 I\207" [f fn 1 2] 3 (#$ . 1128755)]) #@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 (#$ . 1128891)) (defalias 'lyskom-filter-text-p #[(text-no) "\205\303\304\305\306\n#\210 \303=\203\307 \210\202\f \207" [lyskom-filter-list lyskom-filter-hack text-no invalid-value initiate-get-text-stat filter lyskom-filter-text-p-2 lyskom-accept-process-output] 4]) (defalias 'lyskom-filter-text-p-2 #[(text-stat) "\204\306\211\207\307\310!\210\311\310\306\211A\312\234)#\210\313\310\306\211A\314\234)#\210\314\211A\315\234)\211<\2065 G\306\306\306 <\203p \203\240 @\211\211A\314\234)\211>\203h\311\310\306 \211A\316\234)#\210) A\211\202D\n\fW\203\240 \nH\211\211A\314\234)\211>\203\230\311\310\306 \211A\316\234)#\210)\nT\211\202q-\317\310\320#\207" [text-stat lyskom-filter-hack __i__ __sequence__ __len__ misc nil lyskom-collect filter initiate-get-conf-stat 2 initiate-get-text 0 6 1 lyskom-use lyskom-filter-text-p-3 __result__ misc-info type lyskom-recpt-types-list] 6]) (defalias 'lyskom-filter-text-p-3 #[(author text &rest data) "\203 \204\f\306\211\207\306\211 \211GS\234 G\307U\203\"\306\202+ G\310Z \233\306\241\210\311 \"\312\313\"\203C\314\211\224O\202E\315)\316 \f\311 \"&\211*\207" [text author lyskom-filter-hack text-stat subject data nil 1 2 text->decoded-text-mass string-match "\n" 0 "" lyskom-check-filter-list str lyskom-filter-list] 8]) (defalias 'lyskom-check-filter-list #[(text-stat author recipient-list subject text filter-list) "\302 \203\302\303\304\217\210\203\302\211\202 A\211\204)\207" [tmp filter-list nil (byte-code "\306\307@!!\203\307@!@ \n \f &\306\207" [filter-list author recipient-list subject text-stat text functionp filter->function tmp] 7) ((error))] 4]) (defalias 'lyskom-filter-is-member '(macro . #[(testfn arg list selector) "\304\305\306DD\307\310\311 \n \312BE\313BB\314BBB\315BBB\207" [list testfn arg selector let found objlist while (and objlist (not found)) and ((car objlist)) ((setq found t)) ((setq objlist (cdr objlist))) (found)] 9])) (defalias 'lyskom-create-compile-filter-function #[(pattern) "\204\301\302!\207\301\303!!\207" [pattern byte-compile (lambda (filter author recipient-list subject text-stat text) nil) lyskom-create-filter-function] 3]) (defalias 'lyskom-create-filter-function #[(pattern) "\301\302\303\304!BE\207" [pattern lambda (filter author recipient-list subject text-stat text) and lyskom-create-filter-function-body] 5]) (defalias 'lyskom-create-filter-function-body #[(pattern) "\305 \204\n\306\202' <\203 @<\204\307\310\311\312!\"\202' @@ @A\305\211\313=\203E <\204=\307\310\311\314!\"\210\202E @ A\315\f\316=\203Z\317\320 \"\210\321\322 !\323BB\202\f\324=\203m\317\325 \"\210\321 \326BB\202\f\327=\203\200\317\330 \"\210\331 \332BB\202\f\333=\203\227\317\320 \"\210\334\321\322 !\335BBB\202\f\336=\203\254\317\325 \"\210\334\321 \337BBB\202\f\340=\203\301\317\330 \"\210\334\331 \341BBB\202\f\342=\203\326\317\320 \"\210\321\322 !\343BB\202\f\344=\203\351\317\325 \"\210\321 \345BB\202\f\346=\203\376\317\320 \"\210\321\322 !\347BB\202\f\350=\203\317\325 \"\210\321 \351BB\202\307\311\352!\f\"\203 \313\nD\n\353 A!+B)\207" [inverse pattern form args key nil ((filter->attribute filter 'action)) lyskom-error "%s" lyskom-get-string filter-error-specification 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) " !?\205\302\303\304! #\207" [fn arg lyskom-error lyskom-get-string filter-error-key-arg] 4]) (defalias 'lyskom-filter-prompt #[(text-no prompt) "\306\307\310 \"\311\211\203\\\312\313 D\314 \211A\315\234)DD!\211\316\234\f\317\234\211\203[\320 \"\321\322\"\203B\316\211\224O\202D\323 \n \206U \211A\315\234)$\210\324 \210)+*\311\211\207" [lyskom-filter-hack text-no subject text-stat multiple-bind-sym conf-stat t blocking-do get-text-stat nil lyskom-blocking-do-multiple get-text get-conf-stat 2 0 1 text->decoded-text-mass string-match "\n" lyskom-format-insert lyskom-scroll text str prompt] 7]) #@58 Add the filter FILTER to the LysKOM filtering mechanism. (defalias 'lyskom-add-filter #[(filter) "\304\305\"\203 B\202\nB\306p\307\310!\307\311!\307\312!$\210 B\211\207" [filter kom-session-filter-list kom-permanent-filter-list lyskom-filter-list filter->attribute expire lyskom-save-options lyskom-get-string filter-edit-saving filter-edit-saving-done filter-edit-saving-error] 6 (#$ . 1133540)]) #@64 Read a filter action from the minibuffer, returning its symbol (defalias 'lyskom-filter-read-action #[nil "\302\303\304\305\306!\307\310 !!\311\211 @A\302& \"@)\207" [completion-ignore-case lyskom-filter-actions t rassoc lyskom-completing-read lyskom-get-string filter-action lyskom-maybe-frob-completion-table lyskom-reverse-pairs nil] 8 (#$ . 1133955)]) #@88 Ask the user is a filter is permanent and return t in this case. Otherwise return nil. (defalias 'lyskom-filter-read-permanent #[nil "\300\301\302!!\207" [lyskom-j-or-n-p lyskom-get-string filter-permanent] 3 (#$ . 1134319)]) #@72 Interactively filter a subject. Optional SUBJECT is subject to filter. (defalias 'kom-filter-subject #[(&optional subject) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-filter-subject-start-buffer lyskom-start-of-command kom-filter-subject ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-filter-subject-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306U?\205m\307\310\"\311\211\211\211 \204 \312\313\314! \" \315 B B\316\313\317!\320\321 \211A\306\234)\203I \211A\322\234)\306B\206J\323\321%\211\306U\204Y\324 B B\325 \326 \327\330 \302\nB\331\f?BD\"!-\207" [lyskom-current-conf conf-stat action filter perm conf 0 blocking-do get-conf-stat nil lyskom-read-from-minibuffer lyskom-get-string filter-subject 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 lyskom-current-subject] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1134551) nil]) #@33 Interactively filter an author. (defalias 'kom-filter-author #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-filter-author-start-buffer lyskom-start-of-command kom-filter-author ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-filter-author-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\211\211\211\211\211\307\310\206\311D\312DD!\211\311\234\313\234 \211!\2039\314\312!\211!A\315\234)\"\316\317\320!\321\322 \203P \211 A\313\234)\311B\206Q\323\322%\211\311U\204`\324\fB\nB\316\317\325!\326\322 \203y \211 A\313\234)\311B\206z\323\322%\211\311U\204\211\327 B\nB\330 \331 \332\333\n\301 B\334?BD\"!. \207" [permanent action filter conf author auth-stat nil lyskom-blocking-do-multiple get-text-stat 0 get-conf-stat 1 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 lyskom-current-text lyskom-current-conf multiple-bind-sym conf-stat text-stat] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1135706) nil]) #@87 Skip all texts and comments that share the subject and recipient of the current text (defalias 'kom-super-jump #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-super-jump-start-buffer lyskom-start-of-command kom-super-jump ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-super-jump-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\203\n\306U\203\307\310!\207\311\312\"\313\211\211\211 \205% \306U?\205%\311\314 \"'(\306)(\211(A\315\234)\211*<\206C*G+\313,\313-\313-*<\203\274*\203)*@\211,\211.A\306\234)\316=\203|,\211.A\317\234)'B'\202\263,\211.A\306\234)\320=\203\231,\211.A\317\234) B\202\263,\211.A\306\234)\321=\203\263,\211.A\317\234)\fB*A\211*\202V)+W\203)*)H\211,\211.A\306\234)\316=\203\351,\211.A\317\234)'B'\202 ,\211.A\306\234)\320=\203,\211.A\317\234) B\202 ,\211.A\306\234)\321=\203 ,\211.A\317\234)\fB)T\211)\202\276-\n\203? '>\204; >\203? \206O'\237@\206O \237@\206O\f\237@\211\204Z\307\322!\202\246/0\323\324/\"\203i\3250\326\327\3300\325\230\203w\331\202x\325\332\333\3340!\335\211#0\325\230\203\214\336\202\215\325RB\337 BD\340\341B\342\343BD\"!\210\344\345\346/! #).\207" [lyskom-current-text lyskom-current-conf conf-stat filter-recipient bcc-recipients cc-recipients 0 lyskom-insert-string have-to-read blocking-do get-text-stat nil get-conf-stat 6 RECPT 1 CC-RECPT BCC-RECPT no-recipient string-match "^\\s-*$" "" lyskom-add-filter make-filter subject-re "^" "\\([rR][eE]: *\\|[Ff][Ww][Dd]: *\\)*" replace-in-string regexp-quote "[ ]+" "$" recipient-no action skip-tree expire t lyskom-format-insert super-jump copy-sequence recipients text-stat __i__ __sequence__ __len__ misc __result__ misc-info lyskom-current-subject text] 10) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1136998) nil]) #@76 Interactively filter on text contents. Optional TEXT is subject to filter. (defalias 'kom-filter-text #[(&optional text) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-filter-text-start-buffer lyskom-start-of-command kom-filter-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-filter-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306U?\205l\307\310\"\311\211\211\211\211\205k\312\313\314!\206\"\315\"\316B B\317\313\320!\321\322 \211A\306\234)\203H \211A\323\234)\306B\206I\315\322%\211\306U\204X\324\fB B\325 \326 \327\330 \303 B\331\n?BD\"!-\207" [lyskom-current-conf filter perm action conf conf-stat 0 blocking-do get-conf-stat nil lyskom-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) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1138998) nil]) #@21 Display all filters (defalias 'kom-list-filters #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-filters-start-buffer lyskom-start-of-command kom-list-filters ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-filters-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "db\210 \204\302\303\304!!\202/\302\303\305!!\210 \203*db\210\306 @!\210 A\211\204\302\303\307!!)\207" [lyskom-filter-list filters lyskom-insert lyskom-get-string no-filters view-filters-header lyskom-format-filter-pattern view-filters-footer] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1140128) nil]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: filter-edit.el,v 44.12 2001/01/03 22:02:54 qha Exp $\n" nil] 2) #@59 List of filters currently being edited in a filter editor (defvar filter-edit-currently-edited-filter-entry-list nil (#$ . 1141016)) (byte-code "\305\300!\204\306\300 B\305\302!\204\306\302 B\305\303!\204 \306\303 B\305\304!\204,\306\304 B\306\207" [filter-edit-change-flag current-load-list filter-edit-filter-list filter-edit-list-start filter-edit-list-end boundp nil] 2) #@24 Copy the filter list L (defalias 'copy-filter-list #[(l) "\204\301\207\302@!\303A!B\207" [l nil copy-filter copy-filter-list] 3 (#$ . 1141411)]) #@39 Reverse the pairs in the assoc list L (defalias 'lyskom-reverse-pairs #[(l) "\301\302\"\207" [l mapcar #[(e) "A@B\207" [e] 2]] 3 (#$ . 1141567)]) #@35 Get starting position of entry E. (defalias 'filter-entry->start #[(e) "\301H\207" [e 0] 2 (#$ . 1141722)]) #@40 Set starting position of entry E to S. (defalias 'set-filter-entry->start #[(e s) "\302 I\207" [e s 0] 3 (#$ . 1141837)]) #@30 Get end position of entry E. (defalias 'filter-entry->end #[(e) "\301H\207" [e 1] 2 (#$ . 1141966)]) #@35 Set end position of entry E to S. (defalias 'set-filter-entry->end #[(e s) "\302 I\207" [e s 1] 3 (#$ . 1142074)]) #@33 Get line start list of entry E. (defalias 'filter-entry->lines #[(e) "\301H\207" [e 2] 2 (#$ . 1142196)]) #@38 Set line start list of entry E to P. (defalias 'set-filter-entry->lines #[(e p) "\302 I\207" [e p 2] 3 (#$ . 1142309)]) #@24 Get filter of entry E. (defalias 'filter-entry->filter #[(e) "\301H\207" [e 3] 2 (#$ . 1142436)]) #@29 Set filter of entry E to P. (defalias 'set-filter-entry->filter #[(e p) "\302 I\207" [e p 3] 3 (#$ . 1142541)]) #@70 Create an filter entry with START, END, LINES and PATTERN as values. (defalias 'make-filter-entry #[(start end lines pattern) "\304 \n $\207" [start end lines pattern vector] 5 (#$ . 1142660)]) #@49 Return non-nil if FILTER is a valid filter list (defalias 'lyskom-verify-filter-list #[(filter) "\204\301\207<\204 \302\207\303@!\204\302\207\304\305@!!\205#\306A!\207" [filter t nil filter-p lyskom-verify-filter-pattern filter->pattern lyskom-verify-filter-list] 3 (#$ . 1142861)]) #@52 Return non-nil if FILTER is a valid filter pattern (defalias 'lyskom-verify-filter-pattern #[(filter) "\204\301\207G\302U\203@9\203\303\207@<\204\301\207@@\304=\203.\305@AAB!\207@@\306>\203C\307@A!\205l\305A!\207@@\310>\203W@A;\205l\305A!\207@@\311>\203k@A\250\205l\305A!\207\301\207" [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 (#$ . 1143161)]) #@35 Return t if RE is a valid regexp. (defalias 'lyskom-filter-verify-regexp #[(re) "\300\301\302\217\207" [nil (byte-code "\301\302\"\210\303\207" [re string-match "teststring" t] 3) ((error))] 3 (#$ . 1143681)]) #@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) "\305\306!\307!\310B\"\311 G\f\312!Y\2034 \2034\f @W\203+\n\310\211\202 A\nT\202 +\207" [entry lines line current-line where append filter-entry->lines filter-entry->end nil -1 filter-entry->start] 5 (#$ . 1143899)]) #@84 Locate the entry at character position WHERE. nil means WHERE is not in any entry. (defalias 'lyskom-filter-edit-locate #[(where) "\303!\211\304U?\205\n \234)\207" [where entry-no filter-edit-currently-edited-filter-entry-list lyskom-filter-edit-locate-no -1] 3 (#$ . 1144356)]) #@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) "\305\306 \203.\f\307 @!Y\203$\f\310 @!X\203$ \311\211\202 T A\211\204\n\n+\207" [filter-edit-currently-edited-filter-entry-list l entry-no i where 0 -1 filter-entry->start filter-entry->end nil] 4 (#$ . 1144646)]) #@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) "\303\304\305\n!\210 \237\211)\207" [inhibit-read-only filter-edit-currently-edited-filter-entry-list filters t nil lyskom-format-filter-list-2] 2 (#$ . 1145089)]) #@79 Format the filter list FILTERS and insert the result into the current buffer. (defalias 'lyskom-format-filter-list-2 #[(filters) "\204\302\207\303@! B\304A!\207" [filters filter-edit-currently-edited-filter-entry-list nil lyskom-format-filter-pattern lyskom-format-filter-list-2] 2 (#$ . 1145474)]) #@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) "\305\306\211\211\307 \310\f\305\"\210\311\312\f!\306\"\307 \313c\210\314\n \f$,\207" [lines end start inhibit-read-only pat t nil point-marker lyskom-filter-format-entry-header lyskom-format-filter-pattern-2 filter->pattern "\n" make-filter-entry] 5 (#$ . 1145786)]) #@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) "\204 \237\207@@\303=\203\304@AAB \305#\207\306 B\307\n\"\210\304A \"\207" [pat lines neg not lyskom-format-filter-pattern-2 t point-marker lyskom-format-filter-pattern-insert] 4 (#$ . 1146241)]) #@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) "\306\307\310\311 @@\n\"A \203\312\202\313 @A$c\210 @@\314>\203@\212\315\304!\203,\fq\210\316\317 @A\")\307\320\211A\321\234)\"c\210\322c)\207" [tmp pat lyskom-filter-what neg lyskom-buffer conf-stat nil format " %s %s %S" assoc " != " " = " (recipient-no author-no) boundp blocking-do get-conf-stat " <%s>" 1 "\n"] 6 (#$ . 1146688)]) #@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) "\305\306 \302\"\306 \307\"?\310\311\n \236A\312\203\300\202\313!#c\210\f\205'\314c)\207" [permanent filter action lyskom-filter-actions newline nil filter->attribute expire format "--- %s %s" lyskom-get-string temporary "\n"] 5 (#$ . 1147188)]) #@60 Move to the ARGth next pattern line in the current buffer. (defalias 'lyskom-filter-edit-next-pattern #[(arg) "\204\306\307W\203\310[!\207\307U?\205\246\311`!\312\211\313U\203; @\2032\314 @!b\210\202\242\315\316\317!!\210\202\242 \n\234\320`\f\"\211\313U\203q\321\f!\203X\321\f!@\202\233 \nT\234\211\203h\314 !\202\233\315\316\322!!\210\202\233 \321\f!GSU\203\224 \nT\234\211\203\213\314 !\202\233\315\316\322!!\210\202\233\321\f! T\234 b\210S**\202\207" [arg tmp entry-no filter-edit-currently-edited-filter-entry-list entry lineno 1 0 lyskom-filter-edit-prev-entry lyskom-filter-edit-locate-no nil -1 filter-entry->start lyskom-error lyskom-get-string filter-edit-empty-list lyskom-filter-edit-lineno filter-entry->lines filter-edit-end-of-list] 4 (#$ . 1147658) "p"]) #@64 Move to the ARGth previous pattern line in the current buffer. (defalias 'lyskom-filter-edit-prev-pattern #[(arg) "\204\306\307W\203\310[!\207\307U?\205\223\311`!\312\211\313U\203; @\2032\314 @!b\210\202\217\315\316\317!!\210\202\217 \n\234\320`\f\"\211\313U\203t\n\307U\203Y\315\316\321!!\210\202\210 \nS\234\322\f!GS\322\f!\233@\211\204\210\314\f!\202\210 \307U\203\201\314\f!\202\210\322\f! S\234 b\210S**\202\207" [arg tmp entry-no filter-edit-currently-edited-filter-entry-list entry lineno 1 0 lyskom-filter-edit-next-entry lyskom-filter-edit-locate-no nil -1 filter-entry->start lyskom-error lyskom-get-string filter-edit-empty-list lyskom-filter-edit-lineno filter-edit-start-of-list filter-entry->lines] 4 (#$ . 1148473) "p"]) #@53 Move to the ARGth next entry in the current buffer. (defalias 'lyskom-filter-edit-next-entry #[(arg) "\204\304\305W\203\306[!\207\305U?\205X\307`!\211\310U\2039\n@\2030\311\n@!b\210\202T\312\313\314!!\210\202T\n T\234\211\203M\311 !b\210S\202S\312\313\315!!\210))\202\207" [arg entry-no filter-edit-currently-edited-filter-entry-list tmp 1 0 lyskom-filter-edit-prev-entry lyskom-filter-edit-locate-no -1 filter-entry->start lyskom-error lyskom-get-string filter-edit-empty-list filter-edit-end-of-list] 4 (#$ . 1149249) "p"]) #@57 Move to the ARGth previous entry in the current buffer. (defalias 'lyskom-filter-edit-prev-entry #[(arg &optional noerror) "\300\301\215?\207" [fail (byte-code "\204\305\306W\203\307[!\207\306U?\205o\310`!\211\311U\203B\n@\2030\312\n@!b\210\202B \203<\313\314\315\"\210\202B\316\317\320!!\210 \306U\203] \203T\313\314\315\"\210\202k\316\317\321!!\210\202k\n S\234S\312\f!b\210))\202\207" [arg entry-no filter-edit-currently-edited-filter-entry-list noerror tmp 1 0 lyskom-filter-edit-next-entry lyskom-filter-edit-locate-no -1 filter-entry->start throw fail t lyskom-error lyskom-get-string filter-edit-empty-list filter-edit-start-of-list] 4)] 2 (#$ . 1149803) "p"]) #@37 Move to the first entry in the list (defalias 'lyskom-filter-edit-beginning-of-list #[nil "\204\n\301\302\303!!\207\304 \210\305@!b\207" [filter-edit-currently-edited-filter-entry-list lyskom-error lyskom-get-string filter-edit-empty-list push-mark filter-entry->start] 3 (#$ . 1150502) nil]) #@36 Move to the last entry in the list (defalias 'lyskom-filter-edit-end-of-list #[nil "\204\n\302\303\304!!\207\211GS\234\305 \210\306 !\306 !GS\234\206\"\307 !b)\207" [filter-edit-currently-edited-filter-entry-list entry lyskom-error lyskom-get-string filter-edit-empty-list push-mark filter-entry->lines filter-entry->start] 3 (#$ . 1150804) nil]) #@37 Add an entry to the end of the list (defalias 'lyskom-filter-edit-insert-entry #[nil "\306\211\307!\310\211\211\211\211\211\203-\311\211GS\234!b\210\312c\210\2021b\210\313\314\315!\316!\310\306$\317\314\320!!\321\310\322\323\"AB\324 ?BD\"\325 \326\f\306\"\210\325 \327 \n\310\f$\203|GS\233 \310B\241\210\202\201 \310B\306 b. \207" [lyskom-filter-actions entry end start filter permanent t lyskom-reverse-pairs nil filter-entry->end "\n" lyskom-completing-read lyskom-get-string filter-edit-filter-how lyskom-maybe-frob-completion-table lyskom-j-or-n-p filter-permanent make-filter action assoc expire point-marker lyskom-filter-format-entry-header make-filter-entry rev-actions completion-ignore-case inhibit-read-only filter-edit-currently-edited-filter-entry-list filter-edit-list-end filter-edit-change-flag] 9 (#$ . 1151162) nil]) #@47 Add a pattern line to the current list entry. (defalias 'lyskom-filter-edit-insert-pattern #[nil "\306`!\211\307U\203\310\311\312!!\210)\313\211\211\211\211\211\211\211\314\211\315 !+,-./01\316\311\317!\320\n!\313\314$1\316\321\3221\"\3202\314\"\313\314$0\323\321\32410#!.\3251\n\"A\2111\326>\203m.\211/\202\2151\327>\203~\330.!\211/\202\2151\331>\203\220./\332/!\204\230\310\311\333!.\"\2101/B\3250\3202\314\"\"A\203\257\334 B\335`!,\336`,\"-\337,!+-\307U\203\317\340+!G--\341U\203\344\342+ \340+!B\"\210\202\340+!\203-S\340+!\233 -\340+!\233B\241\210\202\342+ \"\210-\343,!GU\203\344,!b\210\202$\343,!-\234b\210\307y\210\313\210\345c\210\346 @\334=\203: A\202; \313B @\334=\"\210\307u\210\347\350!\210\341y\210-\341U\203c\351,\352 \343,!B\"\210\202w-S\343,!\233\352 -\343,!\233B\241\210\314\2113. \207" [entry-no lyskom-filter-what rev-what completion-ignore-case inhibit-read-only pat lyskom-filter-edit-locate-no -1 lyskom-error lyskom-get-string filter-edit-outside-entry nil t lyskom-reverse-pairs lyskom-completing-read filter-edit-filter-what lyskom-maybe-frob-completion-table lyskom-format filter-edit-insert-pred lyskom-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 entry lineno argstring arg pred what lyskom-filter-predicate-list filter-edit-change-flag] 13 (#$ . 1152050) 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) "\306\307`!\310 ! \204\311\312\313!!\202\245 \314U?\205\245\315` \" \204(\316\f\317V\203\233\f\320 !GW\203\233 S\315` \"\212\314y\210`)\212\321\210`)T|\210\f\320 !GSU\203[\317y\210\f\314U\203v\322 \320 !A\"\210\323\n\324\n!A\"\210\306\202\241\fS\320 !\233\fT\320 !\233\241\210\fS\324\310 !!\233\fT\324\310 !!\233\241\210\306\202\241\311\312\325!!\210)\202+\207" [inhibit-read-only entry filter arg lineno filter-edit-change-flag t lyskom-filter-edit-locate filter-entry->filter lyskom-error lyskom-get-string filter-edit-outside-list 0 lyskom-filter-edit-lineno 1 -1 filter-entry->lines nil set-filter-entry->lines set-filter->pattern filter->pattern filter-edit-end-of-pattern] 5 (#$ . 1153865) "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) "\301\302\303\215)?\207" [inhibit-read-only t fail (byte-code "\204\306\307U?\205z \206\310`!\311\n\312U\203/\f\203)\313\314\315\"\210\202/\316\317\320!!\210 \n\234\321 !\322 !T|\210\n\307U\203K A\315\202X\nS \233\nT \233\241\210\315\n GU\203s\323\306\315\"\203k\307\202v\313\314\315\"\210\202vS*\202\207" [arg which entry-no entry noerror filter-edit-currently-edited-filter-entry-list 1 0 lyskom-filter-edit-locate-no nil -1 throw fail t lyskom-error lyskom-get-string filter-edit-end-of-list filter-entry->start filter-entry->end lyskom-filter-edit-prev-entry filter-edit-change-flag] 3)] 2 (#$ . 1154757) "p"]) #@56 Quit filter edit mode and ask to save changes (if any) (defalias 'lyskom-filter-edit-quit #[nil "\303 \203\f\304\305\306!!\203\307 \210\310\n!)\207" [save filter-edit-change-flag lyskom-edit-return-to-configuration nil lyskom-j-or-n-p lyskom-get-string filter-edit-save-p lyskom-filter-edit-save set-window-configuration] 3 (#$ . 1155668) nil]) #@46 Delete all entries that are completely empty (defalias 'lyskom-filter-edit-expunge #[nil "\303\211\205#\304\n@!\204\305\306 \307#\210\202 T\nA\211\204\310*\207" [filter-edit-currently-edited-filter-entry-list index e 0 filter-entry->lines lyskom-filter-edit-delete-entry 1 t nil] 5 (#$ . 1156025) nil]) #@58 Return non-nil if the entry list contains empty entries. (defalias 'lyskom-filter-empty-patterns-p #[nil "\303\n\203\304\n@!\204\303\305\202\nA\211\204 *\207" [filter-edit-currently-edited-filter-entry-list result e nil filter-entry->lines t] 3 (#$ . 1156346)]) #@34 Save changes in filter edit mode (defalias 'lyskom-filter-edit-save #[nil "\306 \203\307\310\311!!\203\312 \210\313\211\211\203U\314\315 @!\316\317\315 @!!!\"\210\320\315 @!\321\"\2037\301\2028\302\315 @!\320\315 @!\321\"\203J \202K\nBL\210 A\211\204\212\fq\210\322\n\237\211 \237\211\"\313\323\324\310\325!\"\210\326\f\310\325!\310\327!\310\330!$,\207" [filter-edit-currently-edited-filter-entry-list xtemporary-list xpermanent-list e lyskom-buffer kom-permanent-filter-list lyskom-filter-empty-patterns-p lyskom-j-or-n-p lyskom-get-string filter-edit-remove-empty lyskom-filter-edit-expunge nil set-filter->function filter-entry->filter lyskom-create-compile-filter-function filter->pattern filter->attribute expire append lyskom-message "%s" filter-edit-saving lyskom-save-options filter-edit-saving-done filter-edit-saving-error kom-session-filter-list lyskom-filter-list filter-edit-change-flag] 7 (#$ . 1156628) nil]) #@37 Discard changes and restart editing (defalias 'lyskom-filter-edit-revert #[nil "\203\205)\306\307\310!!\205)\311\312 \f|\210 b\210\313c\210\314\315 !!\210\312\316 )\207" [filter-edit-change-flag inhibit-read-only filter-edit-currently-edited-filter-entry-list filter-edit-list-start filter-edit-list-end lyskom-filter-list lyskom-j-or-n-p lyskom-get-string filter-edit-restart-p t nil "\n" lyskom-format-filter-list copy-filter-list lyskom-filter-edit-beginning-of-list] 3 (#$ . 1157581) nil]) #@48 Toggle the permanent flag of the current entry (defalias 'lyskom-filter-edit-toggle-permanent #[nil "\305`!\306\211\307U\203\310\311\312!!\210\n \234\313\314 !\315\316\314 !\315\"?#\210\306\212\317 !b\210`\212\320\210`)|\210\321\314 !!,\207" [inhibit-read-only entry-no filter-edit-currently-edited-filter-entry-list entry filter-edit-change-flag lyskom-filter-edit-locate-no t -1 lyskom-error lyskom-get-string filter-edit-outside-entry set-filter->attribute filter-entry->filter expire filter->attribute filter-entry->start nil lyskom-filter-format-entry-header] 7 (#$ . 1158090) nil]) #@48 Toggle the filter action of the current entry. (defalias 'lyskom-filter-edit-toggle-action #[nil "\306`!\307\211\310U\203\311\312\313!!\210\n \234\f\314\315 !\316\" \236 >A@\211\206, @\307\317\315 !\316@#\210\212\320 !b\210`\212\321\210`)|\210\322\315 !!.\207" [inhibit-read-only entry-no filter-edit-currently-edited-filter-entry-list entry lyskom-filter-actions action-list lyskom-filter-edit-locate-no t -1 lyskom-error lyskom-get-string filter-edit-outside-entry filter->attribute filter-entry->filter action set-filter->attribute filter-entry->start nil lyskom-filter-format-entry-header new-action filter-edit-change-flag] 5 (#$ . 1158691) nil]) #@43 Display a help message in the minibuffer. (defalias 'lyskom-filter-edit-brief-help #[nil "\300\301\302\303!\"\207" [lyskom-message "%s" lyskom-get-string filter-edit-help] 4 (#$ . 1159366) 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 "\306 \210\307\310!\210\307\301!\210\307\311!\210\307\312!\210\307\313!\210\307\314!\210\307\315!\210\316\317\320p!\210\307\302!\210\321\302!\322\n!\210\323\324\325\326\327!\207" [buffer-read-only filter-edit-change-flag lyskom-filter-edit-map mode-name major-mode local-abbrev-table kill-all-local-variables make-local-variable filter-edit-currently-edited-filter-entry-list filter-edit-filter-list filter-edit-list-start filter-edit-list-end lyskom-buffer lyskom-edit-return-to-configuration t nil buffer-disable-undo lyskom-default-value use-local-map "LysKOM Filter Edit" lyskom-filter-edit-mode lyskom-filter-edit-abbrev-table run-hooks lyskom-filter-edit-hook] 2 (#$ . 1159569) nil]) (defalias 'kom-filter-edit #[nil "p \306 \307\310\311\312 !\313\314\315!Q\316#!\210\316\317 \210)\320 \210 \316\f\321\314\322! \"c\210\323 \324c\210\325\326!!\210\327 )\n\330 ,\207" [lyskom-filter-list lyskom-server-name curwin server-name filters buf current-window-configuration lyskom-display-buffer lyskom-get-buffer-create edit-filters buffer-name "-" lyskom-get-string filter-edit-buffer-name t erase-buffer lyskom-filter-edit-mode format filter-edit-header point-marker "\n" lyskom-format-filter-list copy-filter-list point-max-marker lyskom-filter-edit-beginning-of-list inhibit-read-only lyskom-buffer filter-edit-filter-list filter-edit-list-start filter-edit-list-end lyskom-edit-return-to-configuration] 7 nil nil]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: lyskom-buttons.el,v 44.53 2001/01/03 22:02:56 qha Exp $\n" nil] 2) #@63 Variable used to work around the handling of menus in XEmacs. (defalias 'lyskom-menu-selection #[nil "\300\207" ["Variable used to work around the handling of menus in XEmacs."] 1 (#$ . 1162472)]) #@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) "\304 \2368\n BC\244\207" [type lyskom-button-actions text func 3] 3 (#$ . 1162676)]) #@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) " \236\211A \304\n\233B\241)\207" [type lyskom-button-actions el func 3] 5 (#$ . 1163682)]) #@67 Move the cursor to the previous active area in the LysKOM buffer. (defalias 'kom-previous-link #[(num) "\301\302\"\207" [num lyskom-prev-area lyskom-button-text] 3 (#$ . 1164039) "p"]) #@63 Move the cursor to the next active area in the LysKOM buffer. (defalias 'kom-next-link #[(num) "\301\302\"\207" [num lyskom-next-area lyskom-button-text] 3 (#$ . 1164231) "p"]) #@41 Simulate a mouse button press at point. (defalias 'kom-button-press #[nil "\300`!\207" [lyskom-button-press] 2 (#$ . 1164415) nil]) #@46 Simulate a menu mouse button press at point. (defalias 'kom-menu-button-press #[nil "\300`\301\"\207" [lyskom-button-menu key] 3 (#$ . 1164553) nil]) #@155 Execute the default action of the active area under the mouse. If optional argument do-default is non-nil, call the default binding of this-command-keys. (defalias 'kom-button-click #[(event &optional do-default) "\306!\307! \205\n\203\310\n\303\"\206\311 !\211\205#\312 \313\" \203/\312 \314\"\206M\f\203:\312\f\314\"\206M \203E\312 \305\"\206M\f\205M\312\f\305\"\211\203\\\315\316!\210\317!\202\206\203\203 \203l\320 \321\"\204\203\322\323 \"\324!\205\325!)\202\206\326 !-\207" [event pos glyph widget parent href event-point event-glyph glyph-property widget-at widget-get :parent :href require w3 w3-widget-button-click get-text-property lyskom-button-type lookup-key this-command-keys commandp call-interactively lyskom-button-press do-default global-map fn] 4 (#$ . 1164710) "@e"]) #@116 Execute the default action of the active area under the mouse. If there is no active area, then do something else. (defalias 'kom-button-click-or-yank #[(event) "\301\302\"\207" [event kom-button-click t] 3 (#$ . 1165545) "@e"]) #@74 Pop up a menu of actions to be taken at the active area under the mouse. (defalias 'kom-popup-menu #[(event) "\306!\307! \205\n\203\310\n\303\"\206\311 !\211\205#\312 \313\" \203/\312 \314\"\206M\f\203:\312\f\314\"\206M \203E\312 \305\"\206M\f\205M\312\f\305\"\211\203\\\315\316!\210\317!\202r \203n\320 \321\"\203n\322 \"\202r\323 \"-\207" [event pos glyph widget parent href event-point event-glyph glyph-property widget-at widget-get :parent :href require w3 w3-popup-menu get-text-property lyskom-button-type lyskom-button-menu lyskom-background-menu] 4 (#$ . 1165781) "@e"]) #@13 Do nothing. (defalias 'kom-mouse-null #[(event) "\300\207" [1] 1 (#$ . 1166396) "@e"]) #@53 Create a menu keymap from a list of button actions. (defalias 'lyskom-make-button-menu #[(title entries buf arg text) "\306\307\310 !\203) \204\f\204)\311 \n\206% \203$\312 !\206%\313\"\202* +\211G\314V\203:\315\316O\317P\320\321\322 \"\203v\306\307\310 !\203k \204V\f\204k\311 \n\206g \203f\312 !\206g\313\"\202l +\323\324\"B\202\200\325\326D\323\327\"\")\207" [title force coding s enable-multibyte-characters lyskom-language iso-8859-1 t multibyte-string-p encode-coding-string lyskom-language-coding raw-text 44 0 40 " ..." string-match "XEmacs" emacs-version mapcar #[(entry) "\306\307@!\310\311\312 !\203- \204\f\204-\313 \n\206) \203(\314 !\206)\315\"\202. +A<\203@\316D\202BF\317\311$\207" [entry force coding s enable-multibyte-characters lyskom-language vector lyskom-get-string iso-8859-1 t multibyte-string-p encode-coding-string lyskom-language-coding raw-text quote :active buf arg text] 6] append keymap #[(entry) "\306!\211\307 @!\310\311\312\f!\2033\n\204 \2043\313\f \206/\203.\314!\206/\315\"\2024\f+\240\210AF )B\207" [entry tmp force coding s enable-multibyte-characters copy-tree lyskom-get-string iso-8859-1 t multibyte-string-p encode-coding-string lyskom-language-coding raw-text lyskom-language buf arg text] 6] entries] 6 (#$ . 1166489)]) #@42 Internal function used by kom-popup-menu (defalias 'lyskom-button-menu #[(pos event) "\306\307\"\306\310\"\306\311\"\306\312\" \236\306\313\"\203*\314\315\306\313\"\"\202C\316\234\203=\315\317\316\234! \"\202C\315\317\320! \"\205N\321\234\204Zb\202\260\204db\202\260\f\204mb\202\260\322\f!\204|\323\324\317\325!\"\202\2609\203\210\317!\fq\210\326=\203\236\327\f\n %\202\260\330\f\n %\331\").\207" [pos type arg text buf lyskom-button-actions get-text-property lyskom-button-type lyskom-button-arg lyskom-button-text lyskom-buffer lyskom-button-menu-title apply lyskom-format 1 lyskom-get-string generic-popup-title 3 get-buffer lyskom-message "%s" no-such-buffer key lyskom-keyboard-menu lyskom-make-button-menu lyskom-do-popup-menu data title actl event menu] 6 (#$ . 1167844)]) #@31 Do a keyboard menu selection. (defalias 'lyskom-keyboard-menu #[(title entries buf arg text) "\306\307\310\311\n\" ;\203 \202\312 !\313\307\n\211<\206%G\306\306\306<\203Y\203}@\314@! V\203P\314@!A\211\2028 W\203} H\314@! V\203v\314@! T\211\202Z- \307\314 !\315\316 ! Z\317Z^O\320P\321\322\n\313\"\306\313\n@@\307B\306&\211\205\263\323\n\"A#.\207" [prompt maxlen entries title completion-ignore-case __i__ nil 0 mapcar #[(el) "@;\203 @\202\301@!AB\207" [el lyskom-get-string] 2] lyskom-get-string t lyskom-string-width window-width minibuffer-window 3 ": " lyskom-completing-read lyskom-maybe-frob-completion-table lyskom-string-assoc __sequence__ __len__ e __result__ choice buf arg text] 8 (#$ . 1168701)]) #@62 Execute the default action of the active area at POS if any. (defalias 'lyskom-button-press #[(pos) "\205k\306\307\"\306\310\"\306\311\"\306\312\"\306\313\" \236\203, \2065\2055\314\234\211\204@b\202i\f\204Ib\202i\f\203\\\315\f!\204\\\316\317\320\321!\"\202i\f\203c\fq\210\f\n #.\207" [pos type arg text buf hint get-text-property lyskom-button-type lyskom-button-arg lyskom-button-text lyskom-buffer lyskom-button-hint 2 get-buffer lyskom-message "%s" lyskom-get-string no-such-buffer lyskom-button-actions data kom-use-button-hints act] 5 (#$ . 1169496)]) (defalias 'lyskom-fix-pseudo-url #[(url) "\303 \304\216\305 \n\"\204F\305\306\n\"\203\307\nP\202G\305\310\n\"\203&\311\nP\202G\305\312\n\"\2033\313\nP\202G\305\314\n\"\203@\315\nP\202G\307\nP\202G\n*\207" [save-match-data-internal lyskom-url-protocol-regexp url match-data ((set-match-data save-match-data-internal)) string-match "^www\\." "http://" "^ftp\\." "ftp://" "^gopher\\." "gopher://" "^wais\\." "wais://"] 3]) #@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) "\306\307\211\203\354 @\306\310 \306\234\f\n#\203\345\311 \312\234\206!\306\224 \312\234\206)\306\225 \313\234\304=\203G \204G\314\304\315 \f\"\316 \f\"\317 !$\202\334 \313\234\320=\203`\314\320\315 \f\"\316 \f\"\317 !$\202\334 \313\234\321=\203y\314\321\315 \f\"\316 \f\"\317 !$\202\334 \313\234\322=\203\217\314\322\307\316 \f\"\317 !$\202\334 \313\234\323=\203\254\324\316 \f\"!\314\322\307\317 !$)\202\334 \313\234\325=\203\305\314\325\315 \f\"\316 \f\"\317 !$\202\334 \313\234\326=\203\333\314\326\307\316 \f\"\317 !$\202\334\307\f$\210\306\225\202 A\211\204\n+\f\207" [lyskom-text-buttons el start blist text lyskom-transforming-external-text 0 nil string-match add-text-properties 2 1 lyskom-generate-button lyskom-button-get-arg lyskom-button-get-text lyskom-button-get-face conf pers url pseudo-url lyskom-fix-pseudo-url info-node email] 10 (#$ . 1170533)]) #@91 Get the button argument for button type EL from TEXT according to the current match-data. (defalias 'lyskom-button-get-arg #[(el text) "\303\234\206\304\n \224 \225O)\207" [el no text 3 0] 3 (#$ . 1171609)]) #@87 Get the button text for button type EL from TEXT according to the current match-data. (defalias 'lyskom-button-get-text #[(el text) "\303\234\206\304\n \224 \225O)\207" [el no text 2 0] 3 (#$ . 1171827)]) #@87 Get the button face for button type EL from TEXT according to the current match-data. (defalias 'lyskom-button-get-face #[(el) "\301\234\207" [el 4] 2 (#$ . 1172042)]) #@55 Get the hint to be used right now (if any) from HINTS (defalias 'lyskom-get-button-hint #[(hints) "\306\211\n\203i \204i\n@\nA@\2044 \307\234=\203\310\234\203-\f\310\234=\203\311\234\202@<\203L \203\n@>\203A\202@9\203 \203\n\203\n@=\203A\202 *\207" [hint result hints lyskom-current-function lyskom-current-function-phase lyskom-executing-command nil 1 2 3 lyskom-current-command] 3 (#$ . 1172217)]) #@303 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. Optional argument MENU-TITLE defines the title for the popup menu. See lyskom-default-button for more information. (defalias 'lyskom-generate-button #[(type arg &optional text face menu-title) "\306\300!\203\n\202\306\301!\203 \203\212 q\210)\202\307 \247\203( \2024 ;\2033\310 !\2024\311 \236\211 \205C \312\234!\313!!\" \314>\203\217\f\203\217\315 \206|\n\f=\203e\316\202|\f#>\203p\317\202|\f$>\203{\320\202|\321\322\323\324\325 \326\f\327%\301 \257\202\352 \330=\203\263\f\203\263\315 \206\240\331\322\323\324\325 \326\f\327%\301 \257\202\352 \332=\203\323\315 \206\300\321\322\323\324\325 \326 \327%\301 \257\202\352\315 \206\332\321\322\323\324\325 \326 \327%\301 \257&\333\334\335D\"\203\377\336\"&BB\202&\".\207" [lyskom-pers-no lyskom-buffer persno arg numarg type boundp -1 string-to-number nil 4 lyskom-get-button-hint (conf pers) face kom-me-face kom-friends-face kom-morons-face kom-active-face mouse-face kom-highlight-face lyskom-button-text lyskom-button-type lyskom-button-arg lyskom-button-menu-title text kom-text-no-face url append rear-nonsticky t lyskom-button-hint lyskom-button-actions data hints the-hint kom-friends kom-morons menu-title props] 15 (#$ . 1172672)]) #@366 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. Optional argument MENU-TITLE is a list consisting of a format string or symbol and arguments for the format string. The arguments are not when the menu is popped up. (defalias 'lyskom-default-button #[(type arg &optional menu-title) "\205\351\306\211\211\f\307=\203\302 \211\242)\310=\203D \211A\311\234)\211A\312\234)\203/\313 \211A\314\234) \211A\315\234)\202\340 \211:\205Q@\316=)\203~ \211A\311H)\211A\312\234)\203i\313 \211A\314H) \211A\315H)\202\340 \247\203\273\317 !\211\203\264 \211A\311\234)\211A\312\234)\203\237\313 \211A\315\234) \211A\314\234)\202\340\320 \202\340\320\314\202\340\f\313=\203[ \211\242)\310=\203\350 \211A\314\234) \211A\315\234)\202\340 \211:\205\365@\316=)\203 \211A\314H) \211A\315H)\202\340 \211\242)\321=\203; \211A\314\234)\317 \211A\314\234)!\211A\315\234)\2067\320\202\340 \247\203T\317 !\211A\315\234)\206N\320 \202\340\320\314\202\340\f\302=\203\246 ;\203o\322 ! \202\340 \247\203} \323 !\202\340 \211\242)\324=\203\237 \211A\314\234)\323 \211A\314\234)!\202\340\314\320\202\340\f\325=\203\301\326 ;\203\272\306 \202\340\306\320\202\340\f\327=\203\334\326 ;\203\325\306 \202\340\306\320\202\340 \320\330\f \n %+\207" [kom-text-properties face text xarg type arg nil conf CONF-STAT 2 3 pers 0 1 UCONF-STAT cache-get-conf-stat "" PERS-STAT string-to-number number-to-string TEXT-STAT url kom-url-face email lyskom-generate-button object conf-stat conf-type uconf-stat pers-stat text-stat menu-title] 7 (#$ . 1174130)]) #@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) "\250\204\302\207\303 !\210db\210\304!\207" [arg buf nil pop-to-buffer kom-view] 2 (#$ . 1175948)]) #@129 In the LysKOM buffer BUF, view the text ARG without conversion. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-review-noconversion #[(buf arg text) "\250\204\302\207\303 !\210db\210\304!\207" [arg buf nil pop-to-buffer kom-review-noconversion] 2 (#$ . 1176219)]) #@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) "\250\204\302\207\303 !\210db\210\304!\207" [arg buf nil pop-to-buffer kom-review-tree] 2 (#$ . 1176535)]) #@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) "\250\204\302\207\303 !\210db\210\304!\207" [arg buf nil pop-to-buffer kom-find-root] 2 (#$ . 1176815)]) #@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) "\250\204\302\207\303 !\210\304!\207" [arg buf nil pop-to-buffer kom-write-comment] 2 (#$ . 1177091)]) #@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) "\250\204\302\207\303 !\210\304!\207" [arg buf nil pop-to-buffer kom-private-answer] 2 (#$ . 1177371)]) #@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) "\250\204\302\207\303\216\304 !\210\305\306!\210\307!)\207" [arg buf nil ((lyskom-end-of-command)) pop-to-buffer lyskom-start-of-command kom-mark-text lyskom-mark-text] 2 (#$ . 1177677)]) #@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) "\250\204\302\207\303\216\304 !\210\305\306!\210\307!)\207" [arg buf nil ((lyskom-end-of-command)) pop-to-buffer lyskom-start-of-command kom-unmark-text lyskom-unmark-text] 2 (#$ . 1178036)]) #@109 In the LysKOM buffer BUF, save the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-save-text #[(buf arg text) "\250\204\302\207\302\216\303 !\210\304\302C\")\207" [arg buf nil pop-to-buffer kom-save-text] 3 (#$ . 1178403)]) #@109 In the LysKOM buffer BUF, save the text ARG. Last argument TEXT is ignored. This is a LysKOM button action. (defalias 'lyskom-button-save-text-body #[(buf arg text) "\250\204\302\207\302\216\303 !\210\304!)\207" [arg buf nil pop-to-buffer kom-save-text-body] 2 (#$ . 1178688)]) #@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) "\250\204\302\207\303 !\210db\210\304!\207" [arg buf nil pop-to-buffer kom-review-presentation] 2 (#$ . 1178977)]) #@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) "\250\204\302\207\303 !\210db\210\304!\207" [arg buf nil pop-to-buffer kom-status-conf] 2 (#$ . 1179288)]) #@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) "\250\204\302\207\303 !\210db\210\304!\207" [arg buf nil pop-to-buffer kom-go-to-conf] 2 (#$ . 1179589)]) #@55 In the LysKOM buffer buf, add self to conference ARG. (defalias 'lyskom-button-add-self #[(buf arg text) "\250\204\302\207\303 !\210\304!\207" [arg buf nil pop-to-buffer kom-add-self] 2 (#$ . 1179872)]) #@57 In the LysKOM buffer buf, sub self from conference ARG. (defalias 'lyskom-button-sub-self #[(buf arg text) "\250\204\302\207\303 !\210\304!\207" [arg buf nil pop-to-buffer kom-sub-self] 2 (#$ . 1180085)]) #@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) "\303 \n#\207" [buf arg text lyskom-button-view-conf-presentation] 4 (#$ . 1180301)]) #@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) "\250\204\302\207\303 !\210db\210\304!\207" [arg buf nil pop-to-buffer kom-status-person] 2 (#$ . 1180587)]) #@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) "\250\204\302\207\303 !\210\304!\207" [arg buf nil pop-to-buffer kom-send-letter] 2 (#$ . 1180887)]) #@66 In the LysKOM buffer BUF, send a personal message to person ARG. (defalias 'lyskom-button-send-message #[(buf arg text) "\250\204\302\207\303 !\210\304\302\"\207" [arg buf nil pop-to-buffer kom-send-message] 3 (#$ . 1181167)]) #@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-email #[(but arg text) "\301!\207" [text kill-new] 2 (#$ . 1181405)]) #@106 In the LysKOM buffer BUF, ignore ARG and open TEXT as an e-mail address. This is a LysKOM button action. (defalias 'lyskom-button-open-email #[(but arg text) "\301\302!\203\n\302!\207\303\304\"\207" [text fboundp compose-mail mail nil] 3 (#$ . 1181614)]) #@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) "\301\302\303\304#!\207" [text kill-new replace-in-string "\\s-+" ""] 5 (#$ . 1181879)]) #@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) "\305\306\307\310#!\311\311\312\f \"\210\313\314 \"\315\n!\211\204\"\316\317!\210 \320\234 \"+\207" [text url protocol url-manager lyskom-url-protocol-regexp lyskom-fix-pseudo-url replace-in-string "\\s-+" "" nil string-match match-string 1 lyskom-get-url-manager lyskom-error "Can't find URL viewer" 3] 6 (#$ . 1182127)]) #@102 In the LysKOM buffer BUF, open ARG as an Info node, and ignore TEXT. This is a LysKOM button action. (defalias 'lyskom-button-goto-info-node #[(buf arg text) "\301\302!\204 \303\302\304\305\306$\210\307\310\311\306$\307\312\311\306$\302!\207" [arg fboundp Info-goto-node autoload "info" "Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME." t replace-in-string "\n" " " " +"] 5 (#$ . 1182610)]) #@66 Get the URL manager for PROTOCOL (a string). Returns a function. (defalias 'lyskom-get-url-manager #[(protocol) " \306 \203=\n\204=\211\2036\n\2046\307\f@@ @\"\203/\307\f@A@ \"\203/\f@\fA\211\204 A\211\204\n\n+\207" [kom-url-managers kom-url-viewer-preferences result preferences managers protocol nil string-match] 4 (#$ . 1183036)]) #@57 Tell the user that the URL manager MANAGER is starting. (defalias 'lyskom-url-manager-starting #[(manager) "\301\302\303\304\305!\306\234\"\"\207" [manager lyskom-message "%s" lyskom-format lyskom-get-string starting-program 2] 6 (#$ . 1183395)]) (defalias 'lyskom-view-url-browse-url #[(url manager) "\302\303!\210 !\207" [browse-url-browser-function url require browse-url] 2]) #@64 View the URL URL using W3. Second argument MANAGER is ignored. (defalias 'lyskom-view-url-w3 #[(url manager) "\301!\207" [url w3-fetch] 2 (#$ . 1183783)]) #@67 View the URL URL using dired. Second argument MANAGER is ignored. (defalias 'lyskom-view-url-dired #[(url manager) "\304\305\"\203\306\224\203\307\224\203\310\224\204\311\312!\210\310\224\310\225O\306\225\313O\314\304\315\n\"\2036\n\306\211\224O\304\316 \"\203O\307\224\203O \307\224\307\225O \306\225\313O \317\230\203[\320\n!\202e\320\321 \322 \323\n\260!+\207" [url user path host string-match "\\(file\\|ftp\\)://\\([^/:]*\\)\\(:[0-9]*\\)?\\(/\\|$\\)" 0 1 2 lyskom-error "Bad URL" nil "anonymous" ";type=.$" "\\([^@]*\\)@" "localhost" find-file "/" "@" ":/"] 7 (#$ . 1183945)]) #@68 View the URL URL using telnet. Second argument MANAGER is ignored. (defalias 'lyskom-view-url-telnet #[(url manager) "\304\305\"\203\306\224\203\307\224\204\310\311!\210\307\224\307\225O\312\224\203*\312\224T\312\225O\202+\313\314\224\2057\314\224\314\225SO \203L\304\315 \"\203L \314\224\314\225O\316 \317\nQ!+\207" [url user port host string-match "telnet://\\([^@]*@\\)?\\([^/:]*\\)\\(:[0-9]*\\)?" 0 2 lyskom-error "Bad URL" 3 "" 1 "^\\([^:]*\\):\\(.*\\)" telnet " "] 5 (#$ . 1184556)]) #@79 View the URL URL using mail in Emacs. The second argument MANAGER is ignored. (defalias 'lyskom-view-url-mailmode #[(url manager) "\301\302\"\203\f\303\224\204\304\305!\210\306\307\303\224\303\225O\"\207" [url string-match "mailto:\\([^@]+@.*\\)$" 1 lyskom-error "Bad URL" mail nil] 5 (#$ . 1185071)]) #@126 View the URL URL in Microsoft Windows. MANGER is the URL manager. Fall back on Netscape if not running in Microsoft Windows. (defalias 'lyskom-view-url-windows #[(url manager) "\304>\203\305 \205\306\307\310\217\210\202)\207\311\n \"\207" [window-system programs url manager (win32 mswindows w32) ("start" "explorer" "C:\\Program Files\\Netscape\\Communicator\\Program\\netscape.exe" "C:\\Program Files\\Netscape\\Navigator\\Program\\netscape.exe") nil (byte-code "\303@\304@ $\210\305\n!\210\304\304\207" [programs url manager start-process nil lyskom-url-manager-starting] 5) ((error (byte-code "A\301\207" [programs nil] 1))) lyskom-view-url-netscape] 3 (#$ . 1185385)]) #@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) "\306\307\310#\306\311\312#\306\313\314# \315>\203C\202#\316\317\320\"D\321\322\323\324 <\2032 @\2023 <\203@\325 A\n\"\202A\n%\326\324\327!\210 \326=\203^\330 \210\331\f!\211\202N\332\f! \333=\203\223\334=\203\223\321\322\323\324 <\203~ @\202 <\203\215\325 AC\"\202\217C%\202\224\324,\207" [url window-system url-string kom-netscape-command proc status replace-in-string "," "%2C" "(" "%28" ")" "%29" (win32 mswindows w32) "-remote" format "openUrl(%s)" apply start-process "netscape" nil append run lyskom-url-manager-starting accept-process-output process-status process-exit-status exit 1 manager] 9 (#$ . 1186079)]) #@135 View the URL URL using NCSA Mosaic. The attempts to open the URL in an existing Mosaic process. Failing that, it starts a new Mosaic. (defalias 'lyskom-view-url-mosaic #[(url manager) "\306\307\310\311\312\313!!\203r\212\314\315!\211q\210\316\312\313!!\210\317 !ed|\210\320c\210 c\210\321c\210\322\n!P\323ed\307\324%\210\325 !\210\326\n\327\"\306U\203k\330\331\332p\f<\203V\f@\202W\f\f<\203e\333\fA C\"\202g C%\202n\334 !)\202\230\212\330\331\332p\f<\203\201\f@\202\202\f\f<\203\220\333\fA C\"\202\222 C%\210\334 !)+\207" [filename tempbuffer pid url kom-mosaic-command manager -1 nil "/tmp/Mosaic." file-exists-p expand-file-name "~/.mosaicpid" get-buffer-create " *kom*-mosaicpid" insert-file-contents read "newwin\n" "\n" number-to-string write-region x kill-buffer signal-process 30 apply start-process "mosaic" append lyskom-url-manager-starting] 8 (#$ . 1187011)]) #@140 View the URL URL using Lynx. Lynx will be run either in an xterm or in Emacs terminal mode, depending on the value of `kom-lynx-terminal'. (defalias 'lyskom-view-url-lynx #[(url manager) "\306=\203\307\310\311\312 @\313 A\nC\"%\210\314 !\207\315=\203s\316\317!\211\205)\320\f!\211\2039\321 \322\n\323Q\"\210\202n\324\307\325\326<\203I@\202K\312<\203\\\313A\nC\"\202^\nC%!\210\327 \210\330 \210\331\320p!\332\"\210\314 !*\207\333\334\"\207" [kom-lynx-terminal kom-lynx-xterm-command url manager lbuf lproc xterm apply start-process "lynx" nil append lyskom-url-manager-starting terminal get-buffer "*Lynx*" get-buffer-process process-send-string "g" "\n" switch-to-buffer make-term "Lynx" delete-other-windows term-char-mode set-process-sentinel #[(proc str) "\301\302!!\207" [proc kill-buffer process-buffer] 3] lyskom-error "Bad Lynx terminal: %s" kom-lynx-terminal-command] 10 (#$ . 1187909)]) (defalias 'lyskom-button-send-mail #[(to) "\301\302\"\207" [to mail nil] 3]) (defalias 'lyskom-button-delete-aux #[(buf arg text) "\306 \211:\205 \n@\307=)\204d <\203d @\310=\203,\311\312 \313\234\"\211A\314\234)\202C @\315=\203B\311\316 \313\234\"\211A\317\234)\202C\306\211\203c @\211A\320H) \321\234=\203\\ @\306 A\211\204H)\205\264\322\306!\210\323\216\311 @\310=\203z\324\202\202 @\315=\205\202\325 \313\234\211A\320H)C\306$\203\260 @\310=\203\241\326 \313\234!\202\263 @\315=\205\263\327 \313\234!\202\263\330\306!))\207" [aux arg aux-item text-stat conf-stat items nil AUX-ITEM text blocking-do get-text-stat 1 7 conf get-conf-stat 16 0 2 lyskom-start-of-command ((lyskom-end-of-command)) modify-text-info modify-conf-info cache-del-text-stat cache-del-conf-stat lyskom-report-command-answer] 6]) (defalias 'lyskom-button-info-aux #[(buf arg text) "\306!\210db\210\307\n\211:\205 @\310=)\204q\n<\203q\n@\311=\2033\312\313\n\314\234\"\211A\315\234)\202J\n@\316=\203I\312\317\n\314\234\"\211A\320\234)\202J\307\211\203p@\211A\321H)\n\322\234=\203g@\307A\211\204P) \203\270\323\307!\210\324\216\325 \326 \n@\311=\203\217\327\330\n\314\234\"\202\243\n@\316=\203\242\327\331\312\317\n\314\234\"\"\202\243\332$\211 \203\261\333 !\202\264\334\335!*\202\273\334\336!)\207" [buf aux arg aux-item text-stat conf-stat pop-to-buffer nil AUX-ITEM text blocking-do get-text-stat 1 7 conf get-conf-stat 16 0 2 lyskom-start-of-command ((lyskom-end-of-command)) lyskom-aux-item-call info lyskom-format text-no conference-no "????" lyskom-insert lyskom-format-insert aux-item-no-info cant-get-aux-item items data] 11]) (defalias 'lyskom-button-apply #[(buf arg text) "\301@A\"\207" [arg apply] 3]) (byte-code "\302P\303 B\304 B\303\207" [lyskom-clientversion-long current-load-list "$Id: view-text.el,v 44.49 2001/02/25 16:26:58 joel Exp $\n" lyskom-view-text-text lyskom-view-text-text-stat] 2) #@728 Display text number TEXT-NO. Args: TEXT-NO &optional MARK-AS-READ FOLLOW-COMMENTS CONF-STAT PRIORITY BUILD-REVIEW-TREE FLAT-REVIEW. If MARK-AS-READ is non-nil the text will be marked as read. If FOLLOW-COMMENTS is non-nil all comments and footnotes to this text will be read before the next text. CONF-STAT must be the conference status of the current conference, and PRIORITY the priority, if FOLLOW-COMMENTS is non-nil. If BUILD-REVIEW-TREE is non-nil then it fixes a new entry in the lyskom-reading-list to read the comments to this. If FLAT-REVIEW is non-nil this is a review caused by lyskom-view-commented or kom-view-text viewing REVIEW or REVIEW-MARK text. Note that this function must not be called asynchronously. (defalias 'lyskom-view-text #[(text-no &optional mark-as-read follow-comments conf-stat priority build-review-tree filter-active flat-review) "\306\205\307 !\310\211\211\211@A@\311=\203,\312 \313\"\210\314\315\316\317 \"!\210\202@\320=\203I\312 \321\"\210\322\316\317 \"\306\"\210\323\324!\210\314\202@\203\\@\325=\204\\\326\327\330\331!\"\210@\325=\203e\314\332\317 D\333 DD!\211B\334\234B\335\234CDCEDFD\203\354C\203\354\336\337!\210\340 \341\342D\343D\211DA\334\234)D#\210\344D\211DA\345\234)\346\"@\344D\211DA\345\234)\347\"@\344D\211DA\345\234)\350\"@\344D\211DA\345\234)\351\"\344D\211DA\345\234)\352\"\344D\211DA\345\234)\353\"\344D\211DA\345\234)\354\"\344D\211DA\345\234)\355\"\344D\211DA\345\234)\356\"GHIJKLMN\211O\203n\357O!\211P\203^\360P!\210P\211QA\361\234)\203j\341\362P\211QA\361\234)P\211QA\363\234)#\210\202j\341O\211RA\364H)!\210)\202{\360D\211DA\335\234)\365\"\210\366D\211DA\367\234)\335U\203\220\330\370!\202\253\371\372D\211DA\367\234)\211S\334U\203\247\373\202\251S)\"!\210\366\374NM\"\206\270\375!\210N\204\321M\204\321\341\376D\211DA\373\234)\"\210@\325=\203\344\366\377!\210\366\330\201s!!\210\366\201t!\210dT\203\n@\204\n\201u\201v!\204\n\201w \f\201x#\210 \310\211\223\210I\203)U\203)\341\201yI@\211RA\364H)\"\210J\203>\341\201zJ@\211RA\364H)\"\210N\204RM\204RI\204RH\203\203D\211DA\373\234)\203\203V\203\203\341\201{\201|D\211DA\335\234)\365\"D\211DA\373\234)#\210\202\270N\203\237\341\201}\201|D\211DA\335\234)\365\"\"\210\202\270O\203\270\341\201~\201|D\211DA\335\234)\365\"\"\210W\203\333\201\201\200L\"\210\201\201\201K\"\210\201\201\202G\"\210@\325=\203\354\315\316\317 \"!\210\202x\334XD\211DA\364\234)\211Y<\206YGZ\310[\310\\\310\\Y<\203\317Y\203\220Y@\211[\211]A\334\234)\211^\201\203>\203B\201\204[\211]A\335\234)[\"\210\202\305^\201\205=\203g_\204\305\201\206[\211]A\201\207\234)[D#\210\202\305^\201\210=\203\212_\204\305\201\206[\211]A\345\234)[D#\210\202\305^\201\211=\203\252\201\206[\211]A\201\212\234)[D#\210\202\305^\201\213=\203\305\201\206[\211]A\364\234)[D#\210)YA\211Y\202XZW\203\220YXH\211[\211]A\334\234)\211^\201\203>\203\201\204[\211]A\335\234)[\"\210\202\206^\201\205=\203(_\204\206\201\206[\211]A\201\207\234)[D#\210\202\206^\201\210=\203K_\204\206\201\206[\211]A\345\234)[D#\210\202\206^\201\211=\203k\201\206[\211]A\201\212\234)[D#\210\202\206^\201\213=\203\206\201\206[\211]A\364\234)[D#\210)XT\211X\202\321-\310CD\211DA\345\234)\310`\211a\203 a@\211`\211RA\201\212H)\211bA\334H)\204\201\214`\201\215\"\201\216=\204\344\201\214`\201\215\"\201\217=\203_\204\201\220`\201\221`D$\211C\203\366C!\210\366\201t!\210aA\211a\204\246+D\211DA\201\207\234)\201\222D\211DA\334\234)!c\211d\334V\203ic\203ad\335U\203L\341\201\223c\211eA\335\234)\"\210\202i\341\201\224dSc\211eA\335\234)#\210\202i\341\201\225d\"\210*\201\226DCf g%\210\310CD\211DA\345\234)\310`\211h\203\362h@\211`\211RA\201\212H)\211bA\334H)\204\351\201\214`\201\215\"\201\227=\204\313\201\214`\201\215\"\201\217=\203\351_\203\351\201\220`\201\221`D$\211C\203\351\366C!\210\366\201t!\210hA\211h\204\215+\310\211ijD\211DA\345\234)\310`\211k\203kk@\211`\211RA\201\212H)\211bA\334H)\204b`\211RA\335H)\373=\203bl\201\230=\204QD\211DA\373\234)`\211RA\373H)=\204[`iBi\202b`jBjkA\211k\204 *j\203\210\366\371\201j!\201t\201\231\201\232j\237\375#Q!\210i\203\244\366\371\201i!\201t\201\231\201\233i\237\375#Q!\210*_\203\261\201\234D!\210m\204\273n\203\320\201\235 !\210\201\236Dofpn%\210\201\237 !\211q\242)\201\240=\203\347\201\241 !\210. \202\363\341\201\242 \"\210D\211DA\345\234)\211r\203\201\220r@\201\243D#\210rA\211r\204, .\207" [filter-active text-no lyskom-last-text-format-flags todo end start t lyskom-filter-text-p nil skip-text lyskom-filter-prompt filter-text next-text lyskom-mark-as-read blocking-do get-text-stat skip-tree filter-tree lyskom-jump lyskom-wait-queue main dontshow lyskom-message "%s" lyskom-get-string invalid-filter-list lyskom-blocking-do-multiple get-text 0 1 run-hooks lyskom-view-text-hook point-max-marker lyskom-format-insert "%#2@%[%#1n%] " lyskom-text-start lyskom-get-aux-item 7 21 17 16 19 20 10104 10103 24 18 lyskom-mx-date-to-time lyskom-print-date-and-time 9 " %#1s%#2s " 10 6 time-y-m-d-h-m lyskom-insert 3 line lyskom-format lines 2 lyskom-format-mx-author "" "%#1P" " " filter inhibit-read-only multiple-bind-sym text text-stat lyskom-view-text-text lyskom-view-text-text-stat mx-reply-to mx-headers mx-sender mx-filename mx-cc mx-to mx-author mx-from mx-date date time aux-item n kom-text-properties kom-show-imported-envelope-sender kom-show-imported-importer kom-show-imported-external-recipients __i__ __sequence__ __len__ misc __result__ misc-info type kom-reading-puts-comments-in-pointers-last aux #1=#:aux-items aux-item-flags is-marked-by-me num-marks mark mark-as-read flat-review #2=#:aux-items other-fast-replies author-fast-replies #3=#:aux-items lyskom-current-command follow-comments build-review-tree conf-stat priority object aux-items filtered "\n" lyskom-face-default-p kom-first-line-face add-text-properties (face kom-first-line-face) envelope-sender attachment-filename text-imported-at-by lyskom-return-date-and-time text-imported-at text-created-at mapcar #[(el) "\302\303\304\305!\211A\306H)#\207" [el aux-item lyskom-format-insert "%#1s: %#2s\n" lyskom-get-string mx-Recipient 6] 6] #[(el) "\302\303\304\305!\211A\306H)#\207" [el aux-item lyskom-format-insert "%#1s: %#2s\n" lyskom-get-string mx-Extra-recipient 6] 6] #[(el) "\302\303\304\305!\211A\306H)#\207" [el aux-item lyskom-format-insert "%#1s: %#2s\n" lyskom-get-string mx-Extern-reply-to 6] 6] (RECPT BCC-RECPT CC-RECPT) lyskom-print-header-recpt COMM-IN lyskom-print-header-comm 5 FOOTN-IN COMM-TO 4 FOOTN-TO lyskom-aux-item-definition-field text-print-when header comment lyskom-aux-item-call text-print cache-text-is-marked marked-by-you marked-by-you-and-others marked-by-several lyskom-print-text footer kom-review-noconversion mapconcat #[(item) "\303\304\211A\305H)\211A\306H)#\307\n\"\310Q\207" [item aux-item text-stat lyskom-format author-fast-reply-aux 6 2 lyskom-aux-item-terminating-button "\n"] 6] #[(item) "\303\304\211A\305H)\211A\306H)#\307\n\"\310Q\207" [item aux-item text-stat lyskom-format other-fast-reply-aux 6 2 lyskom-aux-item-terminating-button "\n"] 6] lyskom-view-text-handle-saved-comments lyskom-prefetch-texttree lyskom-follow-comments cache-get-text TEXT cache-del-text no-such-text-no read-action] 12 (#$ . 1190801)]) #@76 Ad-hoc test to determine whether a text is a mail by peeking at aux-items. (defalias 'lyskom-text-is-mail-p #[(text-stat) "\301\211A\302\234)\303\"\207" [text-stat lyskom-match-aux-items 7 #[(aux-item) "\211A\302H)\211\303V\203 \304W\206 \305U)\207" [aux-item tag 1 15 22 24] 3]] 4 (#$ . 1198441)]) #@107 Filter out the signature of imported mail messages. Most useful when put in your `lyskom-view-text-hook'. (defalias 'lyskom-filter-signature-hook #[nil "\306=?\2052\307 !\2052\n\211A\310\234)\311\312\f\"\211\2051\n\f\313 O\211A\310I\210*\314\315!*\207" [lyskom-current-command lyskom-view-text-text-stat lyskom-view-text-text text body sign kom-review-noconversion lyskom-text-is-mail-p 1 string-match "^-- $" 0 lyskom-signal-reformatted-text reformat-signature newval] 5 (#$ . 1198756)]) #@487 Arrange so that all comments and footnotes to this text will be read. This will essentially fix the reading list and issue calls for the cache to be filled. Arguments are: TEXT-STAT CONF-STAT MARK-AS-READ PRIORITY REVIEW-TREE TEXT-STAT is the current text. CONF-STAT the current conference If MARK-AS-READ is non-nil the texts will be marked as read. PRIORITY the priority of the reading. If REVIEW-TREE is non-nil then build an entry of type 'REVIEW-TREE in the lyskom-reading-list. (defalias 'lyskom-follow-comments #[(text-stat conf-stat mark-as-read priority review-tree) "\306\211\307!\310\211A\311\234)\211<\206 G\306\306\306 <\203\272 \203O @\211\211A\310\234)\312=\203|\211A\313\234)\211A\310\234)V\203|\203|\314\211A\313\234) \315!\"#&\210\316\211A\313\234)!\210\202\263\211A\310\234)\312=\203\231\211A\313\234) B\202\263\211A\310\234)\317=\203\263\211A\320\234)\nB A\211\202*\fW\203O \fH\211\211A\310\234)\312=\203\211A\313\234)\211A\310\234)V\203\203\314\211A\313\234) \315!\"#&\210\316\211A\313\234)!\210\202H\211A\310\234)\312=\203.\211A\313\234) B\202H\211A\310\234)\317=\203H\211A\320\234)\nB\fT\211\202\273-\306\211$%\310\n\211<\206a G\306&\306\306 <\203\277 \203 @&#\204\212'\204\212& >\204\252\321\322&\"\211\203\246#\204\237\323!\204\246&%B%)\202\270& >\203\270\324& \"\210 A\211\202r\fW\203 \fH&#\204\334'\204\334& >\204\374\321\322&\"\211\203\370#\204\361\323!\204\370&%B%)\202\n& >\203\n\324& \"\210\fT\211\202\300-%\203\237#\203^\325\326!\"%(\327()B\211A\310\234)\306\211)*+\"!,\330\331,!\"+*)\306&.B\315\"\210\202\237\332\317!\"%(\327()B\211A\310\234)\306\211)*+\"!,\330\331,!\"+*)\306&.B-\315#\210\310 \211<\206\252 G\306&\306\306 <\203\346 \203 @&\321\322&\"#\204\327\203\336\323!\204\336&$B$) A\211\202\273\fW\203 \fH&\321\322&\"#\204\203\323!\204&$B$)\fT\211\202\347-$\205f\332#\203&\326\202'\312!\"T$(\327()B\211A\310\234)\306\211)*+\"!,\330\331,!\"+*)\306&.B-\315#-\207" [text-stat mx-attachments-in clist flist __i__ __sequence__ nil lyskom-get-text-attachments 0 6 FOOTN-IN 7 lyskom-view-text t lyskom-is-read COMM-IN 5 blocking-do get-text-stat lyskom-text-read-p lyskom-skip-attachments lyskom-review-enter-read-info REVIEW-TREE TEXT-LIST READ-INFO vector read-list-enter-read-info __len__ misc __result__ misc-info kom-show-footnotes-immediately mark-as-read conf-stat priority review-tree footnotes comments no kom-follow-attachments texts forward comm-to text-list type lyskom-reading-list] 12 (#$ . 1199264)]) #@48 Return a list of all attachments to TEXT-STAT. (defalias 'lyskom-get-text-attachments #[(text-stat) "\301\302\303\211A\304\234)\305\"\"\207" [text-stat mapcar #[(el) "\302\211A\303H)!\207" [el aux-item string-to-number 6] 4] lyskom-get-aux-item 7 10101] 6 (#$ . 1202052)]) #@55 Skip the hierarchy of attachments starting at text-no (defalias 'lyskom-skip-attachments #[(text-no mark-as-read) "C\306\307 \306 ?\205B\f\203\237\f\2031\f@ >\204\310\311\312\f@\n$\210\fA\211@ B\202\313\311!\210 \n\211A)\244\314\n\211A)\211<\206QG\306\306\306<\203|\203\233@\f\315!\244A\211\202dW\203\233H\f\315!\244T\211\202~-\202\314 \211<\206\255G\306\306\306<\203\374\203?@\316\211A\314\234)\"\210\316\211A\314\234)\"\210\203\363\317!\210\320!\210A\211\202\300W\203?H\316\211A\314\234)\"\210\316\211A\314\234)\"\210\2036\317!\210\320!\210T\211\202\376-,\207" [text-no result tmp done queue lyskom-is-parsing nil make-collector initiate-get-text-stat background collector-push lyskom-wait-queue 0 lyskom-get-text-attachments read-list-delete-text lyskom-mark-as-read lyskom-is-read-handler collector __i__ __sequence__ __len__ text-stat __result__ lyskom-reading-list lyskom-to-do-list mark-as-read] 6 (#$ . 1202335)]) #@73 Fetches the author and other things of a text and does nothing with it. (defalias 'lyskom-fetch-text-for-cache #[(text-stat) "\2054\306!\210\307\310\311\211A\312\234)#\210\312\211A\313\234)\211<\206%\nG\311\311\311\n<\203\260\n\2032\n@\211\211A\312\234)\314=\203U\315\310\306\f\211A\316\234)#\210\202\251\f\211A\312\234)\317=\203r\315\310\306\f\211A\313\234)#\210\202\251\f\211A\312\234)\320=\203\217\315\310\306\f\211A\321\234)#\210\202\251\f\211A\312\234)\322=\203\251\315\310\306\f\211A\323\234)#\210\nA\211\2022 W\2032\n H\211\211A\312\234)\314=\203\327\315\310\306\f\211A\316\234)#\210\202+\f\211A\312\234)\317=\203\364\315\310\306\f\211A\313\234)#\210\202+\f\211A\312\234)\320=\203\315\310\306\f\211A\321\234)#\210\202+\f\211A\312\234)\322=\203+\315\310\306\f\211A\323\234)#\210 T\211\202\261 -\207" [text-stat __i__ __sequence__ __len__ misc __result__ lyskom-fetch-author-for-cache initiate-get-text fill-cache nil 0 6 FOOTN-IN initiate-get-text-stat 7 FOOTN-TO COMM-IN 5 COMM-TO 4 misc-info] 6 (#$ . 1203422)]) #@56 Fetches the author of a text and does nothing with it. (defalias 'lyskom-fetch-author-for-cache #[(text-stat) "\205\301\302\303\211A\304\234)#\207" [text-stat initiate-get-conf-stat fill-cache nil 2] 6 (#$ . 1204519)]) #@101 Return t if TEXT-STAT has been marked as read in all recipients to it that the user is a member in. (defalias 'lyskom-text-read-p #[(text-stat) "\211A\306\234)\211G\307 \203w\n\310U\204w\nS \n\234\211\211A\310\234)\211\311>\203s\312\f\211A\313\234)\314\"\f\211A\315\234) \203L\203L\314\203r\211A\316\234)V\203r\317\211A\320\234)\"\204r\321**\202 \307=\203\203?\202\204 +\207" [text-stat misc-info-list i res misc-info type 6 not-member 0 (RECPT BCC-RECPT CC-RECPT) lyskom-try-get-membership 1 t 2 3 lyskom-vmemq 4 nil loc-no membership kom-follow-comments-outside-membership] 5 (#$ . 1204750)]) #@234 Return t if TEXT-STAT has been marked as read in any of the recipients the user is a member of. Uses blocking-do. Returns t if TEXT-STAT is nil. If BG is non-nil, this function is run in the background and must not use blocking-do. (defalias 'lyskom-text-read-at-least-once-p #[(text-stat &optional bg) "\203\235\211A\306\234)\307\307\307\307\307 \203\205 @\211\211A\310\234) A \311>\203\203C\312\n\211A\313\234)\314\"\202N\315\n\211A\313\234)\314\"\211\203\314\n\211A\316\234)\f\211A\317\234)X\204|\320\n\211A\316\234)\f\211A\321\234)\"\203\314\307\211\204\203\217\202\232 \204\231?\202\232\307.\207\314\207" [text-stat misc-info-list misc-item type membership is-member 6 nil 0 (RECPT BCC-RECPT CC-RECPT) lyskom-try-get-membership 1 t lyskom-get-membership 2 3 lyskom-vmemq 4 result misc-info bg kom-follow-comments-outside-membership] 5 (#$ . 1205399)]) (defalias 'lyskom-subtract-one-day #[(x) "@SA@\303 V\203\nS \304\\ \303Z\n \305E*\207" [x low-x high-x 20864 65536 nil] 3]) (defalias 'lyskom-calculate-day-diff #[(time) "\305 \306!\307!\307 !\f\211A\310\234)\n\310\234U\203@\f\211A\311\234)T\n\311\234U\203@\f\211A\312\234)\313\\\n\312\234U\203@\314\202r\f\211A\310\234) \310\234U\203q\f\211A\311\234)T \311\234U\203q\f\211A\312\234)\313\\ \312\234U\203q\301\202r\315,\207" [now yesterday decnow decthen time current-time lyskom-subtract-one-day decode-time 3 4 5 1900 today nil] 4]) #@46 Return date and time as a string. Arg: TIME. (defalias 'lyskom-return-date-and-time #[(time &optional fmt) "\205\304 !\305\n\203\306\307\n!\310P!\202 \206\311 \211A\312\234)\313\\ \211A\314\234)T \211A\315\234) \211A\316\234) \211A\317\234)\n\205I\320\n!&)\207" [lyskom-print-complex-dates time diff fmt lyskom-calculate-day-diff lyskom-format intern symbol-name "-time-format-string" time-yyyy-mm-dd-hh-mm 5 1900 4 3 2 1 lyskom-get-string] 10 (#$ . 1206882)]) #@32 Print date and time. Arg: TIME (defalias 'lyskom-print-date-and-time #[(time &optional fmt) "\302\303 \"!\207" [time fmt lyskom-insert lyskom-return-date-and-time] 4 (#$ . 1207366)]) #@30 Format the footer of a text. (defalias 'lyskom-format-text-footer #[(text author author-name format format-flags) "\306\307\310\310\310\310!\205\311\312!\"1\3132\206'3\2114A\314\234)!!\204\2675\203I5<\203I\3156\316\317\3205\321#\322Q)\202J\30678\313\3239\211:A\307\234)!!Z;\203g \324\\\202h\307Z\3257!Z\326Z\211<\307V\203\200\327<\330\"\202\201\306=\331>\203\222;\203\222\332\202\245>\203\233\333\202\245;\203\244\334\202\245\33592\206\2563=7%+\202\310\311\336! #\203\260! \307\224OP!\324\224H\337\314!\"\211\204\333\306\307\225\n\340=\203\374\331\341\342 \"3\206\3709\211:A\324\234)\"\202\253\n\343=\203\331\341\344 \"3\2062\"\202\253\n\345=\203*\331\341\346 \"9\211:A\307\234)\"\202\253\n\347=\203F5\203B\331\341\350 \"\3515!\"\202\253\306\202\253\n\330=\203\232 \204T\352\202r \306\230\203^\352\202r \307H\353=\203o\354 \314\310O!\202r\354 !?\331\3551\203\220 ?W\203\214\327? Z\330\"\202\225\306\202\225\327?\330\"\")\202\253\n\356=\203\244\357\202\253\357 \327\314\n\"QP\202\267! \310OP\311\360\"\203\307\307\211\224O\202\310.\207" [result start format-letter field-width kom-deferred-printing author-name-len "" 0 nil string-match "%=?[0-9]*P" lyskom-string-width 1 t "(" mapconcat #[(str) "\303 :\203 A @\304 !\n\203\303\305 !\203'\306\307 G $\210 )\207" [face str first-flag nil lyskom-get-string upcase-initials add-text-properties 0] 5] ", " ")" int-to-string 2 string-width 3 make-string 45 lyskom-format "(%#1n) /%#2P/%#3s%#4s" "(%#1n) %#3s%#4s" "(%#1n) /%#2P/" "(%#1n)" "%\\(=?-?[0-9]+\\)?\\([-nPpf% ]\\)" match-string 112 format "%%%s#1p" 80 "%%%s#1P" 110 "%%%s#1n" 102 "%%%s#1s" lyskom-get-string 42 61 string-to-int "%#1s" 37 "%" "[ ]+\\'" have-author author-name author conf-stat format-flags first-flag format-flag-string kom-text-footer-dash-length text text-stat kom-show-author-at-end end-dash-chars end-dash kom-dashed-lines width] 7 (#$ . 1207556)]) #@65 Insert the name of a conference at a previously reserved place. (defalias 'lyskom-deferred-insert-footer #[(conf-stat defer-info) "\306!\307\234\306!\310\234\311 \211A\312\234)\313\"@\311 \211A\312\234)\314\"@ \203,\315\202D\316!\307U\203:\317\320!\202D\321\322 \211A\323\234)\"\324 \f\"\206O\325\326 \n%\"-\207" [defer-info text-stat format-flags mx-from mx-author conf-stat defer-info->data 0 1 lyskom-get-aux-item 7 17 16 nil defer-info->call-par lyskom-get-string person-is-anonymous lyskom-format person-does-not-exist 2 lyskom-format-mx-author lyskom-replace-deferred lyskom-format-text-footer name kom-text-footer-format] 9 (#$ . 1209570)]) #@222 Print a text. The header must already be printed. Print an error message if TEXT-STAT or TEXT is nil. Mark the text as read if (and only if) MARK-AS-READ is non-nil. Args: TEXT-STAT TEXT MARK-AS-READ TEXT-NO FLAT-REVIEW. (defalias 'lyskom-print-text #[(text-stat text mark-as-read text-no flat-review) "\306 \203\n\n\204\307\310 \"\210\f \211\202\353\n\211A\311\234)3=\203-\n\211A\312\234)4\313 \n\"5\3146\314\315\3165\"\203\3535\312\211\224O75\312\225\314O\317\320!\210\3218\307\322\3237!\"\210)9\203n\324\325:\326\"!\210\324\316!\210;\203\323<\203\323=\203\323\312\211<=^\314>?@A@\203\322\315\316@#\211@\203\322@T@AT\211A?U\203\271@S>A=Y\203\221\312>O\314@\3276\202\221,\3308\307\331\nB\"\210)6\203\332\333!\210\2029\203\370\324\325:\326\"!\210\324\316!\210\307\331\n5B\"\210\3347\335\312!\210\3368\337\n\211A\340\234)\341\"@B\337\n\211A\340\234)\342\"@C\343BC\"DE\203jF\204?G\203j\307\344H\"\210\345\346\347\n\211A\311\234)\350\351 dHGZ\352Z\314\223HG\353\nID&!\210\202\325F\204tG\205\213\n\211A\311\234)\312=?\205\213\354\347\n\211A\311\234)\"J\324\355\nJD\203\234D\202\311\n\211A\311\234)\312=\203\256\356\357!\202\311J\203\277J\211JA\352\234)\202\311\360\361\n\211A\311\234)\"FI%!\210)\324\316!\210,K\203\337\362\n!\210\f\n\211A\312\234)\211+)\207" [lyskom-current-function text text-stat text-no lyskom-current-text lyskom-previous-text lyskom-print-text lyskom-format-insert no-such-text-no 2 0 text->decoded-text-mass nil string-match "\n" lyskom-insert-string head-Subject subject "%#1r\n" copy-sequence lyskom-insert make-string 45 t body "%#1t\n" lyskom-signal-reformatted-text (reformat-truncated face kom-warning-face) "" sit-for footer lyskom-get-aux-item 7 17 16 lyskom-format-mx-author "%#1s\n" lyskom-defer-insertion lyskom-create-defer-info get-conf-stat lyskom-deferred-insert-footer make-marker 1 "%#1s" blocking-do lyskom-format-text-footer lyskom-get-string person-is-anonymous lyskom-format person-does-not-exist lyskom-mark-as-read lyskom-pers-no lyskom-last-seen-written str truncated lyskom-current-subject lyskom-current-function-phase kom-dashed-lines kom-text-header-dash-length flat-review kom-truncate-show-lines kom-truncate-threshold last-line show-lines pos lines mx-from mx-author author-name kom-deferred-printing kom-text-footer-format kom-show-author-at-end lyskom-defer-indicator lyskom-last-text-format-flags conf-stat mark-as-read] 11 (#$ . 1210252)]) #@227 Mark a text as read in all conferences that are recipients. Tell the server that it is read. Args: TEXT-STAT This function does not remove the text from the internal structures of the client. That is done by lyskom-is-read. (defalias 'lyskom-mark-as-read #[(text-stat) "\211A\306\234)\307 \211<\206 G\310\310\310 <\203` \203\242 @\211\211A\307\234)\311>\203Y\312\313\314 \211A\315\234) \211A\316\234)C \211A\315\234) \211A\316\234)C&\210 A\211\202\"\n\fW\203\242 \nH\211\211A\307\234)\311>\203\233\312\313\314 \211A\315\234) \211A\316\234)C \211A\315\234) \211A\316\234)C&\210\nT\211\202a.\207" [text-stat misc-info-list __i__ __sequence__ __len__ misc-info 6 0 nil (RECPT BCC-RECPT CC-RECPT) initiate-mark-as-read background lyskom-mark-as-read-callback 1 2 __result__] 10 (#$ . 1212782)]) (defalias 'lyskom-mark-as-read-callback #[(result text-stat recipient local-nos) "\301!\207" [recipient lp--maybe-update-unreads] 2]) #@69 Print a line of info about a recipient (or cc-recipient) of a text. (defalias 'lyskom-print-header-recpt #[(conf-no misc) "\303\304\211A\305\234)\306=\203\307\310!\202;\211A\305\234)\311=\203&\307\312!\202;\211A\305\234)\313=\2038\307\314!\202;\307\315!\n\211A\316\234)$\210\211A\317\234)\203\\\303\320\321\211A\317\234)!\"\210\211A\322\234)\203q\303\323\211A\322\234)\"\210\211A\324\234)\205\207\303\325\321\211A\324\234)!\"\207" [misc misc-info conf-no lyskom-format-insert "%#1s: %#2M <%#3d>\n" 0 RECPT lyskom-get-string Recipient BCC-RECPT Hidden-recipient CC-RECPT Extra-recipient Strange-recipient 2 9 send-at lyskom-return-date-and-time 8 sent-by 3 recieved-at] 7 (#$ . 1213757)]) #@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) "\306 \211A\307\234)\211<\206\nG\310\310\310\n<\203`\n\203\246\n@\211\211A\306\234)\211\311=\203D\312\f\211A\313\234)\f #\210\202X\314=\203X\312\f\211A\315\234)\f #\210)\nA\211\202 W\203\246\nH\211\211A\306\234)\211\311=\203\212\312\f\211A\313\234)\f #\210\202\236\314=\203\236\312\f\211A\315\234)\f #\210)T\211\202a -\207" [__i__ text-stat __sequence__ __len__ misc __result__ 0 6 nil COMM-IN lyskom-print-header-comm 5 FOOTN-IN 7 misc-info type] 5 (#$ . 1214482)]) #@48 Get author of TEXT-NO and print a header line. (defalias 'lyskom-print-header-comm #[(text misc read-text-stat) "\203\n\306 !\202\307\310 \"\211\203\311\n \f#\210\202D\204)\311\n \f#\210\202D\312\310 \313\314 G\315 \fD&\316\317 \"\210\320!\210) \211A\321\234)\203]\316\322\323 \211A\321\234)!\"\210 \211A\324\234)\205s\316\325 \211A\324\234)\")\207" [kom-deferred-printing text text-stat misc read-text-stat lyskom-defer-indicator cache-get-text-stat blocking-do get-text-stat lyskom-insert-header-comm lyskom-create-defer-info lyskom-insert-deferred-header-comm point-max-marker nil lyskom-format-insert "%#1s\n" lyskom-defer-insertion 9 send-at lyskom-return-date-and-time 8 sent-by defer-info misc-info] 10 (#$ . 1215241)]) (defalias 'lyskom-insert-deferred-header-comm #[(text-stat defer-info) "\205 \211A\306\234)\307\n!\310\234\307\n!\311\234 \211A\310\234),\312\211A\313\234)\314\"@-\312\211A\313\234)\315\"@.\316\f!/\317\320\312\f\211A\313\234)\321\"\"0\3221\3232\3233\324-.\"\206b -\203\227\312\211A\313\234)\311\"@\2111\203\227\325\3261\2114A\327H)\"\210\330\3311\2114A\327H)\"1\202\232\3221,\332=\203\311 \211A\333\234)0>\203\262\334\202\273 \203\272\335\202\273\3362 \211A\333\234)3\202S,\337=\203\370 \211A\327\234)0>\203\341\334\202\352 \203\351\340\202\352\3412 \211A\327\234)3\202S,\342=\203' \211A\343\234)/>\203\344\202 \203\345\202\3462 \211A\343\234)3\202S,\347=\203S \211A\313\234)/>\203?\344\202H \203G\350\202H\3512 \211A\313\234)3\352\n2\"\210\353\n3 1$. \207" [text-stat author defer-info misc read-text-stat misc-info 2 defer-info->data 0 1 lyskom-get-aux-item 7 17 16 lyskom-get-text-attachments mapcar #[(el) "\302\211A\303H)!\207" [el aux-item string-to-number 6] 4] 10100 "" nil lyskom-format-mx-author string-match "^\\(\\S-+\\)" 6 format "(%s) " COMM-TO 4 attachment-to-text comment-to-text-by comment-to-text FOOTN-TO footnote-to-text-by footnote-to-text COMM-IN 5 attachment-in-text comment-in-text-by comment-in-text FOOTN-IN footnote-in-text-by footnote-in-text set-defer-info->format lyskom-replace-deferred type mx-from mx-author mx-attachments-in mx-belongs-to content-type fmt data aux-item] 6]) #@48 Get author of TEXT-NO and print a header line. (defalias 'lyskom-insert-header-comm #[(text-stat misc read-text-stat) "\205 \211A\306\234)\307\211A\310\234)\311\"@\307\211A\310\234)\312\"@\313 !\314\315\307 \211A\310\234)\316\"\"\317\320\n\211A\321\234)*+,-./\322.-\"\206S//.\203\211\307\211A\310\234)\323\"@\211*\203\211\324\325*\2110A\326H)\"\210\327\330*\2110A\326H)\"*\202\214\317*\f\331=\203\272\332\n\211A\333\234)+>\203\252\334\211\203\252\335\202\253\336\n\211A\333\234)\320*$\210\202A\f\337=\203\350\332\n\211A\326\234)+>\203\330\334\211\203\330\335\202\331\340\n\211A\326\234)\320*$\210\202A\f\341=\203\332\n\211A\342\234),>\203\334\211\203\343\202\344\n\211A\342\234)\320*$\210\202A\f\345=\203A\332\n\211A\310\234),>\2034\334\211\2034\343\2025\346\n\211A\310\234)\320*$\210/\203R \204R\332\347/\"\202U\350\351!.\207" [text-stat read-text-stat misc misc-info type is-attachment 2 lyskom-get-aux-item 7 17 16 lyskom-get-text-attachments mapcar #[(el) "\302\211A\303H)!\207" [el aux-item string-to-number 6] 4] 10100 "" nil 0 lyskom-format-mx-author 1 string-match "^\\(\\S-+\\)" 6 format "(%s) " COMM-TO lyskom-format-insert 4 t attachment-to-text comment-to-text FOOTN-TO footnote-to-text COMM-IN 5 attachment-in-text comment-in-text FOOTN-IN footnote-in-text written-by lyskom-insert "\n" content-type mx-belongs-to mx-attachments-in mx-author mx-from author aux-item] 10 (#$ . 1217504)]) (defalias 'lyskom-format-mx-author #[(mx-from mx-author) "\304 \204\n\n\203I\305\306!\n\203\n\211A\307H)P \203(\n\203(\310P \203C\311\312\313\314 \211A\307H)\" \211A\307H)#P\305\315!P)\207" [author mx-from mx-author aux-item nil lyskom-get-string email-name-prefix 6 " " lyskom-format "<%[%#1@%#2s%]>" lyskom-default-button email email-name-suffix] 8]) #@113 Attempt to convert MX-DATE to a lyskom time structure. Returns the time structure if successful, otherwise nil. (defalias 'lyskom-mx-date-to-time #[(mx-date) "\205\324\306\307\310\217\205\324\311\312\211A\313H)\"\205\324\314\315\313\211A\313H)\"!\314\315\316\211A\313H)\"!\314\315\317\211A\313H)\"!\314\315\320\211A\313H)\"!\314\315\321\211A\313H)\"!\314\315\322\211A\313H)\"!\315\323\211A\313H)\"\315\324\211A\313H)\"\206\202\325\326\327 E!!\322\234 \n \f S\330Z \331\306!\" #$\332\333$#\f  \"!& .B\207" [mx-date aux-item secs mins hour mday nil (byte-code "\300\301!\210\300\302!\210\303\207" [require calendar cal-iso t] 2) ((error)) string-match "\\([0-9][0-9][0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]\\) \\([0-9][0-9]\\):\\([0-9][0-9]\\):\\([0-9][0-9]\\) \\([-+][0-9][0-9]\\)?\\([0-9][0-9]\\)?" 6 string-to-number match-string 5 4 3 2 1 7 8 "" calendar-iso-from-absolute calendar-absolute-from-gregorian 1900 0 TIME vector mon year tzhr tzmin wday isdst yday min sec] 14 (#$ . 1219372)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: async.el,v 44.37 2001/01/03 22:02:45 qha Exp $\n" nil] 2) (defalias 'lyskom-is-ignoring-async #[(buffer message &rest args) "\212q\210 \n\236\211\205\f A\232*\207" [buffer message lyskom-ignoring-async-list tmp args] 3]) #@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) "\306 \211\307=\204\310=\2030\306 \307=\203\311 !\202!\312 !p\313\216\fq\210\314\n!,\202\312\315=\203<\316 !\202\312\317=\203H\316 !\202\312\320=\203T\316 !\202\312\321=\203`\316 !\202\312\322=\203\371\306 \323 \323 @ABp\324\216\fq\210C\203\221BCU\203\221\325\326@\327\330B\"#\210\331B!\332B!D\211E\203\261E@F\211GA\315FI\210*D\203\306D@H\211IA\315HI\210**\333 \204\340\334BJ\"\203\340\335\336\337\340A@#\"\210\334BK\"\205\365\325\341A@\327\330B\"$-\202\312\342=\203 \343 Lp\344\216\fq\210C?\206C\307U?\205\345L!+\202\312\346=\203Xp\347\216\fq\210\333 \2049\335\336\350\351!\"\210\350\352!M\353N\354\355 !\210\356\307!\210O?\205T\357\360\361\"*\202\312\362=\203\306 B\363\f\362B#?\205{p\364\216\fq\210\365\366\367B\211$*)\202\312\370=\203\313\306 \306 PQp\371\216\fq\210C\203\257C\307U\204\257QCU\204\257\365\366\372Q#\210C\205\307C\307U?\205\307R\205\307\373\374\375P#,\202\312\376=\203\347p\377\216\fq\210\201W\201X\201Y!!*\202\312\201Z=\203;\306 \306 \323 STUp\201[\216\fq\210U\307U\203\365\360\201\\T\307S%\2027\201]\360!\210\365\360\361T#\210\365\360\361U#\210\201^\360\201\\S#-\202\312\201_=\203\240\306 \306 PQp\201`\216\fq\210C\203\205C\307U\204\205CQU\204\205\334QJ\"\204z\334QK\"\203\205\365\366\201aQP$\210C\205\234C\307U?\205\234\201b\374\201cP#,\202\312\201d=\203\301\306 \312 !p\201e\216\fq\210\201f\n!,\202\312\201g=\203.\306 \306 \306 VBV\307=\203\343\201hV\202\376V\315=\203\362\201iV\202\376V\310=\203\376\201jVV9\205*p\201k\216\fq\210\201l !\210\201mB!\210\201n\366\201o \211BV&*+\202\312\201p=\203a\306 \306 \306 VBp\201q\216\fq\210\201mB!\210\201l !\210\201rV!-\202\312\201s=\203\307\306 \306 BQ\363\f\201sQB$?\205\303p\201t\216\fq\210\201uQ!\210\201mB!\210QC=\205\302\201]\366!\210\365\366\361B#\210\201v\366\361QB$\210\201^\366\201wQB$**\202\312\316 !)\207" [msg-no text-no text-stat __buffer__ buffer tokens lyskom-parse-num 0 15 lyskom-parse-text-stat-old lyskom-parse-text-stat ((set-buffer __buffer__)) lyskom-async-new-text 1 lyskom-skip-tokens 2 3 4 5 lyskom-parse-string ((set-buffer __buffer__)) lyskom-format-insert-before-prompt you-changed-name-to lyskom-default-button conf cache-get-conf-stat cache-get-uconf-stat lyskom-is-in-minibuffer lyskom-show-presence lyskom-message "%s" lyskom-format name-has-changed-to-name name-has-changed-to-name-r 6 lyskom-parse-who-info ((set-buffer __buffer__)) cache-add-who-info 7 ((set-buffer __buffer__)) lyskom-get-string database-sync mode-line-saving t set-buffer-modified-p buffer-modified-p sit-for initiate-get-time async nil 8 lyskom-is-ignoring-async ((set-buffer __buffer__)) initiate-get-conf-stat follow lyskom-async-forced-leave-conf 9 ((set-buffer __buffer__)) lyskom-show-logged-in-person initiate-get-session-info who-buffer cache-add-session-info 11 ((set-buffer __buffer__)) new-name old-name conf-no lyskom-pers-no cached-ustat cached-stat newval conf-stat name uconf-stat kom-presence-messages kom-presence-messages-in-buffer info mode-line-process lyskom-is-saving lyskom-pending-calls session-no pers-no lyskom-who-info-buffer-is-on message sender recipient misc-type lyskom-insert-before-prompt lyskom-get-string-sol lyskom-is-full 12 ((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 14 ((set-buffer __buffer__)) lyskom-async-deleted-text 16 RECPT CC-RECPT BCC-RECPT ((set-buffer __buffer__)) cache-del-text-stat cache-del-conf-stat initiate-get-text-stat lyskom-async-new-recipient 17 ((set-buffer __buffer__)) lyskom-ignore 18 ((set-buffer __buffer__)) cache-del-pers-stat initiate-query-read-texts lyskom-async-new-membership] 8 (#$ . 1220740)]) (defalias 'lyskom-async-forced-leave-conf #[(conf-stat conf-no) "\203\f\304\305\"\210\202\304\306 \"\210\307 !\210 \n=\203\310 \210\311 \"\210\312 \207" [conf-stat conf-no lyskom-current-conf lyskom-to-do-list lyskom-format-insert-before-prompt no-longer-member no-longer-member-n lyskom-remove-membership lyskom-leave-current-conf read-list-delete-read-info lyskom-update-prompt] 3]) (defalias 'lyskom-async-new-membership #[(conf-conf-stat membership pers-no conf-no) "\205]\306 \307\"\211\204&\310\211A\311\234)\211A\312H)\203\"\313\202#\314\f\"\210\211A\311\234)\211A\312H)\203N\315!\210 =\203C\316 \210\317 \"\210\320 \202\\\n\203X\315!\202\\\321 \")\207" [membership conf-no cur-mship membership-type conf-conf-stat lyskom-current-conf lyskom-try-get-membership t lyskom-format-insert-before-prompt 7 1 have-become-passive-member have-become-member lyskom-replace-membership lyskom-leave-current-conf read-list-delete-read-info lyskom-update-prompt lyskom-add-membership lyskom-to-do-list] 4]) #@98 Returns non-nil if presence messages for NUM should be displayed according to the value of FLAG. (defalias 'lyskom-show-presence #[(num flag) "\204\304\207\305=\203 \n>\207\306=\203 >\207\307=\203* \n>\2064 >\207<\2033 >\207\310\207" [flag num kom-friends kom-morons nil friends morons friends-and-morons t] 2 (#$ . 1226452)]) #@42 Visa p} kommandoraden vem som loggat in. (defalias 'lyskom-show-logged-in-person #[(conf-stat) "\306 \"A\206 \307 \204+\310 \211A\311\234)\f\"\203+\312\313\314\315 \206'\316\317!\n#\"\210\310 \211A\311\234) \"\205W \203J\320\321 \205E\322\n$\202W\320\321\316\317!\205U\323\n$)\207" [lyskom-server-name kom-server-aliases server conf-stat kom-presence-messages kom-presence-messages-in-buffer lyskom-string-assoc lyskom-is-in-minibuffer lyskom-show-presence 0 lyskom-message "%s" lyskom-format has-entered lyskom-get-string unknown-person lyskom-format-insert-before-prompt has-entered-r (face kom-presence-face) (face kom-presence-face) kom-text-properties] 7 (#$ . 1226802)]) #@42 Visa p} kommandoraden vem som loggat ut. (defalias 'lyskom-show-logged-out-person #[(conf-stat session-no) "\306 \"A\206 \307 \204+\310 \211A\311\234)\f\"\203+\312\313\314\315 \206'\316\317!\n#\"\210\310 \211A\311\234) \"\205W \203J\320\321 \205E\322\n$\202W\320\321\316\317!\205U\323\n$)\207" [lyskom-server-name kom-server-aliases server conf-stat kom-presence-messages kom-presence-messages-in-buffer lyskom-string-assoc lyskom-is-in-minibuffer lyskom-show-presence 0 lyskom-message "%s" lyskom-format has-left lyskom-get-string unknown-person lyskom-format-insert-before-prompt has-left-r (face kom-presence-face) (face kom-presence-face) kom-text-properties] 7 (#$ . 1227503)]) #@46 Tells the user what another person is doing. (defalias 'lyskom-show-changed-person #[(personconfstat conf-num doing) "\205k\306\211A\307\234)\n\"\203: \307U\204 \f=\203: G\307U\204:\310\311\211A\312\234)\313\314 !\227! \312\315OP#\210\306\211A\307\234)\"\205k \307U\204T \f=\205k G\307U?\205k\316\317\313\314 !\227! \312\315OP#\207" [personconfstat conf-stat kom-presence-messages conf-num lyskom-current-conf doing lyskom-show-presence 0 lyskom-message "%s %s" 1 char-to-string string-to-char nil lyskom-format-insert-before-prompt "%#1M %#2s\n" kom-presence-messages-in-buffer] 8 (#$ . 1228210)]) #@64 Returns non-nil if I am using the minibuffer for some reading. (defalias 'lyskom-is-in-minibuffer #[nil "\206 \206 \302 \303U?\207" [lyskom-inhibit-minibuffer-messages cursor-in-echo-area minibuffer-depth 0] 2 (#$ . 1228835)]) #@435 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. A lyskom time structure. NOBEEP: True means don't beep. No matter what. (defalias 'lyskom-show-personal-message #[(sender recipient message &optional when nobeep) "\306 \n \f%\210;\203\202\211A\307\234) \205: \310=?\205: \211A\310\234)\f=?\205: \211A\307\234) \311\312!\207" [sender recipient message when nobeep conf-stat lyskom-insert-personal-message 1 0 run-hooks lyskom-personal-message-hook lyskom-last-personal-message-sender lyskom-pers-no lyskom-last-group-message-recipient] 7 (#$ . 1229073)]) #@380 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 a lyskom time structure. Non-nil NOBEEP means don't beep. (defalias 'lyskom-insert-personal-message #[(sender recipient message &optional when nobeep) "\306\307 \n \f%\211A\310\234)\311#\207" [sender recipient message when nobeep conf-stat lyskom-handle-as-personal-message lyskom-format-as-personal-message 0 nil] 8 (#$ . 1229964)]) #@385 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 a lyskom time structure. Non-nil NOBEEP means don't beep. (defalias 'lyskom-format-as-personal-message #[(sender recipient message &optional when nobeep) "\306\307 \n\204\f\307  \204F\n\211A\310\234)\211A\310\234)=\203F\n\211A\311\234)\211A\311\234)=\203F\n\211A\312\234)\211A\312\234)=\204s\313\314\n\211A\312\234)\315\\\n\211A\311\234)\n\211A\310\234)\n\211A\316\234)\n\211A\317\234)&\202\205\313\320\n\211A\316\234)\n\211A\317\234)# \206\220\205\220\203\235\321=\203\313 \204\250\322\"\210\313\323\324!;\203\267\202\304\203\301\202\304\325\326!\n$\202K\211A\321\234) U\203 \204\345\322!\"\210\313\323\327!;\203\364\202\203\376\202\325\326!\n$\202K \204\322\"\"\210\313\323\330!;\203$\2021\203.\2021\325\326!;\203<\202I\203F\202I\325\326!\n%*\207" [now lyskom-last-text-format-flags when kom-show-personal-message-date time nobeep nil lyskom-client-date 3 4 5 lyskom-format time-yyyy-mm-dd-hh-mm 1900 2 1 time-hh-mm 0 lyskom-beep lyskom-get-string-sol message-broadcast lyskom-get-string unknown message-from message-from-to kom-ansaphone-on kom-silent-ansaphone recipient kom-ding-on-common-messages sender message conf-stat lyskom-pers-no kom-ding-on-personal-messages kom-ding-on-group-messages] 9 (#$ . 1230629)]) #@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) "\205\306\307 \"\310=\206\306\311 \"\310=?\205x\np\312\216 \313=\2031\314 !\210 \205w\315p!\202w ?\206w\313\316\317!@\211\203Jq\210\202W\320\317 \313#q\210\321 \210\313)db\210\322 !\210 \205v\323 \324\216\325\326p!!\210db\210\327\330!*)+\207" [filter string kom-pop-personal-messages pop __buffer__ kom-show-personal-messages-in-buffer string-match "^Remote-command: [0-9]+ [0-9]+\n" 0 "^Auto-reply:\n" ((set-buffer __buffer__)) t lyskom-insert-before-prompt display-buffer lyskom-buffers-of-category personal-messages lyskom-get-buffer-create lyskom-view-mode lyskom-insert selected-window ((select-window save-selected-window-window)) select-window lyskom-display-buffer recenter -1 inhibit-read-only message-buffer buffer-read-only save-selected-window-window] 5 (#$ . 1232302)]) #@32 Handle a new recipient message (defalias 'lyskom-async-new-recipient #[(text-stat text-no conf-no misc-type) " =\203\n\211A\306\234) =\204\307 !\210\310\n\311\"\203+ =\204+\312\313\314\fC$\207\314\315\n\211A\316\234)\211<\206AG\314\314\314<\203\213\203\311@\211\211A\315\234)=\203\202\211A\317\234)=\203\202\211A\306\234)A\211\202TW\203\311H\211\211A\315\234)=\203\300\211A\317\234)=\203\300\211A\306\234)T\211\202\215- \205\344\320\321\322\f %\210\323\f!\210\324\321\325\n#\210\324\321\326\")\207" [conf-no lyskom-pers-no text-stat kom-ding-on-new-letter text-no local-no 2 lyskom-beep lyskom-text-read-at-least-once-p t initiate-mark-as-read follow nil 0 6 1 initiate-get-conf-stat async lyskom-add-new-text lyskom-prefetch-text-all lyskom-run lyskom-default-new-recipient-hook lyskom-prefetch-and-print-prompt __i__ __sequence__ __len__ misc-info __result__ misc-type] 7 (#$ . 1233404)]) (defalias 'lyskom-default-new-recipient-hook #[(text-stat) "\204 \204 \302 \210\303\304!\207" [lyskom-dont-change-prompt lyskom-executing-command lyskom-update-prompt run-hooks lyskom-new-recipient-hook] 2]) #@72 Print a message if the user was waiting. Change the prompt. run hooks. (defalias 'lyskom-default-new-text-hook #[(text-stat) "\204 \204 \305 \210\306\307\310!\210\n?\205- \205-\311 ?\205-\312\313\314\315\f\211A\316\234)\"\")\207" [lyskom-dont-change-prompt lyskom-executing-command no-message lyskom-is-waiting text-stat lyskom-update-prompt nil run-hooks lyskom-new-text-hook lyskom-is-in-minibuffer lyskom-message "%s" lyskom-format text-is-created 0] 7 (#$ . 1234605)]) #@30 Update the prompt. Run hooks (defalias 'lyskom-default-deleted-text-hook #[(text-stat) "\204 \204 \302 \210\303\304!\207" [lyskom-dont-change-prompt lyskom-executing-command lyskom-update-prompt run-hooks lyskom-deleted-text-hook] 2 (#$ . 1235093)]) #@58 Take care of a message that a new text has been created. (defalias 'lyskom-async-new-text #[(text-stat) "\306\211A\307\234)!\210\310\211A\311\234)\211<\206\nG\312\312\312\n<\203\263\n\203B\n@\211\211A\310\234)\211>\203z\f\211A\313\234)=\203]\211A\307\234)=\204]\314!\210\315\316\317\f\211A\313\234)\211A\310\234)\f\211A\307\234)%\210\202\253\320=\203\216\321\f\211A\322\234)!\210\202\253\323=\203\242\321\f\211A\311\234)!\210\202\253\324\325\326\327E\"\210)\nA\211\202( W\203B\n H\211\211A\310\234)\211>\203 \f\211A\313\234)=\203\354\211A\307\234)=\204\354\314!\210\315\316\317\f\211A\313\234)\211A\310\234)\f\211A\307\234)%\210\202:\320=\203\321\f\211A\322\234)!\210\202:\323=\2031\321\f\211A\311\234)!\210\202:\324\325\326\327E\"\210) T\211\202\264-\330!\210\331\316\332#\210\331\316\333\"\207" [text-stat __i__ __sequence__ __len__ misc-info __result__ cache-del-pers-stat 2 0 6 nil 1 lyskom-beep initiate-get-conf-stat async lyskom-add-new-text COMM-TO cache-del-text-stat 4 FOOTN-TO signal lyskom-internal-error lyskom-async-new-text "Unexpected misc-info in new text " lyskom-prefetch-text-stat-all lyskom-run lyskom-default-new-text-hook lyskom-prefetch-and-print-prompt type lyskom-recpt-types-list lyskom-pers-no kom-ding-on-new-letter] 8 (#$ . 1235353)]) #@54 Take care of a message that a text has been deleted. (defalias 'lyskom-async-deleted-text #[(text-stat) "\306\211A\307\234)!\210\310\211A\311\234)\211<\206\nG\312\312\312\n<\203\202\n\203\340\n@\211\211A\310\234)\211>\203U\313\314\315\f\211A\316\234)\f\211A\307\234)%\210\202z\317=\203i\320\f\211A\321\234)!\210\202z\322=\203z\320\f\211A\311\234)!\210)\nA\211\202( W\203\340\n H\211\211A\310\234)\211>\203\263\313\314\315\f\211A\316\234)\f\211A\307\234)%\210\202\330\317=\203\307\320\f\211A\321\234)!\210\202\330\322=\203\330\320\f\211A\311\234)!\210) T\211\202\203-\323\314\324#\210\323\314\325\"\207" [text-stat __i__ __sequence__ __len__ misc-info __result__ cache-del-pers-stat 2 0 6 nil initiate-get-conf-stat async lyskom-delete-old-text 1 COMM-TO cache-del-text-stat 4 FOOTN-TO lyskom-run lyskom-default-deleted-text-hook lyskom-prefetch-and-print-prompt type lyskom-recpt-types-list] 8 (#$ . 1236717)]) #@119 RECIPIENT is a conf-stat and previous recipient of TEXT-STAT. This call is used in response to a deleted text message (defalias 'lyskom-delete-old-text #[(recipient text-stat local-no) "\205h\306 \211A\307\234)!\210\310 \211A\307\234)!\210\211\211A\311\234)\211A\311\234)\211A\311\234)S^^\211A\311 I\210*\312\211A\307\234)!\211\203e\313\f!\203e\314 \211A\307\234) \"\210\314 \211A\307\234)\"\210)\315 \207" [recipient text-stat conf-stat newval membership lyskom-to-do-list cache-del-text-stat 0 cache-del-text 14 lyskom-try-get-membership lyskom-visible-membership read-list-delete-text lyskom-set-mode-line lyskom-reading-list] 6 (#$ . 1237696)]) #@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) "\205\266\211\211A\306\234)\n\211A\307\234)[\\\310\\]\211A\306 I\210*\311\211A\312\234)!\211\203\243\313\f!\203\243\314 #\204\243\315\f\211A\316\234) C\317)B\320\211\211\321\322 \320&.B\323\"\210\211A\312\234)U\203\237 !\"!\"!AB\241\210*)\202\263\f\204\263\324\211A\312\234)#\"\210)\325 \207" [recipient conf-stat local-no newval membership text-no 14 13 -1 lyskom-try-get-membership 0 lyskom-visible-membership read-list-enter-text CONF 2 TEXT-LIST nil READ-INFO vector read-list-enter-read-info lyskom-prefetch-one-membership lyskom-set-mode-line lyskom-to-do-list texts misc forward comm-to text-list priority type info lyskom-current-conf lyskom-reading-list read-list read-info lyskom-pers-no] 11 (#$ . 1238373)]) (require 'advice) #@159 Create a `lp--entry' from arguments. Args: START-MARKER END-MARKER PRIORITY MEMBERSHIP SELECTED STATE VISIBLE EXTENTS Automatically created with def-komtype. (defalias 'lyskom-create-lp--entry #[(start-marker end-marker priority membership selected state visible extents) "\306\307 \n \f  &B\207" [start-marker end-marker priority membership selected state LP--ENTRY vector visible extents] 10 (#$ . 1239755)]) (put 'lyskom-create-lp--entry 'byte-optimizer 'byte-compile-inline-expand) #@97 Return `t' if LP--ENTRY is a lp--entry. Args: LP--ENTRY Automatically created with def-komtype. (defalias 'lyskom-lp--entry-p #[(lp--entry) ":\205 @\301=\207" [lp--entry LP--ENTRY] 2 (#$ . 1240252)]) (put 'lyskom-lp--entry-p 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-lp--entry->extents #[(lp--entry extents) "A\302 I\207" [lp--entry extents 7] 3 (#$ . 1240531)]) (put 'set-lp--entry->extents 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'lp--entry->extents #[(lp--entry) "A\301H\207" [lp--entry 7] 2 (#$ . 1240763)]) (put 'lp--entry->extents 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-lp--entry->visible #[(lp--entry visible) "A\302 I\207" [lp--entry visible 6] 3 (#$ . 1240970)]) (put 'set-lp--entry->visible 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'lp--entry->visible #[(lp--entry) "A\301H\207" [lp--entry 6] 2 (#$ . 1241202)]) (put 'lp--entry->visible 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-lp--entry->state #[(lp--entry state) "A\302 I\207" [lp--entry state 5] 3 (#$ . 1241409)]) (put 'set-lp--entry->state 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'lp--entry->state #[(lp--entry) "A\301H\207" [lp--entry 5] 2 (#$ . 1241633)]) (put 'lp--entry->state 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-lp--entry->selected #[(lp--entry selected) "A\302 I\207" [lp--entry selected 4] 3 (#$ . 1241836)]) (put 'set-lp--entry->selected 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'lp--entry->selected #[(lp--entry) "A\301H\207" [lp--entry 4] 2 (#$ . 1242072)]) (put 'lp--entry->selected 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-lp--entry->membership #[(lp--entry membership) "A\302 I\207" [lp--entry membership 3] 3 (#$ . 1242281)]) (put 'set-lp--entry->membership 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'lp--entry->membership #[(lp--entry) "A\301H\207" [lp--entry 3] 2 (#$ . 1242525)]) (put 'lp--entry->membership 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-lp--entry->priority #[(lp--entry priority) "A\302 I\207" [lp--entry priority 2] 3 (#$ . 1242738)]) (put 'set-lp--entry->priority 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'lp--entry->priority #[(lp--entry) "A\301H\207" [lp--entry 2] 2 (#$ . 1242974)]) (put 'lp--entry->priority 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-lp--entry->end-marker #[(lp--entry end-marker) "A\302 I\207" [lp--entry end-marker 1] 3 (#$ . 1243183)]) (put 'set-lp--entry->end-marker 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'lp--entry->end-marker #[(lp--entry) "A\301H\207" [lp--entry 1] 2 (#$ . 1243427)]) (put 'lp--entry->end-marker 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'set-lp--entry->start-marker #[(lp--entry start-marker) "A\302 I\207" [lp--entry start-marker 0] 3 (#$ . 1243640)]) (put 'set-lp--entry->start-marker 'byte-optimizer 'byte-compile-inline-expand) #@41 Automatically created with def-komtype. (defalias 'lp--entry->start-marker #[(lp--entry) "A\301H\207" [lp--entry 0] 2 (#$ . 1243892)]) (put 'lp--entry->start-marker 'byte-optimizer 'byte-compile-inline-expand) #@141 The cached format string for entries. Use lp--compute-format-string when you need the format string. Do not access this variable directly. (defvar lp--last-format-string nil (#$ . 1244110)) (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\303!\204 \310\303 B\306\304!\204,\310\304 B\306\305!\2048\310\305 B\306\311!\204E\310 \311 B\310\207" [lp--last-window-width current-load-list lp--entry-list lp--list-start-marker lp--list-end-marker lp--selected-entry-list boundp -1 nil lp--buffer-done] 2) #@318 Update the start and end positions for extents of ENTRY. Update the start and end positions of all extents or overlays listed in the extent list of ENTRY to match the start and end markers. If the start or end markers point nowhere, detatch the extents. If overlays are used, set the start and end positions to zero. (defalias 'lp--entry-update-extents #[(entry) "\211A\303H)\211\2050\304\n@A\211A\305H)\206\305\211A\306H)\206&\305#\210\nA\211\204\f\307)\207" [entry lp--entry extents 7 move-overlay 0 1 nil] 6 (#$ . 1244649)]) #@120 Change the priority of memberhip for CONF-NO to NEW-POSITION. This function does not tell the server about the change. (defalias 'lyskom-change-membership-priority #[(conf-no new-priority) "\306\307\"\211\205 \211A\310\234) \205q \f\211A\310 I\210*\311 \210 Y\2031\fY\206q W\203P\fY\203P\306\307\"\211\205L\312 \")\202q Y\205q\fW\205q\313\"\210=\203n\314 \210\315\307!*\207" [conf-no mship membership old-priority new-priority newval lyskom-get-membership t 2 lyskom-sort-membership lyskom-prefetch-map read-list-delete-read-info lyskom-leave-current-conf lyskom-update-prompt lyskom-session-priority lyskom-to-do-list lyskom-current-conf] 4 (#$ . 1245197)]) #@120 Change the position of memberhip for CONF-NO to NEW-POSITION. This function does not tell the server about the change. (defalias 'lyskom-change-membership-position #[(conf-no new-position) "\306\307\"\211\205 \n\211A\310 I\210*\311 \n#\312 )\207" [conf-no mship new-position newval membership lyskom-membership lyskom-get-membership t 8 lyskom-move-in-list lyskom-update-membership-positions] 5 (#$ . 1245902)]) #@66 Use extents or overlays to set the background of ENTRY to COLOR. (defalias 'lp--entry-set-background #[(entry color) "\204,\300 \211A\306H)\236\211\205*\307 A!\210 \310 \211A\306H)\"\211A\306\fI*)\207\300 \211A\306H)\236A\311\312\313\"!\314 !\206H\315 \316\" \204v\317 \211A\320H) \211A\321H)\322\316$ \300 B \211A\306H)B\211A\306\fI\210*\323\"\210\324 \325\326#\210\324 \327#+\207" [color entry lp--entry extent extents facename 7 delete-overlay delq intern format "lyskom-%s-background" find-face lyskom-make-face t make-overlay 0 1 nil set-face-background overlay-put priority 1000 face] 6 (#$ . 1246328)]) #@232 Evecute BODY and restore the current location of point. The location of point is in relation to the entry it is in. Point will move as the entry moves. The location of point is restored even if the character at point is deleted. (defalias 'lp--save-excursion '(macro . #[(&rest body) "\301\302\303B\304BBB\207" [body let* ((lp--saved-entry (lp--entry-at (point))) (lp--saved-column (and lp--saved-entry (- (point) (lp--entry->start-marker lp--saved-entry))))) save-excursion ((if (and lp--saved-entry (lp--entry->start-marker lp--saved-entry)) (goto-char (+ lp--saved-column (lp--entry->start-marker lp--saved-entry)))))] 4 (#$ . 1246973)])) #@178 Compute the format string for an entry in the buffer. To save time, the format string is cached in `lp--last-format-string'. It is only recomputed if the window width changes. (defalias 'lp--compute-format-string #[nil "\203 \303 =\203 \207\303 \304Z\303 \305\306\n!\307Q\211)\207" [lp--last-format-string lp--last-window-width total window-width 34 "%#1c %=3#2s %#9c %=-" number-to-string "#3M %=-12#4s %[%#13@%=5#5s%] %[%#10@%#6c%]%[%#11@%#7c%]%[%#12@%#8c%]"] 3 (#$ . 1247625)]) #@62 Format ENTRY and insert it into the current buffer at point. (defalias 'lp--format-insert-entry #[(entry) "\211A\306H)\211A\307\234)\211A\306H)\211A\310\234)\311 !\311\f! \204=\312\313\314\315 \316\317 G\320&\"\210\202B\316 \"\210\211A\310H)\321=\204e\211A\306H)\211A\310\234)\322\323E>?\205\206\324\325!\210\204\201\312\313\314\315\f\326\317 G\320&\"\202\206\326\",\207" [entry lp--entry membership mship-conf-no adder-conf-no mship-conf-stat 3 1 5 cache-get-conf-stat lyskom-format-insert-at-point "%#1D" lyskom-create-defer-info get-conf-stat lp--format-entry point-marker "%#1s" expanded 0 contracted lyskom-insert-at-point "\n " lp--format-entry-expansion adder-conf-stat lyskom-defer-indicator lyskom-pers-no] 11 (#$ . 1248123)]) (defalias 'lp--format-entry #[(conf-stat defer-info) "\306 \211:\205 \n@\307=)\203 \306\202\310 !\311\211A\312H)\211A\313\234)!\314\315 \211A\316H)\203=\317\202>\320\211A\312H)\211A\321\234)\322U\203T\323\202c\324\211A\312H)\211A\321\234)! \204z\314\325\211A\312H)\211A\313\234)\"\202{ \326\211A\312H)\211A\322\234)\327\"\f\203\225\324\f!\202\226\330\211A\312H)\211A\331\234)\211/A\322H)\203\261\332\202\262\333\211A\312H)\211A\331\234)\211/A\321H)\203\315\334\202\316\333\211A\312H)\211A\331\234)\211/A\313H)\203\351\335\202\352\333 \203\3770 \211A\331\234)=\203\377\336\202\320\337\340\341D\342\343\344!\211A\312H)\211A\313\234)E#\337\340\345D\342\343\346!\211A\312H)\211A\313\234)E#\337\340\347D\342\343\350!\211A\312H)\211A\313\234)E#\351&1 \203Z\352 1\"\210\202_\3531!\210\211A\316H)\203r\354\355\356!\"\202v\354\306\"+\207" [entry defer-info lp--entry membership un conf-stat nil LP--ENTRY defer-info->data lyskom-find-unread 3 1 lyskom-format lp--compute-format-string 4 42 32 2 0 "-" int-to-string conference-does-not-exist lyskom-return-date-and-time time-yyyy-mm-dd "" 7 73 46 72 80 79 lyskom-default-button prioritize-flag-menu invitation "%#1s (%=#2M)" lyskom-get-string Invitation-mt-type secret Secret-mt-type passive Passive-mt-type (lp--unread t) lyskom-replace-deferred lyskom-insert-at-point lp--entry-set-background face-background-name kom-mark-face membership-type lyskom-pers-no string] 21]) (defalias 'lp--format-entry-expansion #[(conf-stat defer-info) "\306 \211:\205 \n@\307=)\203 \306\202\310 !\211A\311H)\f\204\210 \211A\312\234)\211A\313\234)\313=\203\210 \211A\312\234)\211A\314\234)\313=\203\210 \211A\312\234)\211A\315\234)\313=\203\210 \211A\312\234)\211A\311\234)\314=\203\210 \211A\312\234)\211A\316\234)\317=\203\210\320\321!\202\316\320\322\211A\311H)\211A\323\234)\211A\313H)\203\245\324\202\246\325\326\211A\311H)\211A\312\234)!\f\204\314\320\327\211A\311H)\211A\316\234)\"\202\315\f$ \203\334\330 \"\202\340\331!+\207" [entry defer-info lp--entry membership conf-stat time nil LP--ENTRY defer-info->data 3 6 0 1 4 5 70 lyskom-format "Ingen information om nr medlemskapet skapades" "%#1s %#2s av %#3P" 7 "Inbjuden" "Adderad" lyskom-return-date-and-time person-does-not-exist lyskom-replace-deferred lyskom-insert-at-point membership-type string] 9]) #@114 Print the entry ENTRY at the current position in the buffer. The start and end markers of the entry are adjusted (defalias 'lp--print-entry #[(entry) "\305\306\307!\210\310u\210 \311 \211A\312\nI\210*\313 !\210 \311 \211A\314\fI\210*\315 !\210\314u)\207" [buffer-read-only entry start-marker lp--entry end-marker nil insert-before-markers "\n" -1 point-marker 0 lp--format-insert-entry 1 lp--entry-update-extents] 4 (#$ . 1251339)]) #@68 Erase the printed representation of the entry ENTRY in the buffer. (defalias 'lp--erase-entry #[(entry) "\305 \211A\306H) \211A\307H)T|\210 \305\211A\306 I\210* \305\211A\307\fI\210*\310 !)\207" [buffer-read-only entry lp--entry start-marker end-marker nil 0 1 lp--entry-update-extents] 4 (#$ . 1251783)]) #@28 Redraw the mark for ENTRY. (defalias 'lp--redraw-entry-mark #[(entry) "\305\306`!\211\205` \211A\307H)Z\212\f\211A\307H)b\210\f\211A\310H)\203,\311\202-\312c\210\f\211A\310H)\203C\313\f\314\315!\"\210\202H\313\f\305\"\210\316\317!\210) \205e \211A\307H)\205e \211A\307H)\\b+\207" [buffer-read-only lp--saved-entry lp--entry lp--saved-column entry nil lp--entry-at 0 4 42 32 lp--entry-set-background face-background-name kom-mark-face delete-char 1] 5 (#$ . 1252102)]) #@25 Redraw the entry ENTRY. (defalias 'lp--redraw-entry #[(entry) "\304`!\211\205`\211A\305H)Z\212 \211A\305H)\203* \211A\305H)b\210\306 !\210 \211A\307H)\2038\310 !\210)\205Q\211A\305H)\205Q\n\211A\305H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column entry lp--entry-at 0 lp--erase-entry 6 lp--print-entry] 4 (#$ . 1252594)]) #@129 Perform FN in all prioritization buffers. ARGS are arguments for FN. Normally there should only be one buffer, but who knows... (defalias 'lp--perform-in-all-buffers #[(fn &rest args) "\205h\212q\210\306\307!\310 \211<\206 G\311\311\f\311\f <\203C \203d @\312 !\203< q\210\313 \"\210 A\211\202&\n\fW\203d \nH\312 !\203] q\210\313 \"\210\nT\211\202D\f.\207" [lyskom-buffer prioritize-buffers __i__ __sequence__ __len__ buffer lyskom-buffers-of-category prioritize 0 nil buffer-live-p apply __result__ fn args] 4 (#$ . 1252948)]) (defalias 'lp--maybe-update-entry-for-conf #[(conf-no) "\301\302\"\207" [conf-no lp--perform-in-all-buffers #[(conf-no) "\302!\211\205 \303 !)\207" [conf-no entry lp--conf-no-entry lp--redraw-entry] 3]] 3]) (defalias 'lp--maybe-update-unreads #[(conf-no) "\301\302\303!#\207" [conf-no lp--perform-in-all-buffers #[(conf-no unread) "\306!\211\205f\307\310 \211A\311H)\312#\211\205e\313`!\211\205)`\f\211A\311H)Z\212\314 @ A|\210 @b\210\315\316\203F\317!\202G\320\321#c\210*\f\205d\f\211A\311H)\205d \f\211A\311H)\\b*))\207" [conf-no entry lp--entry bounds lp--saved-entry lp--saved-column lp--conf-no-entry next-text-property-bounds 1 0 lp--unread lp--entry-at nil lyskom-format "%#2@%=5#1s" int-to-string "" (lp--unread t) buffer-read-only unread] 5] lyskom-find-unread] 5]) #@37 Set the list of entries to ENTRIES. (defalias 'lp--set-entry-list #[(entries) "\211\207" [entries lp--entry-list] 2 (#$ . 1254316)]) #@31 Return a list of all entries. (defalias 'lp--all-entries #[nil "\207" [lp--entry-list] 1 (#$ . 1254457)]) #@45 Find the entry for a membership in CONF-NO. (defalias 'lp--conf-no-entry #[(conf-no) "\305 \306\211\203*\204*\n @\211A\307H)\211A\310\234)=\203# @ A\211\204 *\207" [found entries conf-no lp--entry membership lp--all-entries nil 3 1] 4 (#$ . 1254570)]) #@294 Find the new position for ENTRY it is were given priority PRIORITY. If priority is lower than the entry priority this is the last position currently occupied by an entry with a higher priority. If priority is higher, then it is the first position with a priority less than the entry priority (defalias 'lp--find-new-position #[(entry priority &optional pos) "\306 \307\211 \203\f\211A\310H) V\202\311\f!\nW\203X\n\203O \204O \2039\n@\211A\310H) X\202@\311\n@!\nY\203E\n@\nA\211\204$ \204\243\202\243 \203h\f\211A\310H) W\202n\311\f!\nV\203\241\n\203\243 \204\243 \203\212\n@\211A\310H) W\202\221\311\n@!\nY\203\227\n@\nA\211\204u\202\243\f +\207" [tmp result entries priority entry lp--entry lp--all-entries nil 2 lp--entry-position pos] 4 (#$ . 1254841)]) #@44 Return the last visible entry in the list. (defalias 'lp--get-last-visible-entry #[nil "\303 GS\304!\305V\203' \203' \211A\306H)\204'S\304!\202 \211A\306H)\2052 *\207" [pos entry lp--entry lp--all-entries lp--get-entry 0 6] 3 (#$ . 1255648)]) #@47 Return the entry at position POS in the list. (defalias 'lp--get-entry #[(pos) " \234\207" [lp--entry-list pos] 2 (#$ . 1255913)]) #@44 Return the position in the list for ENTRY. (defalias 'lp--entry-position #[(entry) "\301 G\301 >GZ\207" [entry lp--all-entries] 3 (#$ . 1256051)]) #@28 Return the entry at WHERE. (defalias 'lp--entry-at #[(where) "\305 \306\212b\210\307y\210`)\n\204P \203P @\211A\307H)\203J @\211A\310H)\203J @\211A\307H) X\203J @\211A\310H) Y\203J @ A\202\n+\207" [where pos found entry-list lp--entry lp--all-entries nil 0 1] 4 (#$ . 1256205)]) #@50 Move the entry ENTRY to position TO in the list. (defalias 'lp--move-entry #[(entry to) "\305W\204\306 GV\203\307\310\"\210\311 !\210\312\313 \306 \"!\210\314\315!!\211\2035\n\211A\305H)b\210\2028\fb\210\312\316 \306 #!\210\317 !)\207" [to entry cur lp--entry lp--list-end-marker 0 lp--all-entries error "Position out of range: %d" lp--erase-entry lp--set-entry-list lp--remove-from-list lp--get-entry lp--next-visible-entry lp--add-to-list lp--print-entry] 6 (#$ . 1256508)]) #@64 Destructively emove the element at index ELEM from the list L. (defalias 'lp--remove-from-list #[(elem l) "G >GZ\211\303U\203A\202)\nGU\203\202)\nS\233\nT\233\241\210)\207" [l elem n 0] 4 (#$ . 1257004)]) #@66 At the position ELEM, add DATA to the list L using side effects. (defalias 'lp--add-to-list #[(elem data l) " GV\203 \303\304 #\210\305U\203\n B\207S \233\n \233B\241\210 \207" [elem l data error "Args out of range: %S, %d" 0] 4 (#$ . 1257230)]) #@71 Move element EL by side effects so it appears at position TO in LIST. (defalias 'lp--list-move-element #[(el to list) "\303 \304 \n\"#\207" [to el list lp--add-to-list lp--remove-from-list] 6 (#$ . 1257490)]) (defalias 'lp--add-membership-callback #[(membership) "\301\211A\302\234)!\207" [membership lp--update-buffer 1] 4]) #@45 Update the entry for CONF-NO in the buffer. (defalias 'lp--update-buffer #[(conf-no) "\304`!\211\205`\211A\305H)Z\212\306\307!\310\311 \"\210*\2055\211A\305H)\2055\n\211A\305H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column buffers lp--entry-at 0 lyskom-buffers-of-category prioritize mapcar #[(buffer) "q\210\306 !\307 \310\"\211\204\204\n\211A\311\234)\206! G\n >GZ\211\205+\312!\313\211\n\211A\314\234)\n\313\315\310\313 !\"\316\317\"! \f&.B\205\200\212\211#A\320H)b\210\321\322 \323 #!\210\324 !)+\202\316\n\204\234 \205\316\321\325\326 !\323 \"!\210\327 !\202\316 \211#A\314H)\n\211A\314\234)U?\206\316\326 !\n\211A\311\234)U?\206\316 \n\211#A\330\fI\210*\331 !*\207" [buffer conf-no mship entry membership lyskom-membership lp--conf-no-entry lyskom-get-membership t 8 lp--get-entry nil 2 normal LP--ENTRY vector 0 lp--set-entry-list lp--add-to-list lp--all-entries lp--print-entry lp--remove-from-list lp--entry-position lp--erase-entry 3 lp--redraw-entry pos elem extents visible state selected priority end-marker start-marker lp--entry] 11]] 4 (#$ . 1257825)]) #@236 For each element from START to END, apply FUNCTION. Apply FUNCTION to each element in the region from START to END, returning a list of results. ARGS will be passed as additional arguments to FUNCTION. Args: START END FUNCTION ARGS. (defalias 'lp--map-region #[(start end function &rest args) "\306\211\212\307\n!\211A\310H)b\210\311 `\306\223\307\f!\211A\312H)b\210\311 `\306\223\nb\210`\fX\203L\307`!\313  # B\211A\312H)b\210\314u\210\202*) *\207" [entry results start lp--entry end function nil lp--entry-at 0 make-marker 1 apply 2 args] 5 (#$ . 1258981)]) #@115 For the membership in ENTRY, return the value of flag FLAG. FLAG must be one of 'invitation, 'secret or 'passive. (defalias 'lp--flag-menu-get #[(entry flag) "\304=\203\n\305\202\306=\203\307\202\310=\205\311 \211A\312H)\211A\313\234)!\207" [flag entry lp--entry membership invitation membership-type->invitation secret membership-type->secret passive membership-type->passive 3 7] 4 (#$ . 1259564)]) #@103 For the membership in ENTRY, set FLAG to VALUE. FLAG must be one of 'invitation, 'secret or 'passive. (defalias 'lp--flag-menu-set #[(entry flag value) "\305=\203\n\306\202\307=\203\310\202\311=\205\312 \211A\313H)\211A\314\234)\f\"\207" [flag entry lp--entry membership value invitation set-membership-type->invitation secret set-membership-type->secret passive set-membership-type->passive 3 7] 4 (#$ . 1259986)]) #@364 Clear the membership flag the user clicked on. This function should not be called directly. It is called in response to a mouse click. BUF is the buffer in which the mouse click took place. ARG is a list of (ENTRY FLAG), where ENTRY is the entry the flag belongs to and FLAG is one of invitation, secret or passive. TEXT is the text that the user clicked on. (defalias 'lyskom-prioritize-flag-clear #[(buf arg text) "\305\234\306\234\307\n \"\205\310 \f#*\207" [arg flag entry buf text 0 1 lp--flag-menu-get lyskom-prioritize-flag-toggle] 4 (#$ . 1260423) nil]) #@362 Set the membership flag the user clicked on. This function should not be called directly. It is called in response to a mouse click. BUF is the buffer in which the mouse click took place. ARG is a list of (ENTRY FLAG), where ENTRY is the entry the flag belongs to and FLAG is one of invitation, secret or passive. TEXT is the text that the user clicked on. (defalias 'lyskom-prioritize-flag-set #[(buf arg text) "\305\234\306\234\307\n \"?\205\310 \f#*\207" [arg flag entry buf text 0 1 lp--flag-menu-get lyskom-prioritize-flag-toggle] 4 (#$ . 1261003) nil]) #@365 Toggle the membership flag the user clicked on. This function should not be called directly. It is called in response to a mouse click. BUF is the buffer in which the mouse click took place. ARG is a list of (ENTRY FLAG), where ENTRY is the entry the flag belongs to and FLAG is one of invitation, secret or passive. TEXT is the text that the user clicked on. (defalias 'lyskom-prioritize-flag-toggle #[(buf arg text) "\306\234\307\234\212\310\n\211A\306H)!q\210\311\n \312\n \"?#\210\212\fq\210\313\314 \n\211A\315H)\211A\307\234)\n\211A\315H)\211A\316\234)$\211\204P\317\320\321!\"\210)\313\322 \n\211A\315H)\211A\307\234)#\323!\210\n\211A\315I\210* \324=\203\313\211A\316\234)\211 A\307H)\203\275\212\fq\210\211A\307\234)!=\203\247\325 \210\326\211A\307\234)\"\"\210\327\330!\210)\202\313\331\211A\307\234)\"\210\313\332\211A\307\234)\"\210*\333\n!+\207" [arg flag entry lp--entry lyskom-buffer lyskom-pers-no 0 1 marker-buffer lp--flag-menu-set lp--flag-menu-get blocking-do set-membership-type 3 7 message "Det gick inte: %s" lyskom-get-error-text query-read-texts lyskom-replace-membership passive lyskom-leave-current-conf read-list-delete-read-info lyskom-update-prompt t lyskom-prefetch-map get-conf-stat lp--redraw-entry membership result lyskom-errno mship membership-type lyskom-current-conf lyskom-to-do-list] 7 (#$ . 1261580) nil]) #@48 Toggle the invitation bit of the current entry (defalias 'lp--toggle-invitation #[nil "\304`!\211\205`\211A\305H)Z\212\304`!\211\204\"\306\307!\210\202*\310p \311D\312#\210*\205C\211A\305H)\205C\n\211A\305H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column cur lp--entry-at 0 error "No entry at point" lyskom-prioritize-flag-toggle invitation ""] 5 (#$ . 1262995) nil]) #@45 Toggle the passive bit of the current entry (defalias 'lp--toggle-passive #[nil "\304`!\211\205`\211A\305H)Z\212\304`!\211\204\"\306\307!\210\202*\310p \311D\312#\210*\205C\211A\305H)\205C\n\211A\305H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column cur lp--entry-at 0 error "No entry at point" lyskom-prioritize-flag-toggle passive ""] 5 (#$ . 1263391) nil]) #@44 Toggle the secret bit of the current entry (defalias 'lp--toggle-secret #[nil "\304`!\211\205`\211A\305H)Z\212\304`!\211\204\"\306\307!\210\202*\310p \311D\312#\210*\205C\211A\305H)\205C\n\211A\305H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column cur lp--entry-at 0 error "No entry at point" lyskom-prioritize-flag-toggle secret ""] 5 (#$ . 1263778) nil]) #@90 Set the selection value of all entries in ENTRY-LIST to STATE. Forces a mode line update (defalias 'lp--select-entries #[(entry-list state) "\302 \"\210\303 \207" [entry-list state lp--do-select-entries lp--update-mode-line] 3 (#$ . 1264162)]) #@64 Set the selection value of all entries in ENTRY-LIST to STATE. (defalias 'lp--do-select-entries #[(entry-list state) "\301\302\"\207" [entry-list mapcar #[(entry) "\205- \203\211A\305H)\203\306\303\"\210\202\307 \" \211A\310\fI\210*\311!\207" [entry state lp--entry lp--selected-entry-list selected 6 add-to-list delq 4 lp--redraw-entry-mark] 4]] 3 (#$ . 1264413)]) #@40 Return a list of all selected entries. (defalias 'lp--all-selected-entries #[nil "\207" [lp--selected-entry-list] 1 (#$ . 1264803)]) #@90 Set the selected entries to exactly the entries in ENTRY-LIST. Forces a mode line update (defalias 'lp--set-selected-entries #[(entry-list) "\301\302 \303\"\210\301\304\"\210\305 \207" [entry-list lp--do-select-entries lp--all-selected-entries nil t lp--update-mode-line] 3 (#$ . 1264943)]) #@59 Set the visibility of all entries in ENTRY-LIST to STATE. (defalias 'lp--entry-set-visible #[(entry-list state) "\204 \302 \303\"\210\304\305 \"\207" [state entry-list lp--select-entries nil mapcar #[(entry) "\211A\306H)\n=?\2057\307\310\311!!!\211\203% \211A\312H)b\210\202(\fb\210\n\211A\306 I\210*\313!)\207" [entry lp--entry state pos lp--list-end-marker visible 6 lp--get-entry lp--next-visible-entry lp--entry-position 0 lp--redraw-entry] 5]] 3 (#$ . 1265241)]) #@62 Update the server and local versions of membership in ENTRY. (defalias 'lp--update-membership #[(entry old-pri old-pos) "\212\306!\nq\210\211A\307H) =\204\"\310\f\211A\311\234) \"\210\f\211A\312H)=\204A\313\f\211A\311\234)\f\211A\312H)\"\210Y\203|\f\211A\312\234)W\203|\f\211A\311\234)=\203h\314 \210\315\f\211A\311\234)\"\210\316\317!\210\202\236W\203\236\f\211A\312\234)Y\203\236\320\f\211A\311\234)\f\"\210\321\322\323\f\211A\311\234)\f\211A\312\234)\f\211A\324\234)\f\211A\325\234)&+\207" [entry saved-pos lyskom-buffer lp--entry mship old-pos lp--entry-position 3 lyskom-change-membership-position 1 2 lyskom-change-membership-priority lyskom-leave-current-conf read-list-delete-read-info lyskom-update-prompt t lyskom-prefetch-map initiate-add-member background nil 8 7 membership old-pri lyskom-session-priority lyskom-current-conf lyskom-to-do-list lyskom-pers-no] 10 (#$ . 1265729)]) #@63 Return the position of the first visible entry following POS. (defalias 'lp--next-visible-entry #[(pos) "\304 G\305\n W\203+\204+\306\n!\211A\307H)\203$\n \211\202\nT\211\202\2060 *\207" [result max pos lp--entry lp--all-entries nil lp--get-entry 6] 3 (#$ . 1266687)]) #@222 Return one more than the number of entries between POS and POS+DELTA. This includes visible and invisible entries. The sign of the returned value has the same sign as DELTA. The result is clipped to the size of the list. (defalias 'lp--calculate-distance #[(pos delta) "\306!\307!\310\n\310V\203G \f\\\211\310W\203 \310\211\202 T\311\f!\211\2043 T\310\202C\311\f!\211 A\312H)\203C\nS)\202\n _+\207" [delta result num step pos entry signum abs 0 lp--get-entry 6 lp--entry] 4 (#$ . 1266979)]) #@41 Select the membership that point is on. (defalias 'lp--select-membership #[nil "\301`!\211\205 \302C\303\")\207" [entry lp--entry-at lp--select-entries t] 4 (#$ . 1267498) nil]) #@43 Deselect the membership that point is on. (defalias 'lp--deselect-membership #[nil "\301`!\211\205 \302C\303\")\207" [entry lp--entry-at lp--select-entries nil] 4 (#$ . 1267685) nil]) #@46 Toggle selection of the membership at WHERE. (defalias 'lp--toggle-membership-selection #[(where) "\303!\211\205\304 C \211A\305H)?\")\207" [where entry lp--entry lp--entry-at lp--select-entries 4] 5 (#$ . 1267878) "d"]) #@99 Select all entries in the region. START and END are the starting and ending points of the region. (defalias 'lp--select-region #[(start end) "\303 \304#\305\n\306\")\207" [start end entry-list lp--map-region identity lp--select-entries t] 4 (#$ . 1268110) "r"]) #@110 Select all entries with a priority PRIORITY. With numeric prefix argument select entries with that priority. (defalias 'lp--select-prioriy #[(priority) "\301\302\"\207" [priority lp--do-select-priority t] 3 (#$ . 1268381) "P"]) #@114 Deselect all entries with a priority PRIORITY. With numeric prefix argument deselect entries with that priority. (defalias 'lp--deselect-prioriy #[(priority) "\301\302\"\207" [priority lp--do-select-priority nil] 3 (#$ . 1268617) "P"]) #@85 Select or deselect all entries with priority PRIORITY. SELECT specifies new select. (defalias 'lp--do-select-priority #[(priority select) "\247\204 \305`!\211\204\306\307!\210 \211A\310H)\211A\311\234))\312\313\314\315 \"\f\"\207" [priority entry lp--entry membership select lp--entry-at error "No membership at point" 3 2 lp--select-entries mapcar #[(entry) " \211A\304H)\211A\305\234)=\205 \207" [priority entry lp--entry membership 3 2] 4] lp--all-entries] 5 (#$ . 1268860)]) #@27 Deselect all memberships. (defalias 'lp--deselect-all #[nil "\300\301!\207" [lp--set-selected-entries nil] 2 (#$ . 1269358) nil]) #@252 Set the priority of ENTRY to PRIORITY and the position to POSITION. If PRIORITY or POSITION is nil, the parameter is ignored. If the position changes, lp--move-entry is called. lp--update-membership is called automatically before this function exits. (defalias 'lp--set-entry-pri-and-pos #[(entry priority position) "\211A\306H)\307!\310 \2039 \f=\2049 \211A\306 I\210*\211A\311H) \211A\306I\210*\312\203M =\204M\313\"\210\310\314\315!\210\316\f #\210\n\205^\317!+\207" [entry lp--entry need-redraw old-pos old-pri priority 2 lp--entry-position nil 3 t lp--move-entry sit-for 0 lp--update-membership lp--redraw-entry newval membership position] 5 (#$ . 1269495)]) #@64 Insert all the selected memberships before the entry at point. (defalias 'lp--yank #[nil "\306`!\211\205`\211A\307H)Z\212\306`!\211\205\310 ! \205* \211A\311H)\312  \204:\313\314!\210\202L\204F\313\315!\210\202L\316\317\"\210-\205e\211A\307H)\205e\n\211A\307H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column cur pos priority lp--entry-at 0 lp--entry-position 2 lp--all-selected-entries error "No entry at point" "No entries selected" mapcar #[(entry) "\303 \304\305\306\n#!#\207" [entry priority pos lp--set-entry-pri-and-pos lp--entry-position lp--find-new-position nil] 8] entries] 4 (#$ . 1270198) nil]) #@144 Set the priority of selected memberships to PRIORITY. Memberships that must be moved will be moved the shortest distance possible in the list. (defalias 'lp--set-priority #[(priority) "\306 \206 \307`!C\211\204\310\311!\210 \247\204AG\312V\203*\313\314\315\316\317!\320$\202A\313\314\315\321\322@\211A\323H)\211A\312\234)\"\320$\307`!\211\205R`\f\211A\314H)Z\212\324\325\"\210)\f\205r\f\211A\314H)\205r \f\211A\314H)\\b+\207" [entries priority lp--entry membership lp--saved-entry lp--saved-column lp--all-selected-entries lp--entry-at error "No entries selected" 1 lyskom-read-num-range 0 255 lyskom-get-string priority-prompt-marked t lyskom-format priority-prompt 3 mapcar #[(entry) "\303\304 \"!\305 \n#)\207" [entry priority new-pos lp--entry-position lp--find-new-position lp--set-entry-pri-and-pos] 4]] 8 (#$ . 1270850) "P"]) #@51 Increase the priority of the current entry by one (defalias 'lp--bump-priority #[(amount) "\306`!\211\205`\211A\307H)Z\212\306`!\211\205\" \211A\310H)\311 !\f\\\211\312V\2036\312\307W\203@\307 \203^\f=\203^\f\307=\203^ \313 GS=\203^\314\315!\210 \203y\f=\203y\f\312=\203y \307=\203y\314\316!\210 \204\204\314\317!\210\202\230\311\320 \f\\\"!\321 #\210)-\205\261\211A\307H)\205\261\n\211A\307H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column cur pri pos lp--entry-at 0 2 lp--entry-position 255 lp--all-entries error "Already at minimum priority" "Already at maximum priority" "Nor on an entry" lp--find-new-position lp--set-entry-pri-and-pos amount new-pri new-pos] 6 (#$ . 1271714)]) (defalias 'lp--increase-priority #[(arg) "\301!\207" [arg lp--bump-priority] 2 nil "p"]) (defalias 'lp--decrease-priority #[(arg) "\301[!\207" [arg lp--bump-priority] 2 nil "p"]) #@38 Move the current entry up one notch. (defalias 'lp--move-up #[nil "\306`!\211\205`\211A\307H)Z\212\306`!\211\205\310 ! \205/\f\307V\205/\f\311\f\312\"\\\211\2057\313 ! \204D\314\315!\210\202\206\204P\314\316!\210\202\206 \211A\317H)\211A\317H)U\204\200\320 \211A\317H)\f TU?\205w T#\210\321 !\210\202\206\320 \322 #\210-\205\237\211A\307H)\205\237\n\211A\307H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column cur pos place lp--entry-at 0 lp--entry-position lp--calculate-distance -1 lp--get-entry error "Not on an entry" "Beginning of list" 2 lp--set-entry-pri-and-pos lp--redraw-entry nil prev] 6 (#$ . 1272643) nil]) #@39 Move the current entry up down notch. (defalias 'lp--move-down #[nil "\306`!\211\205`\211A\307H)Z\212\306`!\211\205\310 ! \205)\f\311\f\312\"\\\211\2051\313 ! \204>\314\315!\210\202\200\204J\314\316!\210\202\200 \211A\317H)\211A\317H)U\204z\320 \211A\317H)\f SU?\205q S#\210\321 !\210\202\200\320 \322 #\210-\205\231\211A\307H)\205\231\n\211A\307H)\\b*\207" [lp--saved-entry lp--entry lp--saved-column cur pos place lp--entry-at 0 lp--entry-position lp--calculate-distance 1 lp--get-entry error "Not on an entry" "End of list" 2 lp--set-entry-pri-and-pos lp--redraw-entry nil prev] 6 (#$ . 1273312) nil]) (defalias 'lp--save-column '(macro . #[(&rest body) "\301\302\303\304\"BB\207" [body let ((lp--saved-column (current-column))) append ((end-of-line) (if (> (current-column) lp--saved-column) (progn (beginning-of-line) (forward-char lp--saved-column))))] 5])) #@95 Move the cursor up COUNT lines. The cursor will always move to the start of the target entry. (defalias 'lp--previous-entry #[(count) "\306`!\307 \310\311!\312! \204\313\202M\204-`\314\n!\211A\311H)W\203-\311\202M\204D` \211A\315H)V\203D\316 GS\202M\311 \317 [\"\\]\313\320\321\217-\207" [entry last-entry first-entry pos lp--entry count lp--entry-at lp--get-last-visible-entry lp--next-visible-entry 0 lp--entry-position nil lp--get-entry 1 lp--all-entries lp--calculate-distance (byte-code "\302!\211A\303H)b\207" [new-pos lp--entry lp--get-entry 0] 3) ((error)) new-pos] 6 (#$ . 1274221) "p"]) #@97 Move the cursor down COUNT lines. The cursor will always move to the start of the target entry. (defalias 'lp--next-entry #[(count) "\306`!\307 \310\311!\312! \204\313\202O\204-`\314\n!\211A\311H)W\203-\311\202O\204D` \211A\315H)V\203D\316 GS\202O\316 GS \317 \"\\^\313\320\321\217-\207" [entry last-entry first-entry pos lp--entry count lp--entry-at lp--get-last-visible-entry lp--next-visible-entry 0 lp--entry-position nil lp--get-entry 1 lp--all-entries lp--calculate-distance (byte-code "\302!\211A\303H)b\207" [new-pos lp--entry lp--get-entry 0] 3) ((error)) new-pos] 6 (#$ . 1274847) "p"]) #@55 Move point to the first entry in the membership list. (defalias 'lp--first-entry #[nil "\300\301\302\217\207" [nil (byte-code "\303\304\305!!\211\204 b\202\303\304\305!!\211A\305H)b)\207" [entry lp--list-end-marker lp--entry lp--get-entry lp--next-visible-entry 0] 4) ((error))] 3 (#$ . 1275473) nil]) #@54 Move point to the last entry in the membership list. (defalias 'lp--last-entry #[nil "\300\301\302\217\207" [nil (byte-code "\303 \211\204\f b\202\211A\304H)b)\207" [entry lp--list-end-marker lp--entry lp--get-last-visible-entry 0] 3) ((error))] 3 (#$ . 1275787) nil]) #@154 Move to the closest entry with priority PRIORITY. If there is no entry with the specified priority, move to the nearest entry with an adjacent priority. (defalias 'lp--goto-priority #[(priority) "\306`!\307\307\310 \f\247\204\311\312\313\314\315$\n\204S A\203S @=\203)\315 @\211A\316H)\fW\204G \203M @\211A\316H)\fU\203M\315\211\202 A\202 \205` @\211A\312H)b,\207" [entry seen-me done entry-list priority lp--entry lp--entry-at nil lp--all-entries lyskom-read-num-range 0 255 "G till prioritet: " t 2] 6 (#$ . 1276069) "P"]) #@49 Toggle the expanded state of the current entry. (defalias 'lp--toggle-entry-expansion #[nil "\303`!\211\205&\211\211A\304H)\305=\203\306\202\305\211A\304\nI\210*\307!)\207" [entry lp--entry state lp--entry-at 5 expanded contracted lp--redraw-entry] 4 (#$ . 1276627) nil]) #@39 Remove the membership buffer and quit (defalias 'lp--quit #[nil "\300 \207" [lyskom-undisplay-buffer] 1 (#$ . 1276916) nil]) (defalias 'lp--scroll-advice #[(fn) "i \210\306\302!\205p\n\307=\205p\310 \311\312!\211\204! b\202o`\f\211A\313H)V\203F\f\211A\313H)b\210iV\205o\312y\210u\202o`\314 !\211A\312H)W\205o\314 !\211A\312H)b\210\315\210iV\205o\312y\210u*)\207" [cur fn lyskom-buffer-category first-entry last-entry lp--list-end-marker boundp prioritize lp--get-last-visible-entry lp--next-visible-entry 0 1 lp--get-entry nil lp--entry] 4]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\207" [ad-add-advice scroll-up-command (lp--scroll-up-advice nil t (advice lambda nil (lp--scroll-advice (lambda nil ad-do-it)))) around nil ad-activate-on scroll-down-command (lp--scroll-up-advice nil t (advice lambda nil (lp--scroll-advice (lambda nil ad-do-it))))] 5) #@25 Keymap used in lp--mode (defvar lp--mode-map nil (#$ . 1277855)) (byte-code "\204\351\303 \304!\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\305\324\323#\210\305\325\326#\210\305\327\326#\210\305\330\331#\210\305\332\333#\210\305\334\335#\210\305\336\337#\210\305\340\341#\210\305\342\343#\210\305\344\345#\210\305\346\347#\210\305\350\351#\210\305\352\353#\210\305\354\355#\210\305\356\357#\210\305\360\357#\210\305\361\362\363!!\364#\210\305\361\362\365!!\366#\210\305\361\362\367!!\370#\210\305\361\362\371!!\366#\210\305\372\373#\210\305\374\375#\210\305\376\377#\210\305\201@\201A#\210\305\376\377#\210\305\201@\201A#\210\201B\301!\204\365\201C\301\nB\303\207" [lp--mode-map lp--mode-line current-load-list make-keymap suppress-keymap define-key " " lp--toggle-membership-selection "p" lp--set-priority "" lp--select-region "" lp--yank "#" lp--select-priority "\377" lp--deselect-all "" lp--previous-entry [up] "" lp--next-entry [down] "\274" lp--first-entry "\276" lp--last-entry "g" lp--goto-priority " " lp--toggle-entry-expansion "+" lp--increase-priority "-" lp--decrease-priority "\360" lp--move-up "\356" lp--move-down "I" lp--toggle-invitation "H" lp--toggle-secret "P" lp--toggle-passive "" lp--quit "q" read-kbd-macro lyskom-keys button2up kom-button-click button2 kom-mouse-null button3 kom-popup-menu button3up "*" kom-button-press "=" kom-menu-button-press " " kom-next-link "\211" kom-previous-link boundp ("" mode-line-modified mode-line-buffer-identification " " global-mode-string " %[(" mode-name mode-line-process minor-mode-alist ")%] " lp--mode-line-selected "--" (-3 . "%p") "-%-")] 5) #@44 String showing number of selected entries. (defvar lp--mode-line-selected "" (#$ . 1279608)) (defalias 'lp--update-mode-line #[nil "\301 G\302U\203\303\304!\202\305\303\306!\301 G\"\307 \207" [lp--mode-line-selected lp--all-selected-entries 0 lyskom-get-string no-selection format selection force-mode-line-update] 3]) #@42 Pop up a buffer to manage memberships in (defalias 'kom-handle-membership #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-handle-membership-start-buffer lyskom-start-of-command kom-handle-membership ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-handle-membership-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300 q\210\301 \210\302 \207" [lp--create-buffer lp--mode lp--first-entry] 1) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1279938) nil]) #@189 \Mode for prioritizing conferences in LysKOM. Commands: TBD. All bindings: \{lyskom-prioritize-mode-map} Entry to this mode runs lyskom-prioritize-mode-hook. (defalias 'lp--mode #[nil "\306\307\310\311!\210\310\312!\210\310\313!\210\310\314!\210\310\315!\210\310\316!\210\310\302!\210\317 \320 \210\321\310\322!\210\323\322!\324!\210\325\326\327\321#\210\330\331!\207" [major-mode mode-name lp--mode-line-selected lp--mode-line mode-line-format buffer-read-only lp--mode "Prioritize" make-local-variable lp--last-format-string lp--last-window-width lp--entry-list lp--list-start-marker lp--list-end-marker lp--selected-entry-list "" lp--update-mode-line t lp--mode-map lyskom-default-value use-local-map lyskom-add-hook lyskom-add-membership-hook lp--add-membership-callback run-hooks lp--mode-hook] 4 (#$ . 1280565) nil]) #@43 Create a buffer for managing memberships. (defalias 'lp--create-buffer #[nil "\306\307\310 \311P\312#\313p\314\216 q\210\313\315 \210\316\304!\210\316\317!\210\316\320!\210\316\305!\210\313\313\321\322 !#\210\323 db\210\324 \210\325 !\210\326\"\327\330!\211#<\206Q#G$\313%\313&\313&#<\203\272#\203#@%\313\211%\211'A\331\234)%\313\332\312\313()*+',-.\333\334.-,'+*)(&.B/\335/!\210/B)#A\211#\202d\"$W\203#\"H%\313\211%\211'A\331\234)%\313\332\312\313()*+',-.\333\334.-,'+*)(&.B/\335/!\210/B)\"T\211\"\202\274-\336\237!\210\323 \337c\210 -\207" [entry-list buf __buffer__ buffer-read-only lp--entry-list lp--buffer-done lyskom-get-buffer-create prioritize buffer-name "-membership" t nil ((set-buffer __buffer__)) erase-buffer make-local-variable lp--list-start-marker lp--list-end-marker lyskom-format-insert "Medlemskap fr %#1M p %#2s\n\n===============================================================================\n Prio Mte Senast inne Olst IHP\n-------------------------------------------------------------------------------\n" point-marker lyskom-sort-membership lyskom-display-buffer 0 lyskom-default-value lyskom-membership 2 normal LP--ENTRY vector lp--print-entry lp--set-entry-list "===============================================================================\n Markera medlemskap: SPC Markera omrde: C-w Flytta markerade: C-y\n Stt prioritet: p ka prioritet: + Minska prioritet: -\n Flytta upp: M-p Flytta ned: M-n ndra flaggor: I,H,P\n Avsluta: C-c C-c Mer hjlp: C-h m\n" lyskom-pers-no lyskom-server-name __i__ __sequence__ __len__ mship __result__ membership extents visible state selected priority end-marker start-marker entry] 11 (#$ . 1281433)]) (defalias 'lp--hide-entry #[nil "\301`!\302C\303\")\207" [entry lp--entry-at lp--entry-set-visible nil] 3 nil nil]) (defalias 'lp--show-all #[nil "\300\301 \302\"\207" [lp--entry-set-visible lp--all-entries t] 3 nil nil]) (byte-code "\303\304!\210\305P\306\301!\204\307\301\nB\303\207" [lyskom-clientversion-long lyskom-prioritize-mode-line current-load-list provide mship-edit "$Id: prioritize.el,v 44.15 1999/11/19 13:38:41 byers Exp $\n" boundp ("" 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") "-%-")] 2) #@36 List of entries to be prioritized. (defvar lyskom-prioritize-entry-list nil (#$ . 1284029)) #@54 List of selected entries in the prioritization list. (defvar lyskom-prioritize-selection nil (#$ . 1284127)) #@44 String showing number of selected entries. (defvar lyskom-prioritize-mode-line-selected "" (#$ . 1284242)) (defalias 'make-prioritize-entry #[(prio conf-stat membership) "\303 \304\n$\207" [prio conf-stat membership vector nil] 5]) (defalias 'prioritize-entry->priority #[(el) "\301H\207" [el 0] 2]) (defalias 'prioritize-entry->name #[(el) "\302H\211A\302\234)\207" [el conf-stat 1] 3]) (defalias 'prioritize-entry->conf-stat #[(el) "\301H\207" [el 1] 2]) (defalias 'prioritize-entry->selected #[(el) "\301H\207" [el 2] 2]) (defalias 'prioritize-entry->membership #[(el) "\301H\207" [el 3] 2]) (defalias 'set-prioritize-entry->priority #[(el prio) "\302 I\207" [el prio 0] 3]) (defalias 'set-prioritize-entry->conf-stat #[(el conf) "\302 I\207" [el conf 1] 3]) (defalias 'set-prioritize-entry->selected #[(el marks) "\302 I\207" [el marks 2] 3]) (defalias 'set-prioritize-entry->membership #[(el mship) "\302 I\207" [el mship 3] 3]) #@64 Destructively emove the element at index ELEM from the list L. (defalias 'lyskom-prioritize-remove-from-list #[(elem l) " GV\203 \302\303 #\210\304U\203 A\207S \233T \233\241\210 \207" [elem l error "Args out of range: %S, %d" 0] 4 (#$ . 1285193)]) #@66 At the position ELEM, add DATA to the list L using side effects. (defalias 'lyskom-prioritize-add-to-list #[(elem data l) " GV\203 \303\304 #\210\305U\203\n B\207S \233\n \233B\241\210 \207" [elem l data error "Args out of range: %S, %d" 0] 4 (#$ . 1285456)]) #@73 Move element from position FROM to position TO in list L using side-fx. (defalias 'lyskom-prioritize-move-element #[(from to l) "S S\304W?\205\n\234\305 \306\n\"#)\207" [from to l elem 0 lyskom-prioritize-add-to-list lyskom-prioritize-remove-from-list] 6 (#$ . 1285730)]) #@45 Get the entry on the line containing point. (defalias 'lyskom-prioritize-current-entry #[nil "\212\301y\210\302\303\304`\"TZ!)\207" [lyskom-prioritize-header-lines 0 lyskom-prioritize-get-entry-from-no count-lines 1] 4 (#$ . 1286018)]) #@47 Get entry number NO from the prioritize list. (defalias 'lyskom-prioritize-get-entry-from-no #[(no) " S\234\207" [lyskom-prioritize-entry-list no] 2 (#$ . 1286261)]) #@54 Get the index of entry ENTRY in the prioritize list. (defalias 'lyskom-prioritize-get-no-from-entry #[(entry) "G >GZT\207" [lyskom-prioritize-entry-list entry] 3 (#$ . 1286434)]) #@37 Get a list of all selected entries. (defalias 'lyskom-prioritize-get-selected #[nil "\207" [lyskom-prioritize-selection] 1 (#$ . 1286621)]) #@38 Get the entry for conference conf-no (defalias 'lyskom-prioritize-find-entry-from-conf #[(conf-no) "\306\307\n\211<\206 G\306\306 \306 <\203; \203^ @\310 !\211\nA\307\234) =\2034  A\211\202 \fW\203^ H\310 !\211\nA\307\234) =\203W  T\211\202<-)\207" [result __i__ lyskom-prioritize-entry-list __sequence__ __len__ entry nil 0 prioritize-entry->conf-stat __result__ conf-stat conf-no] 3 (#$ . 1286768)]) (defalias 'lyskom-prioritize-get-entry-from-priority #[(priority first) "\306\307\n\211<\206 G\306\306 \306 <\203O \203\206 @\310 !\nU\2039 \2034\204H \202H\310 !\nW\203H\204H  A\211\202 \fW\203\206 H\310 !\nU\203p \203k\204 \202\310 !\nW\203\204  T\211\202P-)\207" [result __i__ lyskom-prioritize-entry-list __sequence__ __len__ entry nil 0 prioritize-entry->priority __result__ priority first] 3]) #@34 Go to the line containing ENTRY. (defalias 'lyskom-prioritize-goto-entry #[(entry) "\302\303 !\\!\210\304y\210\305\207" [lyskom-prioritize-header-lines entry goto-line lyskom-prioritize-get-no-from-entry 0 nil] 4 (#$ . 1287658)]) #@49 Redraw the prioritize entry ENTRY in the buffer (defalias 'lyskom-prioritize-redraw-entry #[(entry) "\212\304 !\\\305\306 !\210\212\307y\210`)\212\305\210`)|\210\310 !c+\207" [lyskom-prioritize-header-lines entry buffer-read-only lineno lyskom-prioritize-get-no-from-entry nil goto-line 0 lyskom-prioritize-format-entry] 3 (#$ . 1287895)]) #@62 Return a string representation of the prioritize entry ENTRY (defalias 'lyskom-prioritize-format-entry #[(entry) "\301\302\303!\203\f\304\202 \305\306!\307U\203\310\202\311\312\306!\"\313!$\207" [entry lyskom-format "%#1s %3#2s %#3M" prioritize-entry->selected "*" " " prioritize-entry->priority 0 "-" format "%d" prioritize-entry->conf-stat] 7 (#$ . 1288245)]) #@35 Update the entire buffer contents (defalias 'lyskom-prioritize-redraw-buffer #[nil "\212\303\304 \210 c\210\305\306\n\"*\207" [inhibit-read-only lyskom-prioritize-header lyskom-prioritize-entry-list t erase-buffer mapcar #[(el) "\301!\302Pc\207" [el lyskom-prioritize-format-entry "\n"] 2]] 3 (#$ . 1288625)]) (defalias 'lyskom-prioritize-add-membership #[(membership) "\300\301\302\217\207" [nil (byte-code "\306\307!@\310!\203g\212q\210\311 \211A\312\234)!\211\203&\313 \314\315!\"\202c\316 \211A\317\234)\320\"\321 !\322\fS\323 \211A\317\234)\324\325 \211A\312\234)\" # #\326\f\\!\210\327\330\312!\210\331\311\f!!+*\202k\332\333\334\")\207" [buffer membership tmp entry no lyskom-prioritize-entry-list lyskom-buffers-of-category prioritize buffer-live-p lyskom-prioritize-get-entry-from-no 1 lyskom-prioritize-replace-membership lyskom-default-value lyskom-membership lyskom-prioritize-get-entry-from-priority 2 t lyskom-prioritize-get-no-from-entry lyskom-prioritize-add-to-list make-prioritize-entry blocking-do get-conf-stat goto-line nil open-line lyskom-prioritize-redraw-entry lyskom-remove-hook lyskom-add-membership-hook lyskom-prioritize-add-membership lyskom-prioritize-header-lines buffer-read-only] 9) ((error (message "Problem maintaining prioritize buffer. Recovering.")))] 3]) (defalias 'lyskom-prioritize-remove-membership #[(conf-no membership-list) "\300\301\302\217\207" [nil (byte-code "\305\306!@\307!\2039\212q\210\310 !\311\n!\210\312\212\313y\210`)\212\312\210`)|\210\314\315!\210)\316\317\n!S\f\"\211*\202=\320\321\322\")\207" [buffer conf-no entry buffer-read-only lyskom-prioritize-entry-list lyskom-buffers-of-category prioritize buffer-live-p lyskom-prioritize-find-entry-from-conf lyskom-prioritize-goto-entry nil 0 delete-char 1 lyskom-prioritize-remove-from-list lyskom-prioritize-get-no-from-entry lyskom-remove-hook lyskom-remove-membership-hook lyskom-prioritize-remove-membership] 3) ((error (message "Problem maintaining prioritize buffer. Recovering.")))] 3]) (defalias 'lyskom-prioritize-replace-membership #[(membership membership-list) "\300\301\302\217\207" [nil (byte-code "\306\307!@\310!\203g\212q\210\311 \211A\312\234)! \211A\313\234)\314\n! \fV\315 ?\" \f=?\205b\316\n \"\210\317\320\n!\320! \203U\314! U\203U\312\202^ \204]\321\202^\322\\\323\211$.\202k\324\325\326\")\207" [buffer membership entry target-priority entry-priority move-up lyskom-buffers-of-category prioritize buffer-live-p lyskom-prioritize-find-entry-from-conf 1 2 prioritize-entry->priority lyskom-prioritize-get-entry-from-priority set-prioritize-entry->priority lyskom-prioritize-move-entry lyskom-prioritize-get-no-from-entry -1 0 t lyskom-remove-hook lyskom-replace-membership-hook lyskom-prioritize-replace-membership target-entry] 6) ((error (message "Problem maintaining prioritize buffer. Recovering.")))] 3]) #@155 Move entry from position FROM to position TO. Non-nil optional DONTSET means don't change priority. Non-nil optional FORCEUP means force update of entry. (defalias 'lyskom-prioritize-move-entry #[(from to &optional dontset forceup) "\306 \nU\204\233\307 !\310\211\311\312`\"T\211\204!\313\314\315!!\210\316 \n#\204o\307\nT!\307\nS! \nV\203X \203o\317 !\317!U\204o\320\317 !\"\210\202o\f\203o\317\f!\317!U\204o\320\317\f!\"\210\321 \\!\210\212\322y\210`)\212\310\210`)T|\210\321\n\\!\210\323!\324Pc\210\321 !,\202\245\205\245\325\307 !!)\207" [inhibit-read-only from to start before after t lyskom-prioritize-get-entry-from-no nil count-lines 1 error lyskom-get-string cant-move-nothing-nowhere lyskom-prioritize-move-element prioritize-entry->priority set-prioritize-entry->priority goto-line 0 lyskom-prioritize-format-entry "\n" lyskom-prioritize-redraw-entry entry lyskom-prioritize-entry-list dontset lyskom-prioritize-header-lines forceup] 7 (#$ . 1291526)]) (defalias 'lyskom-prioritize-update-selection #[(entry arg) "\303\304\305 \"\210\237)\306 \207" [result lyskom-prioritize-entry-list lyskom-prioritize-selection nil mapcar #[(x) "\302!\205  B\211\207" [x result prioritize-entry->selected] 2] lyskom-prioritize-update-mode-line] 3]) (defalias 'lyskom-prioritize-select #[(entry arg) "\302 \"\210\303 \"\207" [entry arg set-prioritize-entry->selected lyskom-prioritize-update-selection] 3]) #@36 Get brief help on prioritize mode. (defalias 'kom-prioritize-help #[nil "\300\301\302\303!\"\207" [lyskom-message "%s" lyskom-get-string prioritize-help] 4 (#$ . 1292986) nil]) #@31 Deselect all selected entries (defalias 'kom-prioritize-deselect-all #[nil "\302 \205 @\303\302\"\210\304!\210\202)\207" [entry lyskom-prioritize-selection nil lyskom-prioritize-select lyskom-prioritize-redraw-entry] 3 (#$ . 1293169) 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) "\303 `\n\250\203\n\304U\203*\305 !\203\306 \307\"\210\202#\306 \310\"\210\311 !\210\202W\n\304V\203B\305 !\204W\306 \310\"\210\311 !\210\202W\n\304W\203W\305 !\203W\306 \307\"\210\311 !\210b*\207" [start entry arg lyskom-prioritize-current-entry 0 prioritize-entry->selected lyskom-prioritize-select nil t lyskom-prioritize-redraw-entry] 3 (#$ . 1293424) "P"]) #@25 Move forward ARG lines. (defalias 'kom-prioritize-next-line #[(arg) "y\210\304 \305\306`\"\nW\203\307\nT!\210\310 ! GV\203$\307\n G\\!\210\304 \211)\207" [arg entry lyskom-prioritize-header-lines lyskom-prioritize-entry-list lyskom-prioritize-current-entry count-lines 1 goto-line lyskom-prioritize-get-no-from-entry] 3 (#$ . 1294012) "p"]) #@26 Move backward ARG lines. (defalias 'kom-prioritize-previous-line #[(arg) "\301[!\207" [arg kom-prioritize-next-line] 2 (#$ . 1294365) "p"]) #@42 Move to the beginning of the entry list. (defalias 'kom-prioritize-beginning #[nil "\301`!\210\302T!\207" [lyskom-prioritize-header-lines set-mark goto-line] 2 (#$ . 1294512) nil]) #@36 Move to the end of the entry list. (defalias 'kom-prioritize-end #[nil "\302`!\210\303 G\\!\207" [lyskom-prioritize-header-lines lyskom-prioritize-entry-list set-mark goto-line] 3 (#$ . 1294700) 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) "\206 \306\307\310\311\312!#\307\313\211 GW\2035\314 !\315\n!\fX\203.  G\211\202 T\211\202 \203B\316 \\!\202H\316 \\!,\207" [arg lineno entry where prio lyskom-prioritize-entry-list lyskom-read-num-range 0 255 lyskom-get-string goto-priority-prompt nil lyskom-prioritize-get-entry-from-no prioritize-entry->priority goto-line lyskom-prioritize-header-lines] 6 (#$ . 1294908) "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) "\305 \306y\210 \306V\205Q\307!\211S\211\310Y\205\311 !\211\204*\312\313\314!!\210\202J\315\f!\315!V\203B\316\315\f!\"\210\317!\210\202J\320\n \"\210\321y\210 S+\202)\207" [entry arg start target before lyskom-prioritize-current-entry 0 lyskom-prioritize-get-no-from-entry 1 lyskom-prioritize-get-entry-from-no error lyskom-get-string beginning-of-list prioritize-entry->priority set-prioritize-entry->priority lyskom-prioritize-redraw-entry lyskom-prioritize-move-entry -1] 5 (#$ . 1295462) "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) "\306 \307y\210 \307V\205R\310!\211T\211\fGX\205\311 !\211\204+\312\313\314!!\210\202K\315 !\315!W\203C\316\315 !\"\210\317!\210\202K\320\n \"\210\321y\210 S+\202)\207" [entry arg start target lyskom-prioritize-entry-list after lyskom-prioritize-current-entry 0 lyskom-prioritize-get-no-from-entry lyskom-prioritize-get-entry-from-no error lyskom-get-string end-of-list prioritize-entry->priority set-prioritize-entry->priority lyskom-prioritize-redraw-entry lyskom-prioritize-move-entry 1] 5 (#$ . 1296183) "p"]) #@43 Set priority of all selected conferences. (defalias 'kom-prioritize-set-priority #[(arg) "\304\305!\210\306 \307 \n\250\203\n\206(\310\311\312\313\314 \203 \315\202!\316!\317!\"\320$ \206/C\211\203A\321 @ \"\210 A\211\2044\322!+\207" [entry selected arg priority set-mark-command nil lyskom-prioritize-current-entry lyskom-prioritize-get-selected lyskom-read-num-range 0 255 lyskom-format lyskom-get-string priority-prompt-marked priority-prompt prioritize-entry->conf-stat t lyskom-prioritize-set-priority lyskom-prioritize-goto-entry] 8 (#$ . 1296923) "P"]) (defalias 'lyskom-prioritize-set-priority #[(entry priority) "\305\306 !\fU\203\305\202\213\f\306 !V\203O\n\2039\306\n@!\fY\203,\nA\211\202G\nGZT\305\211\204 \204?\307\310 \f\"\210\311\312 ! \313\211$\202\213\f\306 !W\205\213\n\203w\306\n@!\fV\203k\nA\211\202XG\nGZ\305\211\204[ \204~G\310 \f\"\210\311\312 ! \313\211$*\207" [lyskom-prioritize-entry-list target list entry priority nil prioritize-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 "\306 \211\205\n\307!\310\311\312\313\314!\315 %\310\311\312\313\316!\315$\315\317\320 \n=\204-\320\n\205h \205h GX\203_\321 !\307!\nU\203X\322 \"\210\204X T\211\2026\323 \210\324 \210\325!.\207" [tmp default prio-from prio-to inhibit-read-only where lyskom-prioritize-current-entry prioritize-entry->priority lyskom-read-num-range 0 255 lyskom-get-string reprioritize-from t reprioritize-to 1 nil lyskom-prioritize-get-entry-from-no set-prioritize-entry->priority lyskom-prioritize-sort-entries lyskom-prioritize-redraw-buffer lyskom-prioritize-goto-entry elem lyskom-prioritize-entry-list] 7 (#$ . 1298055) nil]) #@42 Move all marked entries to before point. (defalias 'kom-prioritize-yank #[nil "\306 \307 \310!\311\311 @ \204\311\202J \203G\312 @!\312\306 ! \fW\2030\fS\313 @\n\"\210\314 \f\315\211$\210 A\316!\210\202\316 !.\207" [old-entry entry-list prio from to start lyskom-prioritize-current-entry lyskom-prioritize-get-selected prioritize-entry->priority nil lyskom-prioritize-get-no-from-entry set-prioritize-entry->priority lyskom-prioritize-move-entry t lyskom-prioritize-goto-entry] 5 (#$ . 1298802) nil]) #@44 Save changes in the prioritization buffer. (defalias 'kom-prioritize-save #[nil "\300 \207" [lyskom-prioritize-tell-server] 1 (#$ . 1299329) nil]) #@36 Quit from the prioritization mode. (defalias 'kom-prioritize-quit #[nil "\300 \210\301 \207" [lyskom-prioritize-tell-server lyskom-undisplay-buffer] 1 (#$ . 1299482) nil]) #@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 "\306\307!\210\310 \210p\311\312\313!\314P\315#\316 \317\216 \204!\320\321\322\"\210\323\324\f\"\323\325\f\"- \2048\326\327\330!!\202 -\204E\326\327\331!!\202 \f.\332 \333/Q0 1\3341\335\") q\210\336\304!\210\336\337!\210\335.02\340 \210q\210\3413 \2114<\206\2034G5\3356\3357\33574<\203\2664\203\3354@6\342\312\3436\2118A\344\234)\n$\2104A\2114\202\22635W\203\33543H6\342\312\3436\2118A\344\234)\n$\2103T\2113\202\270-\345\312!\210p9\346\216\347 !\210\n\211A)\237\350 \210\351 \210db\210\315:\352c\210)\353\354\344!!,.\207" [buffer tmp-buffer collector lyskom-membership-is-read lyskom-pers-no membership-list lyskom-start-of-command kom-prioritize lyskom-wait-for-membership lyskom-get-buffer-create prioritize buffer-name "-prioritize" t make-collector ((byte-code "\212q\210\301 \210)\301\207" [buffer lyskom-end-of-command] 1)) signal lyskom-internal-error (membership-isnt-read kom-prioritize) blocking-do get-pers-stat get-membership lyskom-insert lyskom-get-string cannot-get-membership cannot-get-pers-stat lyskom-mode-name-from-host " prioritize: " append nil make-local-variable lyskom-prioritize-entry-list lyskom-prioritize-mode 0 initiate-get-conf-stat lyskom-prioritize-handle-get-conf-stat 1 lyskom-wait-queue ((set-buffer __buffer__)) lyskom-display-buffer lyskom-prioritize-sort-entries lyskom-prioritize-redraw-buffer " " lyskom-prioritize-goto-entry lyskom-prioritize-get-entry-from-no pers-stat pers-no lyskom-server-name string vector mode-line-buffer-identification __i__ __sequence__ __len__ memb-ship __result__ membership __buffer__ inhibit-read-only] 6 (#$ . 1299661) nil]) (defalias 'lyskom-prioritize-handle-get-conf-stat #[(conf-stat collector) "\304\211A\305\234)\306\"\307 \211A\310\234) #\311\n \"*\207" [conf-stat membership tmp collector lyskom-try-get-membership 0 t make-prioritize-entry 2 collector-push] 5]) #@37 Sort the prioritization entry list. (defalias 'lyskom-prioritize-sort-entries #[nil "\303\304\"\212 q\210\303\n\305\"\211)\207" [lyskom-prioritize-entry-list lyskom-buffer lyskom-membership sort #[(x y) "\302!\302 !V\207" [x y prioritize-entry->priority] 3] lyskom-membership-<] 3 (#$ . 1301849)]) #@822 \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-reprioritize] 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 "\306\307\310\304!\210\310\302!\210\310\303!\210\311\312\312 \313 \210\314\310\315!\210\316\315! \317 !\210\320\321\322\314#\210\320\323\324\314#\210\320\325\326\314#\210\327\330!\207" [major-mode mode-name lyskom-prioritize-mode-line-selected lyskom-prioritize-selection lyskom-prioritize-entry-list lyskom-prioritize-mode-line lyskom-prioritize-mode "Prioritize" make-local-variable "" nil lyskom-prioritize-update-mode-line t lyskom-prioritize-mode-map lyskom-default-value use-local-map lyskom-add-hook lyskom-add-membership-hook lyskom-prioritize-add-membership lyskom-remove-membership-hook lyskom-prioritize-remove-membership lyskom-replace-membership-hook lyskom-prioritize-replace-membership run-hooks lyskom-prioritize-mode-hook mode-line-format buffer-read-only] 4 (#$ . 1302158) nil]) (defalias 'lyskom-prioritize-update-mode-line #[nil "\301 G\302U\203\303\304!\202\305\303\306!\301 G\"\307 \207" [lyskom-prioritize-mode-line-selected lyskom-prioritize-get-selected 0 lyskom-get-string no-selection format selection 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) "\204 \306\307 \"\207\310!\211\211A\311\234)\312!S\212 q\210\313 \314\"\315!\211A\316I\210*\317 EB\320\321\322 \315!\f\323!\211A\324\234)&-\207" [entry lyskom-prioritize-entry-list conf-stat conf-no entry-number lyskom-buffer mapcar #[(x) "\205\301!\207" [x lyskom-prioritize-tell-server] 2] prioritize-entry->conf-stat 0 lyskom-prioritize-get-no-from-entry lyskom-get-membership t prioritize-entry->priority 2 18 initiate-add-member priority lyskom-prioritize-handler prioritize-entry->membership 7 newval membership lyskom-pers-no lyskom-ignoring-async-list] 10 (#$ . 1304099)]) #@31 Arg: RES. Barf if RES is nil. (defalias 'lyskom-prioritize-handler #[(res) "\206\n\301\302\303\304!\"\207" [res lyskom-error "%s" lyskom-get-string prio-died] 4 (#$ . 1304882)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: flags.el,v 44.24 2000/05/23 12:06:43 byers Exp $\n" nil] 2) #@33 Text mass when reading options. (defvar lyskom-options-text nil (#$ . 1305190)) (if (and (boundp 'lyskom-options-done) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-options-done)) #@55 When we have read all options this is turned non-nil. (defvar lyskom-options-done nil (#$ . 1305481)) (add-to-list 'lyskom-local-variables 'lyskom-options-done) #@44 Save options that have been set somewhere. (defalias 'kom-save-options #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-save-options-start-buffer lyskom-start-of-command kom-save-options ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-save-options-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\206p\302\303!\302\304!\302\305!$\207" [lyskom-buffer lyskom-save-options lyskom-get-string saving-settings saving-settings-done could-not-save-options] 6) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1305648) nil]) (defalias 'lyskom-save-options #[(kombuf start-message done-message error-message) "\306\307\310 \311#\311\307\312\n\311#Q\307\313\f\311#\212q\210\314\315\"\210\316\317\320\321\322\323\322\323\324\325\326\327\"$\330\321 BB\330\321 BB\326\331\"%B\332 \333 &,\207" [print-readably lyskom-global-boolean-variables lyskom-global-non-boolean-variables common-block lyskom-elisp-variables elisp-block t mapconcat #[(var) "\301\302!\303\304OJ\203\305\202\306\"\207" [var lyskom-format-objects symbol-name 4 nil "1" "0"] 4] "\n" #[(var) "\301\302!\303\304O\305!\"\207" [var lyskom-format-objects symbol-name 4 nil lyskom-flag-value-to-string] 4] #[(var) "\305\306\307!G\307!#\310\311!\312\313 !!\314\315\316\217\317 !\210\320 \f\206%\321\"\305\306\322 ! #+Q\207" [var data coding val lyskom-server-coding-system format "%dH%s" symbol-name " " lyskom-flag-value-to-string lyskom-mime-charset-coding-system lyskom-mime-string-charset nil (encode-coding-string data coding) ((error)) lyskom-ignore encode-coding-string raw-text string-bytes] 6] lyskom-message "%s" initiate-create-text options lyskom-save-options-2 raw-text apply lyskom-format-objects "common" "elisp" mapcar #[(el) "\301\302@BB\207" [el STRING raw-text] 3] STRING #[(el) "\301\302ABB\207" [el STRING raw-text] 3] lyskom-create-misc-list nil kombuf start-message lyskom-other-clients-user-areas done-message error-message] 13]) (defalias 'lyskom-save-options-2 #[(text-no kombuf done-message error-message) "\203\305\306\307 \n \f&\207\212\nq\210\310\311!\210\312\313\314\311!\")\207" [text-no lyskom-pers-no kombuf done-message error-message initiate-set-user-area options lyskom-save-options-3 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) "\212q\210 \203\306\n!\210\307\310 \"\202\311\312\f\"\210\307\310 \")\207" [kombuf success lyskom-pers-no done-message lyskom-errno error-message cache-del-pers-stat lyskom-message "%s" lyskom-format-insert could-not-set-user-area] 3]) #@70 Reads the user-area and sets the variables according to the choises. (defalias 'lyskom-read-options #[nil "\205;\304U?\205;\305\306\"\211\204\307\310!\202:\311 \211A\312\234)\304U\203.\313\211\202:\314\305\315 \211A\312\234)\"!)\207" [lyskom-pers-no pers-stat lyskom-other-clients-user-areas lyskom-options-done 0 blocking-do get-pers-stat lyskom-insert-string you-dont-exist nil 5 t lyskom-read-options-eval get-text] 6 (#$ . 1308441)]) #@47 Handles the call from where we have the text. (defalias 'lyskom-read-options-eval #[(text) "\301\302\303\217\210\304\211\207" [lyskom-options-done nil (byte-code "\203s\211A\306\234)\307\310!\311\311 \311\306\n\311\306 G\312V\203^\307\310!\313\314\"\203>\202V\313\315\"\203L\202VBBT\202$+\237  G\312V\2038\307\310! \232\203\333\311\211\211 G\312V\203\327\307 \307 \316P\317!>\203\267\320\230\203\261\321\202\315\322\202\315\317! >\204\315\323P\211 B \324\"\210\202\205,\2020\f\232\203\311\211 G\312V\203\307 \307 \324\"\210\202\353+\2020\211!\203#!@A\232\204#!A\211!\204!\203/!@\241\210)T\202f\325\326\"\"\210\325\326#\"\210\327\"#\"$%\211B&\211!\203q!A@A;\203l!A\211!\202\\!\311\241\210.\311\207" [text lyskom-options-text pointers common-no elisp-no rest 1 lyskom-read-options-eval-get-holerith t nil 2 lyskom-string= "common" "elisp" "kom-" intern-soft "1" "t" "nil" "UNK-" lyskom-maybe-set-var-from-string mapcar lyskom-recompile-filter append working r word lyskom-other-clients-user-areas value gname name lyskom-global-boolean-variables lyskom-global-non-boolean-variables pos kom-permanent-filter-list kom-session-filter-list lyskom-filter-list kom-do-when-done lyskom-do-when-done] 5) ((error (byte-code "\300\301\302\303!\"\207" [lyskom-message "%s" lyskom-get-string error-in-options-short] 4))) t] 3 (#$ . 1308900)]) (defalias 'lyskom-read-options-eval-get-holerith #[(&optional no-coding) "\203\306\202 \307\310 \311\312O\"\203 \312\313O\202\n\307\314 \"\203;\315 !\316 \311\225\311\225\f\\O! \311\225\f\\\313O)\315 !\307\317 \"\210\311\225 \211\f\\O \f\\\313O\313\320\321\217,\207" [no-coding lyskom-server-coding-system coding lyskom-options-text len start raw-text string-match "\\(\\s-\\|[\n ]\\)" 0 1 nil "^[0-9]+C" string-to-int intern "[0-9]+H" (decode-coding-string name coding) ((error name)) name] 5]) #@124 This is a wrapper around lyskom-set-var-from-string that does nothing if the variable is in kom-dont-read-saved-variables. (defalias 'lyskom-maybe-set-var-from-string #[(var string) "\303=\203\304\207\305 !>\203\304\207\306 \n\"\207" [kom-dont-read-saved-variables var string t nil intern lyskom-set-var-from-string] 3 (#$ . 1310924)]) #@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) "\301!\302\303\304\217@L\207" [var intern nil (read-from-string string) ((invalid-read-syntax (byte-code "\302\303\304! #\210\305\207" [var string lyskom-format-insert lyskom-get-string error-in-options nil] 4)))] 4 (#$ . 1311273)]) #@38 Convert value of SYMBOL to a string. (defalias 'lyskom-flag-value-to-string #[(symbol) "\301=\203 \302\303\304 \"!\207\302J!\207" [symbol kom-permanent-filter-list prin1-to-string mapcar #[(filter) "\301\302!\303!\304#\207" [filter lyskom-create-filter filter->pattern filter->attribute-list nil] 4]] 4 (#$ . 1311668)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: messages.el,v 44.7 1999/11/21 17:59:37 byers Exp $\n" nil] 2) #@673 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 handled 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 (#$ . 1312124)) #@95 The text of the current message. Use lyskom-set-current-message-text to modify this variable. (defvar lyskom-message-current-text "" (#$ . 1312863)) #@77 Set the current message text to TEXT. For use by personal message handlers. (defalias 'lyskom-set-current-message-text #[(text) "\211\207" [text lyskom-message-current-text] 2 (#$ . 1313018)]) #@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) "\306=\203\n\307\202\211A\306\234)\nU\203\310\202\311 \f\312\f  \204B\f\203B\f@ $\fA\f\202% ?\205N\313 #,\207" [recipient conf-stat lyskom-pers-no text lyskom-personal-message-handlers done 0 common personal group nil lyskom-show-personal-message handlers lyskom-message-current-text message-type sender] 6 (#$ . 1313220)]) #@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) "\203 \n>?\205\222 \306=\203\306\202\307\f\n>\242\211\205'\nG\f\n>GZ\f\203@ \307=\203@ \n\233 T\n\233B\241\210\202\220\f\203^ \306=\203^ \310V\203^ S\n\233 \n\233B\241\210\202\220\n\203u \307=\203u\nGS\n\233 \311B\241\210\202\220\n\203 \306=\203\206 \nB\202\220\nGS\n\233 \311B\241\210)\n\207" [new handler lyskom-personal-message-handlers place relative pos before after 0 nil] 5 (#$ . 1313848)]) (defalias 'lyskom-info-request-handler #[(message-type sender recipient text) "\304\305\"\205\306\307\310 \211A\311\234)\312\313\314 #$\210\315\207" [text sender conf-stat lyskom-clientversion lyskom-string= " " initiate-send-message follow nil 0 format "emacs-version: %s\nclient-version: %s" emacs-version t] 9]) #@183 Optionally kill messages from certain senders or to certain recipients. See the documentation for kom-ignore-message-recipients and kom-ignore-message-senders for more information. (defalias 'lyskom-filter-message-handler #[(message-type sender recipient text) "\300\301\302\217\207" [nil (byte-code "\211\242)\306=\203\211A\307\234)\202.\211:\205 @\310=)\203-\211A\307H)\202.\f>\206d\211\242)\306=\203G \211A\307\234)\202a\211:\205R @\310=)\203` \211A\307H)\202a  >\207" [sender object conf-stat uconf-stat kom-ignore-message-senders recipient CONF-STAT 0 UCONF-STAT kom-ignore-message-recipients] 3) ((error))] 3 (#$ . 1315244)]) (byte-code "\303\304\305\"\210\303\306\305\"\210\307\310!\210\311P\312\301\nB\303\207" [lyskom-clientversion-long lyskom-ansaphone-tag current-load-list lyskom-add-personal-message-handler lyskom-filter-message-handler before lyskom-info-request-handler provide lyskom-messages "$Id: ansaphone.el,v 44.9 2000/09/09 11:59:19 byers Exp $\n" "Auto-reply:\n"] 3) #@45 Change the default automatic reply message. (defalias 'kom-change-auto-reply #[(&optional message) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-change-auto-reply-start-buffer lyskom-start-of-command kom-change-auto-reply ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-change-auto-reply-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206\303\304\305! ;\205 \306B\"\307\211\310\311\312! \"*\207" [message kom-ansaphone-default-reply lyskom-last-text-format-flags lyskom-read-from-minibuffer lyskom-get-string ansaphone-new-message 0 nil lyskom-format-insert lyskom-get-string-sol ansaphone-message] 5) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1316275) nil]) #@48 Toggle automatic replies to personal messages. (defalias 'kom-toggle-auto-reply #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-toggle-auto-reply-start-buffer lyskom-start-of-command kom-toggle-auto-reply ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-toggle-auto-reply-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "?\303\304\305!\304\203\306\202\307!\"\210\205!\310 \303\311\312!\n\"\207" [kom-ansaphone-on lyskom-ansaphone-when-set kom-ansaphone-default-reply lyskom-format-insert lyskom-get-string ansaphone-state-r state-on state-off lyskom-client-date-string lyskom-get-string-sol ansaphone-message] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1317118) nil]) #@25 List collected messages (defalias 'kom-list-messages #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-list-messages-start-buffer lyskom-start-of-command kom-list-messages ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-list-messages-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\204\n\301\302\303!!\207\301\302\304!!\210\305\306\307!\"\210\301\302\310!!\207" [lyskom-ansaphone-messages lyskom-format-insert lyskom-get-string ansaphone-no-messages ansaphone-message-list-start mapcar #[(msg) "\301\302\303\304\234\"\302\303\305\234\"\306\234\307\234\310%\207" [msg lyskom-show-personal-message blocking-do get-conf-stat 0 1 2 3 nobeep] 6] reverse ansaphone-message-list-end] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1317974) nil]) #@26 Erase collected messages (defalias 'kom-erase-messages #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-erase-messages-start-buffer lyskom-start-of-command kom-erase-messages ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-erase-messages-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301\302\303\304!\"\210\305\211\207" [lyskom-ansaphone-messages lyskom-message "%s" lyskom-get-string ansaphone-messages-gone nil] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1318895) nil]) (defalias 'lyskom-ansaphone-send-message #[(recipient message) "\304\305\306\247\203\f\202\211A\307\234)\n P$\207" [recipient conf-stat lyskom-ansaphone-tag message initiate-send-message async nil 0] 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) "\306 \"\307=\211\203\306\310\311Q \"\210\312 \313\224\313\225O!\210 \203l\f\203l \203l\n\204l\314\f\211A\307\234) \247\203@ \202H \211A\307\234) $\211\203k\315\234\203k\316\317\320!\"\315\234P\321\f\"\210) \203\200\203\200\f\203\200\322\f #\210) \205\210?\207" [lyskom-ansaphone-tag text is-automatic kom-ansaphone-on sender recipient string-match 0 "^" "\\(\\(.\\|\n\\)*\\)" lyskom-set-current-message-text 1 lyskom-ansaphone-find-reply 4 lyskom-format lyskom-get-string ansaphone-message-header lyskom-ansaphone-send-message lyskom-ansaphone-record-message message-type conf-stat reply lyskom-ansaphone-when-set kom-ansaphone-record-messages lyskom-message-current-text kom-ansaphone-show-messages] 6 (#$ . 1319762)]) #@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) "\306\211\203x\n@\307\234\203\n@\307\234 =\203q\n@\310\234\2039\n@\310\234\f=\2049\n@\310\234<\203q\f\n@\310\234>\203q\n@\311\234\203Z\n@\311\234 =\204Z\n@\311\234<\203q \n@\311\234>\203q\n@\312\234\203l\313\n@\312\234 \"\203q\n@\306\n\243\211\204 \206\212 \314=\205\212\306\211\211\211\257*\207" [kom-ansaphone-replies result exprs message-type sender recipient nil 0 1 2 3 string-match personal text kom-ansaphone-default-reply] 6 (#$ . 1320763)]) (defalias 'lyskom-ansaphone-record-message #[(sender recipient text) "\247\204 \211A\305\234)\n\247\204\n\211A\305\234)\n \306 F\fB\211\207" [sender conf-stat recipient text lyskom-ansaphone-messages 0 lyskom-client-date] 5]) (byte-code "\303\304\305\306\307$\210\310\311!\210\312P\313\301\nB\306\207" [lyskom-clientversion-long lyskom-remote-commands current-load-list lyskom-add-personal-message-handler lyskom-ansaphone-message-handler before nil t provide lyskom-ansaphone "$Id: remote-control.el,v 44.7 2000/08/23 10:43:48 byers 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))] 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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-remote-autoreply-start-buffer lyskom-start-of-command kom-remote-autoreply ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-remote-autoreply-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \306\307\310!\311\211\312$@ \206'\313\314\307\315!\316\n\312\"\311\312\311\211&\316\n\312\"\"\243\317\320\"\321 \211A\322\234)\323\324  \325=\203C\326\202N \327=\203M\330\202N\331$\312#)\207" [session-no state lyskom-onoff-table info session-info lyskom-session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t assoc lyskom-completing-read remote-control-autoreply lyskom-maybe-frob-completion-table blocking-do get-session-info lyskom-send-message 0 format "Remote-command: %d %d\nautoreply\n%s" on "on" off "off" ""] 9) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1322295) 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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-remote-set-message-start-buffer lyskom-start-of-command kom-remote-set-message ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-remote-set-message-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \305\306\307!\310\211\311$@ \206\312\306\313!!\314\315\"\316\n\211A\317\234)\320\321\f $\311#)\207" [session-no message info session-info lyskom-session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t lyskom-read-string message-prompt blocking-do get-session-info lyskom-send-message 0 format "Remote-command: %d %d\nset message\n%s"] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1323639) 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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-remote-list-messages-start-buffer lyskom-start-of-command kom-remote-list-messages ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-remote-list-messages-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \304\305\306!\307\211\310$@\311\312\"\313 \211A\314\234)\315\316 #\310#)\207" [session-no info session-info lyskom-session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t blocking-do get-session-info lyskom-send-message 0 format "Remote-command: %d %d\nlist messages\n"] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1324718) 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) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-remote-erase-messages-start-buffer lyskom-start-of-command kom-remote-erase-messages ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-remote-erase-messages-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \304\305\306!\307\211\310$@\311\312\"\313 \211A\314\234)\315\316 #\310#)\207" [session-no info session-info lyskom-session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t blocking-do get-session-info lyskom-send-message 0 format "Remote-command: %d %d\nerase messages\n"] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1325682) nil]) #@82 Quit a remote client. Optional argument SESSION-NO specifies the target session. (defalias 'kom-remote-quit #[(&optional session-no) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-remote-quit-start-buffer lyskom-start-of-command kom-remote-quit ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-remote-quit-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\206 \304\305\306!\307\211\310$@\311\312\"\313 \211A\314\234)\315\316 #\310#)\207" [session-no info session-info lyskom-session-no lyskom-read-session-no lyskom-get-string remote-control-who nil t blocking-do get-session-info lyskom-send-message 0 format "Remote-command: %d %d\nquit\n"] 7) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1326646) nil]) #@82 Personal message handler. Handler to implement remote control of the ansaphone. (defalias 'lyskom-remote-handler #[(message-type sender recipient text) "\306\307\310 \"\311=\211\205\312 \313\224\313\225O! U\n\205&\312 \314\224\314\225O! U\307\315 \"\311=\211A\311\234)>\206O\205O\211A\311\234)= \n\203\273\f\204\273 \203\273 \204\203\316\317\320\321!\322 ! %\"\210\316\317\320\323!\320\324!\"\"\210\202\273\204\215\325\202\273 \326\224\326\225O\" \327\224\327\225O#\330\"$\"\211%\204\256\325\202\272%A#! $+\203\322\316\317\320\323!\320!\206\317\320\331!\"\"\210\n.\207" [error text is-remote lyskom-session-no is-from-me is-to-me nil string-match "^Remote-command: \\([0-9]+\\) \\([0-9]+\\)\n" 0 string-to-number 1 2 "^Remote-command: \\([0-9]+\\) \\([0-9]+\\)\n\\(.*\\)\n\\(\\(\n\\|.\\)*\\)$" lyskom-ansaphone-send-message lyskom-format lyskom-get-string illegal-remote lyskom-client-date-string illegal-remote-reply remote-not-in-list remote-bad-command 3 4 assoc remote-unknown-error is-valid sender conf-stat kom-remote-controllers kom-self-control lyskom-pers-no is-trusted recipient command arg lyskom-remote-commands desc] 9 (#$ . 1327527)]) (defalias 'lyskom-remote-set-message #[(arg sender recipient text) "\203#\305\306 \307\f\310\311!P\"\210\312\313\314\315!\f\306 $!\210)\305\207\316\207" [arg lyskom-last-text-format-flags kom-ansaphone-default-reply lyskom-ansaphone-when-set sender nil lyskom-client-date-string lyskom-ansaphone-send-message lyskom-get-string ansaphone-new-message lyskom-insert-before-prompt lyskom-format lyskom-get-string-sol remote-set-message remote-bad-command] 6]) (defalias 'lyskom-remote-autoreply #[(arg sender recipient text) "\227\303\230\203\f\304\202\227\305\230\203\306\202 ?\307\n\310\311\312!\311 \203*\313\202+\314!\"\"\210\315\310\311\316!\n\317 \311 \203@\313\202A\314!$!\210\306\207" [arg kom-ansaphone-on sender "on" t "off" nil lyskom-ansaphone-send-message lyskom-format lyskom-get-string ansaphone-state state-on state-off lyskom-insert-before-prompt remote-set-ansaphone lyskom-client-date-string] 7]) (defalias 'lyskom-remote-list-messages #[(arg sender recipient text) "\204\303 \304\305!\"\210\202:\306\307!\210\310!\211\2033\311\307\312\n@\313\234#\210\311\307\312\n@\314\234#\210\nA\211\204)\315\307\316 #\210\312\207" [lyskom-ansaphone-messages sender tmp lyskom-ansaphone-send-message lyskom-get-string ansaphone-no-messages lyskom-collect follow reverse initiate-get-conf-stat nil 0 1 lyskom-use lyskom-remote-list-messages-1] 6]) (defalias 'lyskom-remote-list-messages-1 #[(sender &rest pairs) "\306\307!\310\211 \2037 @ A@ AA\f\311\n @\312\234 @\313\234$ \203.\314\202/\306Q A\202\n\315\f\"\210\316\317\320\321!\322 #!,\207" [lyskom-ansaphone-messages to from tmp message pairs "" reverse nil lyskom-format-as-personal-message 2 3 "\n\n" lyskom-ansaphone-send-message lyskom-insert-before-prompt lyskom-format lyskom-get-string remote-list-messages lyskom-client-date-string sender] 7]) (defalias 'lyskom-remote-erase-messages #[(arg sender recipient text) "\302\303\304\305! \306 #\210\302\207" [lyskom-ansaphone-messages sender nil lyskom-format-insert-before-prompt lyskom-get-string remote-erase-messages lyskom-client-date-string] 4]) (defalias 'lyskom-remote-quit #[(arg sender recipient text) "\301\302\303\304!\305 #!\210\306 \207" [sender lyskom-insert-before-prompt lyskom-format lyskom-get-string remote-quit lyskom-client-date-string lyskom-quit] 5]) (byte-code "\301\302\303\304\305$\210\306P\301\207" [lyskom-clientversion-long lyskom-add-personal-message-handler lyskom-remote-handler before lyskom-ansaphone-message-handler t "$Id: menus.el,v 44.21 1999/11/19 13:38:20 byers Exp $\n"] 5) (if (and (boundp 'lyskom-current-menu-category) (or (not (boundp lyskom-is-loaded)) (not lyskom-is-loaded)) (listp kom-dont-read-saved-variables)) (add-to-list 'kom-dont-read-saved-variables 'lyskom-current-menu-category)) #@44 Category of menus currently used in buffer (defvar lyskom-current-menu-category nil (#$ . 1331552)) (add-to-list 'lyskom-local-variables 'lyskom-current-menu-category) #@27 The menus used in LysKOM. (defvar lyskom-menu-template '((menu read ((item kom-view-next-text) (item kom-list-news) (hline review-separator) (item kom-view-commented-text) (item kom-view-previous-commented-text) (item kom-review-comments) (item kom-review-tree) (item kom-find-root) (item kom-find-root-review) (item kom-review-clear) (hline marks-separator) (item kom-list-marks) (item kom-review-marked-texts) (item kom-review-all-marked-texts) (item kom-review-clear) (hline jump-separator) (item kom-jump) (item kom-super-jump) (item kom-set-unread))) (menu write ((item kom-write-text) (item kom-send-letter) (item kom-write-comment) (item kom-private-answer) (item kom-comment-previous) (hline send-separator) (item kom-send-message))) (menu conference ((item kom-go-to-conf) (item kom-go-to-next-conf) (hline info-separator) (item kom-membership) (item kom-list-conferences) (item kom-status-conf) (item kom-review-presentation) (hline member-separator) (item kom-add-self) (item kom-sub-self) (item kom-prioritize))) (menu person ((item kom-who-is-on) (item kom-status-session) (hline info-separator) (item kom-list-persons) (item kom-status-person) (item kom-review-presentation) (hline change-separator) (item kom-change-name) (item kom-change-password))) (menu other ((item kom-customize)))) (#$ . 1331726)) #@52 Popup-menu in the backgrouond of the LysKOM window (defvar lyskom-popup-menu-template (list 'menu 'lyskom lyskom-menu-template) (#$ . 1333051)) #@40 The menus for editing LysKOM messages. (defvar lyskom-edit-menu-template '((menu lyskom ((item kom-ispell-message) (item kom-edit-send) (hline reciever-separator) (item kom-edit-add-recipient) (item kom-edit-add-copy) (item kom-edit-add-bcc) (item kom-edit-move-text) (item kom-edit-add-cross-reference) (hline special-separator) (item kom-edit-add-no-comments) (item kom-edit-add-personal-comments) (item kom-edit-add-read-confirm-request) (hline comment-separator) (item kom-edit-show-commented) (hline send-separator) (item kom-edit-quit)))) (#$ . 1333201)) #@29 List of menu sets in LysKOM (defvar lyskom-menu-list '((lyskom-mode . lyskom-menu) (lyskom-edit-mode . lyskom-edit-menu)) (#$ . 1333768)) #@42 A keymap describing the LysKOM top menu. (defvar lyskom-menu nil (#$ . 1333912)) #@46 A keymap the LysKOM menu in the edit buffer. (defvar lyskom-edit-menu nil (#$ . 1333999)) #@46 A keymap the LysKOM menu in the edit buffer. (defvar lyskom-popup-menu nil (#$ . 1334095)) #@40 Create menus according to LYSKOM-MENUS (defalias 'lyskom-build-menus #[nil "\300 \207" [lyskom-build-menus-gnu] 1 (#$ . 1334192)]) (defalias 'lyskom-build-menus-xemacs #[nil "\306!\306\n!\306\f!\211\207" [lyskom-edit-menu-template lyskom-edit-menu lyskom-popup-menu-template lyskom-popup-menu lyskom-menu-template lyskom-menu lyskom-define-menu-xemacs] 2]) #@27 Rebuilds the LysKOM menus (defalias 'lyskom-build-menus-gnu #[nil "\306 \306 \306 \307 \"\210\307 \f\"\210\307\n C\"\210\310\n\311\"\211\207" [lyskom-menu lyskom-edit-menu lyskom-popup-menu lyskom-menu-template lyskom-edit-menu-template lyskom-popup-menu-template make-sparse-keymap lyskom-define-menu-gnu lookup-key [lyskom]] 3 (#$ . 1334559)]) (defalias 'lyskom-define-menu-xemacs #[(menus) "\305\211\306 \"\210\n@?\2069\n@<\203\307\310\n\"\2029\n@\311=\2038\nA@\nAA@\312\f!\307\313 \"*B\2029\305*\207" [parameters type menus menu-items menu-title nil lyskom-ignore mapcar lyskom-define-menu-xemacs menu lyskom-get-menu-string #[(item) "@\300=\203\301\302A@!A@\303\304$\207@\305=\203\"\301\306\307\303\307$\207@\310=\203-\311!\207\312\313\"\207" [item vector lyskom-get-menu-string :active t hline "--:shadowEtchedIn" nil menu lyskom-define-menu-xemacs error "Bad menu item: %S"] 5]] 4]) (defalias 'lyskom-define-menu-gnu #[(map menus) "\205_\306 A\"\210@@@A@\211\307=\203#\310 \311\n!\312#\202^ \313=\203G\314\n!\315\f!\310 \311\n!\f B#\210\306 @AA@\"*\202^ \316=\203[\310 \311\n!\314\n!\nB#\202^\317\320!*\207" [menus map symbol type name submap lyskom-define-menu-gnu hline define-key vector ("--") menu lyskom-get-menu-string make-sparse-keymap item error "Menu description invalid in lyskom-define-menu"] 6]) (defalias 'lyskom-get-menu-category #[(menu-category) " \236AJ\207" [menu-category lyskom-menu-list] 2]) (defalias 'lyskom-update-menus #[nil "\301 \210\302\300!\205\205\303\304\"\207" [lyskom-current-menu-category lyskom-build-menus boundp mapcar #[(mc) "\301\302 \"\207" [mc lyskom-set-menus current-local-map] 3]] 3]) (defalias 'lyskom-set-menus #[(menu-category keymap) "\302 \"\207" [menu-category keymap lyskom-set-menus-gnu] 3]) #@18 Update the menus (defalias 'lyskom-set-menus-gnu #[(menu-category keymap) "\303\304\305 !#\210\306\302!\210\307\302!\204 C\211\207\310\302 \"\207" [keymap menu-category lyskom-current-menu-category define-key [menu-bar] lyskom-get-menu-category make-local-variable boundp add-to-list] 5 (#$ . 1336369)]) #@18 Update the menus (defalias 'lyskom-set-menus-xemacs #[(menu-category) "\303\304!\210\303\302!\210\305!\210\306\307\310 !\"\210 C\211\207" [default-menubar menu-category lyskom-current-menu-category make-local-variable current-menubar set-buffer-menubar mapcar #[(menu) "\301\302\"\207" [menu add-submenu nil] 3] lyskom-get-menu-category] 4 (#$ . 1336683)]) #@15 Pop up a menu (defalias 'lyskom-do-popup-menu #[(menu event) "\303\206\304 C\"\237\211?\206=\n@<\203!\305\n@@\n@A\"\202=\306\n@!\203/\307\n@!\202=\310\n@!\203<\n@ \202=\311)\207" [event menu result x-popup-menu t apply commandp call-interactively functionp nil] 4 (#$ . 1337049)]) #@70 Pop up a menu with LysKOM commands and execute the selected command. (defalias 'lyskom-background-menu #[(pos event) "\303 \n\"\210)\304\207" [lyskom-popup-menu menu event lyskom-do-popup-menu nil] 3 (#$ . 1337347)]) (provide 'lyskom-menus) #@46 Mode map for the `slow' lyskom command mode. (defvar lyskom-slow-mode-map (make-sparse-keymap) (#$ . 1337596)) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\316\317#\210\301\320\321#\210\301\322\323\324!!\325#\210\301\322\323\326!!\327#\210\301\322\323\330!!\331#\210\301\322\323\332!!\327#\207" [lyskom-slow-mode-map define-key " " kom-parse-command-and-execute " " kom-expand-slow-or-next-command "" kom-slow-start-of-line "?" kom-slow-list-completions "*" kom-slow-button-press "=" kom-slow-menu-button-press " " kom-expand-slow-command-or-next-link "\211" kom-previous-link read-kbd-macro lyskom-keys button2 kom-slow-click-or-yank button2up kom-mouse-null button3 kom-popup-menu button3up] 5) #@54 Move point to start of command, after LysKOM prompt. (defalias 'lyskom-slow-start-of-line #[nil "db\210\214dV\203\fdd}\210\302 \303\304#\203 Gu\210\202%db\210\305y\210\306\307!\205.\305\225b)\207" [lyskom-last-viewed lyskom-current-prompt-text search-backward nil t 0 looking-at "\\(\\s-+\\)"] 4 (#$ . 1338422)]) #@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 "\300 \210`dU?\205 `d{\207" [lyskom-slow-start-of-line] 2 (#$ . 1338750)]) #@133 Return non-nil if point is on the line containing the prompt. Currently the prompt is assumed to be on the last line of the buffer. (defalias 'lyskom-slow-on-prompt-line #[(&optional where) "\212\203b\210\301y\210`)\212db\210\301y\210`)=\207" [where 0] 2 (#$ . 1339048)]) #@72 Click on a LysKOM button or do the default action if after the prompt. (defalias 'kom-slow-click-or-yank #[(event) "\304!\305 !\203 \306 \210\307\n\310 \"\311 !\203\312 !\210)\313!)\207" [event pos global-map fn event-closest-point lyskom-slow-on-prompt-line lyskom-slow-start-of-line lookup-key this-command-keys commandp call-interactively kom-button-click] 3 (#$ . 1339330) "@e"]) #@49 Run kom-button-press unless on the prompt line. (defalias 'kom-slow-button-press #[nil "\300 \203 \301\302!\207\303 \207" [lyskom-slow-on-prompt-line call-interactively self-insert-command kom-button-press] 2 (#$ . 1339727) nil]) #@54 Run kom-menu-button-press unless on the prompt line. (defalias 'kom-slow-menu-button-press #[nil "\300 \203 \301\302!\207\303 \207" [lyskom-slow-on-prompt-line call-interactively self-insert-command kom-menu-button-press] 2 (#$ . 1339964) nil]) #@74 Move to the beginning of line or start of command if on the prompt line. (defalias 'kom-slow-start-of-line #[nil "\300 \203\301 \207\302y\210\303\207" [lyskom-slow-on-prompt-line lyskom-slow-start-of-line 0 nil] 1 (#$ . 1340216) nil]) (defalias 'lyskom-expand-slow-command #[(try-exact eager-completion) "\306 \307 \211\205\n\205\310 \311\312# \205\313 \310\"\311 \204*\314\315!\210\202\357\f\204>b\210\316\317\320!!\210\314\315!\210\202\357 \203M\321 \322\234!`B\202\357\fG\323U\203f\321\f@!`B`d|\210\f@c\210\202\357\fG\323V\203\357\324 \310\"\211\315=\203\204`d|\210\f@c\210\202\356;\203\351`d|\210c\210\325\326 \"\211 \203\244 \322\211\224O\202\245 \325\326\"\203\267\322\211\224O\202\271\327\330!\330 !\"\203\345 \204\321!\203\325\331\f!\210!\204\345\332`!\333=\204\345\334c\210+\202\356\335\336\311\"\210) -\207" [saved-point text try-exact exact completes command point-marker lyskom-get-entered-slow-command lyskom-complete-command nil lambda all-completions lyskom-beep t lyskom-insert-before-prompt lyskom-get-string no-such-command lyskom-lookup-command-by-name 0 1 try-completion string-match "\\s-+$" lyskom-string= lyskom-unicase lyskom-slow-list-completions char-before 32 " " signal lyskom-internal-error longest have-space eager-completion] 5]) #@82 If on the prompt line, run kom-expand-slow-command. Otherwise run kom-next-link. (defalias 'kom-expand-slow-command-or-next-link #[nil "\300 \203 \301\302!\207\301\303!\207" [lyskom-slow-on-prompt-line call-interactively kom-expand-slow-command kom-next-link] 2 (#$ . 1341542) nil]) #@295 Tries to complete the command at point. If optional TRY-EXACT is non-nil, look for an exact match. 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 #[(&optional try-exact) "\301\302\"\207" [try-exact lyskom-expand-slow-command t] 3 (#$ . 1341833) 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 #[(&optional try-exact) "\212\301 )\203\f\302\303\"\207\304 \210\305 \207" [try-exact lyskom-get-entered-slow-command lyskom-expand-slow-command nil buffer-disable-undo kom-next-command] 3 (#$ . 1342275) nil]) #@67 Reads a command from the last line in the buffer and executes it. (defalias 'kom-parse-command-and-execute #[nil "\302 \211\205 \303\304\305\"\306 \210\204\307\310!\202& \205& Ad|\210\307 @!*\207" [text command lyskom-get-entered-slow-command lyskom-expand-slow-command t nil buffer-disable-undo call-interactively kom-next-command] 4 (#$ . 1342650) nil]) #@66 List strings in COMPLETES as possible completions for a command. (defalias 'lyskom-slow-list-completions #[(completes) "\203\301\302\303\304\305\306\"\307#\"\207\310\311\312!!\207" [completes lyskom-format-insert-before-prompt command-completions mapconcat identity sort string-lessp "\n " lyskom-insert-before-prompt lyskom-get-string no-such-command] 7 (#$ . 1343020)]) (defalias 'kom-slow-list-completions #[nil "\212\300\301\302 \206 \303\304\"!)\207" [lyskom-slow-list-completions all-completions lyskom-get-entered-slow-command "" lyskom-complete-command] 4 nil nil]) #@31 Starts the slow-command-mode. (defalias 'kom-slow-mode #[nil "\304\305!\210\204 \306\307\310 !\210\311 \207" [lyskom-slow-mode buffer-read-only lyskom-saved-read-only lyskom-slow-mode-map lyskom-start-of-command kom-slow-mode t nil use-local-map lyskom-end-of-command] 2 (#$ . 1343605) nil]) #@32 Starts the quick-command-mode. (defalias 'kom-quick-mode #[nil "\304\305!\210\203 \306\307 !\210\310 \207" [lyskom-slow-mode lyskom-saved-read-only buffer-read-only lyskom-mode-map lyskom-start-of-command kom-quick-mode nil use-local-map lyskom-end-of-command] 2 (#$ . 1343909) nil]) (byte-code "\301B\302B\303\302!\207" [current-load-list newtext 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) "\306 \307\216 \203I\310\311\312\211\313 \f#\203:\311\224\311\225 \f O\2031\2023\314 Q\n\202 \205E \f\312OP,\202l\313 \311#\205l\311\211\224O\203c\202e\314 \311\225\312OQ*\207" [data global matchend matchbeginning start result match-data ((store-match-data data)) "" 0 nil string-match elib-string-expand-newtext regexp string literal newtext] 5 (#$ . 1344292)]) (defalias 'elib-string-expand-newtext #[nil "\306G\307\211\nW\203g  H\211\310U\203Z T\211H\211\311U\203. \306\224\306\225O\202]\f\312Y\203T\f\313X\203T\f\314Z\211\224\203O \224\225O\202P\307)\202]\315\f!\202]\315\f!)P T\211\202 +\207" [newtext expanded-newtext len pos c string 0 "" 92 38 49 57 48 char-to-string n] 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) "\306 \307\216\310 \n\"\n\311 OC\312 \205\311\225\211\f\203K \250\203+  W\203K\310 \n\f#\203K\311\224 T\n\f O\fB\311\225\211\f\202 \250\203X  W\203e\f\203e\n\f\313O\fB\f\237.\207" [data pattern string start result count match-data ((store-match-data data)) string-match 0 1 nil end limit] 5 (#$ . 1345730)]) (byte-code "\301P\302\207" [lyskom-clientversion-long "$Id: option-edit.el,v 44.50 2000/09/09 11:59:32 byers Exp $\n" nil] 2) #@42 List of widgets in the customize buffer. (defvar lyskom-widgets nil (#$ . 1346417)) (byte-code "\302\300!\204\303\300 B\302\207" [lyskom-customize-buffer-format current-load-list boundp ("\n" (lyskom bold centered) "\n\n" lyskom-doc "\n\n" [kom-customize-format] "\n\n" section (look-and-feel-misc bold centered) section "\n" [kom-default-language] [kom-show-namedays] [kom-show-week-number] "\n" [kom-idle-hide] [kom-show-where-and-what] [kom-show-since-and-when] "\n" [kom-friends] [kom-morons] "\n" [kom-show-unread-in-frame-title] [kom-presence-messages] [kom-presence-messages-in-buffer] "\n" [kom-prompt-for-text-no] [kom-page-before-command] [kom-deferred-printing] [kom-max-buffer-size] [kom-trim-buffer-minimum] [kom-bury-buffers] [kom-keep-alive-interval] "\n" [kom-agree-text] [kom-mercial] "\n" [kom-user-prompt-format] [kom-user-prompt-format-executing] [kom-anonymous-prompt-format] [kom-anonymous-prompt-format-executing] [kom-enabled-prompt-format] [kom-enabled-prompt-format-executing] "\n\n" section (window-locations bold centered) section "\n" (windows-where bold centered) "\n" windows-doc "\n\n" [kom-customize-in-window] [kom-edit-filters-in-window] [kom-prioritize-in-window] [kom-list-membership-in-window] [kom-write-texts-in-window] [kom-view-commented-in-window] [kom-personal-messages-in-window] "\n\n" section (audio-cues bold centered) section "\n" [kom-audio-player] "\n" (audio-cues-when bold centered) "\n" audio-cues-doc "\n\n" [kom-ding-on-priority-break] [kom-ding-on-new-letter] [kom-ding-on-wait-done] [kom-ding-on-no-subject] [kom-ding-on-common-messages] [kom-ding-on-group-messages] [kom-ding-on-personal-messages] [kom-silent-ansaphone] "\n\n" section (reading bold centered) section "\n" [kom-default-session-priority] [kom-print-number-of-unread-on-entrance] [kom-allow-incompleteness] [kom-permissive-completion] [kom-complete-numbers-before-names] [kom-continuous-scrolling] [kom-inhibit-typeahead] [kom-confirm-add-recipients] "\n" [kom-higher-priority-breaks] [kom-review-priority] [kom-server-priority] [kom-server-priority-breaks] "\n" [kom-read-depth-first] [kom-reading-puts-comments-in-pointers-last] [kom-show-footnotes-immediately] [kom-follow-comments-outside-membership] [kom-follow-attachments] [kom-created-texts-are-read] [kom-created-texts-are-saved] "\n" [kom-saved-file-name] [kom-default-mark] [kom-membership-default-priority] [kom-membership-default-placement] [kom-unsubscribe-makes-passive] [kom-postpone-default] "\n" [kom-autowrap] [kom-show-author-at-end] [kom-show-creating-software] [kom-show-imported-importer] [kom-show-imported-external-recipients] [kom-show-imported-envelope-sender] [kom-smileys] [kom-w3-simplify-body] "\n" [kom-dashed-lines] [kom-long-lines] [kom-text-footer-format] [kom-text-header-dash-length] [kom-text-footer-dash-length] "\n" [kom-truncate-threshold] [kom-truncate-show-lines] "\n" [kom-ignore-message-senders] [kom-ignore-message-recipients] [kom-show-personal-message-date] [lyskom-filter-outgoing-messages] "\n\n" section (writing bold centered) section "\n" [kom-cite-string] [kom-ispell-dictionary] "\n" sending-doc "\n\n" [kom-confirm-multiple-recipients] [kom-check-commented-author-membership] [kom-dont-check-commented-authors] [kom-check-for-new-comments] "\n\n" section (urls bold centered) section "\n" [kom-url-viewer-preferences] [kom-mosaic-command] [kom-netscape-command] "\n\n" section (personal-messages bold centered) section "\n" [kom-show-personal-messages-in-buffer] [kom-pop-personal-messages] [kom-default-message-recipient] "\n" (automatic-replies bold centered) "\n" [kom-ansaphone-record-messages] [kom-ansaphone-show-messages] "\n" [kom-ansaphone-default-reply] "\n" [kom-ansaphone-replies] "\n\n" section (remote-control bold centered) section "\n" [kom-remote-control] [kom-self-control] "\n" [kom-remote-controllers] "\n\n" section (hooks bold centered) section "\n" [kom-login-hook] [kom-do-when-done])] 2) #@126 Set the variables in the LysKOM buffer according to their values in the customize buffer but do not save them to the server. (defalias 'lyskom-customize-apply #[nil "\212\nq\210 <\203 \306 \205] @@\307 @A!L\210\307\310 @A\311\"!\204U\312 @@\307 @A!\"\210 <\203U @@\f>\204O @@ >\204O @@ >\203U @@ B A\211\204\306*\207" [lyskom-widgets tmp lyskom-buffer kom-dont-read-saved-variables lyskom-elisp-variables lyskom-global-boolean-variables nil widget-value widget-get :lyskom-storage-widget set-default lyskom-global-non-boolean-variables] 5 (#$ . 1350371) nil]) #@30 Save variables to the server (defalias 'lyskom-customize-send #[nil "\212q\210\306p\307\310!\307\311!\307\312!$\210\313\314\315\n\"\210\316\303!\203\" \206?\f\317\232\204,\f\206? \320=\203:\321\322 \323Q\206?\321\322 \324Q'\325'!(\313)\212(q\210eb\210\326\327\313\330#\203w\331\224\211*b\210\326\332\313\333#\204m\334\335!\210*\331\225|\210)\202}db\210\336c\210\337 )))+\340\341!\210\340\342!\210\314\343 \"\210\340\344!\210\340\345!\210))\313\211\223\210\212(q\210\346 .\207" [lyskom-buffer var-list lyskom-customize-buffer-format save-options-init-file user-init-file system-type lyskom-save-options lyskom-get-string saving-settings saving-settings-done could-not-save-options nil mapcar #[(e) "\306!\205A\307\2349\205A\307\234 >\204%\307\234\n>\204%\307\234 >\203-\307\234\f>\205A\310\307\234!\205A\307\234\307\234JB B\211\207" [e lyskom-elisp-variables lyskom-global-boolean-variables lyskom-global-non-boolean-variables kom-dont-read-saved-variables var-list vectorp 0 boundp] 3] boundp "" ms-dos "~" user-login-name "/_emacs" "/.emacs" find-file-noselect re-search-forward "^;;; LysKOM Settings *\n" move 0 "^;;; End of LysKOM Settings *\\(\n\\|\\'\\)" t error "can't find END of saved state in .emacs" "\n" point-marker princ ";;; LysKOM Settings\n" ";;; =====================\n" #[(x) "\301\302\303@A\304=\203\305\202.A\204\305\202.A9\203#\306\202.A<\203-\306\202.\305A$!\207" [x princ format "(setq-default %S %s%S)\n" t "" "'"] 6] ";;; ============================\n" ";;; End of LysKOM Settings\n" save-buffer actual-save-options-init-file init-output-buffer init-output-marker p standard-output] 7 (#$ . 1350952)]) #@44 Apply changes and save them to the server. (defalias 'lyskom-customize-save #[nil "\300 \210\301 \207" [lyskom-customize-apply lyskom-customize-send] 1 (#$ . 1352643) nil]) #@42 Quit the customize buffer without saving (defalias 'lyskom-customize-quit #[nil "p\301!\210\302!)\207" [buf lyskom-undisplay-buffer kill-buffer] 2 (#$ . 1352822) nil]) #@36 Save and quit the customize buffer (defalias 'lyskom-customize-save-and-quit #[nil "\300 \210\301 \210\302 \207" [lyskom-customize-apply lyskom-customize-send lyskom-customize-quit] 1 (#$ . 1352999) nil]) (defalias 'lyskom-customize-help #[nil "\300\301\302!!\207" [message lyskom-get-string customize-help] 3 nil nil]) (defalias 'lyskom-widget-click #[(event) "\302!\211\203\303 !\203\304!\202\305 )\207" [event pos event-point widget-at widget-button-click popup-mode-menu] 3 nil "e"]) #@27 Open the customize buffer (defalias 'kom-customize #[nil "\306\307\310\311\312!\"\313#\314\216\315\316!\210\212 q\210\317 \210\320\302!\210\321\313\322 \210)\323\f!\210\321\324\325\217\210\326\327 \"\210\330 \210\326\331\n\"\210\330 \210)\332 !\210)eb)\207" [lyskom-server-name buf lyskom-widgets inhibit-read-only lyskom-customize-map lyskom-customize-buffer-format lyskom-get-buffer-create customize lyskom-format lyskom-custom-string buffer-name t ((byte-code "\212q\210\301 \210)\301\207" [lyskom-buffer lyskom-end-of-command] 1)) lyskom-start-of-command kom-customize kill-all-local-variables make-local-variable nil erase-buffer use-local-map (byte-code "\300\301\302\"\207" [lyskom-copy-face kom-active-face widget-button-face] 3) ((error)) mapcar lyskom-custom-insert widget-setup #[(variable) "\302A\212 q\210@J)\"\207" [variable lyskom-buffer widget-value-set] 3] lyskom-display-buffer] 5 (#$ . 1353502) nil]) (defalias 'lyskom-custom-insert #[(w) "9\203 \305\306\307!!!\207<\203(`\310\311\305\307@!!\210`\312\313A\"+\207;\2031\305!\207\314!\205D\315H\316\315H!B\fB\211\207" [w inhibit-read-only end start lyskom-widgets widget-insert substitute-command-keys lyskom-custom-string nil t mapcar #[(fn) "\303\304\305!P! \n\"\207" [fn start end intern "lyskom-custom-insert-" symbol-name] 4] vectorp 0 lyskom-create-widget] 4]) (defalias 'lyskom-custom-insert-bold #[(s e) "\302 \303\304\305\306F#\207" [s e add-text-properties face bold end-closed nil] 7]) (defalias 'lyskom-custom-insert-centered #[(s e) "\212b\210\301\302!)\207" [s center-line 1] 2]) (defalias 'lyskom-custom-get-value #[(var) "\212q\210 J)\207" [lyskom-buffer var] 1]) (defalias 'lyskom-custom-string #[(s) "\301\302\"\207" [s lyskom-get-string lyskom-custom-strings] 3]) #@56 List of user variables not in lyskom-custom-variables. (defvar lyskom-custom-variables-missing '(kom-permanent-filter-list kom-quit-hook) (#$ . 1355289)) (byte-code "\303\300!\204\304\300 B\303\302!\204\305\302 B\303\207" [lyskom-custom-variables current-load-list lyskom-widget-functions boundp ((kom-personal-messages-in-window (open-window)) (kom-write-texts-in-window (open-window)) (kom-list-membership-in-window (open-window)) (kom-edit-filters-in-window (open-window)) (kom-prioritize-in-window (open-window)) (kom-customize-in-window (open-window)) (kom-view-commented-in-window (open-window)) (kom-edit-filters-in-window (open-window)) (kom-list-membership-in-window (open-window)) (kom-customize-format (choice ((const (long-format long)) (const (short-format short))))) (kom-default-language (language-choice)) (kom-user-prompt-format (string)) (kom-user-prompt-format-executing (string)) (kom-anonymous-prompt-format (string)) (kom-anonymous-prompt-format-executing (string)) (kom-enabled-prompt-format (string)) (kom-enabled-prompt-format-executing (string)) (kom-cite-string (string)) (kom-created-texts-are-read (toggle (yes no))) (kom-created-texts-are-saved (choice ((const (no nil)) (file nil :tag to-file)))) (kom-default-mark (choice ((number (0 255) :tag selected-mark :format "%[%t%] (%v)" :size 0) (const (ask nil))))) (kom-reading-puts-comments-in-pointers-last (toggle (after before))) (kom-autowrap (choice ((const (on t)) (const (off nil)) (number nil :tag max-text-length)))) (kom-dashed-lines (toggle (on off))) (kom-show-author-at-end (toggle (on off))) (kom-truncate-threshold (choice ((const (off nil)) (number nil :tag truncate-threshold-lines)))) (kom-truncate-show-lines (number nil)) (kom-print-number-of-unread-on-entrance (toggle (yes no))) (kom-presence-messages (choice ((const (on t)) (const (friends friends)) (repeat (person nil :tag name) :indent 4 :tag some-persons :menu-tag some-persons)))) (kom-presence-messages-in-buffer (choice ((const (on t)) (const (friends friends)) (repeat (person nil :tag name) :indent 4 :tag some-persons :menu-tag some-persons)))) (kom-show-where-and-what (toggle (yes no))) (kom-show-since-and-when (toggle (yes no))) (kom-idle-hide (number)) (kom-show-footnotes-immediately (toggle (yes no))) (kom-follow-comments-outside-membership (toggle (yes no))) (kom-read-depth-first (toggle (depth-first time-order))) (kom-continuous-scrolling (toggle (on off))) (kom-deferred-printing (toggle (on off))) (kom-higher-priority-breaks (choice ((const (express-break express)) (const (break t)) (const (no-break nil))))) (kom-server-priority (number)) (kom-server-priority-breaks (choice ((const (express-server-break express)) (const (express-server-letters-break express-letters)) (const (server-break t)) (const (letters-server-break letters)) (const (after-conf-server-break after-conf)) (const (after-conf-letters-server-break after-conf-letters)) (const (when-done-server-break when-done)) (const (no-break nil))))) (kom-login-hook (repeat (command nil :tag command) :indent 4)) (kom-do-when-done (repeat (choice ((command nil :tag command) (kbd-macro nil :tag kbd-macro)) :tag execute :help-echo select-what-to-execute :format "%[%t%] %v") :indent 4)) (kom-page-before-command (choice ((const (page-none nil)) (const (page-all t)) (repeat (command nil :tag command) :indent 4 :tag page-some :menu-tag page-some :format "%[%t%] %v" :value (kom-view-next-text))) :format "%[%t%] %v")) (kom-permissive-completion (noggle (on off))) (kom-membership-default-priority (choice ((const (ask-every-time ask)) (const (ask-every-time nil)) (number (0 255) :tag fixed-priority :help-echo select-priority :format "%[%t%] (%v)" :size 0)))) (kom-show-personal-messages-in-buffer (choice ((const (messages-in-lyskom-buffer t)) (const (discard-messages nil)) (string nil :tag in-named-buffer :help-echo select-buffer)))) (kom-pop-personal-messages (toggle (yes no))) (kom-ding-on-new-letter (ding)) (kom-ding-on-priority-break (ding)) (kom-ding-on-wait-done (ding)) (kom-ding-on-common-messages (ding)) (kom-ding-on-group-messages (ding)) (kom-ding-on-personal-messages (ding)) (kom-ding-on-no-subject (ding)) (kom-audio-player (file)) (kom-default-message-recipient (choice ((const (everybody-rcpt everybody)) (const (group-rcpt group)) (const (sender-rcpt sender)) (const (last-recipient-recpt last-recipient))))) (lyskom-filter-outgoing-messages (noggle (yes no))) (kom-friends (repeat (person nil :tag name) :indent 4)) (kom-morons (repeat (person nil :tag name) :indent 4)) (kom-url-viewer-preferences (repeat (url-viewer nil :tag viewer-program) :indent 4)) (kom-mosaic-command (file)) (kom-netscape-command (file)) (kom-confirm-multiple-recipients (choice ((const (dont-check nil)) (const (check-before-open before)) (const (check-before-send after) :match (lambda (w v) (and v (not (eq v 'before)))))))) (kom-check-commented-author-membership (toggle (yes no))) (kom-check-for-new-comments (toggle (yes no))) (kom-inhibit-typeahead (noggle (yes no))) (kom-max-buffer-size (choice ((const (no-size-limit nil)) (number nil :tag max-size-in-bytes :help-echo select-buffer-size)))) (kom-ansaphone-record-messages (toggle (yes no))) (kom-ansaphone-show-messages (toggle (yes no))) (kom-ansaphone-default-reply (string nil :format "%[%t%]\n%v")) (kom-remote-control (toggle (on off))) (kom-remote-controllers (repeat (person nil :tag name) :indent 4)) (kom-self-control (toggle (yes no))) (kom-ispell-dictionary (ispell-dictionary)) (kom-show-namedays (toggle (on off))) (kom-show-week-number (toggle (on off))) (kom-membership-default-placement (choice ((const (last last)) (const (first first)) (number nil :tag specific-placement)))) (kom-show-imported-importer (toggle (on off))) (kom-show-imported-envelope-sender (toggle (on off))) (kom-show-imported-external-recipients (toggle (on off))) (kom-agree-text (choice ((string nil :tag a-string) (repeat (string nil :tag a-string :format "%[%t%] `%v'\n") :indent 4 :tag some-string :menu-tag some-string)))) (kom-silent-ansaphone (noggle (on off))) (kom-default-session-priority (choice ((const (unspecified nil)) (number nil :tag priority)))) (kom-unsubscribe-makes-passive (toggle (on off))) (kom-review-priority (choice ((const (same-as-conf nil)) (number nil :tag fixed-priority)))) (kom-show-creating-software (toggle (on off))) (kom-text-footer-format (choice ((const (default-format nil)) (string nil :tag custom-format)))) (kom-long-lines (toggle (on off))) (kom-postpone-default (number)) (kom-allow-incompleteness (toggle (on off))) (kom-smileys (toggle (on off))) (kom-ignore-message-senders (repeat (person nil :tag name) :indent 4)) (kom-ignore-message-recipients (repeat (person nil :tag name :lyskom-predicate (pers conf)) :indent 4)) (kom-text-header-dash-length (number)) (kom-text-footer-dash-length (number)) (kom-show-personal-message-date (toggle (on off))) (kom-mercial (string)) (kom-w3-simplify-body (toggle (on off))) (kom-bury-buffers (toggle (on off))) (kom-ansaphone-replies (ansaphone)) (kom-complete-numbers-before-names (toggle (on off))) (kom-keep-alive-interval (number)) (kom-prompt-for-text-no (repeat (command nil :tag command))) (kom-saved-file-name (file)) (kom-follow-attachments (toggle (yes no))) (kom-show-unread-in-frame-title (toggle (yes no))) (kom-confirm-add-recipients (toggle (yes no))) (kom-trim-buffer-minimum (number)) (kom-dont-check-commented-authors (repeat (person nil :tag name) :indent 4))) ((toggle . lyskom-toggle-widget) (noggle . lyskom-toggle-widget-inverse) (ding . lyskom-ding-widget) (choice . lyskom-choice-widget) (string . lyskom-string-widget) (number . lyskom-number-widget) (const . lyskom-item-widget) (repeat . lyskom-repeat-widget) (kbd-macro . lyskom-kbd-macro-widget) (url-viewer . lyskom-url-viewer-widget) (ispell-dictionary . lyskom-ispell-dictionary-widget) (open-window . lyskom-open-window-widget) (command . lyskom-command-widget) (person . lyskom-person-widget) (language-choice . lyskom-language-widget) (file . lyskom-file-widget) (ansaphone . lyskom-ansaphone-reply-widget))] 2) #@38 Make a menu tag from the string STR. (defalias 'lyskom-make-menu-tag #[(str) "\301\302\"\203\f\303\304\"\207\207" [str string-match "\\(.*\\):\\s-*" match-string 1] 3 (#$ . 1363380)]) (defalias 'lyskom-create-widget #[(variable) " \236\211\206\f\306\307\"\310\nA@!\311\312!\313P!\311\312!\314P!!\311\312!\315P!\"\212#q\210J)$\316%\317$\" #\210\316\320\321\217%\f@\322\323\324 !\325\326\324 !!\327\330!\331\332\324\333!\312!\"\334%\257\n\fA\"B\335\336\f\"&\316\337\340\217\210&. \207" [variable lyskom-custom-variables el dummy spec tag-sym error "Unknown variable: %S" lyskom-widget-convert-specification intern symbol-name "-tag" "-doc" "-help" nil lyskom-ignore (byte-code "\305\306\307 >?\205\n>\206 >\206\f>\310\311\312\313\314\315!& \316\317!\210\207" [variable kom-dont-read-saved-variables lyskom-elisp-variables lyskom-global-boolean-variables lyskom-global-non-boolean-variables widget-create checkbox :value :args :format "%[%v%]" :help-echo lyskom-custom-string variable-type-help widget-insert " "] 11) ((error)) append :tag lyskom-custom-string :menu-tag lyskom-make-menu-tag :value lyskom-custom-get-value :help-echo lyskom-format default-help-echo :lyskom-storage-widget apply widget-create (byte-code "\301!\302\230\203\303\304!\210\202F\303\305!\210\306\307\310\311\312!\313\311\312!\314=\203(\301\315!\202+\301\316!\317\314\320\301!\301\315!\321\257\322\323\302\301\316!\324\257D\325\326& \210\301\207" [doc-sym lyskom-custom-string "" widget-insert "\n" " " widget-create lyskom-widget-help :value lyskom-default-value kom-customize-format :help-echo long hide-doc show-doc :args "\n%s\n\n" "-" short "%s" "?" :format "%[[%T]%]\n%D"] 13) ((error (widget-insert "\n"))) doc-sym help-sym lyskom-buffer value storage-widget widget] 14]) #@74 Convert a LysKOM widget specification to something widget-create accepts (defalias 'lyskom-widget-convert-specification #[(spec) "@ \236\211\204\303\304\"\210\nA@A@AA#\305!\244)\207" [spec lyskom-widget-functions convertfn error "Unknown widget type: %S" lyskom-widget-convert-props] 5 (#$ . 1365189)]) #@64 Convert widget properties to a format that widget-create likes (defalias 'lyskom-widget-convert-props #[(spec) "AA\303\211G\304\246\305U\204\306\307\"\210\n\203d\n@ B\nA\211@9\203C\n@\310=\2031\310\202Z\n@\303=\203<\303\202Z\311\n@!\202Z\n@:\203X\n@@\312=\203X\n@A@\202Z\n@ B\nA\211\204 \237*\207" [spec result propl nil 2 0 error "Widget property list has odd length: %S" t lyskom-custom-string quote] 4 (#$ . 1365507)]) (defalias 'lyskom-build-simple-widget-spec #[(type defaults propl) "\304 \203\305\n @\"\204 @ A@BB AA\211\204 )B\207" [new-props defaults propl type nil plist-member] 4]) (defalias 'lyskom-file-widget #[(type &optional args propl) "\301\302\303#\207" [propl lyskom-build-simple-widget-spec file (:format "%[%t%] %v" :size 0)] 4]) (defalias 'lyskom-person-widget #[(type &optional args propl) "\301\302\303#\207" [propl lyskom-build-simple-widget-spec lyskom-name nil] 4]) (defalias 'lyskom-command-widget #[(type &optional args propl) "\301\302\303#\207" [propl lyskom-build-simple-widget-spec lyskom-command nil] 4]) (defalias 'lyskom-kbd-macro-widget #[(type &optional args propl) "\302\303\304D #\207" [lyskom-buffer propl lyskom-build-simple-widget-spec lyskom-kbd-macro :macro-buffer] 4]) (defalias 'lyskom-item-widget #[(type &optional args propl) "\302\303\304\305\306\307\310\234!\311\312\234\257 #\207" [args propl lyskom-build-simple-widget-spec item :format "%t" :tag lyskom-custom-string 0 :value 1] 9]) (defalias 'lyskom-language-widget #[(type &optional args propl) "\302\303\304\305\306\307\310\311\312\"\257 #\207" [lyskom-languages propl lyskom-build-simple-widget-spec menu-choice :format "%[%t%] %v" :case-fold t :args mapcar #[(x) "\301\302\303@!\304\305\306\307\234\257\207" [x item :tag lyskom-language-name :format "%t" :value 0] 8]] 10]) (defalias 'lyskom-ispell-dictionary-widget #[(type &optional args propl) "\302\302\303\304\217\210\305\306\307\310\311\302\312\313\314\315\307\316\317\302\257\320\302\321\322\"\"B\257 #)\207" [tmp-dictionary-alist propl nil (byte-code "\302\303!\210\302\207" [ispell-dictionary-alist tmp-dictionary-alist require ispell] 2) ((error (byte-code "\204\302\303\207" [ispell-dictionary-alist tmp-dictionary-alist ("american" "brasiliano" "british" "castellano" "castellano8" "czech" "dansk" "deutsch" "deutsch8" "english" "esperanto" "esperanto-tex" "francais7" "francais" "francais-tex" "nederlands" "nederlands8" "norsk" "norsk7-tex" "polish" "russian" "svenska") nil] 1))) lyskom-build-simple-widget-spec menu-choice :format "%[%t%] %v" :case-fold :args item :tag "ispell-dictionary" "%t" :value delq mapcar #[(x) "@\205\301\302@\303\304\305@\257\207" [x item :tag :format "%t" :value] 7]] 14]) (defalias 'lyskom-url-viewer-widget #[(type &optional args propl) "\301\302\303\304\305\306\307\310\311!\312\313\314\310\315!\303\316\317\320\257\313\314\310\321!\303\316\317\322\257\313\314\310\323!\303\316\317\324\257\313\314\310\325!\303\316\317\326\257\313\314\310\327!\303\316\317\330\257\313\314\310\331!\303\316\317\332\257\313\314\310\333!\303\316\317\334\257\313\314\310\335!\303\316\317\336\257\313\314\310\337!\303\316\317\340\257\313\314\310\341!\303\316\317\342\257\313\314\310\343!\303\316\317\344\257\257 \257#\207" [propl lyskom-build-simple-widget-spec menu-choice :format "%[%v%]\n" :case-fold t :help-echo lyskom-custom-string select-url-viewer :args item :tag no-viewer "%t" :value nil default-viewer "default" windows-viewer "windows" netscape-viewer "netscape" emacs-w3-viewer "w3" emacs-general-viewer "emacs" emacs-dired-viewer "dired" emacs-mail-viewer "mail-mode" emacs-telnet-viewer "telnet-mode" mosaic-viewer "mosaic" lynx-viewer "lynx"] 26]) (defalias 'lyskom-open-window-widget #[(type &optional args propl) "\301\302\303\304\305\306\307\310\311\312\313!\305\314\315\316\257\310\311\312\317!\305\314\315\317\257\310\311\312\320!\305\314\315\320\257\310\311\312\321!\305\314\315\322\257\323\311\312\324!\305\325\315\326\327\330\257 \257\257#\207" [propl lyskom-build-simple-widget-spec menu-choice :case-fold t :format "%[%t%] %v" :args item :tag lyskom-custom-string other-window "%t" :value other other-frame new-frame lyskom-window nil editable-field window-on-buffer "%[%t%]: `%v'" "" :size 0] 20]) (defalias 'lyskom-ding-widget #[(type &optional args propl) "\301\302\303\304\305\306\307\310\311\312\313!\314\315\305\316\317\320\257 \321\311\312\322!\323\312\324!\314\325\305\326\327\315\330\331\332\333\257\334\311\312\335!\323\312\336!\327\315\257\337\305\340\341\342\311\312\343!\344\312\343!\307\345\305\346\314\347\307\302\303\304\305\350\311\312\351!\307\352\353\354\311\312\351!\257\310\311\312\355!\356BBBD\257 \302\303\304\305\357\311\312\360!\307\310\311\312\313!\361BBB\321\311\312\322!\323\312\324!\362BBBBB\334\311\312\335!\323\312\336!\363BBBBBE\257 D\257C\257 F\257#\207" [propl lyskom-build-simple-widget-spec menu-choice :case-fold t :format "%[%t%] %v" :args item :tag lyskom-custom-string turned-off :value 0 "%t" :match (lambda (w v) (eq v 0)) lyskom-number number-of-times :help-echo select-number "1" "%[%t%]: (%v)" :size :min-value 1 :max-value 255 lyskom-string sound-file select-audio-file editable-list "%[%t%]\n%v%i" :indent 4 specific-spec :menu-tag cons "%v" (1 0) "%[%t%]: %v" conf-or-person lyskom-name :lyskom-predicate (pers conf) other-persons (:value t :format "%t\n") "%[%t%]: %v\n" ding (:value nil :format "%t" :match (lambda (w v) (or (null v) (eq v 0)))) (:value "1" :format "%[%t%]: (%v)" :size 0 :min-value 1 :max-value 255) (:size 0)] 43]) (defalias 'lyskom-toggle-widget-inverse #[(type &optional args propl) "\302\303\304\305\306\307\310\311\312\313\314\234!\315\316\306\317\257\311\312\313\320\234!\315\305\321\322\306\317\257 D\257 #\207" [args propl lyskom-build-simple-widget-spec menu-choice :case-fold t :format "%[%t%] %v" :args item :tag lyskom-custom-string 0 :value nil "%t" 1 :match (lambda (w v) v)] 17]) (defalias 'lyskom-toggle-widget #[(type &optional args propl) "\302\303\304\305\306\307\310\311\312\313\314\234!\315\305\306\316\317\320\257 \311\312\313\321\234!\315\322\306\316\257D\257 #\207" [args propl lyskom-build-simple-widget-spec menu-choice :case-fold t :format "%[%t%] %v" :args item :tag lyskom-custom-string 0 :value "%t" :match (lambda (w v) v) 1 nil] 16]) (defalias 'lyskom-repeat-widget #[(type &optional args propl) "\302\303\304\305\306\307!CF #\207" [args propl lyskom-build-simple-widget-spec editable-list :format "%[%t%]\n%v%i" :args lyskom-widget-convert-specification] 7]) (defalias 'lyskom-choice-widget #[(type &optional args propl) "\302\303\304\305\306\307\310\311\312\"\257 #\207" [args propl lyskom-build-simple-widget-spec menu-choice :case-fold t :format "%[%t%] %v" :args mapcar lyskom-widget-convert-specification] 10]) (defalias 'lyskom-string-widget #[(type &optional args propl) "\301\302\303\304\305\306F#\207" [propl lyskom-build-simple-widget-spec lyskom-string :size 0 :format "%[%t%] `%v'"] 6]) (defalias 'lyskom-number-widget #[(type &optional args propl) "\203\302\303\304\305\234\306\307\234\310\305\257 #\207\302\303\310\305D #\207" [args propl lyskom-build-simple-widget-spec lyskom-number :min-value 0 :max-value 1 :size] 8]) (defalias 'lyskom-ansaphone-reply-widget #[(type &optional args propl) "\301\302\303\304\305\306\305\307\310\311\312!\303\313\305\314\315\316\310\311\317!\257\314\315\306\310\311\320!\257\314\315\321\310\311\322!\257\314\315\323\310\311\324!\257F\257\307\310\311\325!\305\314\315\323\310\311\326!\257\302\310\311\327!\330\311\327!\303\304\331\332\305\333\303\313\310\311\334!\257C\257 D\257\307\310\311\335!\305\314\315\323\310\311\336!\257\302\310\311\337!\330\311\337!\303\304\331\332\305\333\310\311\340!\341BBBC\257 D\257\307\310\311\342!\305\314\315\323\310\311\343!\257\344\310\311\345!\346BBBD\257\307\310\311\347!\305\314\315\323\310\311\350!\257\344\310\311\351!\352BBBD\257\257ECF#\207" [propl lyskom-build-simple-widget-spec editable-list :format "%t:\n%v%i\n" :args group menu-choice :tag lyskom-custom-string ar-message-type "%[%t%]: %v" item :value personal ar-personal ar-group common ar-alarm nil ar-any-type ar-sender ar-any-sender ar-specified-sender :menu-tag :indent 14 lyskom-name ar-person ar-recipient ar-any-recipient ar-specified-recipient ar-pers-or-conf (:format "%[%t%]: %v" :lyskom-predicate (pers conf)) ar-message-text ar-any-message lyskom-string ar-matching-regexp (:size 0 :format "%[%t%] `%v'\n") ar-reply ar-no-reply ar-reply-text (:size 0 :format "%[%t%] `%v'\n")] 29]) (defalias 'lyskom-widget-value-get #[(widget) "\301\302\"\207" [widget widget-get :value] 3]) (defalias 'lyskom-widget-value-delete #[(widget) "\301\302\"\303\211\223\210\301\304\"\303\211\223\207" [widget widget-get :value-from nil :value-to] 3]) (defalias 'lyskom-widget-value-to-external #[(widget value) "\207" [value] 1]) (defalias 'lyskom-widget-value-to-internal #[(widget value) "\207" [value] 1]) (defalias 'lyskom-widget-invalid-value #[(widget) "\301\302\303\304\305!\306!\"#\210\207" [widget widget-put :error lyskom-format lyskom-custom-string invalid-value widget-value] 7]) (defalias 'lyskom-widget-name-action #[(widget &optional event) "\302\212 q\210\303\304\305\306\"\203\305\306\"\202G\307\305\310\">\203,\311\305\310\">\203,\312\202G\307\305\310\">\2039\313\202G\311\305\310\">\203F\314\202G\315!\305\310\"\316\211\317%)\"\210\320 \207" [widget lyskom-buffer widget-value-set lyskom-read-conf-no lyskom-custom-string widget-get :lyskom-prompt pers :lyskom-predicate conf which-conf-or-person which-person which-conf which-name nil t widget-setup] 8]) (defalias 'lyskom-widget-name-value-create #[(widget) "\306\307\"\306\310\"`\212\fq\210\n\203\n\311=\203\312\2021\313\314\n\"\211A\315\234)\2061\316\317\320!\n\") \204?c\210\202Tc\210\321\n! W\203T\322\323 \321\n!Z\"\210\324\325\326 !#\210\324\327\326`!#\210\330\306\327\"\331\"\210 \204u\332c\202w\323c,\207" [widget size value from lyskom-buffer conf-stat widget-get :size :value 0 "" blocking-do get-conf-stat 1 lyskom-format lyskom-custom-string some-person lyskom-string-width insert-char 32 widget-put :value-from copy-marker :value-to set-marker-insertion-type nil 10 string] 6]) (defalias 'lyskom-widget-name-match #[(widget value) "\247\205\301Y\207" [value 0] 2]) (defalias 'lyskom-widget-name-validate #[(widget) "\302!\211\247\205\f \303Y?\205\304!)\207" [widget value widget-value 0 lyskom-widget-invalid-value] 3]) (byte-code "\300\301\302\303\304\305\306\307\310!\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334&\210\300\335\336\337\340\341\342\343&\207" [define-widget lyskom-name default "A LysKOM person" :format "%[[*]%] %v" :help-echo lyskom-custom-string change-this-name :value 0 :lyskom-predicate (pers) :action lyskom-widget-name-action :value-create lyskom-widget-name-value-create :value-delete lyskom-widget-value-delete :value-get lyskom-widget-value-get :value-to-external lyskom-widget-value-to-external :value-to-internal lyskom-widget-value-to-internal :match lyskom-widget-name-match :validate lyskom-widget-name-validate lyskom-name-list editable-list "A list of LysKOM commands" :entry-format "%i %d %v" :args (lyskom-name)] 28) (defalias 'lyskom-widget-command-action #[(widget &optional event) "\302\212 q\210\303 )\"\210\304 \207" [widget lyskom-buffer widget-value-set lyskom-read-extended-command widget-setup] 3]) (defalias 'lyskom-widget-command-value-create #[(widget) "\306\307\"\306\310\"`\212\fq\210\n\204\311\202'\312\n\313\"\206'\314\315\316!\317\n!\") \2043 c\210\202G c\210\320\n! W\203G\321\322 \320\n!Z\"\210\323\324\325 !#\210\323\326\325`!#\210\327\306\326\"\330\"\210 \204h\331c\202j\322c,\207" [widget size value from lyskom-buffer string widget-get :size :value "" lyskom-get-string lyskom-command lyskom-format lyskom-custom-string unknown-command symbol-name lyskom-string-width insert-char 32 widget-put :value-from copy-marker :value-to set-marker-insertion-type nil 10] 5]) (defalias 'lyskom-widget-command-match #[(widget value) "9\207" [value] 1]) (defalias 'lyskom-widget-command-validate #[(widget) "\301!9?\205 \302!\207" [widget widget-value lyskom-widget-invalid-value] 2]) (byte-code "\300\301\302\303\304\305\306\307\310!\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332&\210\300\333\334\335\336\337\340\341&\207" [define-widget lyskom-command default "A LysKOM command" :format "%[%t%] %v" :help-echo lyskom-custom-string select-command :value kom-display-time :action lyskom-widget-command-action :value-create lyskom-widget-command-value-create :value-delete lyskom-widget-value-delete :value-get lyskom-widget-value-get :value-to-external lyskom-widget-value-to-external :value-to-internal lyskom-widget-value-to-internal :match lyskom-widget-command-match :validate lyskom-widget-command-validate lyskom-command-list editable-list "A list of LysKOM commands" :entry-format "%i %d %v" :args (lyskom-command)] 26) (defalias 'lyskom-widget-string-action #[(widget &optional event) "\302\303\304\305\306\"\"\307!\"\310 \"\210\311 )\207" [widget tmp lyskom-read-from-minibuffer format "%s: " widget-get :tag widget-value widget-value-set widget-setup] 6]) (define-widget 'lyskom-string 'editable-field "A string" ':format "%[%t%] %v" ':action 'lyskom-widget-string-action) (defalias 'lyskom-widget-number-action #[(widget &optional event) "\303\304\"\303\305\"\306\n\203% \203%\307\n \303\310\"\311P\312\313!%\2020\314\303\310\"\311P\313!\"\"\210\315 *\207" [widget max min widget-get :min-value :max-value widget-value-set lyskom-read-num-range :tag ": " t widget-value lyskom-read-number widget-setup] 9]) (defalias 'lyskom-widget-number-value-to-external #[(widget value) "\301!\207" [value string-to-int] 2]) (defalias 'lyskom-widget-number-value-to-internal #[(widget value) "\301\302\"\207" [value format "% 4d "] 3]) (defalias 'lyskom-widget-number-validate #[(widget) "\301!\247?\205 \302!\207" [widget widget-value lyskom-widget-invalid-value] 2]) (defalias 'lyskom-widget-number-match #[(widget value) "\302\303\"\203#\302\304\"\203# \247\205% \302\304\"Y\205% \302\303\"X\207 \247\207" [widget value widget-get :max-value :min-value] 4]) (define-widget 'lyskom-number 'editable-field "A number" ':format "%[%t%] %v" ':action 'lyskom-widget-number-action ':value-to-external 'lyskom-widget-number-value-to-external ':value-to-internal 'lyskom-widget-number-value-to-internal ':match 'lyskom-widget-number-match ':validate 'lyskom-widget-number-validate) (defalias 'lyskom-widget-kbd-macro-match #[(widget value) ";\206\301!\207" [value vectorp] 2]) (defalias 'lyskom-widget-kbd-macro-validate #[(widget) "\301\302!\"?\205 \303!\207" [widget lyskom-widget-kbd-macro-match widget-value lyskom-widget-invalid-value] 4]) (defalias 'lyskom-widget-kbd-macro-value-create #[(widget) "\305\306\"\305\307\"`\310\311\312\n\313\"\314# \204\fc\210\2023\fc\210\315\f! W\2033\316\317 \315\f!Z\"\210\320\321\322 !#\210\320\323\322`!#\210\324\305\323\"\313\"\210 \204T\325c\202V\317c,\207" [widget size value from string widget-get :size :value mapconcat single-key-description append nil " " lyskom-string-width insert-char 32 widget-put :value-from copy-marker :value-to set-marker-insertion-type 10] 5]) (defalias 'lyskom-widget-end-kbd-macro #[nil "\300 \207" [exit-recursive-edit] 1 nil nil]) (defalias 'lyskom-widget-kbd-macro-action #[(widget &optional event) "\304\305\213\210\n\211\205\306 \"\210\307 *\207" [last-kbd-macro value tmp widget nil ((byte-code "\301\216\302\303\304\305!\"\210\306\307\"\203\310\306\307\"!\210\311\312!\210\313 \210)\312\207" [widget ((byte-code "\300\301\302\303!\"\210\304\305\306\217\207" [mapcar #[(k) "\302 \303#\207" [global-map k define-key end-kbd-macro] 4] where-is-internal lyskom-widget-end-kbd-macro e (end-kbd-macro) ((error (byte-code "\301\301\207" [last-kbd-macro nil] 1)))] 4)) mapcar #[(k) "\302 \303#\207" [global-map k define-key lyskom-widget-end-kbd-macro] 4] where-is-internal end-kbd-macro widget-get :macro-buffer pop-to-buffer start-kbd-macro nil recursive-edit] 4)) widget-value-set widget-setup] 4]) (define-widget 'lyskom-kbd-macro 'default "A Keyboard Macro" ':action 'lyskom-widget-kbd-macro-action ':value "" ':format "%[%t%] %v" ':validate 'lyskom-widget-kbd-macro-validate ':value-create 'lyskom-widget-kbd-macro-value-create ':value-delete 'lyskom-widget-value-delete ':value-get 'lyskom-widget-value-get ':value-to-external 'lyskom-widget-value-to-external ':value-to-internal 'lyskom-widget-value-to-internal ':match 'lyskom-widget-kbd-macro-match) (defalias 'lyskom-widget-help-action #[(widget &optional event) "\304\305\"\211\304\306\"\236\211\304\306\">A@\211\204\304\306\"@\307\310 \311\234#\210\312 @\"\210\313 +\207" [widget value spec syms widget-get :value :args widget-put :help-echo 3 widget-value-set widget-setup] 6]) (defalias 'lyskom-widget-help-format-handler #[(widget escape) "\304\305\"\211\304\306\"\236 \307=\203-\304\310\"\203!\311\312\304\310\"\"\210\313\n\314\234\n\315\234\"c\202M \316=\203I\304\310\"\203B\311\312\304\310\"\"\210\n\317\234c\202M\320 \"*\207" [widget value spec escape widget-get :value :args 68 :indent insert-char 32 format 1 2 84 4 widget-default-format-handler] 6]) (byte-code "\304\305\306\307\310\311\312\313\314\315& \210\316P\317\301!\204\320\301\nB\317\303!\204%\321\303\nB\304\207" [lyskom-clientversion-long kom-bug-report-address current-load-list lyskom-bug-report-special-vars define-widget lyskom-widget-help push-button "A help widget" :format "%[[%t]%] %D" :action lyskom-widget-help-action :format-handler lyskom-widget-help-format-handler "$Id: talkback.el,v 44.3 2000/08/28 13:32:13 byers Exp $\n" boundp "kom@lysator.liu.se" ((lyskom-conf-cache lambda (n v) (format "%d items" (length v))) (lyskom-uconf-cache lambda (n v) (format "%d items" (length v))) (lyskom-text-cache lambda (n v) (format "%d items" (length v))) (lyskom-text-mass-cache lambda (n v) (format "%d items" (length v))) (lyskom-default-password . "********"))] 10) #@28 Save the current backtrace (defalias 'lyskom-save-backtrace #[(&rest data) "\304\305!\210\306 \307\310!\211\311 \210\212q\210\312 )\313!\210*\nE B\304\314!\207" [buffer standard-output data lyskom-backtrace-list lyskom-message "Saving debugging information..." current-time-string generate-new-buffer " *Backtrace*" backtrace buffer-string kill-buffer "Saving debugging information...done"] 5 (#$ . 1383745)]) (defalias 'lyskom-bug-insert-recent-messages #[(n) "\301\302!\303c\210\205 \304\212q\210db\210\305y\210`)\212q\210d)#)\207" [message-buf get-buffer "*Messages*" "\n\nRecent messages:\n" insert-buffer-substring -10] 4]) (defalias 'lyskom-insert-bug-report #[nil "\212q\210 \306\307\310 \311 \203\312\202\313\f \203\312\202\313\n\2032\n\211A\314\234)\2023\315\n\203B\n\211A\316\234)\202C\315\n\203R\n\211A\317\234)\202S\315\320\321\322\217 &*c\210`!\323c\210\324\325!\210\326c\210\327\330\"\"\210\331c\210\332\333!\210!b)\207" [lyskom-buffer lyskom-server-version-info v enable-multibyte-characters lyskom-clientversion lyskom-mule-compiled format "This bug report will be sent to the LysKOM development team,\nnot to your local site managers.\n\nPlease write in english or swedish, because the LysKOM maintainers (if\nthere are any) are too lazy to learn other languages just so they can\nread your bug reports.\n\nClient time: %s\nEmacs version: %s (%s)\nClient version: %s (%s)\nLysKOM server: %s:%S\nServer version: %s %s %S\nCurrent person: %S (%s)\nCommand line: %S\n\nPlease describe the precise symptoms of the bug and exactly what\nactions triggered the bug. Be as detailed as possible. Do not try to\nmake any conclusions of your own.\n\n" current-time-string emacs-version "MULE" "no MULE" 1 "unknown" 2 0 nil (byte-code "\302!\211A\303H)\207" [lyskom-pers-no uconf-stat cache-get-uconf-stat 1] 3) ((error "")) "\n\n" lyskom-bug-insert-recent-messages 20 "\n\nSaved backtraces:\n\n" mapcar #[(el) "\301\234c\210\302c\210\303\234c\210\302c\210\304\305\306\234\"\207" [el 0 "\n" 1 mapcar #[(data) "\301c\210\302!\210\303c\207" [data "Data: " prin1 "\n"] 2] 2] 4] "\n\nAll variables:\n\n" mapatoms #[(var) "\212q\210\304 !)\205L\305\306\307 !\"\205L\310\311 \"\210\312\313 \"c\210 \n\236\203D \n\236A\314 !\203<\315 \316 !\"!\210\202@\315 !\210)\202J\315\316 !!\210\317c\207" [lyskom-buffer var lyskom-bug-report-special-vars fn boundp string-match "^\\(lys\\)?kom" symbol-name message "Collecting system information...%s" format "(%s " functionp lyskom-bug-report-insert-value lyskom-default-value ")\n"] 5] lyskom-server-name lyskom-server-port version-info lyskom-pers-no command-line-args saved-place lyskom-backtrace-list] 17]) (defalias 'lyskom-bug-report-insert-value #[(v) "\301=\203 \302c\207\303=\203\304c\2079\203\305c\210\306!\207\307!\207" [v t "t" nil "nil" "'" princ prin1] 2]) #@21 Report a LysKOM bug (defalias 'kom-bug-report #[(topic) "\211\204\n\306\307!\210\310\311\n #\2051eb\210\312\313\314\f!\315Q!\210p\316\317!\210\320\300!\210 \321 \210\316\322!))\207" [lyskom-buffer buf kom-bug-report-address topic mail-header-separator standard-output error "Switch to a LysKOM buffer to report bugs." mail nil re-search-forward "^" regexp-quote "\n" message "Collecting system information..." make-local-variable lyskom-insert-bug-report "Collecting system information...done"] 5 (#$ . 1386637) "sBug Subject: "]) (byte-code "\304P\305\306\307\310#\210\305\306\311\312#\210\305\313\307\314#\210\305\313\311\315#\210\305\316\307\317#\210\305\313\311\320#\210\321\301!\2040\322\301\nB\321\303!\204<\322\303\nB\322\207" [lyskom-clientversion-long lyskom-unread-mode-line current-load-list lyskom-unread-title-format "$Id: lyskom-rest.el,v 44.131 2001/02/02 23:24:08 joel 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 nil] 4) #@54 Get a string which is the error ERRNO in plain text. (defalias 'lyskom-get-error-text #[(errno) "\304\305\306!P!\307 \n N\236A*\206\310\311\"\207" [errno category symbol lyskom-language intern "error-" number-to-string lyskom-error-texts lyskom-format error-not-found] 4 (#$ . 1387871)]) #@48 Handles a void return from call to the server. (defalias 'lyskom-report-command-answer #[(answer &optional errno) "\203 \303\304!\210\202\303\305!\210\306\307\310 \206\n! \206\n#\210\207" [answer errno lyskom-errno lyskom-insert-string done nope lyskom-format-insert error-code lyskom-get-error-text] 4 (#$ . 1388171)]) #@46 Return a string describing the current error (defalias 'lyskom-current-error #[nil "\301\302\303!#\207" [lyskom-errno lyskom-format error-code lyskom-get-error-text] 4 (#$ . 1388506)]) #@65 Same as lyskom-tell-server, but use a key to a list of phrases. (defalias 'lyskom-tell-internat #[(key) "\301\302\303\304\217)!\207" [key lyskom-tell-server nil (byte-code "\301\302\"\207" [key lyskom-get-string kom-tell-phrases] 3) ((lyskom-internal-error (message "Bad kom-tell-phrases: missing %s" key) ""))] 4 (#$ . 1388699)]) #@131 Try to recover from an error. If the optional argument REFETCH is non-nil, all caches are cleared and `lyskom-refetch' is called. (defalias 'kom-recover #[(&optional refetch) "\306!\210\307\307\310\311\307\"\312\312\311W\203\" \f\313 I\210\fT\211\202)\312\307\2033\314 \210\315 \210\316\317!\210\320 \207" [lyskom-buffer lyskom-call-data lyskom-pending-calls lyskom-output-queues i lyskom-number-of-pending-calls lyskom-init-parse nil make-vector 10 0 lyskom-queue-create clear-all-caches lyskom-refetch lyskom-tell-internat kom-tell-recover lyskom-end-of-command lyskom-is-parsing refetch] 4 (#$ . 1389040) "p"]) #@75 Scroll the bottom to the top and run the next command if it should be run (defalias 'kom-page-next-command #[nil "\300d!\203db\210\301\302!\210\303\302!\210\304 \207\301\302!\210\303\302!\210\305\306!\210\307 \207" [pos-visible-in-window-p recenter 0 sit-for lyskom-next-command move-to-window-line -1 lyskom-set-last-viewed] 2 (#$ . 1389675) nil]) #@38 Run next command or scroll one page. (defalias 'kom-next-command #[nil "\302d!\203 \303 \207\304\305!\210\306 \210\307 \210\310 W\205=\311\212b\210\312\210\313u\210`)\"\314 \315\316#\210\314 \317\320#\210\321\322\312\323 $)\207" [lyskom-last-viewed overlay pos-visible-in-window-p lyskom-next-command move-to-window-line -1 lyskom-set-last-viewed lyskom-scroll window-start make-overlay nil 1 overlay-put face kom-mark-face priority 1000 run-at-time 2 delete-overlay] 5 (#$ . 1390032) nil]) #@38 Run next command or scroll one line. (defalias 'kom-line-next-command #[nil "\300d!\203 \301 \207\302\303!\210\304 \210\305 \207" [pos-visible-in-window-p lyskom-next-command move-to-window-line 1 lyskom-set-last-viewed lyskom-scroll] 2 (#$ . 1390536) nil]) #@19 Run next command. (defalias 'lyskom-next-command #[nil "p\304\216\305\n\306=\203\307 \202\212\n\310=\203\311 \202\212\n\312=\203'\313 \202\212\n\314=\2032\315 \202\212\n\316=\203=\317 \202\212\n\320=\203H\321 \202\212\n\322=\203x\323 \211;\204\\\324 !\203b\325 !\202t\326 !\203n\327 !\202t\330\331!\210\332 )\202\212\n\333=\203\206\334\335\336!!\202\212\337\340\341\"*\207" [saved-buffer lyskom-doing-default-command lyskom-command-to-do command ((byte-code "\300\301\302\217\207" [nil (byte-code "\212q\210\302)\302\207" [saved-buffer lyskom-doing-default-command nil] 1) ((error))] 3)) t next-pri-text lyskom-view-priority-text next-text kom-view-next-text reedit-text kom-re-edit-next-text next-pri-session kom-go-to-pri-session next-conf kom-go-to-next-conf next-pri-conf lyskom-go-to-pri-conf when-done lyskom-what-to-do-when-done vectorp execute-kbd-macro commandp call-interactively lyskom-start-of-command nil lyskom-end-of-command unknown lyskom-insert lyskom-get-string wait-for-server signal lyskom-internal-error (kom-next-command)] 4 (#$ . 1390801)]) (defalias 'kom-initial-digit-view #[nil " B\302\303\304\"\207" [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) "\303\216\304\305\306!\210\307\310!\210) \311\312!) \203:<\203#\306>\203+\313\314!\210\315\316!\210\307\310!\210\317\320 \"\210\321 !\202=\322\323!)\207" [kom-page-before-command text-no current-prefix-arg ((lyskom-end-of-command)) nil lyskom-start-of-command kom-view lyskom-tell-internat kom-tell-review lyskom-read-text-no-prefix-arg review-text-q recenter 1 sit-for 0 lyskom-format-insert review-text-no lyskom-view-text lyskom-insert confusion-what-to-view] 3 (#$ . 1392051) "P"]) #@49 Display a buffer containing a failed submission (defalias 'kom-re-edit-next-text #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-re-edit-next-text-start-buffer lyskom-start-of-command kom-re-edit-next-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-re-edit-next-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\211A\242)\211A\203 \211AA\241\210)\304\n\211A\305\234)!\203-\306\n\211A\305\234)!\2020\307\310!)\207" [lyskom-reading-list read-list el read-info buffer-live-p 7 lyskom-display-buffer lyskom-format-insert text-buffer-missing] 4) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1392610) nil]) #@42 Go to a prioritized session with unreads (defalias 'kom-go-to-pri-session #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-go-to-pri-session-start-buffer lyskom-start-of-command kom-go-to-pri-session ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-go-to-pri-session-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\301 \211\203p=\204\302!\204\303\304!\202\305!)\207" [session lyskom-get-prioritized-session buffer-live-p lyskom-insert no-such-kom-session lyskom-switch-to-kom-buffer] 3) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1393406) nil]) #@80 Display next new text (putting all review constructs at the end of this conf). (defalias 'kom-view-next-new-text #[nil "\211GS)\306\n\204O \307V\203O\211A\242)\211A\310\234)\211\f>\203.\311!\210\202H  >\203F\211A\203B \211AA\241\210)\202H\312) S\202 *\313 \207" [lyskom-reading-list read-list finished len read-info type nil 1 0 read-list-rotate t kom-view-next-text lyskom-review-types-list lyskom-comment-types-list] 3 (#$ . 1394139) nil]) #@47 Display next text (from lyskom-reading-list). (defalias 'kom-view-next-text #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-view-next-text-start-buffer lyskom-start-of-command kom-view-next-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-view-next-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\307!\210\310\310=\205\276 \211A)\204+ \311U\204!\312\313!\210\202%\312\314!\210\315\211\202 \211A\242)\211\211A\316\234)A@\f\211A\311\234) \211A\242)\211A\317\234)\320=\321>\206c\211?\203z\322\f\211A\316\234)\"\210\323\205\207? \211A\242)\211A\324\234)?\325>&\203\256\326!\210\202\271\327\315 \"\210\327\315\"\210.\202)\207" [action lyskom-reading-list read-list lyskom-current-conf tri read-info lyskom-tell-internat kom-tell-read next-text 0 lyskom-insert-string completely-read-conf not-in-any-conf nil 3 2 REVIEW-TREE (REVIEW REVIEW-MARK) delq lyskom-view-text 1 (REVIEW REVIEW-MARK) lyskom-is-read read-list-delete-text text-no type priority is-review-tree is-review mark-as-read kom-read-depth-first lyskom-to-do-list] 11) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1394610) nil]) #@110 Display the first text from the next conference on the lyskom-to-do-list. Cannot be called from a callback. (defalias 'lyskom-view-priority-text #[nil "\306\307!\210\310\216\311\312!\210\211A\242) \211A\242)\211A\313\234)\n\211A\314\234)\211A)@\315!\210\316\317\320\n\211A\321\234) \320\317&\210+\322\323!)\207" [lyskom-to-do-list read-list tri lyskom-reading-list read-info priority lyskom-start-of-command kom-view-next-text ((lyskom-end-of-command)) lyskom-tell-internat kom-tell-read 2 3 lyskom-is-read lyskom-view-text t nil 1 lyskom-wait-queue main text-list text-no] 9 (#$ . 1395959)]) #@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) "\304 \"\210\304\n\"\210\305\306\307#\210 B\211\207" [text-no lyskom-reading-list lyskom-to-do-list lyskom-normally-read-texts read-list-delete-text initiate-get-text-stat main lyskom-is-read-handler] 4 (#$ . 1396577)]) #@59 Update lyskom-membership for all recipients to TEXT-STAT. (defalias 'lyskom-is-read-handler #[(text-stat) "\306 \211A\307\234)\211<\206\nG\310\310\310\n<\203l\n\203\276\n@\211\211A\306\234)\311>\203e\312\f\211A\313\234)!\211\203d\314\315\f\211A\316\234)!\211A\317\234)\"\211A\317I\210*)\nA\211\202 W\203\276\nH\211\211A\306\234)\311>\203\267\312\f\211A\313\234)!\211\203\266\314\315\f\211A\316\234)!\211A\317\234)\"\211A\317I\210*)T\211\202m -\207" [__i__ text-stat __sequence__ __len__ misc __result__ 0 6 nil (RECPT BCC-RECPT CC-RECPT) lyskom-try-get-membership 1 vconcat vector 2 4 misc-info membership newval] 6 (#$ . 1397152)]) #@215 Go to next conf. Take first conf from lyskom-to-do-list and copy it to lyskom-reading-list. Tell server what the user is doing. If the user is reading a conf it is moved last on lyskom-to-do-list, with priority 0. (defalias 'kom-go-to-next-conf #[nil "\301\302!\210p\303\216\304\305\306\217*\207" [kom-go-to-next-conf-start-buffer lyskom-start-of-command kom-go-to-next-conf ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-go-to-next-conf-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\300 \205 \301\302!\210\303 \207" [lyskom-check-go-to-conf lyskom-maybe-move-unread t lyskom-go-to-next-conf] 2) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1397858) nil]) #@147 Go to the conf with higher priority. This differs from kom-go-to-next-conf only in the place where the yet unread in the current conf is placed. (defalias 'lyskom-go-to-pri-conf #[nil "\300\301!\210\302 \205\303\304!\210\305 \210\306 \207" [lyskom-start-of-command kom-go-to-next-conf lyskom-check-go-to-conf lyskom-maybe-move-unread nil lyskom-go-to-next-conf lyskom-end-of-command] 2 (#$ . 1398686)]) #@61 Actually go to the next conference on the lyskom-to-do-list (defalias 'lyskom-go-to-next-conf #[nil "\211A)\203L\211A\242)\211A\305\234)\211\203:\306 !\210\211A\242)\f \n AB\241\210*\307 \211A\242)\"\202J\211A\242)\f \n AB\241*)\207\310\311!\210\306\312\313!!\207" [lyskom-to-do-list read-list read-info conf-stat lyskom-reading-list 1 lyskom-set-mode-line lyskom-enter-conf lyskom-insert-string all-conf-unread-r lyskom-get-string all-conf-unread-s] 4 (#$ . 1399098)]) #@162 Empty the reading list. If the argument BURY is non-nil and there are unread articles left in the reading list then the conf is inserted last in the to do list. (defalias 'lyskom-maybe-move-unread #[(bury) "\211A)??\205\205\n\203\306\307\f\204X \211GS)W\203X \211A \234*\211\fA\307\234)\310=\203R \211A \234*\211\fA\311\234)\211 A\307\234)\211\202 T\202\f\203~\312\f\"\210 \211A \234*\f \f AB\241\210*\313!\210*\211\306\241)\207" [lyskom-reading-list read-list bury r conf-no n nil 0 CONF 1 read-list-delete-read-info read-list-rotate read-info conf-stat lyskom-to-do-list] 4 (#$ . 1399594)]) #@229 Check if it is OK to go to conf CONF (a conf-stat). It is assumed that lyskom-pers-no is a member of the conference. This function interacts with the buffer and the user. If CONF is nil, check the first conf on the to-do list. (defalias 'lyskom-check-go-to-conf #[(&optional conf) "\206 \211A\242)\211A\306\234)\211\205\307\f\211A\310\234)\311\"\312\311 \f\203\357 \203\357 \211!A\313\234)\211\211\"A\310H)\203\217\314\315\f \211!A\316\234)#\210\317\320\321!!\203\203\312#\211\"A\310#I\210*\322\323\312$\f\211A\310\234) \211!A\313\234)%\210\311 \202\217\324\325\326$\"\f\"\210\312 \211\"A\327H)\203\240\330\331\f\"\210\211\"A\306H)\203\357\314\332\f\"\210\312 \317\333\334\f\"!\203\354\312%\211\"A\306%I\210*\325\335$\f\211A\310\234) \211!A\313\234)$\210\336\f \"\210\311 \202\357\312  ,\207" [conf lyskom-to-do-list read-list read-info conf-stat mship 1 lyskom-get-membership 0 t nil 7 lyskom-format-insert your-invited 5 lyskom-j-or-n-p lyskom-get-string accept-invitation initiate-set-membership-type main lyskom-sub-member blocking-do get-pers-stat 2 lyskom-format-insert-before-prompt bug-secret-mship enter-passive lyskom-format convert-passive set-membership-type lyskom-fetch-start-of-map type continue membership membership-type invitation lyskom-pers-no passive] 8 (#$ . 1400236)]) #@209 Tell server which conf the user is reading. Prints the name and amount of unread in the conference we just went to according to the value of kom-print-number-of-unread-on-entrance. Args: CONF-STAT READ-INFO (defalias 'lyskom-enter-conf #[(conf-stat read-info) "\306\307 \211A\310\234)#\210\n\204\311\312\313 \211A\310\234)#\210 \211A\310\234) \211A\314\234)\211AG)\315\204;\316\202F \317U\203E\320\202F\321 #)\207" [lyskom-current-conf conf-stat lyskom-is-anonymous read-info text-list num-unread lyskom-run-hook-with-args lyskom-change-conf-hook 0 initiate-pepsi main nil 3 lyskom-format-insert enter-conf 1 one-unread several-unread kom-print-number-of-unread-on-entrance] 6 (#$ . 1401592)]) #@60 Leave the current conference without going to another one. (defalias 'lyskom-leave-current-conf #[nil "\211\303\241\210)\304\305\n\306#\210\306\307\310\303\306#\207" [lyskom-reading-list read-list lyskom-current-conf nil lyskom-run-hook-with-args lyskom-change-conf-hook 0 initiate-pepsi main] 5 (#$ . 1402310)]) #@113 Sets mode-line-conf-name to the name of the optional argument conf CONF. CONF can be a a conf-stat or a string. (defalias 'lyskom-set-mode-line #[(&optional conf) "\204 \306U\203\307\310!\2028\311\312\313 #\210\314\2028;\203#\2028\211\242)\315=\2037\211A\316\234)\2028\317\211\242)\315=\203L\211A\306\234)\202M\306\320\306\211\211\314 !\211\"A)\211\203\303\f@\211#A\316\234)\203\274\f@\211#A\321\234)\211$AG)\f@\211#A\316\234)\211A\306\234)U\203\236 %\f@\211#A\316\234)\211A\306\234)U\203\266  \\\fA\211\204j\320U\203\315\306 \203\211\242)\315=\203\372&'=\204\360\322\323&$\202\373\322\324#\202\373\317 \325\326\327\"Q\306\326O(\306U\203\330)!\210\202\331)!\210\306U\203+\330)\332\"\210\2021\331)\332\"\210\333 .\207" [conf lyskom-current-conf object conf-stat read-info-list len 0 lyskom-get-string not-present-anywhere initiate-get-conf-stat modeline lyskom-set-mode-line nil CONF-STAT 1 "" -1 3 format "(%d/%d:%d) " "(%d/%d) " make-string 27 32 lyskom-remove-unread-buffer lyskom-add-unread-buffer t force-mode-line-update letters total-unread unread conf-no name lyskom-to-do-list read-list read-info text-list lyskom-pers-no lyskom-session-priority kom-default-session-priority mode-line-conf-name lyskom-buffer] 8 (#$ . 1402633)]) #@317 Returns non-nil if conference CONF-NO is present on lyskom-membership. The value is actually the membership for the conference. For foreground functions, lyskom-get-membership should probably be used instead. This function does not use blocking-do. Optional argument mship-list is the membership list to look in. (defalias 'lyskom-try-get-membership #[(conf-no &optional want-passive) "\212q\210 \306\n\204& \203&\f @\211A\307\234)U\203 @ A\202\n\205B \204A\n\211A\310\234)\211\nA\307H)?\205B\n+\207" [lyskom-buffer lyskom-membership found list conf-no membership nil 1 7 want-passive membership-type] 4 (#$ . 1403981)]) #@223 Get the membership for CONF-NO, or nil if the user is not a member of CONF-NO. If the membership list is not fully prefetched and the membership can't be found in lyskom-membership, a blocking call to the server is made. (defalias 'lyskom-get-membership #[(conf-no &optional want-passive) "\212q\210\306 \n\"\206C \307=?\205C\310\311\f #\211\203'\312 !\203'\313 \"\210 \205B\n\204A \211A\314\234)\211A\315H)?\205B ))\207" [lyskom-buffer conf-no want-passive lyskom-membership-is-read lyskom-pers-no membership lyskom-try-get-membership t blocking-do query-read-texts lyskom-visible-membership lyskom-add-membership 7 1 membership-type] 5 (#$ . 1404630)]) (byte-code "\301B\301\207" [current-load-list lyskom-trim-buffer-delete-to] 2) #@111 Trim the size of a lyskom buffer to lyskom-max-buffer-size returns t if it trimmed the buffer, nil otherwise. (defalias 'lyskom-trim-buffer #[nil "\2059\306 ZV\2059p\307\216\306 Z\310eb\210`\fW\203'\311y\210\202`\312\313!\210e\f|\210 \fZ\314Z,\310\207" [kom-max-buffer-size kom-trim-buffer-minimum __buffer__ inhibit-read-only lyskom-trim-buffer-delete-to lyskom-last-viewed buffer-size ((set-buffer __buffer__)) t 1 run-hooks lyskom-trim-buffer-hook -1] 2 (#$ . 1405387)]) #@234 Appends the deleted initial portions of the buffer to a file. Put this function in your lyskom-trim-buffer-hook and set kom-max-buffer-size to something clever, and the trimmed text will automagically flow into your lyskom log file. (defalias 'lyskom-garb-lyskom-buffer-to-file #[nil "\301\302\303\304\305 \306Q!#\207" [lyskom-trim-buffer-delete-to append-to-file 1 expand-file-name "~/" buffer-name "-history"] 7 (#$ . 1405882)]) #@89 Scroll screen if necessary. The position lyskom-last-viewed will always remain visible. (defalias 'lyskom-scroll #[nil "\302\303 !p=\203\303 \202\304\211\205N\305d!?\205Ndb\210\306\307!\210\305 !?\205N\310 \"\210\311\307!\210\312\313!\210\305 ?\205N\307u\210i\314 V\205N\315i\314 Z\316\\!)\207" [win lyskom-last-viewed window-buffer selected-window nil pos-visible-in-window-p recenter -1 set-window-start move-to-window-line vertical-motion 1 window-width backward-char 2] 4 (#$ . 1406320)]) (defalias 'lyskom-do-insert #[(string) "` c\210\302\303\304\217)\207" [start string var (byte-code "\304\305eS]\306#\307 \310\211\2058\n A\310\223\210\311 @\306\"\312 @ A\313#\210\314\315\316\217\210\n\304\305\306#\211\204\310+\207" [start fn next bounds next-text-property-bounds 1 special-insert make-marker nil get-text-property remove-text-properties (special-insert) val (byte-code " @ A\"\207" [fn bounds] 3) ((error (byte-code "\301\302\303#\207" [val apply message "%S"] 4)))] 5) ((error (lyskom-ignore var)))] 3]) #@282 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. (defalias 'lyskom-insert #[(string) "9\203 \305!\212\306\210`)dU\212db\210\307\310!\210)\311 \210)\312p!\211\205? \205?\313d \"\2039db\202?\f\205?\314 *\207" [string was-at-max inhibit-read-only window kom-continuous-scrolling lyskom-get-string nil t lyskom-do-insert lyskom-trim-buffer get-buffer-window pos-visible-in-window-p lyskom-scroll] 4 (#$ . 1407368)]) #@47 Insert STRING in the current buffer at point. (defalias 'lyskom-insert-at-point #[(string) "\302\303 !\210)\304 \207" [inhibit-read-only string t lyskom-do-insert lyskom-trim-buffer] 2 (#$ . 1408032)]) #@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) "\203: \306=\204:\n\204\307 \n C\f\310B A@\204, A A\241\240\2028 AA\241\210 A\241+\207\311 db\210\312y\210\306\313 !\210)b\210)\314p!\211\205r\315`\"?\205r\316 \317\216\320!\210\321\322!*)\207" [lyskom-executing-command lyskom-is-waiting lyskom-to-be-printed-before-prompt string element queue t lyskom-queue-create nil point-marker 0 lyskom-do-insert get-buffer-window pos-visible-in-window-p selected-window ((select-window save-selected-window-window)) select-window recenter -1 elementcell oldpoint inhibit-read-only window save-selected-window-window] 4 (#$ . 1408242)]) #@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) "\303\304 #\305\306\n\")\207" [format-string args str apply format message "%s"] 4 (#$ . 1409110)]) #@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) "\303\304 #\305\306\n\")\207" [format-string args str apply format error "%s"] 4 (#$ . 1409373)]) (defalias 'lyskom-set-last-viewed #[nil "\212\301\302!\210`\211)\207" [lyskom-last-viewed vertical-motion 0] 2]) #@38 regexp matching format string parts. (defvar lyskom-format-format "%\\(=\\)?\\(-?[0-9]+\\)?\\(#\\([0-9]+\\)\\)?\\(:\\)?\\(&\\)?\\([][@MmPpnrtsdoxcCSDF?]\\)" (#$ . 1409744)) #@77 Find the string corresponding to ATOM and insert it into the LysKOM buffer. (defalias 'lyskom-insert-string #[(atom) ";\203 \301!\207\301\302!!\207" [atom lyskom-insert lyskom-get-string] 3 (#$ . 1409923)]) (defalias 'lyskom-format #[(format-string &rest argl) "\303 \"\211A\304\234)\207" [format-string argl arg lyskom-do-format 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) "\306 \307#\310 \n\211A\311\234)\312\n\211A\313\234)!\210 \203E @\314  \315!\\\316\223\210\317\"\210\320!\210 A*\202 \316\211\223+\207" [format-string argl state start arg deferred lyskom-do-format t point-max-marker 6 lyskom-insert 4 make-marker defer-info->pos nil set-defer-info->pos lyskom-defer-insertion m defer-info] 5 (#$ . 1410273)]) #@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) "\306 \307#`\n\211A\310\234)\311\n\211A\312\234)!\210 \205D @\313  \314!\\\315\223\210\316\"\210\317!\210 A*\202+\207" [format-string argl state start arg deferred lyskom-do-format t 6 lyskom-insert-at-point 4 make-marker defer-info->pos nil set-defer-info->pos lyskom-defer-insertion m defer-info] 5 (#$ . 1410832)]) #@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) "\303\304 \"\211A\305\234)!\207" [format-string argl arg lyskom-insert-before-prompt lyskom-do-format 4] 5 (#$ . 1411339)]) #@65 Do the actual formatting and return the resulting format-state. (defalias 'lyskom-do-format #[(format-string &optional argl allow-defer) ";\203 \2029\205\304!\305\211\204\"\306\307\310\311D\"\210\2026\212\312\303!\2030 \2030 q\210\313\314\315\217\210) *\207" [format-string state fmt lyskom-buffer lyskom-get-string nil signal lyskom-internal-error lyskom-format-insert ": bad format string" boundp error (byte-code "\304\305\306 \307$\n\"\304\207" [fmt argl allow-defer state lyskom-format-aux make-format-state 0 ""] 6) ((lyskom-format-error (byte-code "\301\302 A@\303 8$\207" [format-string error "LysKOM internal error formatting %s: %s%s" 2] 6)))] 5 (#$ . 1411821)]) (defalias 'lyskom-format-aux #[(format-state allow-defer) "\211A\306\234)G\307\211\211\211\211\211\211\n\204G\211A\310\234)W\203G\311\211A\306\234)\211A\310\234)#\204|\211\211A\312\234)\211A\306\234)\211A\310\234)\307OP\211A\312I\210*\211\211A\306\234)G\211A\310I\210*\202\211\211A\312\234)\211A\306\234)\211A\310\234)\306\224OP\211A\312I\210*\306\225\211A\310I\210*\310\224\313\224\205\305\314\211A\306\234)\313\224\313\225O!\312\224\205\332\314\211A\306\234)\312\224\312\225O!\315\224\316\224\317\224\203\364\211A\306\234)\317\224H\202\320\321\322\211A\306\234)D\"\211\323U\203\324\306\225\211A\310I\210*\202\325\f \313\224\203>\211A\306\234)\313\224H\326=\203>\326\202?\327 & \202.\330!\207" [format-state arg abort-format face-flag equals-flag colon-flag 0 nil 1 string-match 4 2 string-to-int 5 6 7 signal lyskom-internal-error lyskom-format-aux 93 t lyskom-format-aux-help 48 32 lyskom-tweak-format-state format-letter pad-length arg-no format-length lyskom-format-format output-list pos allow-defer] 11]) (defalias 'lyskom-format-aux-help #[(format-state pad-length arg-no format-letter equals-flag colon-flag face-flag pad-letter allow-defer) "\306\211\211\307\211\211A\310\234)G\n\204\306\202!\n\307W\203 \n[\202!\n@ABC\203D\211A\311\234)CW\203D\312\313\314\315D\"\210C\203UCS\211A\316\234)8 \211\242)\317=\203p \211A\320\234)A \211A\307\234)D\321U\203\226 ;\203\200 \202\221 9\203\213\322 !\202\221\312\313\314\323D\"B\202)D\324U\204\253D\325U\204\253D\326U\203\306 \250\203\273\327\211\330D\" \"\202\301\312\331\314\323D\"B\202)D\332U\203\361 \250\203\332\333\334 !!\202\354\335 !\203\346\333 !\202\354\312\331\314\323D\"B\202)D\336U\203\376\337B\202)D\340U\203J ;\203 \202E\341 !\203\342\343\344 \306\"\345#\202E \203A 9\203A E>\203: F\306\346\347\217)\202E\350 \351\"\202E\327\352 \"B\202)D\353U\203Z\327\354 \"B\202)D\355U\203\202\211\211A\310\234)G B\211A\356\234)BA\211A\356AI\210*\202)D\357U\203\225\360G\"\306B\202)D\361U\203\362\363\211A\307\234)\211A\320\234)#\204\302\364\365\211A\307\234)\211A\320\234)#\210\307\225H\211A\320HI\210*\366\307\211A\307\234)\"\307\234\211I\324U\203\363\367 \320UG#\306B\202I\370U\203\367 G#\306B)\202)D\371U\2035 \211J\242)\372=\203/\373 \374\"\375\376!KL\377LK\"*\2020\345B\202)D\201^U\204GD\201_U\203 ;\203P \202\325 \250\203\211 \307U\203\211\351M\314D\201_U\203sN\206\204\201`\202\204D\201^U\205\204O\206\204\201a \"\202\325G\2038P\2038 \250\2038\201b !\211Q\204)\201cR\203\261\201d\202\264\201e\n\205\275\201f\n!\201gM\203\313\201h\202\316\201e\333D!\260S\201i\201j \201k\f\n\203\376R\203\362\201l\n!\202TG\201l\n!]\202TGSO&UU\211A\201m\234)BK\211A\201mKI\210*T*\2024Q\211\211VA\320H))\202\325 \250\203p\201n\201j \"\211W\204c\314D\201_U\203[\201o\202^\201a \"\202lW\211VA\320H))\202\325 \211J\242)\372=\203\241X\203\226\373 \374\"L\377L \211WA\320\234)\")\202\325 \211WA\320\234)\202\325\201p !\203\261\201q !\202\325 \211V:\205\300V@\201r=)\203\317 \211VA\320H)\202\325\312\331\314\323D\"BM\204) \211J\242)\372=\204\377 \211V:\205\366V@\201r=)\204\377 \247\203)\344\201sD\201_U\203\201t\202\201u \"A\"A\202)D\201vU\2041D\201wU\203\273 \250\203>\201f !\202\224\201p !\203R\201f\201x !!\202\224 \211J\242)\372=\203l\201f \211WA\307\234)!\202\224 \211V:\205{V@\201r=)\203\216\201f \211VA\307H)!\202\224\312\331\314\323D\"BM\204)\344\201sD\201wU\203\256\201t\202\261\201u \"A\"A\202)D\201yU\203  \250\203\321\201f !\202\363 \211J\242)\201z=\203\355\201f \211YA\307\234)!\202\363\312\331\314\323D\"BM\204)\344\201s\201{ \"A\"A\202)D\201|U\203H ;\203!\201} !\202'\312\331\314\323D\"BM\204)\201~\201!\204)\344\201L\201DA\"A\202)D\201\200U\203\207 ;\203^\201\201 !\202\202 :\203| @\211J\242)\201z=\203|\201\201 A @\"\202\202\312\331\314\323D\"B\202)D\201\202U\203 ;\203\231 \202\337R\203\245\201d\202\250\201e\n\205\261\201f\n!\201gM\203\277\201h\202\302\201e\201\203\260S\201\204 \f\"\210\201\205 \n\203\361R\203\345\201l\n!\202\364TG\201l\n!]\202\364TG\"\210\201\206 S\"\210) \211A\201m\234)BK\211A\201mKI\210*TB\202)\312\331\201\207DD\"\210\n\203\225B\203\225 \201\210B!V\203|\201\211 \201\210B!ZZ\"[\n\307W\203g \201\210B!Z[B[PB\202x \201\210B!Z@[BPB)\202\225R\203\225 \201\210B!W\203\225\201\212B \"BB\203\260\211\211A\310\234)BP\\\211A\310\\I\210*A\203\326]\203\326\201\213\f@\\\211A\310\234)G \\A\211A\310\234)$\210.\207" [format-state arg pad-length abs-length oldpos prop-adjust-end nil 0 4 3 signal lyskom-format-error lyskom-format ": too few arguments" 2 format-props 1 115 symbol-name ": argument error" 100 111 120 format "%%%c" lyskom-internal-error 99 char-to-string int-to-char characterp 37 "%" 67 vectorp mapconcat single-key-description append " " (byte-code "\301\302\"\207" [command lyskom-get-string lyskom-command] 3) ((error)) prin1-to-string t "(%S)" 83 "%S" 64 5 91 lyskom-format-aux 63 string-match "[db]" lyskom-error "Unknown predicate in format string %s (%d)" match-string lyskom-format-do-binary-predicate 98 70 CONF-STAT conf-stat-find-aux 9 copy-sequence "X" lyskom-maybe-add-face-to-string prop-adjust-start propl result arg-no format-letter lyskom-commands command allow-defer pos predicate-type object string face colon-flag lyskom-default-pers-string lyskom-default-conf-string kom-deferred-printing tmp equals-flag format-element lyskom-defer-indicator defer-info uconf-stat conf-stat face-flag text-stat pad-letter padstring output-list kom-text-properties 77 80 person-is-anonymous conference-does-not-exist cache-get-uconf-stat "%#2@%" "=" "" int-to-string "#1" ":" lyskom-create-defer-info get-uconf-stat lyskom-deferred-insert-conf abs 6 blocking-do person-does-not-exist lyskom-conf-z-info-p conf-z-info->name UCONF-STAT lyskom-default-button pers conf 109 112 conf-z-info->conf-no 110 TEXT-STAT text 114 lyskom-button-transform-text lyskom-face-default-p kom-subject-face 116 lyskom-format-text-body 68 "s" set-defer-info->pos set-defer-info->del-chars set-defer-info->format lyskom-format-help lyskom-string-width make-string lyskom-truncate-string-to-width add-text-properties] 9]) (defalias 'lyskom-format-do-binary-predicate #[(option format-state allow-defer) "\203\303 \n\"\304 !\210\202\304 !\210\303 \n\" \207" [option format-state allow-defer lyskom-format-enter-subformat lyskom-format-skip-subformat] 3]) #@65 The format string should be just before a subformat. Enter it. (defalias 'lyskom-format-enter-subformat #[(format-state allow-defer) "\304\305\211A\306\234)\211A\307\234)#\204&\310\311\211A\306\234)\211A\307\234)#\210\306\225\211A\307\nI\210*\312 \"\207" [format-state arg pos allow-defer string-match "%\\[" 0 1 lyskom-error "Predicate syntax error in format string %s (%d)" lyskom-format-aux] 6 (#$ . 1419342)]) #@63 Skip the subformat specification at the start of format-state (defalias 'lyskom-format-skip-subformat #[(format-state) "\305\306\211A\307\234)\211A\310\234)#\204&\311\312\211A\307\234)\211A\310\234)#\210\307\225\211A\310\nI\210*\310 \307V\205\216\305\313\211A\307\234)\211A\310\234)#\204c\311\314\211A\307\234)\211A\310\234)#\210\2024\315\310\211A\307\234)\"\310\234\211\316U\203| T\202 S\307\225\211A\310\nI\210+\2024)\207" [format-state arg pos level ch string-match "%\\[" 0 1 lyskom-error "Predicate syntax error in format string %s (%d)" "\\(%\\[\\|%\\]\\)" "Bad nesting in format string %s (%d)" match-string 91] 6 (#$ . 1419776)]) (defalias 'lyskom-tweak-format-state #[(format-state) "\211A\304\234)\211\203+\305\n@@\211A\306\234)G\n@A\211A\306\234)$\210\nA\211\204\f\307\211A\304 I\210+\207" [format-state arg dp propl 5 add-text-properties 4 nil] 7]) #@75 Format a text for insertion. Does parsing of special markers in the text. (defalias 'lyskom-format-text-body #[(text &optional text-stat) "\306\307\"@\211\203 \211A\310H)\202(\311\312 \"\203'\307\224\203'\313\307 \"\202(\314\211\205l \314\315\211\203h\311@@;\203J@@\202P\316@@!\f\"\317=\203_@\314A\211\204:+A\211\205v !\211\203\201\202\253\203\216\320\321 !!\202\221\321 !\203\250\322\323!\203\250\324\317G\325$\210),\207" [text-stat ct-item aux-item text content-type lyskom-format-special text-stat-find-aux 1 6 string-match "\\`\\(\\S-+\\):\\s-*$" match-string nil t symbol-name 0 lyskom-button-transform-text lyskom-fill-message fboundp smiley-region add-text-properties (special-insert lyskom-postprocess-text) case-fold-search result tmp fn formatted kom-text-properties kom-smileys] 6 (#$ . 1420693)]) (defalias 'lyskom-postprocess-text #[(start end) "\300\301\302\217\207" [nil (byte-code "\302d T^\"\207" [start end smiley-region] 4) ((error))] 3]) #@93 Signal that the last text was reformatted HOW, which should be a string in lyskom-messages. (defalias 'lyskom-signal-reformatted-text #[(how) " >\206  B\211\207" [how lyskom-last-text-format-flags] 2 (#$ . 1421725)]) (defalias 'lyskom-w3-region #[(start end) "\300\216\301\302\303\217)\207" [nil var (byte-code "\214\305\306 \305\223\306 \n\305\223 \n}\210 \203-\212\307 b\210\310\311\n\307#\203,\312\313!\210\202*\314 \n\"\210\315 \210\316ed\317#*\207" [buffer-read-only start end kom-w3-simplify-body case-fold-search nil make-marker t re-search-forward "]*>" replace-match "" w3-region w3-finish-drawing add-text-properties (end-closed nil)] 4) ((error (lyskom-ignore var)))] 3]) (defalias 'lyskom-format-html #[(text) "\301\302\303\217\205\304\305G\306$\210\307\310!\210\311\312O\207" [text e (byte-code "\300\301!\210\302\207" [require w3 t] 2) ((error)) add-text-properties 0 (special-insert lyskom-w3-region) lyskom-signal-reformatted-text reformat-html 5 nil] 5]) (defalias 'lyskom-format-enriched #[(text) "\302\303!\205\"\304\305!\306\216\212q\210 \307\310Oc\210\303 \210\311\312!\210\313\314 !+\207" [tmpbuf text fboundp format-decode-buffer lyskom-generate-new-buffer "lyskom-enriched" ((kill-buffer tmpbuf)) 10 nil lyskom-signal-reformatted-text reformat-enriched lyskom-button-transform-text buffer-string] 3]) (defalias 'lyskom-format- #[(text) "\302\230\203\302\207\212\303\304\305\306#q\210\307 \210c\210eb\210\310\311!\2048\214`\212\312\210`)}\210\313ed\"\210db\210)\314y\210\202\315\316!\210 \203G\317\320 !\202KedS{)\207" [text kom-text-properties "" lyskom-get-buffer-create lyskom-text " lyskom-text" t erase-buffer looking-at "\\'" nil lyskom-fill-region 1 lyskom-signal-reformatted-text reformat-filled lyskom-button-transform-text buffer-string] 4]) #@52 Minimum number of lines in a triangle or suchlike. (defconst lyskom-minimum-triagle-size 3 (#$ . 1423553)) #@37 Minimum number of lines in a brick. (defconst lyskom-minimum-brick-size 2 (#$ . 1423666)) (defalias 'lyskom-fill-message-initial-wrap #[(current-line-length pos) "\304f! GW\203 \304f!H\204\305\207\n V\203\306\207\307\207" [pos lyskom-line-start-chars current-line-length fill-column char-to-int nil t maybe] 3]) #@68 Return non-nil if the current line starts with a colon-like thing. (defalias 'lyskom-fill-message-colon-line #[nil "\301 \302\216\303\304!*\207" [save-match-data-internal match-data ((set-match-data save-match-data-internal)) looking-at "\\S-+\\s-*:"] 2 (#$ . 1423992)]) (put 'lyskom-fill-message-colon-line 'byte-optimizer 'byte-compile-inline-expand) #@56 Fill a region of text, compensating for bugs in Emacs. (defalias 'lyskom-fill-region #[(start end &optional justify nosqueeze to-eop) "\303 \304\216 \203\nS\202\n \203\305\306\307\217\210\305\310\311\217+\207" [save-match-data-internal nosqueeze fill-column match-data ((set-match-data save-match-data-internal)) nil (byte-code "\212\300\224b\210\301\302!\210\303 \210)\300\207" [0 backward-char 1 delete-horizontal-space] 2) ((error)) (byte-code "\305 d^\n \f%\207" [start end justify nosqueeze to-eop fill-region] 6) ((error))] 3 (#$ . 1424352)]) #@28 Try to reformat a message. (defalias 'lyskom-fill-message #[(text) "\204 \207\247\203 GV\203 \207\212\306\307\310\311#q\210\312 \210 c\210eb\210`\313\314\313\211\311\313\211\315\313\211\n\250\204<\316 \317Z\202M\n\316 \317ZV\203L\316 \317Z\202M\n\313\320/012345678m\204\"\321 25\204\2102\203\2501\203\25021Z5\202\2504\322=\203\225\3134\202\2504\203\25021Z5U\204\250\3224\323\324!\2037\203\3603\204\3606\311=\203\3604\203\3425\315=\203\32309W\204\3425\315=\204\3600:W\203\360\3258\315\224S\313\311$\210\326\327!\210\315\2258\3137\3113\3146\202\321\323\330\331\332\333!!\334Q!\203\3136\202\3217\203\231\323\335!\203\231d\336\224=\203) \203\231\3116\311=\203g3\204g5\315=\203F09W\204Z5\315=\204U0:W\204Z4\204g\3258\315\224\313\311$\210\326\327!\210\315\2248\3117\3150\3114\3135\3131\337 ;\340\216\323\341!*3\320\313\315\2248\3422\343\224\"6\202\3217\203\323\344!\2036\311=\203\3403\204\3405\315=\203\27709W\204\3235\315=\204\3160:W\204\3234\204\340\3258\315\224\313\311$\210\326\327!\210\315\2248\3117\3150\3114\3135\337 ;\340\216\323\341!*3\3131\320\313\315\2248\3422\343\224\"6\202\3217\204\\\323\345!\203\\\323\346\347\343!\320Q!\203\\\3117\3150\3154\3135\3131\337 ;\340\216\323\341!*3\315\2248\347\343!\347\343!\320P\3422\336\224\"6\202\3217\204\225\323\350!\203\225\3117\3150\337 ;\340\216\323\341!*3\3114\3135\3131\315\2248\313\320\3422\343\224\"6\202\3217\203\275\323 !\203\267\351\343\224f!decoded-text-mass (byte-code "\304\305 #\210\306\307\n\"\203\n\310\225\311O\212 q\210\312 \210\nc\210\313ed #\210)\314\315\316!!\207" [text-no filename str buf lyskom-format-insert saving-text string-match "\n" 0 nil erase-buffer write-region lyskom-insert lyskom-get-string done] 4) ((quit (byte-code "\300\301\302!!\207" [lyskom-insert lyskom-get-string cancelled] 3)) (error (byte-code "\300\301\302!!\207" [lyskom-insert lyskom-get-string nope] 3))) lyskom-insert confusion-what-to-save aux-item str buf] 8) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1430380) (let ((lyskom-current-command 'kom-save-text-body)) (list (lyskom-read-text-no-prefix-arg 'what-save-no) nil))]) #@414 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. If FILENAME is nil, the name of the file is read using the minibuffer and the default is taken from kom-saved-file-name the first time. Subsequent calls use the most recently specified file name. (defalias 'kom-save-text #[(arg &optional list-of-texts filename) "\301\302!\210p\303\216\304\305\306\217*\207" [kom-save-text-start-buffer lyskom-start-of-command kom-save-text ((byte-code "p\302\216\303 !\203 q\210\304 \210*\303\207" [__buffer__ kom-save-text-start-buffer ((set-buffer __buffer__)) buffer-live-p lyskom-end-of-command] 2)) nil (byte-code "\306\212 \203, \307V\203,\310\311!\210\312\313!\203&\314\315\311!!\nB S\211\202\307\211\204\316 \206W\317\nG\311=\203A\320\321\n@\"\202F\320\322\nG\"\323\f\206L !\306\211\324\f\206U !%!\325!\203f\326\327\"\202\212q\210\nG\311=\203{\330\331\n@#\210\202\202\330\332\nG#\210\333\334\n\"\210\211*\207" [name arg list-of-texts filename lyskom-saved-file-name kom-saved-file-name nil 0 backward-text 1 looking-at "\\([0-9]+\\)\\s-" string-to-int match-string expand-file-name read-file-name lyskom-format save-one-on-file-q save-many-on-file-q file-name-directory file-name-nondirectory file-directory-p lyskom-format-insert cant-save-to-directory lyskom-format-insert-before-prompt saving-one-on-file saving-many-on-file mapcar #[(n) "\305\306D\307DD!\211\310\234 \311\234\312 \n\f#+\207" [n multiple-bind-sym text text-stat name lyskom-blocking-do-multiple get-text-stat get-text 0 1 lyskom-save-text] 5] lyskom-buffer] 9) ((quit (byte-code "\300 \210\301\302\303!!\207" [ding lyskom-insert-before-prompt lyskom-get-string interrupted] 3)))] 3 (#$ . 1432328) "p"]) #@46 Save text in TEXT-STAT and TEXT to FILENAME. (defalias 'lyskom-save-text #[(text-stat text filename) "\305\306\307\310#\311\211\212\nq\210\311\312 \210\313 \211A\314\234)!\210\315ed\f#,\207" [kom-deferred-printing lyskom-print-complex-dates buf text-stat filename lyskom-get-buffer-create temp "*kom*-text" t nil erase-buffer lyskom-view-text 0 append-to-file] 5 (#$ . 1434204)]) #@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\207" [lyskom-membership] 1 (#$ . 1434596)]) (byte-code "\302\303\304\305#\210\306\300!\204\307\300 B\307\207" [lyskom-recursive-prompt-update current-load-list put lyskom-membership-highest-index byte-optimizer byte-compile-inline-expand boundp nil] 4) #@35 Update the prompts in all buffers (defalias 'lyskom-update-all-prompts #[(&optional force-prompt-update) "?\205V\306\212\307\n\211<\206 G\310\310\f\310\f <\2037 \203P @\211q\210\311 !\210 A\211\202\" \fW\203P H\211q\210\311 !\210 T\211\2028-\312\313\310\"*\207" [lyskom-recursive-prompt-update __i__ lyskom-buffer-list __sequence__ __len__ buffer t 0 nil lyskom-update-prompt lyskom-set-default lyskom-need-prompt-update __result__ force-prompt-update] 4 (#$ . 1435092)]) #@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 #[(&optional force-prompt-update) "`d=\205 \212\306 ) \206\f\205 ?\205\240\307 \310\211@A\211BCB\311=\203@\312A\fA=\204\313D!\210\202B\314=\203M\315A\202B\316=\203\216\317 \203\216E\211FA)\204sG\211FA)\204s\320A\202v\321A\212\317 q\210\322HI\"A\206\207H)C@\202B\323=\203\247\324A\fA=\204\313D!\210\202B\325=\203FE\211FA\242)\211J\211JA\326\234)\327=\203\311\330\202@J\211JA\326\234)\331=\203\333\332\202@J\211JA\326\234)\333=\203\355\334\202@KLU\203\371\335\202@\336\337J\211JA\340\234)\211MA)\242!\211NA\341\234)\342\"\203\343\202@J\211JA\326\234)\344=\203-\345\202@J\211JA\326\234)\346=\203?\347\202@\350)A\202B\351=\203\273G\211FA\242)\211JA\326\234)\333=\203e\352\202\266G\211FA\242)\211JA\326\234)\327=\203}\353\202\266G\211FA\242)\211JA\326\234)\331=\203\225\354\202\266LG\211FA\242)\211JA\355\234)\211OA\326\234)U\204\265\356\202\266\357A\202B\360=\203\373P\204\314\361Q!\210\362\363!\211RR\310\364\365\217)\206\365R;\203\360\366R!R\310\364\365\217)\206\365\367\370R\")A\202B\371=\203\310A\202\372\373B\"\210\374AS\204A\f\232\204\233\363A\203<\375\376\367A9\2033\377A!\2025A@#!\202?\201XTU\212db\210\326y\210\201Y\326TG\201ZT$\210\201[T!\210\f\203\207\203|\201\\\201]V!!\203|`\326\225|\210\202\207`d|\210 \203\207 c\210)\n\203\217db\210A@WTV*+\201^ *\207" [lyskom-slow-mode saved-suffix was-at-max lyskom-executing-command lyskom-current-prompt lyskom-dont-change-prompt lyskom-get-entered-slow-command lyskom-what-to-do nil next-pri-conf go-to-pri-conf-prompt lyskom-beep reedit-text re-edit-text-prompt next-pri-session lyskom-get-prioritized-session next-unread-session-prompt next-pri-session-prompt lyskom-string-assoc next-pri-text read-pri-text-conf next-text 0 REVIEW review-next-text-prompt REVIEW-TREE review-next-comment-prompt REVIEW-MARK review-next-marked-prompt read-next-letter-prompt lyskom-get-aux-item cache-get-text-stat 3 7 10100 read-next-attachment-prompt FOOTN-IN read-next-footnote-prompt COMM-IN read-next-comment-prompt read-next-text-prompt next-conf go-to-conf-of-marked-prompt go-to-conf-of-review-prompt go-to-conf-of-review-tree-prompt 1 go-to-next-conf-prompt go-to-your-mailbox-prompt when-done lyskom-tell-server lyskom-what-to-do-when-done t (byte-code "\301\302\"\207" [command lyskom-get-string lyskom-command] 3) ((error)) key-binding lyskom-format the-command unknown message "%s" "???" lyskom-modify-prompt apply lyskom-get-string prompt-args prompt to-do lyskom-command-to-do kom-ding-on-priority-break lyskom-reading-list read-list lyskom-to-do-list lyskom-server-name kom-server-aliases read-info lyskom-current-conf lyskom-pers-no text-list text-stat conf-stat lyskom-is-writing kom-mercial command force-prompt-update prompt-text inhibit-read-only lyskom-current-prompt-text lyskom-current-prompt-args "" add-text-properties (read-only t rear-nonsticky t) insert-string looking-at regexp-quote lyskom-set-mode-line] 7 (#$ . 1435594)]) (defalias 'lyskom-modify-prompt #[(s &optional executing) "\306\203 \203 \n\202- \202-\f\203\" \203 \202-\n\202- \203+ \202-\f \"\307\310G\311$\210)\207" [lyskom-is-administrator executing kom-enabled-prompt-format-executing kom-enabled-prompt-format lyskom-is-anonymous kom-anonymous-prompt-format-executing lyskom-format-prompt add-text-properties 0 (lyskom-prompt t) kom-anonymous-prompt-format kom-user-prompt-format-executing kom-user-prompt-format s text] 5]) (defalias 'lyskom-format-prompt #[(fmt command) "\306G\307\211\211 G*++*W\203?\310\311+#\211\203/\f+V\2032+\fO B\306\225S\234\306\225+ \312=\203O,\203K\313\202)\314\202) \315=\203b,\203^\316\202)\314\202) \317=\203m-\202) \320=\203\211\321.!\211/A\322\234)\206)\323\324.\"\202) \325=\203\2240\202) \326=\203\251\32701\"A\206)0\202) \330=\203\305\3212!\211/A\322\234)\206)\323\3312\"\202) \332=\203\322\3333!\202) \334=\203\336\335\336!\202) \337=\203\352\335\340!\202) \341=\203\n\322W\203\372\314\202)\n\322U\203 \342\335\343!\n\"\202)\n\322V\205)\342\335\344!\n\"\202) \345=\203\"\346\202) \347=\205)\350 B\202+\307O B*\211+\202\351 \237!.\207" [fmt lyskom-ansaphone-messages messages format-letter tmp result 0 nil string-match "%[][cm Sswp#aA]" 91 "[" "" 93 "]" 99 119 cache-get-conf-stat 1 lyskom-format conference-no 83 115 assoc 112 person-no 35 number-to-string 97 lyskom-get-string anonymous 65 Anonymous 109 format prompt-single-message prompt-several-messages 37 "%" 32 SPC lyskom-build-prompt len start kom-ansaphone-on command lyskom-current-conf conf-stat lyskom-server-name kom-server-aliases lyskom-pers-no lyskom-session-no] 7]) (defalias 'lyskom-build-prompt #[(data) "\303\304\n\203D\n@;\2034\203*\305\306 \"\203*\305\307\n@\"\203* \310\n@Q\202/ \n@P\304\202=\n@\311=\203=\312\nA\211\204 *\207" [separate result data "" nil string-match "\\S-$" "^\\S-" " " SPC t] 4]) #@63 Get the session to go to if we are doing an auto-goto-session (defalias 'lyskom-get-prioritized-session #[nil "\306>\203\n \202 \n\307\211\211\203 \307\310\311\217\210 A\211\204\f+\207" [kom-server-priority-breaks lyskom-sessions-with-unread-letters lyskom-sessions-with-unread saved-priority session session-list (express-letters letters after-conf-letters) nil (byte-code "\212@q\210 \203\n V\203@\n)\304\207" [session-list saved-priority kom-server-priority session nil] 2) ((error))] 4 (#$ . 1440819)]) #@491 Check what is to be done. Return an atom as follows: next-pri-text There is a text with higher priority to be read. next-pri-conf There is a conference with higher priority to be read. next-text There are texts on lyskom-reading-list. next-conf There are texts on lyskom-to-do-list. reedit-text There is an edit buffer with an error. when-done There are no unread texts. next-pri-session There is a session with unreads. unknown There are pending replies. (defalias 'lyskom-what-to-do #[nil "\306  \211A)??\205 \211A\242)\211A\307\234) \211A)??\2050 \211A\242)\211A\310\234)\212\205? \205?q\210)p=?\205\307\311>\203`\203` ?\206\307 V\206\307\312=\203}\203} \211A)\204}\211A)?\206\307\313>\203\252\203\252\f\203\236\f\314=\204\236\f\315=\204\236\f\316=\203\252 ?\206\307 V\206\307\317>\205\307\205\307 \211A)?\205\307 ?\206\307 V,\203\315\320\207 \2037 \211A)\2037\211A)\2037 \211A\242)\211A\307\234) \321=\206\372\f\322>)\2037\211A\242)\211A\310\234) \211A\242)\211A\310\234)V\2037\211A\242)\211A\323\234)\211!AG)\324V\2035\325\207\326\207 \211A)\203R \211A\242)\211A\307\234)\327=\203R\330\207 \211A)\203\\\331\207\211A)\203g\332\207\"\203n\312\207\333\207" [pri-session lyskom-reading-list read-list read-info type pri lyskom-get-prioritized-session 0 2 (express express-letters) when-done (t letters) CONF REVIEW REVIEW-MARK (after-conf after-conf-letters) next-pri-session express (CONF REVIEW REVIEW-MARK) 3 1 next-pri-conf next-pri-text RE-EDIT-TEXT reedit-text next-text next-conf unknown kom-server-priority pri-session-pri kom-server-priority-breaks lyskom-to-do-list kom-higher-priority-breaks text-list lyskom-membership-is-read] 4 (#$ . 1441351)]) #@142 Returns a command, the next command to do from the kom-do-when-done. If optional argument NOCHANGE is non-nil then the list wont be altered. (defalias 'lyskom-what-to-do-when-done #[(&optional nochange) "\300\301\302\217\207" [nil (byte-code "A@ \203 \n=\203\nA\203\nA\202\n\306 @!\203( @\202K @\203C @<\203C @@\307=\204C @\211@\202K \211@\206K\310 \204U AB\f,\207" [lyskom-do-when-done now all next command nochange commandp lambda kom-display-time] 2) ((error (byte-code "\301\302\303!!\210\304\305!\210\306\307\207" [lyskom-do-when-done lyskom-insert-before-prompt lyskom-get-string error-in-kom-do-when-done lyskom-beep t ((kom-customize kom-display-time) kom-edit-options kom-display-time) kom-display-time] 3)))] 3 (#$ . 1443158)]) #@63 Prefetch info if needed. Print prompt if not already printed. (defalias 'lyskom-prefetch-and-print-prompt #[nil "\203<\203\301!\203\302\303 \207" [lyskom-is-waiting eval nil lyskom-update-prompt] 2 (#$ . 1443929)]) #@73 Count how many unread texts the user have, that the client knows about. (defalias 'lyskom-known-texts #[nil "\302\303\304\305\211A)\"\"\207" [lyskom-to-do-list read-list apply + mapcar #[(x) "\211A\302\234)GS\207" [x read-info 3] 3]] 6 (#$ . 1444160)]) #@100 Give a message and wait for it to be prefetched. If the full membership hase been read do nothing. (defalias 'lyskom-wait-for-membership #[nil "\305\306\"\211A\307\234) \310=?\205+ \247\205+\311\312\313! \n#\210\314\315!\210\316\f\317\"\210\202 )\207" [lyskom-pers-no pers-stat total lyskom-membership-is-read lyskom-proc blocking-do get-pers-stat 17 t lyskom-message lyskom-get-string waiting-for-membership sit-for 0 accept-process-output 1] 5 (#$ . 1444424)]) #@38 Gets all conferences using prefetch. (defalias 'lyskom-prefetch-all-confs #[nil "\300 \207" [lyskom-wait-for-membership] 1 (#$ . 1444899)]) #@85 Args: MAP MEMBERSHIP. Return a list of unread texts. The list consists of text-nos. (defalias 'lyskom-list-unread #[(map membership) "\211A\306\234) \211A\307\234) \211A\310\234)G \211A\310\234)\211\203? \307V\203? S\311 \f\\ \"\203%\n \307I\210\202%\312\307\n \313 \314\")\",\207" [membership map the-map i first read 4 0 1 lyskom-binsearch delq append nil vector] 6 (#$ . 1445045)]) #@53 Return t if ELT is a member of (present in) VECTOR. (defalias 'lyskom-vmemq #[(elt vector) "\304G \305V\203\n\204 S  H=\203\306\202\n*\207" [vector i found elt nil 0 t] 3 (#$ . 1445452)]) #@103 Return the index if NUM is a member of (present in) VECTOR. VECTOR has to be sorted with regard to <. (defalias 'lyskom-binsearch #[(num vector &optional first last+1) "\304 \n\206\305 \206 G$\207" [num vector first last+1 lyskom-binsearch-internal 0] 5 (#$ . 1445661)]) #@66 Return the index if ELT is a member of the sorted vector VECTOR. (defalias 'lyskom-binsearch-internal #[(num vector first last+1) " \\\306\245 \nH Z\307U\203 \fU\205;\n\202; \fU\203&\n\202; \fW\2035\310 \n$\202;\310 \n $*\207" [first last+1 split vector splitval num 2 1 lyskom-binsearch-internal] 5 (#$ . 1445943)]) #@357 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. HISTORY is the history list to use. If NILDEFAULT is non-nil, return nil if the user enters an empty string (defalias 'lyskom-read-num-range #[(low high &optional prompt show-range default history nildefault) "S\n\203 \203; W\204 V\203;\306\f\203 \f\202#\307\310! \203/\311\312 #\2020\313P\f \n$\202 )\207" [low number nildefault high prompt show-range lyskom-read-number lyskom-get-string give-a-number format "(%d-%d) " "" default history] 6 (#$ . 1446282)]) #@297 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 NILDEFAULT is non-null then typing return will cause the function to return nil. (defalias 'lyskom-read-number #[(&optional prompt default history nildefault) "\204\306\202\250\203\202<\203@\202\306\306\211\211 \204\214\307 \2042\310\311!\202> 9\203=\310 !\202> \f\203I\312\313\f\"\202J\314P\306#\211\315\230\203b\f\203b\f\316\211\202$\n\315\230\203u\203u\306\316\211\202$\317\320\n\"\203\206\321\n!\211\211\202$\322 \210\202# ,\207" [default done numstr number numdefault prompt nil lyskom-read-string lyskom-get-string give-a-number format " (%d) " " " "" t string-match "\\`[0-9]+\\'" string-to-int beep history nildefault] 6 (#$ . 1447018)]) #@62 Read a string from the minibuffer. Arguments: PROMPT INITIAL (defalias 'lyskom-read-string #[(prompt &optional initial history) "\303 \n#\207" [prompt initial history read-string] 4 (#$ . 1447933)]) #@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) "\304\305\306\307\310! \"\2044\306\307\311! \"\2044\203%\312\313\307\314!\"\210\315\316!\210\317\n\307\320!P \321#\321\202\306\307\311! \"*?\207" [nagging answer prompt initial-input "" nil string-match lyskom-get-string yes-regexp no-regexp lyskom-message "%s" yes-or-no-nag sit-for 2 lyskom-read-string yes-or-no t] 4 (#$ . 1448140)]) #@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) "9\203 \306!\307\310\211\311\312\313\314\f!!\306\315!\"\204n\f\316=\204n\317\320 \f\310#\321=\204n\322\323 \203;\306\324!\202<\325\306\326!Q\"\210 \203J\327 \210\310\330 \311 )\211\331=\204d\317\320 \f\310#\332=\203i\311\202\310\202\f\316=\204\317\320 \f\310#\321=\203\204\333\334\311\"\210\322\323\306\326!\312\313\314\f!!\306\335!\"\203\235\306\336!\202\240\306\337!Q\"\210\312\313\314\f!!\306\335!\",??\207" [prompt nagging lyskom-inhibit-minibuffer-messages cursor-in-echo-area input-char inhibit-quit lyskom-get-string 0 t nil string-match regexp-quote char-to-string y-or-n-instring 7 lyskom-lookup-key current-local-map keyboard-quit lyskom-message "%s" j-or-n-nag "" j-or-n beep read-char-exclusive 12 recenter signal quit y-instring yes-string no-string quit-flag] 9 (#$ . 1448738)]) #@62 Same as j-or-n-p but performs lyskom-end-of-command if quit. (defalias 'lyskom-j-or-n-p #[(prompt) "\300\301\302\217\207" [nil (j-or-n-p prompt) ((quit (byte-code "\300\301\302\"\207" [signal quit nil] 3)))] 3 (#$ . 1449783)]) #@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) "\300\301\302\217\207" [nil (ja-or-nej-p prompt initial-input) ((quit (byte-code "\300\301\302\"\207" [signal quit nil] 3)))] 3 (#$ . 1450016)]) #@70 Retuns t if A has a higher priority than B. A and B are memberships. (defalias 'lyskom-membership-< #[(a b) "\211A\303\234)\n\211A\303\234)V\203\304\207\211A\303\234)\n\211A\303\234)U\203L\211A\305\234)\247\203L\n\211A\305\234)\247\203L\211A\305\234)\n\211A\305\234)W\207\306\207" [a membership b 2 t 8 nil] 4 (#$ . 1450296)]) (defalias 'impl #[nil "\300\301!\207" [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) "\302!\205 \303!\205 \303!<\203\304\305\303!\"\207\306\303! \"\207" [hook-name args boundp eval mapcar #[(fn) "\302 \"\207" [fn args apply] 3] apply] 4 (#$ . 1450715)]) #@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) "\211A\304\234)\211A\305\234)\211A\306H)?\205 Y)\207" [membership priority membership-type lyskom-session-priority 2 7 1] 3 (#$ . 1451081)]) #@37 Receive replies from LysKOM server. (defalias 'lyskom-filter #[(proc output) "\302 \210\303 p\304\216\305\306\307\217\210)\310\311!*\207" [lyskom-filter-old-buffer old-match-data lyskom-reset-apo-timeout match-data ((byte-code "\206 \305\n\203\306 \210\307 !\210\310\f!\203\fq\210\305\207" [lyskom-quit-flag quit-flag lyskom-need-prompt-update old-match-data lyskom-filter-old-buffer nil lyskom-update-all-prompts store-match-data buffer-live-p] 2)) nil (byte-code "\306 \203\212\307\310!q\210db\210\311\312\n!p\"\210) \203> \2048\n\313\234\314=\203/\n\315\234\316=\204>\317\f\320\n#\210\202>\317\f\320\n#\210\321\f!q\210\311\312\n! \"\210\203R\306\313V\203k\nGW\203k\nGZ\202\202\322\323\n\"\203\202\204\202\324\325\216\306\326\327\217\210*\306\207" [lyskom-quit-flag lyskom-debug-communications-to-buffer output lyskom-debug-what-i-am-doing proc lyskom-unparsed-marker nil get-buffer-create "*kom*-replies" princ string-as-unibyte 0 58 1 53 lyskom-debug-insert "From " process-buffer string-match "\n" t ((byte-code "\301!q\207" [proc process-buffer] 2)) (lyskom-parse-unparsed) ((lyskom-parse-incomplete)) quit-flag inhibit-quit lyskom-string-bytes-missing lyskom-is-parsing] 4) ((quit (byte-code "\301\301\207" [lyskom-quit-flag t] 1))) sit-for 0] 3 (#$ . 1451473)]) #@40 Handles changes in the lyskom-process. (defalias 'lyskom-sentinel #[(proc sentinel) "\303!\210\304!q\210\305\306\307!\310\211#\210\311\312 \313\314!#\210\306\315!\316 \210\317 \207" [proc sentinel mode-line-process lyskom-remove-unread-buffer process-buffer lyskom-start-of-command lyskom-get-string process-signal t lyskom-format-insert closed-connection lyskom-client-date-string time-format-exact mode-line-down beep lyskom-scroll] 5 (#$ . 1452792)]) (defalias 'lyskom-debug-insert #[(proc prefix string) "\306!\307 \310\"\211\2038\212\311 \312\216\313\n!\210 q\210m\212db\210\314 \315\316\"\317\261\210)\f\2054db,\202L\212 q\210db\210\314 \315\316\"\317\261)*\207" [lyskom-debug-communications-to-buffer-buffer buf win save-selected-window-window move prefix get-buffer-create get-buffer-window visible selected-window ((select-window save-selected-window-window)) select-window "\n" format "%s" ": " proc string] 6]) (defalias 'lyskom-really-serious-bug #[nil "\301\302\303!)\207" [debug-on-error t 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) "\301\302\303\301#P\207" [args " " mapconcat lyskom-format-object] 5 (#$ . 1453970)]) (defalias 'lyskom-format-object #[(object) ";\203 \301!\207\250\203\302!\207\204\303\207<\203\227@\304=\203)\305A!\207@\306=\2034\307!\207@\310=\203?\311!\207@\312=\203J\313!\207@\314=\203U\315!\207@\316=\203`\317!\207@\320=\203k\321!\207@\322=\203w\323A!\207@\324=\203\203\325A!\207@\326=\203\217\327A!\207\330\331\332\333E\"\207\334=\203\237\335\207\330\331\332\333E\"\207" [object lyskom-prot-a-format-string int-to-string "0" MISC-LIST lyskom-prot-a-format-misc-list AUX-ITEM lyskom-prot-a-format-aux-item AUX-ITEM-FLAGS lyskom-prot-a-format-aux-item-flags CONF-TYPE lyskom-prot-a-format-conf-type PRIVS lyskom-prot-a-format-privs FLAGS lyskom-prot-a-format-flags MEMBERSHIP-TYPE lyskom-prot-a-format-membership-type LIST lyskom-prot-a-format-simple-list TIME lyskom-prot-a-format-time STRING lyskom-prot-a-format-raw-string signal lyskom-internal-error lyskom-format-object ": no support for object " t "1"] 5]) #@41 Format a TIME for output to the server. (defalias 'lyskom-prot-a-format-time #[(time) "\301\302\303#\207" [time mapconcat int-to-string " "] 4 (#$ . 1455231)]) #@39 Format personal flags for the server. (defalias 'lyskom-prot-a-format-flags #[(flags) "\301\211A\302\234)!\301\211A\303\234)!\301\211A\304\234)!\301\211A\305\234)!\301\211A\306\234)!\301\211A\307\234)!\301\211A\310\234)!\301\211A\311\234)!\260\207" [flags lyskom-prot-a-format-bool 0 1 2 3 4 5 6 7] 11 (#$ . 1455398)]) #@52 Format a MEMBERSHIP-TYPE for output to the server. (defalias 'lyskom-prot-a-format-membership-type #[(membership-type) "\301\211A\302H)!\301\211A\303H)!\301\211A\304H)!\301\211A\305H)!\301\211A\306H)!\301\211A\307H)!\301\211A\310H)!\301\211A\311H)!\260\207" [membership-type lyskom-prot-a-format-bool 0 1 2 3 4 5 6 7] 11 (#$ . 1455740)]) #@46 Format a CONF-TYPE for output to the server. (defalias 'lyskom-prot-a-format-conf-type #[(conf-type) "\302\211A\303\234)!\302\211A\304\234)!\302\211A\305\234)!\302\211A\306\234)! \203P\302\211A\307\234)!\302\211A\310\234)!\302\211A\310\234)!\302\211A\310\234)!R\202Q\311\260\207" [conf-type lyskom-long-conf-types-feature-flag lyskom-prot-a-format-bool 0 1 2 3 4 5 ""] 11 (#$ . 1456101)]) #@46 Format an AUX-ITEM for output to the server. (defalias 'lyskom-prot-a-format-aux-item #[(item) "\302\211A\303H)!\304\305\211A\306H)!\304\302\211A\307H)!\304\310\311\312!B!\260\207" [item aux-item int-to-string 1 " " lyskom-prot-a-format-aux-item-flags 4 5 lyskom-prot-a-format-raw-string raw-text lyskom-aux-item-output-data] 11 (#$ . 1456515)]) #@49 Format AUX-ITEM-FLAGS for output to the server. (defalias 'lyskom-prot-a-format-aux-item-flags #[(flags) "\302\211A\303H)!\302\211A\304H)!\302\211A\305H)!\302\211A\306H)!\302\211A\307H)!\302\211A\310H)!\302\211A\311H)!\302\211A\312H)!\260\207" [flags aux-item-flags lyskom-prot-a-format-bool 0 1 2 3 4 5 6 7] 11 (#$ . 1456875)]) #@40 Format PRIVS for output to the server. (defalias 'lyskom-prot-a-format-privs #[(privs) "\301\211A\302\234)!\301\211A\303\234)!\301\211A\304\234)!\301\211A\305\234)!\301\211A\306\234)!\301\211A\307\234)!\301\211A\310\234)!\301\211A\311\234)!\301\211A\312\234)!\301\211A\313\234)!\301\211A\314\234)!\301\211A\315\234)!\301\211A\316\234)!\301\211A\317\234)!\301\211A\320\234)!\301\211A\321\234)!\260\207" [privs lyskom-prot-a-format-bool 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15] 19 (#$ . 1457227)]) #@41 Format a BOOL for output to the server. (defalias 'lyskom-prot-a-format-bool #[(bool) "\203\301\207\302\207" [bool "1" "0"] 1 (#$ . 1457760)]) #@46 Format a misc-list for output to the server. (defalias 'lyskom-prot-a-format-misc-list #[(misc-list) "\302\303G\"\203 \304\305@!QA\211\204\n \306P\211)\207" [misc-list result format "%d {" " " lyskom-prot-a-format-misc-item " }"] 5 (#$ . 1457912)]) #@46 Format a misc-item for output to the server. (defalias 'lyskom-prot-a-format-misc-item #[(misc-item) "\302\303@\304=\203 \305\202>@\306=\203\307\202>@\310=\203#\311\202>@\312=\203.\313\202>@\314=\205> \203=\315\202>\307A#\207" [misc-item lyskom-bcc-misc-feature-flag format "%d %d" recpt 0 cc-recpt 1 comm-to 2 footn-to 4 bcc-recpt 15] 4 (#$ . 1458178)]) #@45 Format some kind of list to send to server. (defalias 'lyskom-prot-a-format-simple-list #[(list) "\301\302\303\304G\"\301\305\"\306E\"\207" [list apply concat format "%d {" lyskom-format-objects " }"] 6 (#$ . 1458557)]) (defalias 'lyskom-prot-a-format-string #[(string) "\303 \"\304\305\306\307\n!\n#!)\207" [string lyskom-server-coding-system tmp encode-coding-string string-as-unibyte format "%dH%s" string-bytes] 5]) (defalias 'lyskom-prot-a-format-raw-string #[(string) "\301\302\303\304A!A#!\207" [string string-as-unibyte format "%dH%s" string-bytes] 5]) #@85 Read a string in the minibuffer without echoing. One parameter - the prompt string. (defalias 'silent-read #[(prompt-str) "\304\305\"\210\306\307\310\311\312\313\217\211\314=\204L\n\315=\204L\304\305\"\210\n\316=\2039 G\317\232\2032\306\202H \317\320O\202H\n\321=\203C\306\202H \322\n!P\202 \323\306!\210 +\207" [prompt-str cursor-in-echo-area input-char input-string lyskom-message "%s" "" nil t err (read-char-exclusive) ((error (byte-code "A@\301\230\203\n\302\207\303@A\"\207" [err "Non-character input-event" 13 signal] 3))) 13 10 127 0 -1 21 char-to-string message] 3 (#$ . 1459130) "sPrompt string: "]) #@45 Calculate what to identify the buffer with. (defalias 'lyskom-mode-name-from-host #[nil "\302\303p!!\304 \"A\206\305\306\")\207" [server kom-server-aliases process-name get-buffer-process assoc format "LysKOM(%s)"] 3 (#$ . 1459766)]) (byte-code "\306\300!\204\307\300 B\204\310 \311\312\313#\210\311\314\315#\210\316 B\n\204\233\317\320 \"\210\317\321\307\"\210\322\f!\210\323 >\204G\324\323 \"\204G\325\326 \"\306\327!\203T\330\331E\306\316!\203a\330\331E\332\333\334!@\335\336@G\337D@$\210@)D\340\333\341!@\335\336@G\337D@$\210@)D\342E\343\344\345\344\333\346!\347\350ABC\351C!\203\310A\204\261D\204\310\352CB\206\304\f\203\303\353\f!\206\304\354\"\202\312C+D\355\333\356!\347\350ABC\351C!\203A\204\351D\204\352CB\206\374\f\203\373\353\f!\206\374\354\"\202C+DD\357BBDD\360\361\362\"\210\363\364\307\"@\365\366E\347\350ABC\351C!\203KA\2044D\204K\352CB\206G\f\203F\353\f!\206G\354\"\202MC+\"\210@)F\367\370\371\"\210\367\372\371\"\210\367\373\371\"\210\367\374\371\"\210\367\375\371\"\210\367\376\377\"\210\367\201G\377\"\210\367\201H\377\"\210\367\201I\201J\"\210\367\201K\336\"\210\201L\201M!\210\350\201N\201O!\207" [lyskom-modeline-keymap current-load-list lyskom-is-loaded lyskom-default-collate-table lyskom-language global-mode-string boundp nil make-sparse-keymap define-key [mode-line mouse-2] kom-modeline-next-unread-kom [mode-line mouse-3] kom-modeline-select-unread-kom frame-icon-title-format set-default lyskom-collate-table lyskom-char-classes lyskom-set-language lyskom-unread-mode-line rassq append ("" lyskom-unread-mode-line) frame-title-format "" lyskom-unread-title-format lyskom-sessions-with-unread lyskom-get-string mode-line-unread add-text-properties 0 local-map lyskom-sessions-with-unread-letters mode-line-letters " " kom-show-unread-in-frame-title lyskom-session-has-unreads " (" frame-title-unread iso-8859-1 t multibyte-string-p encode-coding-string lyskom-language-coding raw-text lyskom-session-has-unread-letters frame-title-letters (")") add-hook kill-buffer-hook lyskom-remove-buffer-from-lists make-vector 256 mapcar #[(x) "\302 !\303I\207" [tmp x char-to-int t] 3] lyskom-set-queue-priority blocking 9 main sending follow options deferred 6 tmp force coding s enable-multibyte-characters lyskom-line-start-chars-string lyskom-line-start-chars background modeline async 3 prefetch run-hooks lyskom-after-load-hook provide lyskom-rest] 9)