X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fencrypt.el;fp=lisp%2Fencrypt.el;h=9e1bd05446d2be781fc5934b259f4411d2fc8f58;hb=60b6cdd89175586e7d5b5d270f84e727a485202f;hp=e5da278d6cece3ce5b1d376ae8277428fc32e7ca;hpb=d44e180be8963b473e313f2176b0d41b06929d40;p=elisp%2Fgnus.git-

diff --git a/lisp/encrypt.el b/lisp/encrypt.el
index e5da278..9e1bd05 100644
--- a/lisp/encrypt.el
+++ b/lisp/encrypt.el
@@ -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:
 
@@ -41,7 +41,8 @@
 
 (defgroup encrypt '((password-cache custom-variable)
 		    (password-cache-expiry custom-variable))
-  "File encryption configuration.")
+  "File encryption configuration."
+  :group 'applications)
 
 (defcustom encrypt-file-alist nil
   "List of file names or regexes matched with encryptions.
@@ -130,8 +131,8 @@ Format example:
 
     (if outdata
 	(progn
-	  (gnus-message 9 "%s was decrypted with %s (cipher %s)"
-			file (symbol-name method) cipher)
+	  (message "%s was decrypted with %s (cipher %s)"
+		   file (symbol-name method) cipher)
 	  (delete-region (point-min) (point-max))
 	  (goto-char (point-min))
 	  (insert outdata))
@@ -176,8 +177,8 @@ Format example:
 
     (if outdata
 	(progn
-	  (gnus-message 9 "%s was encrypted with %s (cipher %s)"
-			file (symbol-name method) cipher)
+	  (message "%s was encrypted with %s (cipher %s)"
+		   file (symbol-name method) cipher)
 	  (delete-region (point-min) (point-max))
 	  (goto-char (point-min))
 	  (insert outdata)
@@ -217,7 +218,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)))))