
(defvar kmail-directory (expand-file-name "~/mail/"))

(defvar kmail-pobox (format "po:%s" (getenv "USER")))

(defvar kmail-target-file (concat kmail-directory "inbox.temp"))

(defvar kmail-map nil)

(defvar kmail-auto-headers t)

(defvar kmail-inc-buffer)

(require (quote mail-utils))

(progn (or (keymapp kmail-map) (setq kmail-map (make-keymap))) (suppress-keymap kmail-map) (define-key global-map "f" (quote kmail-find-folder)) (define-key kmail-map "n" (quote kmail-next)) (define-key kmail-map "p" (quote kmail-prev)) (define-key kmail-map "i" (quote kmail-inc)) (define-key kmail-map "t" (quote kmail-test)) (define-key kmail-map "f" (quote kmail-find-folder)) (define-key kmail-map "d" (quote kmail-delete)) (define-key kmail-map "u" (quote kmail-undelete)) (define-key kmail-map "^" (quote kmail-refile)) (define-key kmail-map "q" (quote kmail-quit)) (define-key kmail-map "x" (quote kmail-execute)) (define-key kmail-map "s" (quote kmail-save)) (define-key kmail-map "h" (quote kmail-show-headers)) (define-key kmail-map "." (quote kmail-show-msg)) (define-key kmail-map " " (quote kmail-scroll-up)) (define-key kmail-map "r" (quote kmail-reply)) (define-key kmail-map "a" (quote kmail-reply)) (define-key kmail-map "" (quote kmail-scroll-down)) (define-key kmail-map "r" (quote kmail-re-inc-test)))

(defun kmail nil "\
   *** Kmail instructions ***" (interactive) (byte-code "ÀˆÁ ‡" [nil kmail-inc] 2))

(defun kmail-what-line nil (byte-code "ŠÀ ˆÁ ÂÁ [!\\)‡" [beginning-of-line buffer-size forward-line] 6))

(defun kmail-current-num nil (byte-code "† Á ‡" [kmail-current-num kmail-what-line] 2))

(defun kmail-context nil (byte-code "† ÁÂ !‡" [kmail-current kmail-jump kmail-current-num] 3))

(defun kmail-file-name (folder) (byte-code "	P‡" [kmail-directory folder] 2))

(defun kmail-headers-name nil (byte-code "ÁÂQ‡" [kmail-folder "*Headers-" "*"] 3))

(defun kmail-headers-buffer nil (byte-code "ÀÁ !‡" [get-buffer kmail-headers-name] 3))

(defun kmail-simplify (str) (byte-code "É	GÊ\"ËË	GÆÈW…Q 	H‰ˆÌ>ƒ: †7 
ÊIˆ
T‰ˆÆ‰‚H È‰ˆ
Iˆ
T‰ˆT‰ˆ‚ ˆË
O.‡" [new str d p l spadded t ch nil make-string 32 0 (32 10 9)] 7))

(defun kmail-get-sender nil (byte-code "ÀÁ!†	 ÀÂ!‡" [mail-fetch-field "From" "Sender"] 3))

(defun kmail-narrow-to-header nil (byte-code "Á@ŠÂÃ!ˆ`)\"‡" [kmail-current narrow-to-region re-search-forward "^[ 	]*$"] 4))

(defun kmail-insert-summary-line nil (byte-code "`ÉUƒ ÊË!‚ƒ ŠÌÍ!ˆ`)ŠÎÏ!ˆÐÑdÂ#ƒ' ÒÏ!‚) dbˆ`)ŒÓ`\"ˆÔ ÕÖ!B)@†A ×A†H ØÙGZ\\Xƒ\\ ‚g ÚÛ	^\"!PÜÝÞ\"ÉßOàRÉGá^Oc.‡" [end mend t ss sender subject maxch summary sline 0 documentation kmail re-search-forward "^[ 	]*$" forward-char 1 search-forward "" backward-char narrow-to-region kmail-get-sender mail-fetch-field "Subject" "?????" "" 150 kmail-simplify buffer-substring "-- " format "%-20s" 20 " " 100] 15))

(defun kmail-inc nil (interactive) (byte-code "ÁˆÁ‰ˆÆÇ!È
!ˆÉÊË
ÌË\"%Í\")ˆÎÏ!‡" [kmail-inc-buffer nil errors exec-directory kmail-pobox kmail-target-file get-buffer-create " *movemail errors*" buffer-flush-undo set-process-sentinel start-process "movemail" expand-file-name kmail-inc-continue message "Moving mail... "] 10))

(defun kmail-inc-continue (proc stat) (interactive) (byte-code "ÊˆË	!† ÌÍ!Î!ƒ Ï!ˆÐÑ!‚œ Ò!?ƒ/ Ï
!ˆÓÔ!‚œ ÓÕ!ˆÏ
!ˆ
qˆÖ× ˆdbˆØ!ˆÙ`Ú \"ˆÛÜdÈ#…| T‰ˆÝÞÈÈ#ˆß ˆ`	àá!ˆâ ˆã	`\")ˆ‚P ˆdSbˆäå!…Š æá!ˆç!ˆè ˆé!ˆÓê\"**‡" [errors proc inbox kmail-inc-buffer kmail-target-file msg kmail-current-num new t p nil process-buffer kmail-find-folder-nosort "inbox" buffer-modified-p display-buffer error "*** Movemail failed!" file-exists-p message "No mail to incorporate!" "Incorporating mail..." 0 widen insert-file narrow-to-region mark re-search-forward "?
?" replace-match "" kmail-insert-summary-line forward-line 1 end-of-line delete-region looking-at "" delete-char delete-file kmail-sort kmail-jump "Incorporating mail...done: %d new"] 28))

(defun kmail-inc-from-file (fname) (interactive "fInc to this folder from movemail-format file: ") (byte-code "Åˆ	‰ˆÆÇ!È
!ˆÉÊË
Ì%Í\")ˆÎÏ!‡" [kmail-inc-buffer kmail-buffer errors fname kmail-target-file nil get-buffer-create " *movemail errors*" buffer-flush-undo set-process-sentinel start-process "movemail" "/bin/cp" kmail-inc-continue message "Moving mail... "] 9))

(defun kmail-find-folder-nosort (folname) (byte-code "Ð	!Ñ!
?…| Ò!‰ˆ
qˆebˆÓcˆÔÃ!ˆÕÄ!ˆÕÅ!ˆÕÆ!ˆÕÇ!ˆÕÈ!ˆÕÉ!ˆÕÊ!ˆÕË!ˆ	‰ˆÃ‰ˆÃ‰ˆÖ‰ˆÖ‰ˆ×‰	ˆÃ‰
ˆ
‰ˆØ‰ˆÙ‰ˆÚÉÛE‰ˆÜ!ˆ
*‡" [name folname b nil kmail-folder kmail-toc kmail-current kmail-current-num kmail-num-messages kmail-mode-info kmail-summary-buffer kmail-buffer major-mode mode-name mode-line-format kmail-map kmail-file-name get-file-buffer find-file-noselect " - ***KMAIL HELP***
Welcome to Kmail, and all that.
" set-buffer-modified-p make-local-variable 0 "0/0" kmail-mode "Kmail" "-- Kmail: %b " " %-" use-local-map] 15))

(defun kmail-find-folder-noselect (folname) (byte-code "Ã	!Ä!
?… Å	!‰ˆ
qˆÆ ˆÇÈ!ˆ
*‡" [name folname b kmail-file-name get-file-buffer kmail-find-folder-nosort kmail-sort kmail-jump 0] 6))

(defun kmail-find-folder (name) (interactive "sFind folder named: ") (byte-code "ÂˆÃÄ!!ˆ	… ÅÆ !‡" [name kmail-auto-headers nil switch-to-buffer kmail-find-folder-noselect switch-to-buffer-other-window kmail-headers-buffer] 5))

(defmacro kt-make (marker fate) (byte-code "Â	E‡" [marker fate list] 3))

(defmacro kt-marker (toc) (byte-code "ÁD‡" [toc car] 2))

(defmacro kt-fate (toc) (byte-code "ÁÂDD‡" [toc car cdr] 3))

(defmacro kt-set-fate (toc fate) (byte-code "ÂÃD	E‡" [toc fate setcar cdr] 3))

(defun kmail-goto-summary (&optional which-msg) (byte-code "† 	@bˆÂÃ!ˆÄÅ!‡" [which-msg kmail-current forward-line -1 forward-char 1] 3))

(defun kmail-set-status (ch) (byte-code "Ä 
ŠŒÅ ˆÆ ˆÇÈ!ˆÉÈ\"ˆ…, qˆŠÊ	T!ˆÇÈ!ˆÉÈ\")))*‡" [b n kmail-current-num ch kmail-headers-buffer widen kmail-goto-summary delete-char 1 insert-char goto-line] 10))

(defun kmail-sort nil (byte-code "ÇÈ\"ˆŒÉ ˆÂ‰ˆÊ‰ˆdbˆÂËÌeÅ#…< T‰ˆŠÍ ˆ`)‰ˆÎÏ T\"ÂD	B‰ˆ‚ )ˆ†E Ð …J Ñ )ˆÇÒ\"‡" [kmail-folder kmail-toc nil kmail-num-messages eol t kmail-auto-headers message "Sorting %s..." widen -1 search-backward "" end-of-line set-marker make-marker kmail-headers-buffer kmail-recalc-headers "Sorting %s...done"] 11))

(defun kmail-message-status nil (byte-code "Â	!ÃHÄ=ƒ Å‚ Æ=… Ç)‡" [ch kmail-current kt-flags 0 45 unseen 32 read] 3))

(defun kmail-reply-status nil (byte-code "Â	!ÃHÄ=ƒ Å‚! Æ=ƒ Ç‚! È=…! É)‡" [ch kmail-current kt-flags 1 45 none 65 answered 70 forwarded] 3))

(defun kmail-touch-mode-line nil (byte-code "ÄÅ	
A@† Æ$‰ˆÇÈ !‡" [kmail-mode-info kmail-current-num kmail-num-messages kmail-current format "%d/%d %s" "" set-buffer-modified-p buffer-modified-p] 5))

(defun kmail-narrow (start) (byte-code "Â ˆTbˆÃÄdÁ#ƒ ÅÆ!‚ dbˆÇ`\"‡" [start t widen search-forward "" backward-char 1 narrow-to-region] 6))

(defun kmail-jump (msg) (interactive "nJump to message: ") (byte-code "Éˆqˆ
8	… 
ÊYƒ] ŠŒË ˆ	‰ˆ
‰ˆÌ ˆÍÎ!…, ÏÐ!ˆÑ …> qˆÒ
T!)))ˆÓ ˆÔ	@!ˆÕ!…Y Öe\")‚c ×Ø
#)‡" [kmail-buffer toc-entry msg kmail-toc kmail-current kmail-current-num b w kmail-folder nil 0 widen kmail-goto-summary looking-at "-" kmail-set-status 32 kmail-headers-buffer goto-line kmail-touch-mode-line kmail-narrow get-buffer-window set-window-start message "Message %d out of range in folder %s"] 14))

(defun kmail-show-msg nil (interactive) (byte-code "ÁˆÂ ˆÃÄ!e\"‡" [kmail-buffer nil kmail-context set-window-start display-buffer] 5))

(defun kmail-next nil (interactive) (byte-code "ÀˆÁÂ T!‡" [nil kmail-jump kmail-current-num] 3))

(defun kmail-prev nil (interactive) (byte-code "ÀˆÁÂ S!‡" [nil kmail-jump kmail-current-num] 3))

(defun kmail-quit nil (interactive) (byte-code "ÅˆqˆÇ È	!
… È
!…# É ?…# Ê!ˆ…1 É ?…1 Ê!ˆË	!ˆË
!ˆp	
D>…F ÌÅÆ\",‡" [kmail-buffer b hb bw hbw nil t kmail-headers-buffer get-buffer-window one-window-p delete-window bury-buffer switch-to-buffer] 12))

(defun kmail-delete nil (interactive) (byte-code "ÂˆÃ ˆÄU… ÅÆ!ˆÇ	AÈ\"ˆÉÊ!ˆË ˆÌ ‡" [kmail-current-num kmail-current nil kmail-context 0 error "You can't delete the 0th message!" setcar "Deleted" kmail-set-status 68 kmail-touch-mode-line kmail-next] 7))

(defun kmail-refile (folder) (interactive "sRefile to folder: ") (byte-code "ÃˆÄ ˆÅU… ÆÇ!ˆÈ	AÉ
P\"ˆÊË!ˆÌ ˆÍ ‡" [kmail-current-num kmail-current folder nil kmail-context 0 error "You can't refile the 0th message!" setcar "Refiled: " kmail-set-status 94 kmail-touch-mode-line kmail-next] 7))

(defun kmail-undelete nil (interactive) (byte-code "ÁˆÂ ˆÃAÁ\"ˆÄÅ!ˆÆ ‡" [kmail-current nil kmail-context setcar kmail-set-status 32 kmail-touch-mode-line] 5))

(defun kmail-execute nil (interactive) (byte-code "ÍˆÎ ˆÏÐ!ˆÑ ˆ	ÒÍÍA‰…Æ 
T‰ˆ@‰ˆA@‰…Â ÓÔ\"ƒJ @bˆÕÖ!ˆ×`!ˆØed\"ˆÑ ‚Â ÓÙ\"ƒ¾ @bˆÕÖ!ˆ×`!ˆÚÛÜ!ÝÜ!O!Þ!p
	Íƒª ßed\"‰ˆqˆŒÑ ˆdbˆcˆ>†¢ B‰ˆq)‚² àedÌÜ%-ˆØed\"ˆÑ ‚Â áâ
\"ˆ‚ ˆŠ…Û @qˆã ˆA‰ˆ‚È ),ˆä ˆã ˆåÒ!ˆæ ˆÏç!‡" [toc kmail-toc n touched-folders m fate fname b kb cur kmail-current str t nil kmail-context message "Processing deletes and refiles..." widen 0 string-match "^Deleted" search-backward "" kmail-narrow delete-region "^Refiled: \\(.*\\)" kmail-file-name match-beginning 1 match-end get-file-buffer buffer-substring write-region error "Bad fate for message %d" kmail-sort kmail-save kmail-jump kmail-quit "Processing deletes and refiles...done"] 28))

(defun kmail-save nil (interactive) (byte-code "ÁˆÂ ˆŒÃ ˆebˆÄÅdÀÆ$ƒ ÇÈ!‚ dbˆÉ`dÊ ÁÀ%)‡" [t nil kmail-context widen search-forward "" 2 backward-char 1 write-region buffer-file-name] 11))

(defun kmail-recalc-headers nil (byte-code "ÉÊ!ˆ	pË Ì†1 ÍÎ !‰ˆqˆÏ‰ˆÐ‰ˆÑ!ˆÒÈ!ˆ
‰ˆqˆÓed\"ˆ…_ 
qˆÔ@!ˆÕ`Ö×!ˆ`\"‰ˆqˆcˆA‰ˆ‚: ˆ
q,ˆÉØ!‡" [toc kmail-toc b hb str major-mode mode-name kmail-map kmail-buffer message "Calculating headers..." kmail-headers-buffer nil get-buffer-create kmail-headers-name kmail-headers "Kmail:Headers" use-local-map make-local-variable delete-region kmail-goto-summary buffer-substring forward-line 1 "Calculating headers...done"] 13))

(defun kmail-show-headers nil (interactive) (byte-code "Âˆƒ Ã ?… Ä ˆÅÃ !‚# Æ † ÇÈ !ˆÉ	!‡" [kmail-current kmail-buffer nil kmail-headers-buffer kmail-recalc-headers switch-to-buffer-other-window one-window-p delete-window selected-window switch-to-buffer] 9))

(defun kmail-scroll-down nil (interactive) (byte-code "ÃˆÄ Å
!	ƒ Æ	!ˆÇ ˆÆ!‚ È
!*‡" [w kw kmail-buffer nil selected-window get-buffer-window select-window scroll-down display-buffer] 7))

(defun kmail-scroll-up nil (interactive) (byte-code "ÃˆÄ Å
!	ƒ Æ	!ˆÇ ˆÆ!‚ È
!*‡" [w kw kmail-buffer nil selected-window get-buffer-window select-window scroll-up display-buffer] 7))

(defun kmail-reply (who) (interactive (byte-code "ÁÂÃ!ˆr‰Ä>?… Å ˆ‚ ˆÆÇ\"A)C‡" [ch nil message "Reply to (all or sender): " (97 115) beep assq ((97 . all) (115 . sender))] 5)) (byte-code "ÄˆÈ ˆŒÉ ˆÊË!† Ì Í=… ÊÎÄÅ#Í=…) ÊÏÄÅ#
ƒ7 Ð
Q‚9 ÑÄ	ÊÒ!ÓÊÔ!Pp&,)‡" [ch sndr ccs who nil t recip allccs kmail-context kmail-narrow-to-header mail-fetch-field "Reply-to" kmail-get-sender all "cc" "to" ", " mail-other-window "subject" "In reply to " "message-id"] 15))