# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1285424378 0
# Node ID 04b79dd168dd02c7f36571d76e5491a9776cb91d
# Parent  20537dcb489da8614ab6a16e1d6cfefdf3b295f1
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.

diff -r 20537dcb489d -r 04b79dd168dd lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sat Sep 25 14:05:46 2010 +0000
+++ b/lisp/gnus/ChangeLog	Sat Sep 25 14:19:38 2010 +0000
@@ -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.
diff -r 20537dcb489d -r 04b79dd168dd lisp/gnus/gnus.el
--- a/lisp/gnus/gnus.el	Sat Sep 25 14:05:46 2010 +0000
+++ b/lisp/gnus/gnus.el	Sat Sep 25 14:19:38 2010 +0000
@@ -1428,6 +1428,15 @@
   "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.")
diff -r 20537dcb489d -r 04b79dd168dd lisp/gnus/nnimap.el
--- a/lisp/gnus/nnimap.el	Sat Sep 25 14:05:46 2010 +0000
+++ b/lisp/gnus/nnimap.el	Sat Sep 25 14:19:38 2010 +0000
@@ -310,7 +310,7 @@
 	(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