nnimap.el (nnimap-open-connection): Wait for the response to STARTTLS before starting negotiation.

gnus.el (gnus-local-domain): Put gnus-local-domain back again, since apparently third-party libraries depend on it.

lisp/gnus/ChangeLog

@@ -1,5 +1,11 @@
 2010-09-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus.el (gnus-local-domain): Put gnus-local-domain back again, since
+	apparently third-party libraries depend on it.
+
+	* nnimap.el (nnimap-open-connection): Wait for the response to STARTTLS
+	before starting negotiation.
+
 	* gnus-art.el (gnus-treat-from-gravatar): Change default to nil for
 	privacy reasons.
 	(gnus-treat-mail-gravatar): Ditto.

lisp/gnus/gnus.el

@@ -1428,6 +1428,15 @@ you could set this variable:
   "Default default new newsgroups the first time Gnus is run.
 Should be set in paths.el, and shouldn't be touched by the user.")
 
+(defcustom gnus-local-domain nil
+  "Local domain name without a host name.
+The DOMAINNAME environment variable is used instead if it is defined.
+If the function `system-name' returns the full Internet name, there is
+no need to set this variable."
+  :group 'gnus-message
+  :type '(choice (const :tag "default" nil)
+		 string))
+
 (defvar gnus-local-organization nil
   "String with a description of what organization (if any) the user belongs to.
 Obsolete variable; use `message-user-organization' instead.")

lisp/gnus/nnimap.el

@@ -310,7 +310,7 @@ not done by default on servers that doesn't support that command.")
 	(gnus-set-process-query-on-exit-flag (nnimap-process nnimap-object) nil)
 	(when (setq connection-result (nnimap-wait-for-connection))
 	  (when (eq nnimap-stream 'starttls)
-	    (nnimap-send-command "STARTTLS")
+	    (nnimap-command "STARTTLS")
 	    (starttls-negotiate (nnimap-process nnimap-object)))
 	  (unless (equal connection-result "PREAUTH")
 	    (if (not (setq credentials