X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fgnus-fun.el;h=473470bc53517d73c162c3cf409087337149de2f;hb=546e9828be8e39aa275a4e2c53c217e86ae8f122;hp=4105a81d6ca72354cc535e39ef783acc36bee9e4;hpb=4edf50bb463a978af07eba8be40d01aa4a644265;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index 4105a81..473470b 100644
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -239,6 +239,28 @@ colors of the displayed X-Faces."
     (gnus-convert-image-to-gray-x-face (concat file ".gif") 3)
     (delete-file (concat file ".gif"))))
 
+(defun gnus-respond-to-confirmation ()
+  "Respond to a Gmane confirmation message."
+  (interactive)
+  (gnus-summary-show-article 'raw)
+  (set-buffer gnus-article-buffer)
+  (let ((buffer-read-only nil))
+    (goto-char (point-min))
+    (gnus-article-goto-header "Original-To")
+    (replace-match "To:"))
+  (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)
 
 ;;; gnus-fun.el ends here