[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nntp.el,v [EMACS_22_BASE]
From: |
Reiner Steib |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nntp.el,v [EMACS_22_BASE] |
Date: |
Wed, 19 Mar 2008 21:01:39 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Reiner Steib <rsteib> 08/03/19 21:01:39
Index: nntp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/nntp.el,v
retrieving revision 1.33.2.4
retrieving revision 1.33.2.5
diff -u -b -r1.33.2.4 -r1.33.2.5
--- nntp.el 7 Jan 2008 01:22:34 -0000 1.33.2.4
+++ nntp.el 19 Mar 2008 21:01:36 -0000 1.33.2.5
@@ -1789,7 +1789,10 @@
- `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))
@@ -1832,8 +1835,11 @@
(save-excursion
(set-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))
@@ -1904,7 +1910,9 @@
,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 " ")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nntp.el,v [EMACS_22_BASE],
Reiner Steib <=