Mercurial > emacs

comparison lisp/gnus/starttls.el @ 34220:3984e8b6d0c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix header and customization.
author Dave Love <fx@gnu.org>
date Tue, 05 Dec 2000 19:18:06 +0000
parents d940776a9d6d
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
34219:d940776a9d6d 34220:3984e8b6d0c5
2 2
3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
4 4
5 ;; Author: Daiki Ueno <ueno@unixuser.org> 5 ;; Author: Daiki Ueno <ueno@unixuser.org>
6 ;; Created: 1999/11/20 6 ;; Created: 1999/11/20
7 ;; Keywords: TLS, SSL, OpenSSL 7 ;; Keywords: TLS, SSL, OpenSSL, mail, news
8 8
9 ;; This file is not part of any package. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; modify it under the terms of the GNU General Public License as 12 ;; it under the terms of the GNU General Public License as published by
13 ;; published by the Free Software Foundation; either version 2, or (at 13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; your option) any later version. 14 ;; any later version.
15 15
16 ;; This program is distributed in the hope that it will be useful, but 16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; General Public License for more details. 19 ;; GNU General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
32 32
33 ;;; Code: 33 ;;; Code:
34 34
35 (defgroup starttls nil 35 (defgroup starttls nil
36 "Support for `Transport Layer Security' protocol." 36 "Support for `Transport Layer Security' protocol."
37 :group 'ssl) 37 :version "21.1"
38 :group 'mail)
38 39
39 (defcustom starttls-program "starttls" 40 (defcustom starttls-program "starttls"
40 "The program to run in a subprocess to open an TLSv1 connection." 41 "The program to run in a subprocess to open an TLSv1 connection."
42 :type 'string
41 :group 'starttls) 43 :group 'starttls)
42 44
43 (defcustom starttls-extra-args nil 45 (defcustom starttls-extra-args nil
44 "Extra arguments to `starttls-program'" 46 "Extra arguments to `starttls-program'."
47 :type '(repeat string)
45 :group 'starttls) 48 :group 'starttls)
46 49
47 (defun starttls-negotiate (process) 50 (defun starttls-negotiate (process)
48 (signal-process (process-id process) 'SIGALRM)) 51 (signal-process (process-id process) 'SIGALRM))
49 52