diff options
| author | Richard M. Stallman | 1998-12-31 13:44:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-12-31 13:44:02 +0000 |
| commit | 7d6d84c1db96933aa552f391967043cc8adff743 (patch) | |
| tree | e287760433446bac011adb04f6b80d465f965aa4 | |
| parent | 7f8f0e6709ac15e077b94fa361d914dea14e9a48 (diff) | |
| download | emacs-7d6d84c1db96933aa552f391967043cc8adff743.tar.gz emacs-7d6d84c1db96933aa552f391967043cc8adff743.zip | |
(rmail-encode-string): Make sure mask value is
positive; (emacs-pid) returns a negative number on Windows 9x
which causes odd behaviour.
| -rw-r--r-- | lisp/mail/rmail.el | 1 |
1 files changed, 1 insertions, 0 deletions
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., | |||
| 3332 | restarting at the lowest byte of the mask whenever it runs out. | 3332 | restarting at the lowest byte of the mask whenever it runs out. |
| 3333 | Returns the encoded string. Calling the function again with an | 3333 | Returns the encoded string. Calling the function again with an |
| 3334 | encoded string (and the same mask) will decode the string." | 3334 | encoded string (and the same mask) will decode the string." |
| 3335 | (setq mask (abs mask)) ; doesn't work if negative | ||
| 3335 | (let* ((string-vector (string-to-vector string)) (i 0) | 3336 | (let* ((string-vector (string-to-vector string)) (i 0) |
| 3336 | (len (length string-vector)) (curmask mask) charmask) | 3337 | (len (length string-vector)) (curmask mask) charmask) |
| 3337 | (while (< i len) | 3338 | (while (< i len) |