;;; netrc.el --- .netrc parsing functionality
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Modularizer: Ted Zlatanov <tzz@lifelogs.com>
;; 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:
;;; .netrc and .authinfo rc parsing
;;;
-;; autoload gnus-encrypt
+;; autoload encrypt
(eval-and-compile
- (autoload 'gnus-encrypt-find-model "gnus-encrypt")
- (autoload 'gnus-encrypt-insert-file-contents "gnus-encrypt"))
+ (autoload 'encrypt-find-model "encrypt")
+ (autoload 'encrypt-insert-file-contents "encrypt"))
(defgroup netrc nil
- "Netrc configuration.")
+ "Netrc configuration."
+ :group 'comm)
(defvar netrc-services-file "/etc/services"
"The name of the services file.")
(let ((tokens '("machine" "default" "login"
"password" "account" "macdef" "force"
"port"))
- (encryption-model (gnus-encrypt-find-model file))
+ (encryption-model (encrypt-find-model file))
alist elem result pair)
(if encryption-model
- (gnus-encrypt-insert-file-contents file encryption-model)
+ (encrypt-insert-file-contents file encryption-model)
(insert-file-contents file))
(goto-char (point-min))