From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/36786 Path: main.gmane.org!not-for-mail From: Didier Verna Newsgroups: gmane.emacs.gnus.general Subject: [PATCH] fix Emacs / XEmacs incompatibility Date: Wed, 04 Jul 2001 15:57:38 +0200 Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: main.gmane.org 1035172314 10442 80.91.224.250 (21 Oct 2002 03:51:54 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:51:54 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 18069 invoked from network); 4 Jul 2001 13:51:57 -0000 Original-Received: from hermes.epita.fr (163.5.255.10) by gnus.org with SMTP; 4 Jul 2001 13:51:57 -0000 Original-Received: from goa.lrde.epita.fr (mail@goa.lrde.epita.fr [10.223.13.2]) by hermes.epita.fr id PAA23979 for EPITA Paris France Wed, 4 Jul 2001 15:50:13 GMT Original-Received: from uzeb.lrde.epita.fr ([10.223.13.53] ident=mail) by goa.lrde.epita.fr with esmtp (Exim 3.22 #1 (Debian)) id 15HnBc-0002JN-00 for ; Wed, 04 Jul 2001 15:59:24 +0200 Original-Received: from didier by uzeb.lrde.epita.fr with local (Exim 3.22 #1 (Debian)) id 15Hn9v-0004Sb-00 for ; Wed, 04 Jul 2001 15:57:39 +0200 Original-To: Gnus Beta Testers X-Attribution: drv X-Url: http://www.lrde.epita.fr/~didier X-Web: http://www.lrde.epita.fr/~didier X-Home-Page: http://www.lrde.epita.fr/~didier X-Face: |j}\)O|k##MrRz#VK$Jy=0r=3Qc,,a/Tr6*JQbE73dy17]2YcmW$9Z&H21e}#~#pgc>dn(is5Bv1l!{1re+Q9suKIOUmOqZs2>QMxHlR;;}kaGYA@HR3D C6 X-Face: 6o|eiKqaHN.ANh8HXDzntcWUOCg\]RsOd.ctvm~*y}Y^R&*a+Co,\s#=HWsw3x$b_n2kJ#g (7u?J^@^xP)f,jUF|0Z'J:|G/bMA5O12*b,7`-Q`=pKsCRIpso07.Y>YB2H{7`?u&yh;C_ZtLHfj * nntp.el (nntp-send-command): don't pass a buffer argument to `point'. Only XEmacs accepts this. * nntp.el (nntp-send-command-nodelete): ditto. * nntp.el (nntp-send-command-and-decode): ditto. Gnus Patch (runsocks cvs -q diff -u -t -b -B -w lisp/nntp.el): Index: lisp/nntp.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D RCS file: /usr/local/cvsroot/gnus/lisp/nntp.el,v retrieving revision 6.9 diff -u -u -t -b -B -w -r6.9 nntp.el --- lisp/nntp.el 2001/07/04 10:04:40 6.9 +++ lisp/nntp.el 2001/07/04 13:49:05 @@ -382,7 +382,7 @@ (erase-buffer))) (let* ((command (mapconcat 'identity strings " ")) (buffer (process-buffer (nntp-find-connection nntp-server-buffer)= )) - (pos (point buffer))) + (pos (with-current-buffer buffer (point)))) (prog1 (nntp-retrieve-data command nntp-address nntp-port-number nntp-server-buff= er @@ -402,7 +402,7 @@ "Send STRINGS to server and wait until WAIT-FOR returns." (let* ((command (mapconcat 'identity strings " ")) (buffer (process-buffer (nntp-find-connection nntp-server-buffer)= )) - (pos (point buffer))) + (pos (with-current-buffer buffer (point)))) (prog1 (nntp-retrieve-data command nntp-address nntp-port-number nntp-server-buff= er @@ -427,7 +427,7 @@ (erase-buffer))) (let* ((command (mapconcat 'identity strings " ")) (buffer (process-buffer (nntp-find-connection nntp-server-buffer)= )) - (pos (point buffer))) + (pos (with-current-buffer buffer (point)))) (prog1 (nntp-retrieve-data command nntp-address nntp-port-number nntp-server-buff= er --=20 Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (1) 53 14 59 47 94276 Le Kremlin-Bic=EAtre, France Fax.+33 (1) 44 08 01 99 didier@xemac= s.org