From xemacs-m  Tue Feb  4 19:13:15 1997
Received: from sym.primuscorp.com (root@[207.14.28.20])
	by xemacs.org (8.8.5/8.8.5) with SMTP id TAA21536
	for <xemacs-beta@xemacs.org>; Tue, 4 Feb 1997 19:13:14 -0600 (CST)
Received: from horus (horus.primuscorp.com [198.187.136.23]) by sym.primuscorp.com (8.6.11/8.6.9) with ESMTP id RAA25644; Tue, 4 Feb 1997 17:30:32 -0800
Received: from roy by horus (SMI-8.6/SMI-SVR4)
	id RAA24832; Tue, 4 Feb 1997 17:11:35 -0800
Received: by roy (SMI-8.6/SMI-SVR4)
	id RAA29779; Tue, 4 Feb 1997 17:11:50 -0800
Date: Tue, 4 Feb 1997 17:11:50 -0800
Message-Id: <199702050111.RAA29779@roy>
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="4ZwmRbXaruaNS+4wYvvsJb1cyqs7OsjypbHdI2vY"
Content-Transfer-Encoding: 7bit
From: Damon Lipparelli <lipp@primus.com>
To: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Cc: xemacs-beta@xemacs.org, mdb@cdc.noaa.gov,
        Sandy Rutherford <sandy@math.ubc.ca>,
        Andy Norman <ange@hplb.hpl.hp.com>
Subject: EFS 1.15 for XEmacs, release x2
In-Reply-To: <y9llo94x5b2.fsf@modas.informatik.uni-tuebingen.de>
References: <y9llo94x5b2.fsf@modas.informatik.uni-tuebingen.de>
Reply-To: Damon Lipparelli <lipp@primus.com>
Organization: Primus Communications Corporation
X-Mailer: VM 6.11 [ XEmacs 20.0 (test1) ]


--4ZwmRbXaruaNS+4wYvvsJb1cyqs7OsjypbHdI2vY
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

To get this working consistently under XEmacs 20.0, I had to apply the
following patch:


--4ZwmRbXaruaNS+4wYvvsJb1cyqs7OsjypbHdI2vY
Content-Type: text/plain
Content-Transfer-Encoding: 7bit

*** efs-cu.el.orig	Sat Feb  1 10:37:06 1997
--- efs-cu.el	Tue Feb  4 17:05:14 1997
***************
*** 614,620 ****
  (defun efs-get-passwd-seed ()
    ;; Returns a random number to use for encrypting passwords.
    (or efs-passwd-seed
!       (setq efs-passwd-seed (% (random t) 256))))
  
  (defun efs-code-string (string)
    ;; Encode a string, using `efs-passwd-seed'. This is nil-potent,
--- 614,620 ----
  (defun efs-get-passwd-seed ()
    ;; Returns a random number to use for encrypting passwords.
    (or efs-passwd-seed
!       (setq efs-passwd-seed (abs (% (random t) 256)))))
  
  (defun efs-code-string (string)
    ;; Encode a string, using `efs-passwd-seed'. This is nil-potent,

--4ZwmRbXaruaNS+4wYvvsJb1cyqs7OsjypbHdI2vY
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit



-lipp

--4ZwmRbXaruaNS+4wYvvsJb1cyqs7OsjypbHdI2vY--

---

Yow!  I threw up on my window!

