
(defun discuss-parse-meeting-announcement nil (byte-code "ÃÃÃŠebˆÅÆÃÄ#?… ÇÈ!ˆÉÊ!ˆÅËÃÄ#?…' ÇÈ!ˆ`‰ˆÌ ˆÍ
`\"‰ˆÉÊ!ˆÅÎÃÄ#?…F ÇÈ!ˆ`‰ˆÌ ˆÍ
`\"‰ˆ	D)+‡" [host pathname arg-start nil t search-forward "  Meeting Name:  " error "Not a meeting announcement." forward-line 1 "  Host:          " end-of-line buffer-substring "  Pathname:      "] 14))

(defun discuss-add-mtg (host pathname) "\
Add a discuss meeting." (interactive (byte-code "† p	=?ƒ ÂÃ!ÂÄ!D‚ Å ‡" [current-prefix-arg discuss-cur-mtg-buf read-input "Host Name:" "Pathname:" discuss-parse-meeting-announcement] 4)) (byte-code "ÄˆÅÆ!ˆÇÈÉ
#ÊË#‡" [current-prefix-arg discuss-cur-mtg-buf host pathname nil message "Trying to add meeting...." discuss-send-cmd format "(am %s %s)
" discuss-end-add-mtg discuss-read-form] 6))

(defun discuss-end-add-mtg nil (byte-code "Å	C\"‰ˆŠ
qˆdbˆÄÆcˆÇ	!ˆdbˆÈÉ!))ˆÊË	A@\"‡" [discuss-meeting-list discuss-form discuss-main-buffer buffer-read-only nil vconcat "
" discuss-lsm-1 backward-delete-char 1 message "%s meeting added."] 6))

(defun discuss-del-mtg (&optional meeting) "\
Delete a discuss meeting" (interactive (byte-code "p=ƒ Ç ˆ	‚' 
† ÈÉ \"?† `ÊU…' ËÌÅÆÍ%C‡" [discuss-cur-mtg-buf discuss-current-meeting current-prefix-arg discuss-main-buffer discuss-meeting-completion-list nil t discuss-leave-mtg equal buffer-name 1 completing-read "Meeting name:  " ""] 9)) (byte-code "Åˆ?…8 ÊË`Td^\"ÌZÍW… ÎÏ!ˆ	HA@‰ˆÐÑÒ\"!?…7 ÎÓ!)ˆÔÕ\"ˆÖÑ×\"ØÙ#‡" [discuss-cur-mtg-buf discuss-current-meeting current-prefix-arg discuss-main-buffer discuss-meeting-completion-list nil t meeting curline discuss-meeting-list count-lines 1 3 0 error "Not looking at a meeting." yes-or-no-p format "Are you sure you want to delete %s? " "Delete cancelled." message "Deleting meeting %s...." discuss-send-cmd "(dm %s)
" discuss-end-del-mtg discuss-read-form] 11))

(defun discuss-end-del-mtg nil (byte-code "ŠqˆebˆÅÆÇ	@!ÈQÂÃ#?… ÉÊ	@\"ˆË ˆÌÍ!ˆÂÎÏÍ\"ˆÐÍ!ˆÌÑ!ˆÎÒÍ\"ˆÐÍ!))ˆÓÔ	@\"‡" [discuss-main-buffer discuss-form nil t buffer-read-only re-search-forward " " regexp-quote "\\(,\\|$\\)" error "Can't find meeting %s." beginning-of-line forward-char 1 insert-char 32 delete-char 2 68 message "Meeting %s deleted."] 13))

(defun discuss-get-from-addr nil (byte-code "ŠŒÂ ˆebˆÃÄ!ˆ`ÅÆ!ˆ`Ç	\"*))‡" [point-from-1 point-from-2 widen skip-chars-forward "[0-9] " re-search-forward " " buffer-substring] 6))

(defun discuss-forward nil (interactive) (byte-code "ÃˆpÄÅÆ ÇÈÉ!† ÊË%ÌÂ!ƒ! ÍÃÃ	#‚& ÎÃÃ	#…? ŠdbˆÏÐ!ˆÑÒ!cˆŠÓc)ˆÔ!)*‡" [forward-buffer subject t nil concat "[" discuss-get-from-addr ": " mail-fetch-field "Subject" "" "]" one-window-p mail mail-other-window forward-line 1 format "

------- Forwarded transaction

" "
------- End forwarded transaction
" insert-buffer] 10))

(defun discuss-reply-by-mail nil "\
Reply to the current discuss transaction with Emacs sendmail" (interactive) (byte-code "ÅˆÇÈ!ÇÉ!ÇÊ!Ë8GÌV…! ÍÎÏÐO\"?…) ÑP‰ˆÒÅ	ÓÔ@!ÕQÖ
Q&,‡" [to from cc subject discuss-current-transaction-info nil discuss-cur-mtg-buf mh-get-field "To:" "From:" "Cc:" 11 3 string-match "[Rr]e: " 0 4 "Re: " mail-other-window "[" int-to-string "]" ", "] 13))

(defun mh-get-field (field) (byte-code "ÁebˆÅ
ÃÁ#?ƒ Æ‚U ÇÈ!ƒ Æ‚U ÉÊÃÁ#ˆËÌÍ!ÎÍ!\"`Ï ˆÇÐ!…= ÏÍ!ˆ‚0 ˆÑÍ!ˆ`XƒL 
‚T ÒÓ
Ë`\"#*)‡" [case-fold-search t field nil end-of-match search-forward "" looking-at "[	 ]*$" re-search-forward "[	 ]*\\([^	 
].*\\)$" buffer-substring match-beginning 1 match-end forward-line "[ 	]" backward-char format "%s%s"] 16))