Mercurial > emacs

changeset 12516:254987dd395f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mailalias.el (build-mail-aliases): Fixed the regexp for "^group".
author Francesco Potortì <pot@gnu.org>
date Mon, 10 Jul 1995 14:46:00 +0000
parents 33e32dc21948
children 2f90abd1c659
files lisp/mail/mailalias.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mailalias.el	Sun Jul 09 21:58:03 1995 +0000
+++ b/lisp/mail/mailalias.el	Mon Jul 10 14:46:00 1995 +0000
@@ -146,10 +146,9 @@
 		   (beginning-of-line))
 		  (t (setq file nil))))
 	  (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)))
+	  (while (re-search-forward
+		  "^\\(a\\|alias\\|g\\|group\\)[ \t]+\\([^ \t]+\\)" nil t)
+	    (let* ((name (match-string 2))
 		   (start (progn (skip-chars-forward " \t") (point))))
 	      (end-of-line)
 	      (define-mail-alias