Merge changes made in Gnus trunk.

gnus.el (gnus-list-debbugs): New command.
gnus-group.el (gnus-bug-group-download-format-alist): Get the mboxstat instead of the maintbox, since the stat seems to be fuller.
gnus-msg.el (gnus-configure-posting-styles): Don't try to select dead summary buffers.
message.el (message-get-reply-headers): Delete all duplicates, instead of the first.
 (message-get-reply-headers): Ensure that we have progress while deleting duplicates.
gnus-msg.el (gnus-configure-posting-styles): Get the local gnus-posting-style value from the summary buffer to make it easier to make that a per-buffer conf.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 2d8ab1a613e026a7f9504125bc6ad3c4f73b3b5f..eaf4e8e2383f513907ce1b3540297467a1b84823 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -4,6 +4,25 @@
        Reindent.
        (epg-context-operation): Remove unnecessary autoload.
 
+2011-07-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus.el (gnus-list-debbugs): New command.
+
+       * gnus-group.el (gnus-bug-group-download-format-alist): Get the
+       mboxstat instead of the maintbox, since the stat seems to be fuller.
+
+       * gnus-msg.el (gnus-configure-posting-styles): Don't try to select dead
+       summary buffers.
+
+       * message.el (message-get-reply-headers): Delete all duplicates,
+       instead of the first.
+       (message-get-reply-headers): Ensure that we have progress while
+       deleting duplicates.
+
+       * gnus-msg.el (gnus-configure-posting-styles): Get the local
+       gnus-posting-style value from the summary buffer to make it easier to
+       make that a per-buffer conf.
+
 2011-07-02  Andrew Cohen  <cohen@andy.bu.edu>
 
        * nnir.el (nnir-run-imap): Allow halting a search when an article is

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 82d31567dc50fccffe985dcf57f2e2b713b0a0bb..74b1c7042eeabde8c705260fffe3a3a5e515a532 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2415,7 +2415,7 @@ Valid input formats include:
     (gnus-read-ephemeral-gmane-group group start range)))
 
 (defcustom gnus-bug-group-download-format-alist
-  '((emacs . "http://debbugs.gnu.org/%s;mbox=yes;mboxmaint=yes")
+  '((emacs . "http://debbugs.gnu.org/%s;mboxstat=yes")
     (debian
      . "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=%s&mbox=yes;mboxmaint=yes"))
   "Alist of symbols for bug trackers and the corresponding URL format string.

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 9fdd3bba9092525ae878f675a28fd36335f471a5..b265a681eb8ba8336c22a88b0135a8f959b99026 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1799,7 +1799,10 @@ this is a reply."
   "Configure posting styles according to `gnus-posting-styles'."
   (unless gnus-inhibit-posting-styles
     (let ((group (or group-name gnus-newsgroup-name ""))
-         (styles gnus-posting-styles)
+         (styles (if (gnus-buffer-live-p gnus-summary-buffer)
+                     (with-current-buffer gnus-summary-buffer
+                       gnus-posting-styles)
+                   gnus-posting-styles))
          style match attribute value v results
          filep name address element)
       ;; If the group has a posting-style parameter, add it at the end with a

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 9204fcf66b7b6712154e557f78f178d5d3a067fa..e8e3a8955ba6b6c16673bfc81fe939480493216e 100644 (file)
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -4385,6 +4385,13 @@ prompt the user for the name of an NNTP server to use."
     (gnus-1 arg dont-connect slave)
     (gnus-final-warning)))
 
+(autoload 'debbugs-emacs "debbugs-gnu")
+(defun gnus-list-debbugs ()
+  "List all open Gnus bug reports."
+  (interactive)
+  (debbugs-emacs '("important" "normal" "minor" "wishlist")
+                "gnus"))
+
 ;; Allow redefinition of Gnus functions.
 
 (gnus-ems-redefine)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 6016644260a25610433632ea0247c09322e3fa39..567eb33cf05b702da9265b4eda52d09c6302ec30 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6749,10 +6749,13 @@ want to get rid of this query permanently.")))
                                  addr))
                 (cons (downcase (mail-strip-quoted-names addr)) addr)))
             (message-tokenize-header recipients)))
-      ;; Remove first duplicates.  (Why not all duplicates?  Is this a bug?)
+      ;; Remove all duplicates.
       (let ((s recipients))
        (while s
-         (setq recipients (delq (assoc (car (pop s)) s) recipients))))
+         (let ((address (car (pop s))))
+           (while (assoc address s)
+             (setq recipients (delq (assoc address s) recipients)
+                   s (delq (assoc address s) s))))))
 
       ;; Remove hierarchical lists that are contained within each other,
       ;; if message-hierarchical-addresses is defined.