[Emacs-diffs] /srv/bzr/emacs/trunk r104246: nntp.el (nntp-open-connection): Check if process-type is available.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104246
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-16 14:46:30 +0000
message:
  nntp.el (nntp-open-connection): Check if process-type is available.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nntp.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-05-16 09:33:14 +0000
+++ b/lisp/gnus/ChangeLog       2011-05-16 14:46:30 +0000
@@ -1,3 +1,7 @@
+2011-05-16  Katsumi Yamaoka  <address@hidden>
+
+       * nntp.el (nntp-open-connection): Check if process-type is available.
+
 2011-05-16  Julien Danjou  <address@hidden>
 
        * shr.el (shr-tag-del): Add support for del tag.

=== modified file 'lisp/gnus/nntp.el'
--- a/lisp/gnus/nntp.el 2011-05-09 19:41:14 +0000
+++ b/lisp/gnus/nntp.el 2011-05-16 14:46:30 +0000
@@ -1362,7 +1362,8 @@
       (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.