*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce0c1bd..7f25932 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-fun.el (gnus-respond-to-confirmation): Do the right thing
+       for Majordomo confirmations.
+
 2002-02-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-fun.el (gnus-respond-to-confirmation): New command.

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index 766ef1e..473470b 100644 (file)
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -248,12 +248,18 @@ colors of the displayed X-Faces."
     (goto-char (point-min))
     (gnus-article-goto-header "Original-To")
     (replace-match "To:"))
-  (message-wide-reply)
-  (goto-char (point-min))
-  (gnus-article-goto-header "Cc")
-  (replace-match "From:")
-  (message-goto-body)
-  (delete-region (point) (point-max)))
+  (let ((auth nil))
+    (when (and (search-forward "Majordomo" nil t)
+              (re-search-forward "auth.*subscribe.*$" nil t))
+      (setq auth (match-string 0)))
+    (message-wide-reply)
+    (goto-char (point-min))
+    (gnus-article-goto-header "Cc")
+    (replace-match "From:")
+    (message-goto-body)
+    (delete-region (point) (point-max))
+    (when auth
+      (insert auth "\n"))))
 
 (provide 'gnus-fun)