;ELC   
;;; compiled by jwz@thalidomide on Mon Jan 31 22:49:45 1994
;;; from file /th/jwz/emacs19/lisp/vm/babyl-to-vm.el
;;; emacs version 19.9 Lucid.
;;; bytecomp version 2.22; 22-dec-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(defconst r-to-v-notice "rmail-to-vm" "\
Preface for rmail-to-vm utility prompts")
(defvar rmail-to-vm-ignore-src-backups t "\
If true, rmail-hierarchy-to-vm skips translating rmail backup files")
(defvar rmail-to-vm-dont-redo t "\
If true, don't process rmail files in hierarchy scan that already have
existing vm versions")
(defconst rmail-file-head-line "^BABYL OPTIONS:.*$" "\
First line in rmail file")
(byte-code "ÀÂÄÆÈP	ÊÌÎÐ‡" ["\n" rmail-entry-start "^" rmail-entry-end "^\\*\\*\\* EOOH \\*\\*\\*\n" rmail-entry-msg-delim "[01],.*\n" rmail-attrs "^" rmail-attrs-line "^Summary-line:.*$" rmail-summary-line "X-VM-Attributes: [" vm-attr-start ".rmail" rtv-done-suffix nil] 2)
(fset 'rmail-hierarchy-to-vm #[(srcDir) "À	!«†Â	!ª…ÃÄ	\"ˆÅ	!‰«â@‰È˜¬ÏÉ˜¬É\n«†Ë!¬¿«ˆÍ	P!¬³Î	P!«ŒÏÐ	P#ˆªŸÒ	P!«—À	P!«ŠÓ	ÔQ!ˆª…ÕÖ×ˆ)A‰¬)ÏØ	#‡" [file-directory-p srcDir file-name-as-directory error "rmail-hierarchy-to-vm: %s not a directory" directory-files dirEntries entry "." ".." rmail-to-vm-ignore-src-backups backup-file-name-p rmail-to-vm-dont-redo rtv-already-did file-symlink-p message "%s: symlink %s disregarded" r-to-v-notice file-exists-p rmail-hierarchy-to-vm "/" failure (byte-code "À	\nP!‡" [rmail-folder-to-vm srcDir entry] 3) ((file-error (byte-code "ÀÁÂP\"!¬‡ÅÆP\"ˆÀ‡" [y-or-n-p format "can't access %s, continue onwards? " srcDir entry error "rmail-hierarchy-to-vm foiled on %s"] 5)) (error (byte-code "ÀÁÂP\"!¬‡ÅÆP\"ˆÀ‡" [y-or-n-p format "ignoring %s; bad rmail format, continue on? " srcDir entry error "rmail-hierarchy-to-vm foiled on %s"] 5))) "%s %s done."] 6 "\
Apply rmail-folder-to-vm to all rmail folders in hierarchy rooted at SRCDIR.
Non-rmail files in hierarchy ignored.  Original rmail files are renamed to
'<fn>.rmail' (but otherwise unaffected) and new vm versions are given original
name '<fn>'.  If rmail-to-vm-ignore-src-backups t then backup versions aren't
translated." "Drmail-to-vm on hierarchy: "])
(fset 'rtv-already-did #[(fn) "À	ÂP!«‚Ã‡	GG	ZO˜­‰À	ÇZO!*‡" [file-exists-p fn ".rmail" t rtv-done-suffix sufflen fnlen 0] 5])
(fset 'rmail-folder-to-vm #[(src) "À	!«†ÂÃ!ˆª–Ä	!¬‡ÂÅ	\"ˆªŠÆ	!¬…ÂÇ	\"ˆÈ	!	Š	qˆÊËÌˆÍ!«ÊÏÐˆebˆÍÑ!«†Ò”Ò•|ˆÍÓ!«…ÊÔÕˆÖ×!ˆØ	!*‡" [file-directory-p src error "Rmail source must not be a directory" file-exists-p "Rmail source %s not found" file-readable-p "Rmail source %s unreadable" create-file-buffer dstBuf failure (insert-file-contents src t) ((error (byte-code "ÀÁ!ˆÂ!ˆÄÅ#‡" [set-buffer-modified-p nil kill-buffer dstBuf error "can't read %s; %s" src failure] 4))) looking-at rmail-file-head-line (rmail-buffer-to-vm) ((error (byte-code "ÀÁ!ˆÂ!ˆÄÅ\"‡" [set-buffer-modified-p nil kill-buffer dstBuf error "%s bad format, giving up..." src] 3))) "\\(\n+\\)From " 1 "From " (byte-code "À	‰ÂPÃ#ˆÄ	!‡" [rename-file src ".rmail" 1 write-file] 4) ((error (byte-code "ÀÁ!ˆÂ!ˆÄÅ#‡" [set-buffer-modified-p nil kill-buffer dstBuf error "can't write %s; %s" src failure] 4))) set-buffer-modified-p nil kill-buffer] 3 "\
create vm version of rmail file, leaving original rmail version with
'.rmail' appended on name and leaving the vm version with the original name." "fRmail source folder: "])
(byte-code "ÀÁMˆÂÃM‡" [rmail-amt-entries #[nil "ÀÁŠebˆm¬ŒÄÁÆ#«…Tªq)*‡" [0 nil opoint count re-search-forward rmail-entry-start t] 4] current-match #[(ord) "”•{‡" [ord] 2]] 2)
(fset 'rmail-buffer-to-vm #[nil "`Á\n!ˆ`|ˆ)ÃÄÆ #ˆÇÈ 	\nË ­’\nT\nÃÌÆ \n	%ˆªj*‡" [delFrom re-search-forward rmail-entry-end message "%s buffer %s" r-to-v-notice buffer-file-name 0 rmail-amt-entries total-amt amt-done rmail-message-to-vm "%s buffer %s: %d of %d done"] 6 "\
Translate rmail-format contents of current buffer to vm format." nil])
(fset 'rmail-message-to-vm #[nil "À	\nPÃ TÄ#…6Å”bˆÆ	!ˆÅ”Å•|ˆŠÀ!ˆ`)À	Ä#«‹ÊÅ!Å”Å•|ˆªËŠÀ!ˆ`)ÍÎ\"ÐÍÒ\"«ƒÓªÐÐÍ×\"«ƒÓªÐÍÙ\"«ƒÓªÐŠÀÛÄ#¬ŸÀÜÄ#¬—ÀÝÄ#¬ÀÞÄ#¬‡ÀßÄ#ˆÊà!)!ŠÀâãä‰‰å°Ä#«˜Êà!æÊç!æÊè!æÊé!æêÊë!°\nªŽÀìÄ#«…Êà!ªí).ï!æ.ð°cˆñææææò°cˆŠÀ!ˆ`)À3Ä#ˆÅ”SÅ•S|ˆ¬‰`SÀô!ˆ`|ˆ.À!ˆõà!ˆÄ‡" [re-search-forward rmail-entry-start rmail-attrs buffer-size t 0 looking-at rmail-entry-end eocm rmail-attrs-line current-match "1,," rmail-attrs-string string-match "0," toggled-header "nil" new-attr "unseen" "t" unseen-attr unread-attr deleted-attr "filed" filed-attr "answered" replied-attr "^From: .*<\\(.*\\)>" "^From: \\([^ \n]*\\)" "^Really-From: \\([^ \n]*\\)" "^Sender: .*<\\(.*\\)>" "^Sender: \\([^ \n]*\\)" 1 From-addr-field "^	id [^ ]* " "\\([^,]*\\), " "\\([^ ]*\\) " "\\([^ ]*\\)" " " 3 2 5 "19" 4 "Date: \\(.*\\)$" "Previously" From-date-field "From " "\n" "X-VM-Attributes: [" "]\n" rmail-entry-msg-delim "^$" delete-backward-char] 11 "\
Convert message following point in current buffer from rmail to vm format,
or return nil if no message following." nil])