1104 |
(and (file-readable-p gnus-nntpserver-file) |
(and (file-readable-p gnus-nntpserver-file) |
1105 |
(with-temp-buffer |
(with-temp-buffer |
1106 |
(insert-file-contents gnus-nntpserver-file) |
(insert-file-contents gnus-nntpserver-file) |
1107 |
(let ((name (buffer-string))) |
(when (re-search-forward "[^ \t\n\r]+" nil t) |
1108 |
(unless (string-match "\\`[ \t\n]*$" name) |
(match-string 0)))))) |
|
name)))))) |
|
1109 |
|
|
1110 |
(defcustom gnus-select-method |
(defcustom gnus-select-method |
1111 |
(condition-case nil |
(condition-case nil |