From 3bd993c120912bd94b1265a367b0fde1816b8067 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 14 Oct 2010 23:54:43 +0200 Subject: [PATCH] (nnimap-open-connection): Message when opening connection for debugging purposes. --- lisp/ChangeLog | 3 +++ lisp/nnimap.el | 5 +++++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8fa0ec107..b82aabccd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-10-14 Lars Magne Ingebrigtsen + * nnimap.el (nnimap-open-connection): Message when opening connection + for debugging purposes. + * gnus-art.el (gnus-article-setup-buffer): Set article mode truncation on every setup buffer call to allow this to change from article to article. diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 2c3a38a75..bb9f56919 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -304,6 +304,7 @@ textual parts.") ((or (eq nnimap-stream 'network) (and (eq nnimap-stream 'starttls) (fboundp 'open-gnutls-stream))) + (message "Opening connection to %s..." nnimap-address) (open-network-stream "*nnimap*" (current-buffer) nnimap-address (setq port @@ -313,11 +314,14 @@ textual parts.") "143")))) '("143" "imap")) ((eq nnimap-stream 'shell) + (message "Opening connection to %s via shell..." nnimap-address) (nnimap-open-shell-stream "*nnimap*" (current-buffer) nnimap-address (setq port (or nnimap-server-port "imap"))) '("imap")) ((eq nnimap-stream 'starttls) + (message "Opening connection to %s via starttls..." + nnimap-address) (let ((tls-program '("openssl s_client -connect %h:%p -no_ssl2 -ign_eof -starttls imap"))) (open-tls-stream @@ -325,6 +329,7 @@ textual parts.") (setq port (or nnimap-server-port "imap")))) '("imap")) ((memq nnimap-stream '(ssl tls)) + (message "Opening connection to %s via tls..." nnimap-address) (funcall (if (fboundp 'open-gnutls-stream) 'open-gnutls-stream 'open-tls-stream) -- 2.25.1