(mm-find-buffer-file-coding-system): Don't examine charset of tar files.

[gnus] / lisp / encrypt.el

diff --git a/lisp/encrypt.el b/lisp/encrypt.el
index 9a6b642..8d5a21f 100644 (file)
--- a/lisp/encrypt.el
+++ b/lisp/encrypt.el
@@ -34,8 +34,10 @@
 (eval-and-compile
   (autoload 'password-read "password"))
 
-(defgroup encrypt nil
-  "File encryption configuration.")
+(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.
@@ -211,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)))))