procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/nsm.el (nsm-verify-connection): Improve docstring.

Browse source
This commit is contained in:
Stefan Kangas 2024-07-27 03:27:57 +02:00
parent 33c6b4df40
commit 9e9121ed63
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/net/nsm.el
View file

@ -100,21 +100,20 @@ This means that no queries should be performed.")
(defun nsm-verify-connection (process host port &optional
save-fingerprint warn-unencrypted)
"Verify the security status of PROCESS that's connected to HOST:PORT.
If PROCESS is a gnutls connection, the certificate validity will
be examined. If it's a non-TLS connection, it may be compared
against previous connections. If the function determines that
there is something odd about the connection, the user will be
queried about what to do about it.
If PROCESS is a GnuTLS connection, the certificate validity will be
examined. If it's a non-TLS connection, it may be compared against
previous connections. If the function determines that there is
something odd about the connection, the user will be queried about what
to do about it.
The process is returned if everything is OK, and otherwise, the
process will be deleted and nil is returned.
Return the process if all the checks pass. Otherwise, delete the
process and return nil.
If SAVE-FINGERPRINT, always save the fingerprint of the
server (if the connection is a TLS connection). This is useful
to keep track of the TLS status of STARTTLS servers.
If SAVE-FINGERPRINT, always save the fingerprint of the server (if the
connection is a TLS connection). This is useful to keep track of the
TLS status of STARTTLS servers.
If WARN-UNENCRYPTED, query the user if the connection is
unencrypted."
If WARN-UNENCRYPTED, query the user if the connection is unencrypted."
(let* ((status (gnutls-peer-status process))
(id (nsm-id host port))
(settings (nsm-host-settings id)))