(imap-starttls-open): Quick hack to fix last commit. Still not

perfect, APPEND doesn't work with gnutls starttls.el.

diff --git a/lisp/imap.el b/lisp/imap.el
index 74c93c1..1c3ca8c 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -762,6 +762,8 @@ sure of changing the value of `foo'."
                  (not (imap-parse-greeting)))
        (accept-process-output process 1)
        (sit-for 1))
+      (if (symbolp (symbol-function 'starttls-negotiate))
+         (setq imap-client-eol "\n"))
       (imap-send-command "STARTTLS")
       (while (and (memq (process-status process) '(open run))
                  (set-buffer buffer) ;; XXX "blue moon" nntp.el bug