montnaro@sprite.crd.ge.com (Skip Montanaro) (06/27/89)
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)))