From xemacs-m  Fri Jan 24 15:50:05 1997
Received: from cdc.noaa.gov (manager.Colorado.EDU [128.138.218.210])
          by xemacs.org (8.8.4/8.8.4) with SMTP
	  id PAA23986 for <xemacs-beta@xemacs.org>; Fri, 24 Jan 1997 15:50:04 -0600 (CST)
Received: from suomi by cdc.noaa.gov (SMI-8.6/SMI-SVR4)
	id OAA16036; Fri, 24 Jan 1997 14:49:47 -0700
Received: by suomi (SMI-8.6) id OAA24590; Fri, 24 Jan 1997 14:49:47 -0700
Sender: mdb@cdc.noaa.gov
To: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Cc: xemacs-beta@xemacs.org
Subject: Re: [20.0-b91] efs-1.15 lossage
References: <vkafq0ry6h.fsf@cdc.noaa.gov> <y9lvi8nse13.fsf@modas.informatik.uni-tuebingen.de>
Organization: CIRES, University of Colorado
X-Attribution: mb
From: Mark Borges <mdb@cdc.noaa.gov>
Date: 24 Jan 1997 14:49:46 -0700
In-Reply-To: sperber@informatik.uni-tuebingen.de's message of 24 Jan 1997 08:55:36 +0100
Message-ID: <vk3evqkakl.fsf@cdc.noaa.gov>
Lines: 44
X-Mailer: Red Gnus v0.83/XEmacs 20.0

>> On 24 Jan 1997 08:55:36 +0100,
>> Michael Sperber [Mr Preprocessor](m) wrote:
>>>>>> "mb" == Mark Borges <mdb@cdc.noaa.gov> writes:
mb> Is
mb> [ ... ] efs-version's value is "1.15/1.55" [ ... ]
mb> supposed to work with 20.0-b91? I get this backtrace:

m> Yes.  This bug has already been fixed in my workspace.  Patch
m> attached.

Unfortunately, it doesn't fix it completely. It doesn't appear to get
the encrypted password correctly (for non-anon-ftp sites).

I believe this is true because I fired up 19.15-b90 using the old
defun and it worked. I then evaled the new defun in 19.15-b90, and it
fails just as it does in 20.0-b91 -- I get prompted repeatedly to
enter a password (my .netrc file contains the correct password).

cvs rdiff: Diffing elisp/efs
Index: elisp/efs/efs-cu.el
diff -c elisp/efs/efs-cu.el:1.1.1.2 elisp/efs/efs-cu.el:1.2
*** elisp/efs/efs-cu.el:1.1.1.2 Fri Jan  3 21:05:10 1997
--- elisp/efs/efs-cu.el Mon Jan 20 12:47:27 1997
***************
*** 623,629 ****
(mapconcat
(function
(lambda (c)
!       (char-to-string (logxor (efs-get-passwd-seed) c))))
string ""))
  
;;; end of efs-cu.el
--- 623,629 ----
(mapconcat
(function
(lambda (c)
!       (int-to-string (logxor (efs-get-passwd-seed) c))))
string ""))
  
;;; end of efs-cu.el


-- 
  -mb-

