Merge changes made in Gnus trunk.

message.el (message-point-in-header-p): Tweak the function to default to saying that we're not in the headers if there is no separator at all.  This makes it possible to use the Message version of `M-q' in buffers with no headers (bug#7987).
 (message-point-in-header-p): Fix last checkin to work with an empty mail-header-separator, too.
auth-source.el (auth-source-netrc-saver): If the user says "don't ask again, save the choice via customize.
message.el (message-send-mail-function): Add `sendmail-query-once'.
nnimap.el (nnimap-finish-retrieve-group-infos): If the server has ended the connection, bail out before waiting infinitely on a new connection.

4 files changed, 35 insertions, 5 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index ec7cca9fdff..558aa4ad3d8 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,23 @@
+2011-06-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * message.el (message-point-in-header-p): Tweak the function to default
+        to saying that we're not in the headers if there is no separator at
+        all.  This makes it possible to use the Message version of `M-q' in
+        buffers with no headers (bug#7987).
+        (message-point-in-header-p): Fix last checkin to work with an empty
+        mail-header-separator, too.
+
+        * auth-source.el (auth-source-netrc-saver): If the user says "don't ask
+        again, save the choice via customize.
+
+2011-06-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * message.el (message-send-mail-function): Add `sendmail-query-once'.
+
+        * nnimap.el (nnimap-finish-retrieve-group-infos): If the server has
+        ended the connection, bail out before waiting infinitely on a new
+        connection.
+
 2011-06-28  Teodor Zlatanov  <tzz@lifelogs.com>
 
         * gnus-msg.el (gnus-bug): Add Package and Version pseudo-headers to bug
diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el
index c9cfc14fc55..72f0cb7ae58 100644
--- a/lisp/gnus/auth-source.el
+++ b/lisp/gnus/auth-source.el
@@ -1363,9 +1363,10 @@ Respects `auth-source-save-behavior'.  Uses
                       (help-mode))))
               (?n (setq add ""
                         done t))
-              (?N (setq add ""
-                        done t
-                        auth-source-save-behavior nil))
+              (?N
+               (setq add ""
+                     done t)
+               (customize-save-variable 'auth-source-save-behavior nil))
               (?e (setq add (read-string "Line to add: " add)))
               (t nil)))
 
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 58740c32e9c..6016644260a 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -659,6 +659,7 @@ Done before generating the new subject of a forward."
 (defcustom message-send-mail-function
   (cond ((eq send-mail-function 'smtpmail-send-it) 'message-smtpmail-send-it)
         ((eq send-mail-function 'feedmail-send-it) 'feedmail-send-it)
+        ((eq send-mail-function 'sendmail-query-once) 'sendmail-query-once)
         ((eq send-mail-function 'mailclient-send-it)
          'message-send-mail-with-mailclient)
         (t (message-send-mail-function)))
@@ -3424,8 +3425,12 @@ Message buffers and is not meant to be called directly."
 (defun message-point-in-header-p ()
   "Return t if point is in the header."
   (save-excursion
-    (not (re-search-backward
-          (concat "^" (regexp-quote mail-header-separator) "\n") nil t))))
+    (and
+     (not
+      (re-search-backward
+       (concat "^" (regexp-quote mail-header-separator) "\n") nil t))
+     (re-search-forward
+      (concat "^" (regexp-quote mail-header-separator) "\n") nil t))))
 
 (defun message-do-auto-fill ()
   "Like `do-auto-fill', but don't fill in message header."
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 2cfc88987f6..e78c20bdeef 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1227,6 +1227,10 @@ textual parts.")
 
 (deffoo nnimap-finish-retrieve-group-infos (server infos sequences)
   (when (and sequences
+             ;; Check that the process is still alive.
+             (get-buffer-process (nnimap-buffer))
+             (memq (process-status (get-buffer-process (nnimap-buffer)))
+                   '(open run))
              (nnimap-possibly-change-group nil server))
     (with-current-buffer (nnimap-buffer)
       ;; Wait for the final data to trickle in.