From ecd283b970934a3b13c0c16086ca29ef609118a3 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 3 Jul 2011 00:24:28 +0000 Subject: [PATCH] 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. --- lisp/gnus/ChangeLog | 19 +++++++++++++++++++ lisp/gnus/gnus-group.el | 2 +- lisp/gnus/gnus-msg.el | 5 ++++- lisp/gnus/gnus.el | 7 +++++++ lisp/gnus/message.el | 7 +++++-- 5 files changed, 36 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2d8ab1a613e..eaf4e8e2383 100644 --- 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 + + * 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 * 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 82d31567dc5..74b1c7042ee 100644 --- 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 9fdd3bba909..b265a681eb8 100644 --- 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 9204fcf66b7..e8e3a8955ba 100644 --- 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 6016644260a..567eb33cf05 100644 --- 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. -- 2.39.2