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

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104894
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2011-07-03 00:24:28 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-group.el
  lisp/gnus/gnus-msg.el
  lisp/gnus/gnus.el
  lisp/gnus/message.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-07-02 23:53:45 +0000
+++ b/lisp/gnus/ChangeLog       2011-07-03 00:24:28 +0000
@@ -4,6 +4,25 @@
        Reindent.
        (epg-context-operation): Remove unnecessary autoload.
 
+2011-07-02  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * nnir.el (nnir-run-imap): Allow halting a search when an article is

=== modified file 'lisp/gnus/gnus-group.el'
--- a/lisp/gnus/gnus-group.el   2011-06-30 22:20:32 +0000
+++ b/lisp/gnus/gnus-group.el   2011-07-03 00:24:28 +0000
@@ -2415,7 +2415,7 @@
     (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.

=== modified file 'lisp/gnus/gnus-msg.el'
--- a/lisp/gnus/gnus-msg.el     2011-07-02 13:26:49 +0000
+++ b/lisp/gnus/gnus-msg.el     2011-07-03 00:24:28 +0000
@@ -1799,7 +1799,10 @@
   "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

=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2011-06-28 22:18:09 +0000
+++ b/lisp/gnus/gnus.el 2011-07-03 00:24:28 +0000
@@ -4385,6 +4385,13 @@
     (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)

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2011-06-30 01:02:47 +0000
+++ b/lisp/gnus/message.el      2011-07-03 00:24:28 +0000
@@ -6749,10 +6749,13 @@
                                  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.