# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915111842 0
# Node ID 3e4e87cddb8508a18e02210ae35e13d03bc4e4c7
# Parent  4c423f69142b7a4a0a49b19201a2aad779a23560
(rmail-encode-string): Make sure mask value is
positive; (emacs-pid) returns a negative number on Windows 9x
which causes odd behaviour.

diff -r 4c423f69142b -r 3e4e87cddb85 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Dec 31 13:16:45 1998 +0000
+++ b/lisp/mail/rmail.el	Thu Dec 31 13:44:02 1998 +0000
@@ -3332,6 +3332,7 @@
 restarting at the lowest byte of the mask whenever it runs out.
 Returns the encoded string.  Calling the function again with an
 encoded string (and the same mask) will decode the string."
+ (setq mask (abs mask))			; doesn't work if negative
  (let* ((string-vector (string-to-vector string)) (i 0) 
 	(len (length string-vector)) (curmask mask) charmask)
    (while (< i len)