(require (quote discuss)) (defvar discuss-new-trn-buf nil "\ Name of buffer for new transaction") (defvar discuss-trn-buffer "*discuss-unprocessed*" "\ Name of buffer for entering new transaction") (defvar discuss-edit-mode-map nil "\ Keymap used by the edit mode of the discuss subsystem") (defvar discuss-randrp-trn-info nil "\ Randrom transaction information.") (defun discuss-temp-file nil "\ Return name of temporary buffer to use to transfer transactions." (byte-code "ÁÂÃ!\"‡" [discuss-process format "/tmp/em.disc%d" process-id] 4)) (defun discuss-talk nil "\ Enter a new discuss transaction." (interactive) (byte-code "ˆÃÄÅ8\"?…ÆÇÈ8\"ˆÉ ÊË#‡" [discuss-current-meeting-info discuss-current-meeting nil string-match "w" 10 error "Insufficient access for talk in %s" 1 discuss-enter 0 ""] 6)) (defun discuss-reply nil "\ Reply to an existing discuss transaction." (interactive) (byte-code "ÈÇÈÉ8\"?…ÊËÌ8\"ˆÍ 8 GÎV…%ÇÏ ÐÑO\"ƒ,Â1Ò P‰ˆÓ Æ$)‡" [discuss-current-meeting-info subject discuss-current-transaction-info nil discuss-current-meeting discuss-current-transaction t string-match "a" 10 error "Insufficient access for reply in %s" 1 11 3 "[Rr]e: " 0 4 "Re: " discuss-enter] 8)) (defun discuss-randrp nil "\ Randrp in a meeting." (interactive) (byte-code "ˆÃÄÅ8\"?…ÆÇÈ8\"ˆÉÊË \"ÌÍ#‡" [discuss-current-meeting-info discuss-current-meeting nil string-match "a" 10 error "Insufficient access for reply in %s" 1 discuss-send-cmd format "(grtn %s) " discuss-randrp-gmi-end discuss-read-form] 7)) (defun discuss-randrp-gmi-end nil (byte-code " ‰ˆÇ8È8 GÉV…ÊË ÈÌO\"ƒ!Ä‚&Í P‰ˆÎ Æ$*‡" [discuss-randrp-trn-info discuss-form subject trn-num nil discuss-current-meeting t 11 0 3 string-match "[Rr]e: " 4 "Re: " discuss-enter] 6)) (defun discuss-enter (mtg-name reply-trn subject &optional reply) (byte-code "Ë !‰ˆƒÌÍ!‚MÎ !‰ˆ ??ƒ%ÄÏ!)‚(Ð!ˆÑ ˆÒÓ ÔÔ%ˆ‰ˆ ‰ ˆÕ Ö\"…Mebˆ× ‡" [discuss-new-trn-buf discuss-trn-buffer reply pop-up-windows t subject mail-header-separator discuss-reply-trn reply-trn discuss-enter-mtg mtg-name get-buffer error "Already entering transaction" get-buffer-create pop-to-buffer switch-to-buffer discuss-edit-mode insert "Subject: " " " equal "" end-of-line] 12)) (defun discuss-edit-mode nil "\ Major mode for editing Discuss transactions to be entered. Like Text Mode but with these additional commands: C-c C-c discuss-send (enter the transaction) C-c C-] discuss-abort-edit (exit without entering)" (interactive) (byte-code "ˆΠˆÏÀ!ˆÐ‰ˆÏÁ!ˆÂ‰ˆÑ !ˆÒ !ˆ‰ˆÓ‰ˆÔ‰ˆÊ‰ ˆÕÖ!ˆ× Ø R‰ ˆ× Ø R‰ ˆÙÚÛ\"‡" [discuss-reply-trn discuss-enter-mtg nil text-mode-syntax-table discuss-edit-mode-map local-abbrev-table text-mode-abbrev-table major-mode mode-name buffer-offer-save t paragraph-start mail-header-separator paragraph-separate kill-all-local-variables make-local-variable 0 set-syntax-table use-local-map discuss-edit-mode "Discuss Edit" auto-save-mode 1 "^" "$\\|^[ ]*[-_][-_][-_]+$\\|" run-hooks text-mode-hook discuss-edit-mode-hook] 10)) (if discuss-edit-mode-map nil (setq discuss-edit-mode-map (make-sparse-keymap)) (define-key discuss-edit-mode-map "?" (quote describe-mode)) (define-key discuss-edit-mode-map "" (quote discuss-send)) (define-key discuss-edit-mode-map "" (quote discuss-abort-edit))) (defun discuss-send nil "\ Enter the current Discuss transaction" (interactive) (byte-code "ňŠdbˆÆhÇ\"…ÈcˆebˆÉÊ!?ƒ ËÌ!‚VÍÎ!ˆÏÇ`S\"ÐÑÒ !ÈQdÂ#?ƒ>ËÓ!‚UÔ`dÕ #ˆÖ×!ˆØÙÚ Õ %ÛÜ#))‡" [subject mail-header-separator t discuss-reply-trn discuss-enter-mtg nil /= 10 " " looking-at "Subject: " error "Subject not found." forward-line 1 buffer-substring re-search-forward "^" regexp-quote "Text separator not found." write-region discuss-temp-file message "Sending..." discuss-send-cmd format "(at %d %s %s) %s " discuss-end-of-enter discuss-read-form] 19)) (defun discuss-end-of-enter nil (byte-code "qˆÅÆÇÈ @! #!ˆÉ ?…Ê ˆË ˆÌ!ˆŠ qˆÍ !ˆÎ !)‡" [discuss-trn-buffer discuss-form discuss-enter-mtg discuss-cur-mtg-buf discuss-current-transaction message format "Transaction %s entered in %s meeting." discuss-format-trn-num one-window-p delete-window delete-auto-save-file-if-necessary kill-buffer discuss-la-invalidate-relatives discuss-show-trn] 10)) (defun discuss-abort-edit nil "\ Aborts entering a transaction." (interactive) (byte-code "ÁˆÂ ?… à ˆÄ!‡" [discuss-trn-buffer nil one-window-p delete-window kill-buffer] 4))