diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-07-01 21:42:23 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-07-01 21:42:23 +0000 |
commit | 8ef6ec79207a668b9085a4d00702cf39eeb92433 (patch) | |
tree | 9bb2da5accaf37d2ca64637ece91bb0cd9630a3f /lisp/=gnuspost.el | |
parent | dba8ffd45b88a7730b7299a398326db31cf46036 (diff) | |
download | emacs-8ef6ec79207a668b9085a4d00702cf39eeb92433.tar.gz |
(gnus-inews-domain-name): Once again test gnus-your-domain.
Diffstat (limited to 'lisp/=gnuspost.el')
-rw-r--r-- | lisp/=gnuspost.el | 45 |
1 files changed, 24 insertions, 21 deletions
diff --git a/lisp/=gnuspost.el b/lisp/=gnuspost.el index 48b7cc9084e..ea2a0c97ee6 100644 --- a/lisp/=gnuspost.el +++ b/lisp/=gnuspost.el @@ -663,27 +663,30 @@ If optional argument GENERICFROM is a string, use it as the domain name; if it is non-nil, strip of local host name from the domain name. If the function `system-name' returns full internet name and the domain is undefined, the domain name is got from it." - (if (or genericfrom gnus-local-domain (getenv "DOMAINNAME")) - (let ((domain (or (if (stringp genericfrom) genericfrom) - (getenv "DOMAINNAME") - gnus-local-domain - ;; Function `system-name' may return full internet name. - ;; Suggested by Mike DeCorte <mrd@sun.soe.clarkson.edu>. - (if (string-match "\\." (system-name)) - (substring (system-name) (match-end 0))) - (read-string "Domain name (no host): "))) - (host (or (if (string-match "\\." (system-name)) - (substring (system-name) 0 (match-beginning 0))) - (system-name)))) - (if (string-equal "." (substring domain 0 1)) - (setq domain (substring domain 1))) - ;; Support GENERICFROM as same as standard Bnews system. - ;; Suggested by ohm@kaba.junet and vixie@decwrl.dec.com. - (cond ((null genericfrom) - (concat host "." domain)) - ;;((stringp genericfrom) genericfrom) - (t domain))) - (substring user-mail-address (1+ (string-match "@" user-mail-address))))) + (and (null gnus-local-domain) + (boundp 'gnus-your-domain) + (setq gnus-local-domain gnus-your-domain)) + (if (or genericfrom gnus-local-domain (getenv "DOMAINNAME")) + (let ((domain (or (if (stringp genericfrom) genericfrom) + (getenv "DOMAINNAME") + gnus-local-domain + ;; Function `system-name' may return full internet name. + ;; Suggested by Mike DeCorte <mrd@sun.soe.clarkson.edu>. + (if (string-match "\\." (system-name)) + (substring (system-name) (match-end 0))) + (read-string "Domain name (no host): "))) + (host (or (if (string-match "\\." (system-name)) + (substring (system-name) 0 (match-beginning 0))) + (system-name)))) + (if (string-equal "." (substring domain 0 1)) + (setq domain (substring domain 1))) + ;; Support GENERICFROM as same as standard Bnews system. + ;; Suggested by ohm@kaba.junet and vixie@decwrl.dec.com. + (cond ((null genericfrom) + (concat host "." domain)) + ;;((stringp genericfrom) genericfrom) + (t domain))) + (substring user-mail-address (1+ (string-match "@" user-mail-address))))) (defun gnus-inews-message-id () "Generate unique Message-ID for user." |