Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 12515:33e32dc21948 | 12516:254987dd395f |
|---|---|
| 144 (beginning-of-line) | 144 (beginning-of-line) |
| 145 (insert "# ") ; to ensure we don't re-process this file | 145 (insert "# ") ; to ensure we don't re-process this file |
| 146 (beginning-of-line)) | 146 (beginning-of-line)) |
| 147 (t (setq file nil)))) | 147 (t (setq file nil)))) |
| 148 (goto-char (point-min)) | 148 (goto-char (point-min)) |
| 149 (while (or (re-search-forward "^a\\(lias\\|\\)[ \t]+" nil t) | 149 (while (re-search-forward |
| 150 (re-search-forward "^g\\(roup\\|\\)[ \t]+" nil t)) | 150 "^\\(a\\|alias\\|g\\|group\\)[ \t]+\\([^ \t]+\\)" nil t) |
| 151 (re-search-forward "[^ \t]+") | 151 (let* ((name (match-string 2)) |
| 152 (let* ((name (buffer-substring (match-beginning 0) (match-end 0))) | |
| 153 (start (progn (skip-chars-forward " \t") (point)))) | 152 (start (progn (skip-chars-forward " \t") (point)))) |
| 154 (end-of-line) | 153 (end-of-line) |
| 155 (define-mail-alias | 154 (define-mail-alias |
| 156 name | 155 name |
| 157 (buffer-substring start (point)) | 156 (buffer-substring start (point)) |