From xemacs-m  Wed Dec 11 17:20:04 1996
Received: from spsem02.sps.mot.com (spsem02.sps.mot.com [192.70.231.5]) by xemacs.cs.uiuc.edu (8.8.3/8.8.3) with SMTP id RAA01500 for <xemacs-beta@xemacs.org>; Wed, 11 Dec 1996 17:20:02 -0600 (CST)
Received: from mogate.sps.mot.com by spsem02.sps.mot.com (4.1/SMI-4.1/Email 2.1 10/25/93)
	id AA25173 for xemacs-beta@xemacs.org; Wed, 11 Dec 96 16:19:57 MST
Received: from txbc.sps.mot.com by mogate.sps.mot.com (4.1/SMI-4.1/Email-2.0)
	id AA12044 for xemacs-beta@xemacs.org; Wed, 11 Dec 96 16:19:56 MST
Received: from guadalupe.sps.mot.com by txbc.sps.mot.com with SMTP
	(1.38.193.4/16.2) id AA25193; Wed, 11 Dec 96 17:19:55 -0600
Received: by sso-austin.sps.mot.com (4.1/SMI-4.1)
	id AA11212; Wed, 11 Dec 96 17:19:54 CST
Date: Wed, 11 Dec 96 17:19:54 CST
Message-Id: <9612112319.AA11212@sso-austin.sps.mot.com>
From: combee@sso-austin.sps.mot.com (Ben Combee)
To: xemacs-beta@xemacs.org
Subject: Odd VM/perl-mode interaction in 19.15b3
Organization: Motorola/MIMS/MSPG/CTSD

I observed this buggy behavior in both 19.15b2 and 19.15b3.  The
problem is that interpreter-mode-alist has "perl" listed as a match
for perl-mode in lisp/prim/files.el.  I had VM setup to look for new
mail from the Perl 5 Porters mailing list, and since that incoming
mail folder started with a line of the form

    From perl-porters@whatever.com 8 Dec 1996

it was wasting A LOT of cycles loading perl-mode and fontifying the
mail folders (even the crash one!).  It also messed up the display as
some fontification was left over in the buffer from cperl before VM
could do its work.

I changed this by this hand-patch in files.el, but the proper way to
handle this would be to change things such that the buffers VM opens
don't have automatic mode setting enabled.  Being a novice to the
Emacs mode code, I'm not sure how to make that modification.

*** files.el~   Thu Oct 31 11:01:14 1996
--- files.el    Tue Dec 10 17:17:12 1996
***************
*** 1126,1130 ****
              ("^#!.*sh\\b" . sh-mode)
              ("^#!.*\\b\\(scope\\|wish\\|tcl\\|expect\\)" . tcl-mode)
!             ("perl"   . perl-mode)
              ("python" . python-mode)
              ("awk\\b" . awk-mode)
--- 1126,1130 ----
              ("^#!.*sh\\b" . sh-mode)
              ("^#!.*\\b\\(scope\\|wish\\|tcl\\|expect\\)" . tcl-mode)
!             ("/perl"   . perl-mode)
              ("python" . python-mode)
              ("awk\\b" . awk-mode)

-- 
Ben Combee, Software Developer (ARMed and dangerous)
Motorola > MIMS > MSPG > CTSD > AMCD > Austin Design Center
E-mail: combee@sso-austin.sps.mot.com   Phone: (512) 891-7141

