2 files changed, 4 insertions, 0 deletions
diff --git a/NEWS b/NEWS
index 6c678024..a9fad21f 100644
--- a/NEWS
+++ b/NEWS
@@ -229,6 +229,8 @@ fetchmail 6.3.0 (not yet released officially):
   also offers MSN and NTLM, suggested by Yves Boisjoly. Matthias Andree
 * fetchmailconf now (as of 1.49) writes its version to the comment of the
   saved run control file. Matthias Andree
+* Properly shut down SSL connections. Berlios Patch #647 by Arkadiusz
+  Miśkiewicz. (MA)
 
 # INTERNAL CHANGES
 * Switched to automake. Matthias Andree.
diff --git a/socket.c b/socket.c
index 411d24f7..2383e965 100644
--- a/socket.c
+++ b/socket.c
@@ -855,6 +855,7 @@ int SSLOpen(int sock, char *mycert, char *mykey, char *myproto, int certck, char
 		if (fingerprint != NULL || certck) {
 			if( NULL != SSLGetContext( sock ) ) {
 				/* Clean up the SSL stack */
+				SSL_shutdown( _ssl_context[sock] );
 				SSL_free( _ssl_context[sock] );
 				_ssl_context[sock] = NULL;
 			}
@@ -872,6 +873,7 @@ int SockClose(int sock)
 #ifdef	SSL_ENABLE
     if( NULL != SSLGetContext( sock ) ) {
         /* Clean up the SSL stack */
+        SSL_shutdown( _ssl_context[sock] );
         SSL_free( _ssl_context[sock] );
         _ssl_context[sock] = NULL;
     }