2003-01-15 Kevin Ryde <user42@zip.com.au>

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index fd82439..d1d7fc9 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3136,6 +3136,7 @@ It should typically alter the sending method in some way or other."
       (when (funcall (cadr elem))
        (when (and (or (not (memq (car elem)
                                  message-sent-message-via))
+                      (not (message-fetch-field "supersedes"))
                       (if (or (message-gnksa-enable-p 'multiple-copies)
                               (not (eq (car elem) 'news)))
                           (y-or-n-p