Gnus development mailing list
 help / color / mirror / Atom feed
From: Didier Verna <didier@lrde.epita.fr>
Cc: ding@gnus.org
Subject: Re: Compilation error
Date: Wed, 04 Jul 2001 15:34:37 +0200	[thread overview]
Message-ID: <muxhews7r82.fsf@uzeb.lrde.epita.fr> (raw)
In-Reply-To: <wwlmm427bt.fsf@abraham.mi.uib.no> (stromme@mi.uib.no's message of "Wed, 04 Jul 2001 14:43:18 +0200")

stromme@mi.uib.no (Stein A. Strømme) wrote:

> I just updated my cvs gnus, and get this.  Afterwards, gnus will not
> even start.  Ideas?

        I think this is due to my recent patch. Under XEmacs, the `point'
function has an optional argument. Emacs appears not to have this. Please try
the following patch. If it works, I'll aply it immediately.

Index: nntp.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nntp.el,v
retrieving revision 6.9
diff -u -r6.9 nntp.el
--- nntp.el	2001/07/04 10:04:40	6.9
+++ nntp.el	2001/07/04 13:28:32
@@ -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


  reply	other threads:[~2001-07-04 13:34 UTC|newest]

Thread overview: 11+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2001-07-04 12:43 Stein A. Strømme
2001-07-04 13:34 ` Didier Verna [this message]
2001-07-04 13:41   ` Stein A. Strømme
2001-07-04 13:54     ` Didier Verna
  -- strict thread matches above, loose matches on Subject: below --
2001-02-11  1:52 compilation error NAGY Andras
2001-02-11 14:53 ` ShengHuo ZHU
2001-02-11 17:01   ` NAGY Andras
2001-02-12 17:44   ` Max Kliche
2001-02-12 20:02     ` ShengHuo ZHU
2001-02-13  9:44       ` Max Kliche
2001-02-13 15:23         ` ShengHuo ZHU

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=muxhews7r82.fsf@uzeb.lrde.epita.fr \
    --to=didier@lrde.epita.fr \
    --cc=ding@gnus.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).