mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* mailalias.el (build-mail-aliases): Fixed the regexp for "^group".

Browse Source
This commit is contained in:
Francesco Potortì 1995-07-10 14:46:00 +00:00
parent 370d8fcccf
commit d9817d8cd7
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/mailalias.el
View File

@ -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