[Emacs-diffs] /srv/bzr/emacs/trunk r103901: Merge changes made in Gnus trunk.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103901
author: Gnus developers <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2011-04-12 22:18:02 +0000
message:
  Merge changes made in Gnus trunk.
  
  gnus.texi (Window Layout): @itemize @code doesn't exist.  It's @table @code.
  gnus-registry.el (gnus-registry--split-fancy-with-parent-internal): Fix logic 
bug.
   (gnus-registry-post-process-groups): Fix logging of no results and quote 
sender and subject.
  network-stream.el (network-stream-open-starttls): Only do opportunistic 
STARTTLS upgrades if we have built-in gnutls support.  Upgrades via gnutls-cli 
are too slow to be done opportunistically.
  gnus-start.el (gnus-get-unread-articles): Slight cleanup.
   (gnus-read-active-for-groups): Don't try to finish getting stuff where we 
had no early-data returned.
   (gnus-get-unread-articles): Add a sanity check so that we don't issue two 
async commands to the same server at the same time.
  gnus-sum.el (gnus-summary-select-article-buffer): Doc fix.
  gnus-registry.el (gnus-registry-remake-db): Put the warning on a "warning" 
level.
modified:
  doc/misc/ChangeLog
  doc/misc/gnus.texi
  lisp/ChangeLog
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-registry.el
  lisp/gnus/gnus-start.el
  lisp/gnus/gnus-sum.el
  lisp/net/network-stream.el

=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog        2011-04-06 12:18:10 +0000
+++ b/doc/misc/ChangeLog        2011-04-12 22:18:02 +0000
@@ -1,3 +1,8 @@
+2011-04-12  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * gnus.texi (Window Layout): @itemize @code doesn't exist.  It's @table
+       @code.
+
 2011-03-19  Antoine Levitt  <address@hidden>
 
        * gnus.texi (Listing Groups): Document gnus-group-list-ticked

=== modified file 'doc/misc/gnus.texi'
--- a/doc/misc/gnus.texi        2011-03-30 14:59:42 +0000
+++ b/doc/misc/gnus.texi        2011-04-12 22:18:02 +0000
@@ -22836,7 +22836,7 @@
 Here's a list of most of the currently known window configurations,
 and when they're used:
 
address@hidden @code
address@hidden @code
 @item group
 The group buffer.
 
@@ -22903,7 +22903,7 @@
 @item mml-preview
 Previewing a @acronym{MIME} part.
 
address@hidden itemize
address@hidden table
 
 
 @subsection Example Window Configurations

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-12 15:39:44 +0000
+++ b/lisp/ChangeLog    2011-04-12 22:18:02 +0000
@@ -1,3 +1,9 @@
+2011-04-12  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/network-stream.el (network-stream-open-starttls): Only do
+       opportunistic STARTTLS upgrades if we have built-in gnutls support.
+       Upgrades via gnutls-cli are too slow to be done opportunistically.
+
 2011-04-12  Juanma Barranquero  <address@hidden>
 
        * dframe.el (dframe-current-frame): Remove spurious quote.

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-04-12 14:16:41 +0000
+++ b/lisp/gnus/ChangeLog       2011-04-12 22:18:02 +0000
@@ -1,4 +1,26 @@
-2011-04-12  Lars Magne Ingebrigtsen  <address@hidden>
+2011-04-12  Teodor Zlatanov  <address@hidden>
+
+       * gnus-registry.el (gnus-registry--split-fancy-with-parent-internal):
+       Fix logic bug.
+       (gnus-registry-post-process-groups): Fix logging of no results and
+       quote sender and subject.
+
+2011-04-12  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * gnus-start.el (gnus-get-unread-articles): Slight cleanup.
+       (gnus-read-active-for-groups): Don't try to finish getting stuff where
+       we had no early-data returned.
+       (gnus-get-unread-articles): Add a sanity check so that we don't issue
+       two async commands to the same server at the same time.
+
+2011-04-12  Stig Sandbeck Mathisen  <address@hidden>  (tiny change)
+
+       * gnus-sum.el (gnus-summary-select-article-buffer): Doc fix.
+
+2011-04-12  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * gnus-registry.el (gnus-registry-remake-db): Put the warning on a
+       "warning" level.
 
        * mm-url.el (mm-url-package-name): Removed to ease third-party reuse.
        (mm-url-insert-file-contents): Don't set the package names.

=== modified file 'lisp/gnus/gnus-registry.el'
--- a/lisp/gnus/gnus-registry.el        2011-04-11 22:17:30 +0000
+++ b/lisp/gnus/gnus-registry.el        2011-04-12 22:18:02 +0000
@@ -258,7 +258,7 @@
 This is not required after changing `gnus-registry-cache-file'."
   (interactive (list (y-or-n-p "Remake and CLEAR the Gnus registry? ")))
   (when forsure
-    (gnus-message 1 "Remaking the Gnus registry")
+    (gnus-message 4 "Remaking the Gnus registry")
     (setq gnus-registry-db (gnus-registry-make-db))))
 
 (defun gnus-registry-read ()
@@ -428,9 +428,9 @@
      (when (and (null found)
                 (memq 'sender gnus-registry-track-extra)
                 sender
-                (gnus-grep-in-list
-                 sender
-                 gnus-registry-unfollowed-addresses))
+                (not (gnus-grep-in-list
+                      sender
+                      gnus-registry-unfollowed-addresses)))
        (let ((groups (apply
                       'append
                       (mapcar
@@ -564,12 +564,12 @@
      ((null out)
       (gnus-message
        5
-       "%s: no matches for %s %s."
-       log-agent out mode key)
+       "%s: no matches for %s '%s'."
+       log-agent mode key)
       nil)
      (t (gnus-message
          5
-         "%s: too many extra matches (%s) for %s %s.  Returning none."
+         "%s: too many extra matches (%s) for %s '%s'.  Returning none."
          log-agent out mode key)
         nil))))
 

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2011-04-07 22:48:21 +0000
+++ b/lisp/gnus/gnus-start.el   2011-04-12 22:18:02 +0000
@@ -1699,33 +1699,43 @@
          (gnus-read-active-file-1 method nil))))
 
     ;; Start early async retrieval of data.
-    (dolist (elem type-cache)
-      (destructuring-bind (method method-type infos dummy) elem
-       (when (and method infos
-                  (not (gnus-method-denied-p method)))
-         ;; If the open-server method doesn't exist, then the method
-         ;; itself doesn't exist, so we ignore it.
-         (if (not (ignore-errors (gnus-get-function method 'open-server)))
-             (setq type-cache (delq elem type-cache))
-           (unless (gnus-server-opened method)
-             (gnus-open-server method))
-           (when (and
-                  (gnus-server-opened method)
-                  (gnus-check-backend-function
-                   'retrieve-group-data-early (car method)))
-             (when (gnus-check-backend-function 'request-scan (car method))
-               (gnus-request-scan nil method))
-             ;; Store the token we get back from -early so that we
-             ;; can pass it to -finish later.
-             (setcar (nthcdr 3 elem)
-                     (gnus-retrieve-group-data-early method infos)))))))
+    (let ((done-methods nil)
+         sanity-spec)
+      (dolist (elem type-cache)
+       (destructuring-bind (method method-type infos dummy) elem
+         (setq sanity-spec (list (car method) (cadr method)))
+         (when (and method infos
+                    (not (gnus-method-denied-p method)))
+           ;; If the open-server method doesn't exist, then the method
+           ;; itself doesn't exist, so we ignore it.
+           (if (not (ignore-errors (gnus-get-function method 'open-server)))
+               (setq type-cache (delq elem type-cache))
+             (unless (gnus-server-opened method)
+               (gnus-open-server method))
+             (when (and
+                    ;; This is a sanity check, so that we never
+                    ;; attempt to start two async requests to the
+                    ;; same server, because that will fail.  This
+                    ;; should never happen, since the methods should
+                    ;; be unique at this point, but apparently it
+                    ;; does happen in the wild with some setups.
+                    (not (member sanity-spec done-methods))
+                    (gnus-server-opened method)
+                    (gnus-check-backend-function
+                     'retrieve-group-data-early (car method)))
+               (push sanity-spec done-methods)
+               (when (gnus-check-backend-function 'request-scan (car method))
+                 (gnus-request-scan nil method))
+               ;; Store the token we get back from -early so that we
+               ;; can pass it to -finish later.
+               (setcar (nthcdr 3 elem)
+                       (gnus-retrieve-group-data-early method infos))))))))
 
     ;; Do the rest of the retrieval.
     (dolist (elem type-cache)
       (destructuring-bind (method method-type infos early-data) elem
        (when (and method infos
-                  (not (eq (gnus-server-status method)
-                           'denied)))
+                  (not (gnus-method-denied-p method)))
          (let ((updatep (gnus-check-backend-function
                          'request-update-info (car method))))
            ;; See if any of the groups from this method require updating.
@@ -1763,6 +1773,7 @@
      ;; Finish up getting the data from the methods that have -early
      ;; methods.
      ((and
+       early-data
        (gnus-check-backend-function 'finish-retrieve-group-infos (car method))
        (or (not (gnus-agent-method-p method))
           (gnus-online method)))

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2011-04-04 14:03:08 +0000
+++ b/lisp/gnus/gnus-sum.el     2011-04-12 22:18:02 +0000
@@ -7035,7 +7035,7 @@
 
 (defun gnus-summary-select-article-buffer ()
   "Reconfigure windows to show the article buffer.
-If `gnus-widen-article-buffer' is set, show only the article
+If `gnus-widen-article-window' is set, show only the article
 buffer."
   (interactive)
   (if (not (gnus-buffer-live-p gnus-article-buffer))

=== modified file 'lisp/net/network-stream.el'
--- a/lisp/net/network-stream.el        2011-04-02 23:41:03 +0000
+++ b/lisp/net/network-stream.el        2011-04-12 22:18:02 +0000
@@ -171,9 +171,11 @@
         (resulting-type 'plain)
         starttls-command)
 
-    ;; If we have STARTTLS support, try to upgrade the connection.
+    ;; If we have built-in STARTTLS support, try to upgrade the
+    ;; connection.
     (when (and (or (fboundp 'open-gnutls-stream)
-                  (executable-find "gnutls-cli"))
+                  (and require-tls
+                       (executable-find "gnutls-cli")))
               capabilities success-string starttls-function
               (setq starttls-command
                     (funcall starttls-function capabilities)))