Mercurial > emacs
comparison lisp/startup.el @ 47688:8c15fbf63f95
(user-mail-address): Initialize to a useful value
once Emacs is started up; initialize to "" at loadup time.
(command-line): "", not nil, means user-mail-address not set yet.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 29 Sep 2002 17:53:58 +0000 |
| parents | 281edad1fc55 |
| children | ff9770dda600 |
comparison
equal
deleted
inserted
replaced
| 47687:054a4d4af618 | 47688:8c15fbf63f95 |
|---|---|
| 324 (defcustom mail-host-address nil | 324 (defcustom mail-host-address nil |
| 325 "*Name of this machine, for purposes of naming users." | 325 "*Name of this machine, for purposes of naming users." |
| 326 :type '(choice (const nil) string) | 326 :type '(choice (const nil) string) |
| 327 :group 'mail) | 327 :group 'mail) |
| 328 | 328 |
| 329 (defcustom user-mail-address nil | 329 (defcustom user-mail-address (if command-line-processed |
| 330 (concat (user-login-name) "@" | |
| 331 (or mail-host-address | |
| 332 (system-name))) | |
| 333 ;; Empty string means "not set yet". | |
| 334 "") | |
| 330 "*Full mailing address of this user. | 335 "*Full mailing address of this user. |
| 331 This is initialized based on `mail-host-address', | 336 This is initialized based on `mail-host-address', |
| 332 after your init file is read, in case it sets `mail-host-address'." | 337 after your init file is read, in case it sets `mail-host-address'." |
| 333 :type 'string | 338 :type 'string |
| 334 :group 'mail) | 339 :group 'mail) |
| 1005 ;; originally done before unibyte was set and is sensitive to | 1010 ;; originally done before unibyte was set and is sensitive to |
| 1006 ;; unibyte (display table, terminal coding system &c). | 1011 ;; unibyte (display table, terminal coding system &c). |
| 1007 (set-language-environment current-language-environment))) | 1012 (set-language-environment current-language-environment))) |
| 1008 | 1013 |
| 1009 ;; 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. |
| 1010 (or user-mail-address | 1015 (or (equal user-mail-address "") |
| 1011 (setq user-mail-address (concat (user-login-name) "@" | 1016 (setq user-mail-address (concat (user-login-name) "@" |
| 1012 (or mail-host-address | 1017 (or mail-host-address |
| 1013 (system-name))))) | 1018 (system-name))))) |
| 1014 | 1019 |
| 1015 ;; If parameter have been changed in the init file which influence | 1020 ;; If parameter have been changed in the init file which influence |