projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge the t-gnus-6_17-quimby branch.
[elisp/gnus.git-]
/
lisp
/
encrypt.el
diff --git
a/lisp/encrypt.el
b/lisp/encrypt.el
index
e5da278
..
9e1bd05
100644
(file)
--- 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
;; 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:
;;; Commentary:
@@
-41,7
+41,8
@@
(defgroup encrypt '((password-cache custom-variable)
(password-cache-expiry custom-variable))
(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.
(defcustom encrypt-file-alist nil
"List of file names or regexes matched with encryptions.
@@
-130,8
+131,8
@@
Format example:
(if outdata
(progn
(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))
(delete-region (point-min) (point-max))
(goto-char (point-min))
(insert outdata))
@@
-176,8
+177,8
@@
Format example:
(if outdata
(progn
(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)
(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)
(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)))))
(insert (format "%c" (logxor x passphrase-sum))))))
(buffer-substring-no-properties (point-min) (point-max)))))