Duplicates & not seeing them

[Carsten Leonhardt <leo@arioch.oche.de>]

[-- Attachment #1: Type: text/plain, Size: 725 bytes --]

I have that sort of paranoia where I don't want to delete any incoming
mails (so I set nnmail-treat-duplicates to 'warn). But I'm also
annoyed by mails that I get from more than one mailing list and then
show up more than once in the summary buffer.

A fine solution would be to score the articles that are detected to be
duplicates very low. In order to have that fast, one has to score on
something that is in the nov-file. So it would be nice if the new
message-id for duplicates wouldn't end in
"totally-fudged-out-message-id" but in something like
"this-is-a-duplicate-message-so-score-me-low" to avoid confusion with
other messages which get their message-id set inside nnmail.el.

Sample patch included below.

  Leo


[-- Attachment #2: nnmail.diff --]
[-- Type: application/octet-stream, Size: 421 bytes --]

--- nnmail.el.orig-5.4.17	Sun Mar  2 22:06:24 1997
+++ nnmail.el	Sun Mar  2 23:45:03 1997
@@ -1481,7 +1481,7 @@
      ((eq action 'warn)
       ;; We insert a warning.
       (let ((case-fold-search t)
-	    (newid (nnmail-message-id)))
+	    (newid (concat "<" (message-unique-id) "@i-am-a-duplicate-so-hit-me>")))
 	(goto-char (point-min))
 	(when (re-search-forward "^message-id[ \t]*:" nil t)
 	  (beginning-of-line)