
(provide (quote zlog))

(defvar zlog-mode-map nil)

(defvar zlog-mode-hook nil)

(defun zlog-mode nil "\
Major mode for browsing past sent zephyrgrams, and optionally
resending them.  Commands are:

   n    Next zephyrgram
   p    Previous zephyrgram
   q    Quit
   h    Help
   s    Send (or SPC or RET)
   c    Clear" (interactive) (byte-code "ÃˆÄ‰ˆÅ‰ˆ
†@ Æ ‰ˆÇ
!ˆÈ
ÉÊ#ˆÈ
ËÌ#ˆÈ
ÍÎ#ˆÈ
ÏÐ#ˆÈ
ÑÒ#ˆÈ
ÓÒ#ˆÈ
ÔÒ#ˆÕ
!ˆÖ×!‡" [major-mode mode-name zlog-mode-map nil zlog-mode "ZLog" make-keymap suppress-keymap define-key "n" zlog-next "p" zlog-previous "q" zlog-quit "h" describe-mode "s" zlog-send " " "" use-local-map run-hooks zlog-mode-hook] 12))

(defun zlog-buffer nil (byte-code "ÁÂ!qˆÃ=?… Ã ‡" [major-mode get-buffer-create "*ZLog*" zlog-mode] 3))

(defun zlog-goto nil (interactive) (byte-code "ÀˆÁ ˆÂp!‡" [nil zlog-buffer switch-to-buffer-other-window] 3))

(defun zlog-quit nil (interactive) (byte-code "ÁˆpÂÁ!ˆÃ!)‡" [b nil switch-to-buffer bury-buffer] 3))

(defun zlog-add (class instance recipient body) (byte-code "ŠÅ ˆdbˆo† ÆcˆÇÈÉ	
E!#cˆÊ	Ë\"…% ÊÌ\"…6 ÍÎÄÏÐ Ñ
ÒÓÔ&
)‡" [class instance recipient body nil zlog-buffer "
" format "essage %s
%s" prin1-to-string equal "personal" "message" start-process "foo" "zwrite" user-login-name "-s" "-O" "log" "-m"] 17))

(defun zlog-next (arg) (interactive "p") (byte-code "ÁˆÃV…$ S‰ˆÄ ˆÅÆÁÂ#ƒ Ç ‚  ÈÉ!ˆ‚ ‡" [arg nil t 0 end-of-line search-forward "essage" beginning-of-line error "End of message list"] 6))

(defun zlog-previous (arg) (interactive "p") (byte-code "ÁˆÃV…% S‰ˆÄÅ!ˆÆÇÁÂ#ƒ È ‚! ÉÊ!ˆ‚ ‡" [arg nil t 0 backward-char 1 search-backward "essage" beginning-of-line error "End of message list"] 6))

(defun zlog-send nil (interactive) (byte-code "ÂˆÂÂŠÅ ˆÆÇÂÃ#?… ÈÉ!ˆÊË!ˆÌp!‰ˆÍË!ˆ`ÎÇÂÏ#…1 Ð ˆÑ`\"‰))ˆÒÓ\"ˆ	c*‡" [arglist body nil t start end-of-line search-backward "essage" error "Can't find message to send" forward-word 1 read forward-line search-forward foo beginning-of-line buffer-substring apply zwrite-triple] 12))