(gnus-inews-domain-name): Once again test gnus-your-domain.

0b431400 · Richard M. Stallman · 3c24374d · 0b431400
Commit 0b431400 authored Jul 01, 1994 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 24 additions and 21 deletions

lisp/gnuspost.el lisp/gnuspost.el +24 -21

No files found.
--- a/lisp/gnuspost.el
+++ b/lisp/gnuspost.el
@@ -663,6 +663,9 @@ 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."
+  (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")