mcgrath@Berkeley.EDU (Roland McGrath) (11/05/88)
The following patch the gnus.el fixes a bug in gnus-inews-domain-name which
makes it barf with a wrong-type-argument signal.
*** gnus.el.~1~ Tue Oct 4 15:11:01 1988
--- gnus.el Fri Nov 4 18:10:19 1988
***************
*** 3683,3693 ****
If optional argument GENERICFROM is non-nil, don't insert local host
name to the domain name."
(let ((domain (or (getenv "DOMAINNAME") gnus-your-domain)))
! (if (and (null domain)
! (not (string-match "\\." (system-name))))
! (progn
! (setq domain (read-string "Your domain name (no host): "))
! (setq gnus-your-domain domain)))
(if (string-equal "." (substring domain 0 1))
(setq domain (substring domain 1)))
(if genericfrom
--- 3683,3693 ----
If optional argument GENERICFROM is non-nil, don't insert local host
name to the domain name."
(let ((domain (or (getenv "DOMAINNAME") gnus-your-domain)))
! (and (null domain)
! (if (string-match "\\." (system-name))
! (setq gnus-your-domain (substring (system-name) (match-end 0)))
! (setq domain (read-string "Your domain name (no host): ")
! gnus-your-domain domain)))
(if (string-equal "." (substring domain 0 1))
(setq domain (substring domain 1)))
(if genericfrom
--
Roland McGrath
roland@wheaties.ai.mit.edu, mit-eddie!wheaties.ai.mit.edu!roland