-;;; starttls.el --- TLSv1 functions
+;;; starttls.el --- STARTTLS functions
-;; Copyright (C) 1999 Daiki Ueno
+;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
-;; Author: Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+;; Author: Daiki Ueno <ueno@unixuser.org>
;; Created: 1999/11/20
-;; Keywords: TLS, SSL, OpenSSL
+;; Keywords: TLS, SSL, OpenSSL, mail, news
-;; This file is not part of any package.
+;; This file is part of GNU Emacs.
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
;; 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
;;; Commentary:
-;; This module defines some utility functions for TLSv1 functions.
+;; This module defines some utility functions for STARTTLS profiles.
-;; [RFC 2246] "The TLS Protocol Version 1.0"
-;; by Christopher Allen <callen@certicom.com> and
-;; Tim Dierks <tdierks@certicom.com> (1999/01)
+;; Get "starttls" from ftp://ftp.opaopa.org/pub/elisp/.
;; [RFC 2595] "Using TLS with IMAP, POP3 and ACAP"
;; by Chris Newman <chris.newman@innosoft.com> (1999/06)
(defgroup starttls nil
"Support for `Transport Layer Security' protocol."
- :group 'ssl)
+ :version "21.1"
+ :group 'mail)
(defcustom starttls-program "starttls"
"The program to run in a subprocess to open an TLSv1 connection."
+ :type 'string
:group 'starttls)
(defcustom starttls-extra-args nil
- "Extra arguments to `starttls-program'"
+ "Extra arguments to `starttls-program'."
+ :type '(repeat string)
:group 'starttls)
(defun starttls-negotiate (process)
Third arg is name of the host to connect to, or its IP address.
Fourth arg SERVICE is name of the service desired, or an integer
specifying a port number to connect to."
-
(let* ((process-connection-type nil)
- (process (apply #'start-process
+ (process (apply #'start-process
name buffer starttls-program
host (format "%s" service)
starttls-extra-args)))