+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.
(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)