Mercurial > emacs
changeset 3743:e67f922b73ed
(define-mail-alias): Remove excess whitespace better.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Jun 1993 20:51:15 +0000 |
| parents | f5bbe69b8bc5 |
| children | f344542ac7fd |
| files | lisp/mail/mailalias.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailalias.el Tue Jun 15 20:50:11 1993 +0000 +++ b/lisp/mail/mailalias.el Tue Jun 15 20:51:15 1993 +0000 @@ -157,10 +157,10 @@ (setq mail-aliases nil) (if (file-exists-p "~/.mailrc") (build-mail-aliases)))) - ;; Strip leading and trailing blanks. - (if (string-match "^[ \t]+" definition) + ;; strip garbage from front and end + (if (string-match "\\`[ \t\n,]+" definition) (setq definition (substring definition (match-end 0)))) - (if (string-match "[ \t]+$" definition) + (if (string-match "[ \t\n,]+\\'" definition) (setq definition (substring definition 0 (match-beginning 0)))) (let ((first (aref definition 0)) (last (aref definition (1- (length definition))))