diff options
| author | Teodor Zlatanov <tzz@lifelogs.com> | 2010-09-23 03:57:10 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-23 03:57:10 +0000 |
| commit | 7676efad0e6f8e90306950c8426a56928c4739e0 (patch) | |
| tree | 9a522bed499f45f16e7a1e975475d865e60ca102 /lisp/net/netrc.el | |
| parent | d8ec441e402a5fb11dc8d1576f638b5dbd6a8432 (diff) | |
| download | emacs-7676efad0e6f8e90306950c8426a56928c4739e0.tar.gz | |
netrc.el (netrc-parse): Remove encrypt.el mentions.
Diffstat (limited to 'lisp/net/netrc.el')
| -rw-r--r-- | lisp/net/netrc.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/net/netrc.el b/lisp/net/netrc.el index 3636c892726..2644659e20d 100644 --- a/lisp/net/netrc.el +++ b/lisp/net/netrc.el @@ -34,14 +34,10 @@ ;;; .netrc and .authinfo rc parsing ;;; -;; use encrypt if loaded (encrypt-file-alist has to be set as well) -(autoload 'encrypt-find-model "encrypt") -(autoload 'encrypt-insert-file-contents "encrypt") (defalias 'netrc-point-at-eol (if (fboundp 'point-at-eol) 'point-at-eol 'line-end-position)) -(defvar encrypt-file-alist) (eval-when-compile ;; This is unnecessary in the compiled version as it is a macro. (if (fboundp 'bound-and-true-p) @@ -74,12 +70,8 @@ (let ((tokens '("machine" "default" "login" "password" "account" "macdef" "force" "port")) - (encryption-model (when (netrc-bound-and-true-p encrypt-file-alist) - (encrypt-find-model file))) alist elem result pair) - (if encryption-model - (encrypt-insert-file-contents file encryption-model) - (insert-file-contents file)) + (insert-file-contents file) (goto-char (point-min)) ;; Go through the file, line by line. (while (not (eobp)) |