summaryrefslogtreecommitdiff
path: root/lisp/gnus/nntp.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/gnus/nntp.el')
-rw-r--r--lisp/gnus/nntp.el20
1 files changed, 15 insertions, 5 deletions
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index f318ee303f0..a1a7e38d240 100644
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -1885,7 +1885,10 @@ Please refer to the following variables to customize the connection:
- `nntp-end-of-line'."
(let ((command `(,nntp-telnet-command
,@nntp-telnet-switches
- ,nntp-address ,nntp-port-number))
+ ,nntp-address
+ ,(if (integerp nntp-port-number)
+ (number-to-string nntp-port-number)
+ nntp-port-number)))
proc)
(and nntp-pre-command
(push nntp-pre-command command))
@@ -1928,8 +1931,11 @@ Please refer to the following variables to customize the connection:
(setq proc (apply 'start-process "nntpd" buffer command))
(with-current-buffer buffer
(nntp-wait-for-string "^r?telnet")
- (process-send-string proc (concat "open " nntp-address
- " " nntp-port-number "\n"))
+ (process-send-string proc (concat "open " nntp-address " "
+ (if (integerp nntp-port-number)
+ (number-to-string nntp-port-number)
+ nntp-port-number)
+ "\n"))
(nntp-wait-for-string "^\r*20[01]")
(beginning-of-line)
(delete-region (point-min) (point))
@@ -1970,7 +1976,9 @@ Please refer to the following variables to customize the connection:
,nntp-via-netcat-command
,@nntp-via-netcat-switches
,nntp-address
- ,nntp-port-number)))
+ ,(if (integerp nntp-port-number)
+ (number-to-string nntp-port-number)
+ nntp-port-number))))
(apply 'start-process "nntpd" buffer command)))
(defun nntp-open-via-telnet-and-telnet (buffer)
@@ -2029,7 +2037,9 @@ Please refer to the following variables to customize the connection:
,nntp-telnet-command
,@nntp-telnet-switches
,nntp-address
- ,nntp-port-number)))
+ ,(if (integerp nntp-port-number)
+ (number-to-string nntp-port-number)
+ nntp-port-number))))
(process-send-string proc
(concat (mapconcat 'identity
real-telnet-command " ")