
(require (quote mail-utils))

(defvar vm-athena-tmp-directory "/usr/tmp/" "\
Directory to store temporary output file created by movemail.")

(defvar vm-athena-tmpfile-prefix "vm-movemail" "\
Prefix of filename to for temporary movemail output.")

(defvar vm-athena-fake-spool-file (make-temp-name (concat vm-athena-tmp-directory (getenv "USER") ".vm-fake-spool")) "\
Fake spool file used when getting mail from Athena post office.")

(setq vm-spool-files (cons vm-athena-fake-spool-file vm-spool-files))

(defun vm-athena-check-pop-mail nil "\
Check for new mail at the post office.
Returns t if new mail, nil otherwise." (byte-code "ÁÃÄ!ÅŽÆÇÁ
ÁÈÉ&ˆŠ
qˆebˆÊË!‰))ˆ*‡" [newmail nil buffer generate-new-buffer "*from output*" ((byte-code "Á!‡" [buffer kill-buffer] 2)) call-process "from" "-t" "-p" looking-at "^You have"] 8))

(defun vm-athena-get-pop-mail (tofile) "\
Get new mail from post office into FILE given as argument." (byte-code "ÁÅŽŠÆÇ!‰ˆÈ!ˆÉÊË
\"ÁÁÌÍÎ!P&ˆÏ!?ƒ+ Á‚c qˆÐedÑÒ$ˆdbˆÓÔ!ˆÕ`d\"ˆebˆÖ×!…P ÕeØÙ!\"ˆÚÄ!ˆÛ×Üed\"P!ˆÝÞ!ˆÁ)))‡" [errors nil exec-directory tofile t ((byte-code "… Á!‡" [errors kill-buffer] 2)) generate-new-buffer " *rmail loss*" buffer-flush-undo call-process expand-file-name "movemail" "po:" getenv "USER" buffer-modified-p subst-char-in-region 10 32 skip-chars-backward " 	" delete-region looking-at "movemail: " match-end 0 beep message buffer-substring sit-for 3] 18))

(defun vm-athena-convert-movemail-to-mbox-format (fromfile tofile) "\
Convert movemail output file FROMFILE to Unix mbox format.
Store converted file in TOFILE." (byte-code "ŠÇÈ	!!ÉŽÊ‰ˆqˆebˆËÌ!ˆÍe`\"ˆËÎÃÄ#…. ÏÐ!ˆÑcˆ‚ ˆebˆÒÓ ÔQcˆÕËÖÃÄ#…Y T‰ˆÍ`×Z`\"ˆÒÓ ÔQcˆ‚; ˆÍdSd\")ˆdbˆÔcˆØ!)))‡" [buffer fromfile vm-folder-type nil t msg-counter tofile find-file-noselect expand-file-name ((byte-code "Á!‡" [buffer kill-buffer] 2)) From_ search-forward "
0, unseen,,
" delete-region "
From " forward-char -5 62 "
From popserver " current-time-string "
" 1 "
0, unseen,,
" 15 write-file] 14))

(defun vm-athena-make-fake-spool nil "\
Get pop mail in vm-athena-fake-spool-file." (byte-code "	Å
!PÆ!ˆÇ!?† ÈÉÊË!8\"ƒ  Ã‚9 ÈÉÊË!8\"…. Ì!ˆÍ\"ˆÌ!ˆÃ)‡" [tmp vm-athena-tmp-directory vm-athena-tmpfile-prefix t vm-athena-fake-spool-file make-temp-name vm-athena-get-pop-mail file-exists-p equal 0 7 file-attributes delete-file vm-athena-convert-movemail-to-mbox-format] 11))