Re: No Gnus on Sunday

[Steve Youngs <sryoungs@bigpond.net.au>]

[-- Attachment #1: Type: text/plain, Size: 1905 bytes --]

|--==> "LMI" == Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

  LMI> So if y'all have any last-minute bug fixes for Gnus 5.10,
  LMI> please get them in during the next 36 hours...

Quick!  Somebody give me a way of implementing `with-timeout' in
XEmacs _without_ relying on timer.el.

In mm-url.el there is...

(defun mm-url-insert (url &optional follow-refresh)
  "Insert the contents from an URL in the current buffer.
If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
  (let ((times mm-url-retries)
	(done nil)
	(first t)
	result)
    (while (and (not (zerop (decf times)))
		(not done))
      (with-timeout (mm-url-timeout)
	(unless first
	  (message "Trying again (%s)..." (- mm-url-retries times)))
	(setq first nil)
	(if follow-refresh
	    (save-restriction
	      (narrow-to-region (point) (point))
	      (mm-url-insert-file-contents url)
	      (goto-char (point-min))
	      (when (re-search-forward
		     "<meta[ \t\r\n]*http-equiv=\"Refresh\"[^>]*URL=\\([^\"]+\\)\"" nil t)
		(let ((url (match-string 1)))
		  (delete-region (point-min) (point-max))
		  (setq result (mm-url-insert url t)))))
	  (setq result (mm-url-insert-file-contents url)))
	(setq done t)))
    result))

It's the _only_ timing related thing in Gnus that XEmacs can't seem to
do with itimer.  Because of this single form the XEmacs Gnus package
must require the "fsf-compat" package to get `with-timeout' from
timer.el.

This obviously isn't a show-stopper, or even a bug for that matter,
but I'd be one happy camper if someone could help me with this.  I'd
_*REALLY REALLY*_ like the XEmacs Gnus package to _*NOT*_ need the
fsf-compat package.

Thanks!

-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|              Ashes to ashes, dust to dust.               |
|      The proof of the pudding, is under the crust.       |
|------------------------------<sryoungs@bigpond.net.au>---|

[-- Attachment #2: Type: application/pgp-signature, Size: 256 bytes --]