This sync with Gnus/Emacs. Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/ChangeLog,v retrieving revision 1.27 diff -u -p -r1.27 ChangeLog --- ChangeLog 30 Nov 2004 05:55:23 -0000 1.27 +++ ChangeLog 23 Sep 2005 12:41:38 -0000 ＠＠ -1,3 +1,25 ＠＠ +2005-05-30 Reiner Steib <Reiner.Steib(a)gmx.de&gt; + + * encrypt.el (encrypt-xor-process-buffer): Replace `string-to-int' + by `string-to-number'. + +2005-05-17 Katsumi Yamaoka <yamaoka(a)jpl.org&gt; + + * encrypt.el (encrypt): Add :group. + +2005-02-22 Simon Josefsson <jas(a)extundo.com&gt; + + * encrypt.el (encrypt-password-cache-expiry): Remove (use + `password-cache-expiry' instead). Reported by Arne Jørgensen + <arne(a)arnested.dk&gt;. + (encrypt): Add password-cache and password-cache-expiry as group + members. + +2004-01-05 Simon Josefsson <jas(a)extundo.com&gt; + + * md4.el (print-int32, print-string-hexa): Remove. Suggested by + Jesper Harder <harder(a)myrealbox.com&gt;. + 2004-11-30 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 0.19 released. Index: encrypt.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/encrypt.el,v retrieving revision 1.1 diff -u -p -r1.1 encrypt.el --- encrypt.el 29 Nov 2004 22:04:40 -0000 1.1 +++ encrypt.el 23 Sep 2005 12:41:38 -0000 ＠＠ -1,5 +1,5 ＠＠ ;;; encrypt.el --- file encryption routines -;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Teodor Zlatanov <tzz(a)lifelogs.com&gt; ;; Created: 2003/01/24 ＠＠ -19,8 +19,8 ＠＠ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ＠＠ -34,17 +34,10 ＠＠ (eval-and-compile (autoload 'password-read "password")) -(defgroup encrypt nil - "File encryption configuration.") - -(defcustom encrypt-password-cache-expiry 200 - "Encryption password timeout. -When set, directly sets password-cache-expiry" -:type 'integer -:group 'encrypt -:set (lambda (symbol value) - (set symbol value) - (setq password-cache-expiry value))) +(defgroup encrypt '((password-cache custom-variable) + (password-cache-expiry custom-variable)) + "File encryption configuration." +:group 'applications) (defcustom encrypt-file-alist nil "List of file names or regexes matched with encryptions. ＠＠ -220,7 +213,7 ＠＠ Format example: (progn (setq new-list (reverse (split-string bs))) (dolist (x new-list) - (setq x (string-to-int x)) + (setq x (string-to-number x)) (insert (format "%c" (logxor x passphrase-sum)))))) (buffer-substring-no-properties (point-min) (point-max))))) Index: hex-util.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/hex-util.el,v retrieving revision 1.3 diff -u -p -r1.3 hex-util.el --- hex-util.el 16 Sep 2004 11:49:04 -0000 1.3 +++ hex-util.el 23 Sep 2005 12:41:38 -0000 ＠＠ -1,6 +1,7 ＠＠ ;;; hex-util.el --- Functions to encode/decode hexadecimal string. -;; Copyright (C) 1999, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shuhei KOBAYASHI <shuhei(a)aqua.ocn.ne.jp&gt; ;; Keywords: data ＠＠ -19,8 +20,8 ＠＠ ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: Index: md4.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/md4.el,v retrieving revision 1.1 diff -u -p -r1.1 md4.el --- md4.el 2 Aug 2002 20:15:37 -0000 1.1 +++ md4.el 23 Sep 2005 12:41:38 -0000 ＠＠ -1,5 +1,6 ＠＠ ;;; md4.el --- MD4 Message Digest Algorithm. +;; Copyright (C) 2004 Free Software Foundation, Inc. ;; Copyright (C) 2001 Taro Kawagishi ;; Author: Taro Kawagishi <tarok(a)transpulse.org&gt; ;; Keywords: MD4 ＠＠ -20,24 +21,14 ＠＠ ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Code: ;;; ;;; MD4 hash calculation -(defun print-int32 (int32) - "print 32 bits integer in 4 bytes string as little endian" - (let ((h (car int32)) (l (cdr int32))) - (list (logand l 255) (lsh l -8) (logand h 255) (lsh h -8)))) - -(defun print-string-hexa (str) - "print a string in hexadecimal" - (let (out) - (mapcar (function (lambda (x) (concat out (format "%x" x)))) str))) - (defvar md4-buffer (make-vector 4 '(0 . 0)) "work buffer of four 32-bit integers") ＠＠ -235,4 +226,5 ＠＠ integer is represented as a pair of two (provide 'md4) +;;; arch-tag: 99d706fe-089b-42ea-9507-67ae41091e6e ;;; md4.el ends here Index: sha1.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ecrypto/sha1.el,v retrieving revision 1.3 diff -u -p -r1.3 sha1.el --- sha1.el 16 Sep 2004 11:47:15 -0000 1.3 +++ sha1.el 23 Sep 2005 12:41:38 -0000 ＠＠ -1,6 +1,7 ＠＠ ;;; sha1.el --- SHA1 Secure Hash Algorithm in Emacs-Lisp -;; Copyright (C) 1999, 2001, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shuhei KOBAYASHI <shuhei(a)aqua.ocn.ne.jp&gt; ;; Keywords: SHA1, FIPS 180-1 ＠＠ -19,8 +20,8 ＠＠ ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: