diff options
| author | Francesco Potortì <pot@gnu.org> | 1995-07-10 14:46:00 +0000 |
|---|---|---|
| committer | Francesco Potortì <pot@gnu.org> | 1995-07-10 14:46:00 +0000 |
| commit | d9817d8cd78d8fcc82bc6576cc42978d07bd35df (patch) | |
| tree | 8c6d8625a9ef779296b0fd600bbbbee2d65ef81d /lisp/mail/mailalias.el | |
| parent | 370d8fcccf430fe509d3aa67fdb008d69fa77eef (diff) | |
| download | emacs-d9817d8cd78d8fcc82bc6576cc42978d07bd35df.tar.gz | |
* mailalias.el (build-mail-aliases): Fixed the regexp for "^group".
Diffstat (limited to 'lisp/mail/mailalias.el')
| -rw-r--r-- | lisp/mail/mailalias.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index c7ce5e51541..77630023099 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -146,10 +146,9 @@ By default, this is the file specified by `mail-personal-alias-file'." (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 |