[PATCH] fix Emacs / XEmacs incompatibility

[PATCH] fix Emacs / XEmacs incompatibility

[Didier Verna]

NOTE: This patch has been committed.

		Dear folks,

	this fixes a bug in my previous patch. The `point' function doesn't
accept an argument in Emacs (only XEmacs does). Sorry for the inconvenience.

lisp/ChangeLog addition:

2001-07-04  Didier Verna  <didier@lrde.epita.fr>

	* 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
===================================================================
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-buffer
@@ -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-buffer
@@ -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-buffer

-- 
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être, France   Fax.+33 (1) 44 08 01 99   didier@xemacs.org