From xemacs-m  Wed Jan  8 16:25:43 1997
Received: from omega.intranet.com ([192.148.106.20])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with SMTP
	  id QAA12632 for <xemacs-beta@xemacs.org>; Wed, 8 Jan 1997 16:25:42 -0600 (CST)
Received: by omega.intranet.com; (5.65v3.2/1.3/10May95) id AA03653; Wed, 8 Jan 1997 17:25:07 -0500
Date: Wed, 8 Jan 1997 17:25:45 -0500 (EST)
Message-Id: <199701082225.RAA39800@blight.IntraNet.com>
From: Jonathan Edwards <edwards@intranet.com>
To: xemacs-beta@xemacs.org
Subject: .mailrc SEGV
X-Face: #bA9Kpw-a@xMyaNJ-2wie(5Lje^S*i^8!VUOF84U!/jSPG*y@3s4Qu+\-FBQ?vQpE1S1<Vo
 TeWVx=wH}wf_WC]x:D%qd,r*|!~q=gVAWEA;T~3V4};X$r7W!FA(#Zj'E7M^(Tv)

I have a user who put
# -*- mode: ksh -*-
as the first line of her .mailrc.

This causes XEmacs to SEGV, with the following Lisp backtrace:

  re-search-forward("^\\(a\\(lias\\)?\\|g\\(roup\\)?\\|source\\)[    ]+" nil t)
  # (unwind-protect ...)
  # bind (buffer obuf recursivep file)
  build-mail-aliases()
  mail-aliases-setup()
  # bind (actions replybuffer cc in-reply-to subject to)
  mail-setup(nil nil nil nil nil nil)
  # bind (index buffer actions replybuffer cc in-reply-to subject to noerase)
  mail(nil)
  # bind (command-debug-status)
  call-interactively(mail)
  # (condition-case ... . error)
  # (catch top-level ...)

This occurs on 19.14 and 20.0 b34.

I know - don't do that.

