diff options
| author | Richard M. Stallman | 2002-09-29 20:50:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-09-29 20:50:15 +0000 |
| commit | 5b88a2c53a1fa7f8270e2922efc82f99fa45088f (patch) | |
| tree | 3424420665f29dc7cfd75e6d2e2d78a09063dba3 /lisp | |
| parent | 580f6aa50b37fa5230557e75b7009a951b302281 (diff) | |
| download | emacs-5b88a2c53a1fa7f8270e2922efc82f99fa45088f.tar.gz emacs-5b88a2c53a1fa7f8270e2922efc82f99fa45088f.zip | |
Fix previous change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 3e1526b37a5..eb8ce6e8418 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -1012,7 +1012,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 1012 | (set-language-environment current-language-environment))) | 1012 | (set-language-environment current-language-environment))) |
| 1013 | 1013 | ||
| 1014 | ;; Do this here in case the init file sets mail-host-address. | 1014 | ;; Do this here in case the init file sets mail-host-address. |
| 1015 | (or (equal user-mail-address "") | 1015 | (if (equal user-mail-address "") |
| 1016 | (setq user-mail-address (concat (user-login-name) "@" | 1016 | (setq user-mail-address (concat (user-login-name) "@" |
| 1017 | (or mail-host-address | 1017 | (or mail-host-address |
| 1018 | (system-name))))) | 1018 | (system-name))))) |