So I've already opened an issue in gitlab, but my attempts at pasting
in a simple patch failed misserably, so I'm showing the patch here.
Basically, when using M N M-x vm-save-message-to-imap-folder, it's
stupid noisy since it's  keeps spouting on about "Checking the IMAP
connection"  Let's just shut this up.

$ git diff lisp/vm-imap.el
diff --git i/lisp/vm-imap.el w/lisp/vm-imap.el
index 1c9f55f..1daeb83 100644
--- i/lisp/vm-imap.el
+++ w/lisp/vm-imap.el
@@ -2540,8 +2540,8 @@ that the session is active.  Returns t or nil."
              ;;----------------------------
              (vm-buffer-type:enter 'process)
              ;;----------------------------
-             (vm-inform 7 "%s: Checking IMAP connection to %s..." "server"
-                        (buffer-name vm-mail-buffer))
+             ;;(vm-inform 7 "%s: Checking IMAP connection to %s..." "server"
+             ;;         (buffer-name vm-mail-buffer))
              (vm-imap-send-command process "NOOP")
              (condition-case _err
                  (let ((response nil)
@@ -2551,7 +2551,7 @@ that the session is active.  Returns t or nil."
                            (vm-imap-read-response-and-verify process "NOOP"))
                      (cond ((vm-imap-response-matches response 'VM 'OK)
                             (setq need-ok nil))))
-                   (vm-inform 7 "Checking IMAP connection to %s...alive" 
"server")
+                   ;;(vm-inform 7 "Checking IMAP connection to %s...alive" 
"server")
                    ;;----------------------------
                    (vm-buffer-type:exit)
                    ;;----------------------------



Now it might be smarter to change the (vm-inform 7 ....) level to
something else, but honestly, it's just annoying.  It's not like you
can do anything when this happens.  

John

Reply via email to