From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 31 Dec 1998 13:44:02 +0000 (+0000)
Subject: (rmail-encode-string): Make sure mask value is
X-Git-Tag: emacs-20.4~980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d6d84c1db96933aa552f391967043cc8adff743;p=emacs.git

(rmail-encode-string): Make sure mask value is
positive; (emacs-pid) returns a negative number on Windows 9x
which causes odd behaviour.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index eb0e39205ac..25380f17c59 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3332,6 +3332,7 @@ second-lowest-byte with the second character of the string, etc.,
 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)