Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!sprite.crd.ge.com!montnaro
From: montnaro@sprite.crd.ge.com (Skip Montanaro)
Newsgroups: gnu.emacs
Subject: Small diff for mailalias.el
Message-ID: <8906270200.AA01455@sprite.crd.Ge.Com>
Date: 27 Jun 89 02:00:17 GMT
Sender: daemon@tut.cis.ohio-state.edu
Reply-To: <montanaro@sprite.crd.ge.com> (Skip Montanaro)
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 23


I /usr/ucb/mail, the "alias" and "group" commands are synonomous, at least
they appear to be from the documentation. Below is a small context diff for
mailalias.el that adds recognition for "group". Diff is against 18.52.

Skip Montanaro (montanaro@sprite.crd.ge.com)

*** /usr/local/emacs/lisp/mailalias.el	Wed May 11 09:23:03 1988
--- mailalias.el	Mon Jun 26 21:54:58 1989
***************
*** 107,111 ****
  	        (forward-char 1)))
  	  (goto-char (point-min))
! 	  (while (re-search-forward "^a\\(lias\\|\\)[ \t]+" nil t)
  	    (re-search-forward "[^ \t]+")
  	    (let* ((name (buffer-substring (match-beginning 0) (match-end 0)))
--- 107,112 ----
  	        (forward-char 1)))
  	  (goto-char (point-min))
! 	  (while (or (re-search-forward "^a\\(lias\\|\\)[ \t]+" nil t)
! 		     (re-search-forward "^g\\(roup\\|\\)[ \t]+" nil t))
  	    (re-search-forward "[^ \t]+")
  	    (let* ((name (buffer-substring (match-beginning 0) (match-end 0)))