diff options
| author | Richard M. Stallman | 1993-06-15 20:51:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-15 20:51:15 +0000 |
| commit | 3af1a1f3c21056071fbfb2449dcd0d57ff7120c5 (patch) | |
| tree | 2f5fbb9a106d686df685168f14b709e6b914c127 | |
| parent | 51e4ece8a5579a38c72352a79e1e5118f990ea75 (diff) | |
| download | emacs-3af1a1f3c21056071fbfb2449dcd0d57ff7120c5.tar.gz emacs-3af1a1f3c21056071fbfb2449dcd0d57ff7120c5.zip | |
(define-mail-alias): Remove excess whitespace better.
| -rw-r--r-- | lisp/mail/mailalias.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 3918a520e04..a807d331992 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el | |||
| @@ -157,10 +157,10 @@ DEFINITION can be one or more mail addresses separated by commas." | |||
| 157 | (setq mail-aliases nil) | 157 | (setq mail-aliases nil) |
| 158 | (if (file-exists-p "~/.mailrc") | 158 | (if (file-exists-p "~/.mailrc") |
| 159 | (build-mail-aliases)))) | 159 | (build-mail-aliases)))) |
| 160 | ;; Strip leading and trailing blanks. | 160 | ;; strip garbage from front and end |
| 161 | (if (string-match "^[ \t]+" definition) | 161 | (if (string-match "\\`[ \t\n,]+" definition) |
| 162 | (setq definition (substring definition (match-end 0)))) | 162 | (setq definition (substring definition (match-end 0)))) |
| 163 | (if (string-match "[ \t]+$" definition) | 163 | (if (string-match "[ \t\n,]+\\'" definition) |
| 164 | (setq definition (substring definition 0 (match-beginning 0)))) | 164 | (setq definition (substring definition 0 (match-beginning 0)))) |
| 165 | (let ((first (aref definition 0)) | 165 | (let ((first (aref definition 0)) |
| 166 | (last (aref definition (1- (length definition)))) | 166 | (last (aref definition (1- (length definition)))) |