
(defvar zsend-*who* (cons (quote who) (user-login-name)))

(defvar zsend-*who-list* (list (list (cdr zsend-*who*))))

(defvar zsend-*instance-list* (list (list)))

(defun zsend-mkprint (targ) (byte-code "@Â=ƒ ÃAÄQ‚  @Å=ƒ ÆAÇQ‚  A‡" [targ t instance "[" "]" who "<" ">"] 3))

(defun zsend-mkdef (prompt old) (byte-code "ÂÃ	!ÄR‡" [prompt old " " zsend-mkprint ":"] 5))

(defun zsend-last-deal (new old) (byte-code "ÂAÃ\"ƒ 	‚ ‡" [new old equal ""] 3))

(defun zsend (&optional who message) "\
Send zephyrgrams from emacs.

Usernames/instance names can be typed in or selected from a list of
previously used names.  

If a null messages is entered, a buffer will pop up in which to enter
the text of the message.  C-c C-c to close the buffer and send the message." (interactive (byte-code "	ƒ ÈÉÊË
\"ÄÄ$B‚ ÌÉÊÍ
\"ÄÄ$BÎ
\"ÏÐÑ!ÒQ!D+‡" [target current-prefix-arg zsend-*who* zsend-*instance-list* nil zsend-*who-list* real-target msg instance completing-read zsend-mkdef "Instance" who "Who" zsend-last-deal read-input "To " zsend-mkprint ":"] 10)) (byte-code "Äˆ?… ÌÍÎ	!ÏQ!‰ˆÐÑ!
Ò
!ˆÓÔÕ\"ˆÓÖÕ\"ˆ×Ë!ˆØ ˆ	‰ˆ	‰ˆÉ	@=ƒL Ù	A\"‚R Ù	A\"ˆÚÛ\"?…d cˆÜ	!ˆÚÛ\"…q Ò
!)‡" [target current-prefix-arg zsend-*who* zsend-*instance-list* nil zsend-*who-list* real-target msg message who tempbuf zsend-who read-input "To " zsend-mkprint ":" generate-new-buffer "*zephyr*send*" switch-to-buffer local-set-key "" zsend-buffer "j" make-local-variable erase-buffer zsend-add-to-list equal "" zwrite] 15))

(defun zsend-buffer nil (interactive) (byte-code "ÁˆÂ!ˆÃp!‡" [zsend-who nil zwrite kill-buffer] 3))

(defun zwrite (who) (byte-code "À@=ƒ ÃedÄÁÁÂÅÆÇA&
‚' ÃedÄÁÁÂÅÆÇÈA&ˆÉdÊ\"?…7 ËÌÊdS\"!‡" [who t nil call-process-region "/usr/athena/bin/zwrite" "-a" "-l" "-n" "-i" equal 1 message buffer-substring] 13))

(defun zsend-add-to-list (which-list name) (byte-code "Å	\"?… ÃB	@	ABÆ	
\"ˆÇ	\"*‡" [name which-list new-entry nil new-cell assoc setcar setcdr] 5))