Hi,
I tried your patch, but it does not fix packages updating on my
system (logs below).
What does fix the problem is the patch by Dan Holmsand:
------------------------ cut here ------------------------
Index: lisp/package-get.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/package-get.el,v
retrieving revision 1.13.2.28
diff -u -r1.13.2.28 package-get.el
--- package-get.el 2000/06/14 20:24:03 1.13.2.28
+++ package-get.el 2000/07/10 13:22:21
@@ -400,7 +400,7 @@
(save-excursion
(set-buffer buf)
(erase-buffer buf)
- (insert-file-contents-literally db-file)
+ (insert-file-contents-internal db-file)
(package-get-update-base-from-buffer buf)
(if (file-remote-p db-file)
(package-get-maybe-save-index db-file)))
------------------------ cut here ------------------------
After some debugging it seems clear what the problem is (at least on
my system; as not many other people have this problems I may be
missing something in the big picture). The
insert-file-contents-literally function makes sure nothing much
happens when a file is loaded, in particular it clears the
`file-name-handler-alist' - which as far as I can see is *the* thing
that handles efs file names (it contains 3 efs-*-handler-function
entries). Clearing this (if I understand correctly) results in XEmacs
trying to open a filename like
"/anonymous@ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.pgp"
as if it were a local file name (w/out using efs) - which fails. So it
looks to me that Dan Holmsand's patch is doing the right thing. Or the
insert-file-contents-literally should leave `file-name-handler-alist'
alone. What is the expert opinion on this? Thanks.
(I'm using XEmacs 21.2.34/35 cygwin under w2k).
Here are the logs:
Error log:
------------------------ cut here ------------------------
Signaling: (file-error "Opening input file" "No such file or
directory"
"/anonymous@ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.pgp")
signal(file-error ("Opening input file" "No such file or directory"
"/anonymous@ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.pgp"))
byte-code("..." [run-hook-with-args insert-file-contents-error-hook filename
visit err signal] 5)
insert-file-contents("/anonymous@ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.pgp"
nil nil nil nil)
insert-file-contents-literally("/anonymous@ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.pgp")
package-get-update-base(nil t)
package-get-require-base(t)
#<compiled-function nil "...(152)" [package-get-require-base t
get-buffer-create pui-info-buffer
"===============================================================================\n"
nil start sep-string outbuf message "Creating package list ..." sit-for 0
buffer-read-only buffer-disable-undo erase-buffer kill-all-local-variables use-local-map
pui-display-keymap list-packages-mode major-mode "Packages" mode-name
truncate-lines package-get-remote "\nWarning: No download sites specified. Package
index may be out of date.\n If you intend to install packages, specify download
sites first.\n\n" pui-list-verbose " Latest Installed\n Package
name Vers. Vers. Description\n" " Latest\n Package name
Vers. Description\n" mapcar #<compiled-function ... "...(217)" ...
10> sort copy-sequence package-get-base #<compiled-function ... "...(10)"
... 3> documentation set-buffer-modified-p pop-to-buffer delete-other-windows
pui-selected-packages pui-deleted-packages featurep menubar set-buffer-menubar
current-menubar add-submenu pui-menu mode-popup-menu clear-message] 5
("/usr/local/src/xemacs-21.2/bld-debug/lisp/package-ui.elc" . 13397) nil>()
call-interactively(pui-list-packages)
------------------------ cut here ------------------------
Message log:
------------------------ cut here ------------------------
Loading package-ui...
Loading package-ui...done
Loading efs-dump...
Loading efs-dump...done
Loading efs...
Loading efs...done
Opening FTP connection to ftp.xemacs.org...
Logging in as user anonymous...
Logging in as user anonymous...done
Getting pwd...
Getting pwd...done
CWD'ing to /anonymous@ftp.xemacs.org:/pub/xemacs/packages/...
CWD'ing to /anonymous@ftp.xemacs.org:/pub/xemacs/packages/...done
Listing /anonymous@ftp.xemacs.org:/pub/xemacs/packages/...
Quit
Listing /anonymous@ftp.xemacs.org:/pub/xemacs/packages/...done
Opening input file: No such file or directory,
/anonymous@ftp.xemacs.org:/pub/xemacs/packages/package-index.LATEST.pgp
------------------------ cut here ------------------------
Ftp log:
------------------------ cut here ------------------------
open
ftp.xemacs.org
Connected to
xemacs.org.
220 ProFTPD 1.2.0pre10 Server (ProFTPD on
ftp.tux.org) [
gwyn.tux.org]
quote user "anonymous"
ftp> 331 Anonymous login ok, send your complete e-mail address as password.
ftp> quote pass Turtle Power!
230-+--------------------------------------------------------------------------+
| Welcome to
ftp.tux.org! |
+--------------------------------------------------------------------------+
| This server and its network connection have been graciously donated by |
| Erol's Internet Services of Springfield, Virginia, USA (703) 321-8000. |
| |
| It is a 350 MHz AMD K6-2 with 128 MB of RAM and running Linux. |
| It is administered by Linux user groups in the East Coast of the USA on |
| behalf of their members and the Linux community worldwide. |
| |
| The goal of this FTP site is to provide timely mirrors of Linux-related |
| software from all over the world. It is not a complete mirror of all of |
| the large sites; instead it combines mirrors of the most important parts |
| of the large FTP archives with direct nightly mirrors of many smaller, |
| harder-to-find sites plus a growing amount of original content. |
| |
| If there is something Linux-related you would like to have added to the |
| mirror or if you see a problem with something already mirrored here, |
| please contact <ftp(a)tux.org>. |
+--------------------------------------------------------------------------+
230 Anonymous access granted, restrictions apply.
ftp> hash
Hash mark printing on (1024 bytes/hash mark).
ftp> quote pwd
257 "/" is current directory.
ftp> quote syst
215 UNIX Type: L8
ftp> quote cwd /pub/xemacs/packages/
250 CWD command successful.
ftp> ls "-al" /tmp/efsaLCfWl
200 PORT command successful.
150 Opening ASCII mode data connection for file list.
226 Transfer complete.
ftp> quote site idle
500 'SITE IDLE' not understood.
ftp>
------------------------ cut here ------------------------
sperber(a)informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor]) wrote:
>>>>> "APA" == Adrian Aichner
<aichner(a)ecf.teradyne.com> writes:
>>>>> "MS" == Michael Sperber
<sperber(a)informatik.uni-tuebingen.de> writes:
>>>>> "APA" == Adrian Aichner <aichner(a)ecf.teradyne.com>
writes:
APA> This problem is still alive and kicking.
APA> Unfortunately I don't have time to look into it.
MS> I believe I've solved it, but I haven't finished testing yet. (The
MS> patch posted here awhile ago doesn't cut it.)
APA> I realize my little patch wasn't really a solution.
APA> Yell if you need a guinea pig on NT, Michael.
Thanks. Here is the fix:
Index: efs.el
===================================================================
RCS file: /afs/informatik.uni-tuebingen.de/pu/cvs/elisp/efs/efs.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -c -r1.58 -r1.59
*** efs.el 2000/04/15 13:33:34 1.58
--- efs.el 2000/07/16 11:01:35 1.59
***************
*** 4689,4695 ****
switches file lsargs noparse parse noerror
msg nowait cont)
(if result
! (efs-error host user (format "CWD %s failed: " line))
(efs-send-cmd
host user
(list (if nlist 'nlist 'dir) "" (cdr temp) lsargs)
--- 4689,4698 ----
switches file lsargs noparse parse noerror
msg nowait cont)
(if result
! (if noerror
! (if cont
! (efs-call-cont cont nil))
! (efs-error host user (format "CWD %s failed: " line)))
(efs-send-cmd
host user
(list (if nlist 'nlist 'dir) "" (cdr temp) lsargs)
--
Cheers,
-Dima.