(nnheader-uniquify-message-id): New experimental

variable.
(nnheader-nov-read-message-id): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28954ad..ea1a5f2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2004-07-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnheader.el (nnheader-uniquify-message-id): New experimental
+       variable. 
+       (nnheader-nov-read-message-id): Use it.
+
        * spam-report.el (spam-report-gmane): Add interactive.
 
 2004-07-02  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 57bf55b..be4a6b7 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -385,10 +385,17 @@ on your system, you could say something like:
               out)))
      out))
 
+(defvar nnheader-uniquify-message-id nil)
+
 (defmacro nnheader-nov-read-message-id (&optional number)
   `(let ((id (nnheader-nov-field)))
      (if (string-match "^<[^>]+>$" id)
-        id
+        ,(if nnheader-uniquify-message-id
+             `(if (string-match "__[^@]+@" id)
+                  (concat (substring id 0 (match-beginning 0))
+                          (substring id (1- (match-end 0))))
+                id)
+           'id)
        (nnheader-generate-fake-message-id ,number))))
 
 (defun nnheader-parse-nov ()