From: Lars Magne Ingebrigtsen Date: Sat, 6 Nov 2010 22:41:20 +0000 (+0100) Subject: Don't insert courtesy messages if the message already has List-Post and List-ID messages. X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=2c64fdcf5cf6f163db9742e67aabea385d872f5e;p=gnus Don't insert courtesy messages if the message already has List-Post and List-ID messages. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4dc2dbf8c..51c35bdac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-11-06 Lars Magne Ingebrigtsen + + * message.el (message-send-mail): Don't insert courtesy messages if the + message already has List-Post and List-ID messages. + 2010-11-06 Andrew Cohen * nnir.el (gnus-summary-nnir-goto-thread): remove function and @@ -13,7 +18,6 @@ * gnus-sum.el (gnus-summary-article-map): bind it. - 2010-11-04 Andrew Cohen * nnir.el (gnus-summary-nnir-goto-thread): limiting work done by diff --git a/lisp/message.el b/lisp/message.el index c0b7303bf..9b5f63cd8 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4526,6 +4526,8 @@ This function could be useful in `message-setup-hook'." (save-restriction (message-narrow-to-headers) (and news + (not (message-fetch-field "List-Post")) + (not (message-fetch-field "List-ID")) (or (message-fetch-field "cc") (message-fetch-field "bcc") (message-fetch-field "to"))