*** vm-folder.el	1998/11/20 01:23:22	1.1
--- vm-folder.el	1999/05/18 20:58:32
***************
*** 545,550 ****
--- 545,551 ----
  			     (t vm-default-From_-folder-type))))
  		    ((looking-at "\001\001\001\001\n") 'mmdf)
  		    ((looking-at "BABYL OPTIONS:") 'babyl)
+ 		    ((looking-at "\014\n0, unseen,,\n") 'mutant-babyl) ;\^L
  		    (t 'unknown)))))
        (and temp-buffer (kill-buffer temp-buffer)))))
  
***************
*** 606,611 ****
--- 607,614 ----
  The folder header is the text at the beginning of a folder that
  is a legal part of the folder but is not part of the first
  message.  This is for dealing with BABYL files."
+   ;; very deliberately, we do nothing here for mutant-babyl files.
+   ;; (Nothing is necessary. They start off with a "\014\n".)
    (cond ((eq vm-folder-type 'babyl)
  	 (search-forward "\037" nil 0))))
  
***************
*** 779,784 ****
--- 782,797 ----
  	    (goto-char (match-beginning 0))
  	    t )
  	nil )))
+    ((eq vm-folder-type 'mutant-babyl)
+     ;; probably won't ever see a mutant-babyl folder with EOOH in it, but
+     ;; hey, why not be oversafe?
+     (let ((reg1 "\014\n0, *unseen,+\n\\(\\*\\*\\* EOOH \\*\\*\\*\n\\)?")
+ 	  (case-fold-search nil))
+       (catch 'done
+ 	(while (re-search-forward reg1 nil 'no-error)
+ 	  (goto-char (match-beginning 0))
+ 	  (throw 'done t))
+ 	nil )))
     ((eq vm-folder-type 'babyl)
      (let ((reg1 "\014\n[01],")
  	  (case-fold-search nil))
***************
*** 828,833 ****
--- 841,849 ----
  	    (forward-char -5)))))
     ((eq vm-folder-type 'mmdf)
      (vm-find-leading-message-separator))
+    ((eq vm-folder-type 'mutant-babyl)
+     (vm-find-leading-message-separator)
+     (forward-char -1))
     ((eq vm-folder-type 'babyl)
      (vm-find-leading-message-separator)
      (forward-char -1))))
***************
*** 851,856 ****
--- 867,877 ----
  	  (case-fold-search nil))
        (while (looking-at reg1)
  	(forward-line 1))))
+    ((eq vm-folder-type 'mutant-babyl)
+     (progn
+       (search-forward "\n0, unseen,,\n" nil 0)
+       (if (looking-at "\\*\\*\\* EOOH \\*\\*\\*\n")
+ 	  (goto-char (match-end 0)))))
     ((eq vm-folder-type 'babyl)
      (search-forward "\n*** EOOH ***\n" nil 0))))
  
***************
*** 864,869 ****
--- 885,892 ----
     ((eq vm-folder-type 'BellFrom_))
     ((eq vm-folder-type 'mmdf)
      (forward-char 5))
+    ((eq vm-folder-type 'mutant-babyl)
+     (forward-char 1))
     ((eq vm-folder-type 'babyl)
      (forward-char 1))))