Mercurial > emacs
diff lisp/mail/mailalias.el @ 12516:254987dd395f
* 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 | 7291d1627d2c |
children | acde2327c000 |
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