Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!mit-eddie!bloom-beacon!apple!gem.mps.ohio-state.edu!wuarchive!cs.utexas.edu!mailrus!iuvax!uceng!kamat From: kamat@uceng.UC.EDU (Govind N. Kamat) Newsgroups: gnu.emacs.bug Subject: VM problem in splitting folders Message-ID: Date: 6 Oct 89 15:13:30 GMT Distribution: gnu Organization: College of Engg., University of Cincinnati Lines: 49 On occasion, I receive a message that has the word "From" starting off a paragraph. The VM mail program incorrectly assumes that this is the UNIX From_ line beginning a new message. The following small change to VM 4.41 makes it a little smarter about where to split folders into messages: *** vm.el.OLD Fri Oct 6 10:15:19 1989 --- vm.el Fri Oct 6 10:12:08 1989 *************** *** 604,610 **** separator-string "\n\001\001\001\001\n\001\001\001\001" trailer-length 6) (setq start-regexp "^From " ! separator-string "\n\nFrom " trailer-length 2)) (if vm-message-list (let ((mp vm-message-list) --- 604,610 ---- separator-string "\n\001\001\001\001\n\001\001\001\001" trailer-length 6) (setq start-regexp "^From " ! separator-string "\n\nFrom .+\n[^\000-\037\177: ]*:" trailer-length 2)) (if vm-message-list (let ((mp vm-message-list) *************** *** 623,629 **** (vm-set-start-of message (vm-marker (match-beginning 0))) (setq vm-message-list (list message) tail-cons vm-message-list)))) ! (while (search-forward separator-string nil t) (setq marker (vm-marker (+ trailer-length (match-beginning 0))) message (vm-make-message)) (vm-set-start-of message marker) --- 623,629 ---- (vm-set-start-of message (vm-marker (match-beginning 0))) (setq vm-message-list (list message) tail-cons vm-message-list)))) ! (while (re-search-forward separator-string nil t) (setq marker (vm-marker (+ trailer-length (match-beginning 0))) message (vm-make-message)) (vm-set-start-of message marker) -- Govind N. Kamat College of Engineering kamat@uceng.UC.EDU University of Cincinnati Cincinnati, OH 45221, USA