From 7887e229fd0da2b55cc927bf1ad80dacae8e81b1 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 16 May 2011 14:46:30 +0000 Subject: [PATCH] nntp.el (nntp-open-connection): Check if process-type is available. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/nntp.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 57acf0ced0e..1a55b7fb995 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-05-16 Katsumi Yamaoka + + * nntp.el (nntp-open-connection): Check if process-type is available. + 2011-05-16 Julien Danjou * shr.el (shr-tag-del): Add support for del tag. diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index aa4b9184dbb..cdd12abbc06 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -1362,7 +1362,8 @@ password contained in '~/.nntp-authinfo'." (nntp-kill-buffer pbuffer)) (when (and (buffer-name pbuffer) process) - (when (and (fboundp 'set-network-process-option) + (when (and (fboundp 'set-network-process-option) ;; Unavailable in XEmacs. + (fboundp 'process-type) ;; Emacs 22 doesn't provide it. (eq (process-type process) 'network)) ;; Use TCP-keepalive so that connections that pass through a NAT router ;; don't hang when left idle. -- 2.39.2