Commit ecd283b9 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

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.
parent 7f6d634a
......@@ -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
......
......@@ -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.
......
......@@ -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
......
......@@ -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)
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment