X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-fun.el;h=190e3c4b8def7e56285af651b77ac5fab081abd9;hb=53ab3973f51bd04a72e0948f35315cb3e7dbac9d;hp=8ca16e11b6be01b03899a0a033ad484b647595e5;hpb=2027a354c74bfbe51e7265741d5d422793f7d5f5;p=gnus

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index 8ca16e11b..190e3c4b8 100644
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -240,65 +240,6 @@ 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"))))
-
-(defun gnus-subscribe-to-mailing-list (type)
-  "Generate a Gmane subscription message based on the current gmane.conf line."
-  (interactive
-   (list
-    (intern
-     (completing-read "Mailing list type: "
-		      '(("mailman") ("majordomo") ("exmlm"))
-		      nil t))))
-  (beginning-of-line)
-  (let* ((entry
-	  (split-string
-	   (buffer-substring (point) (progn (end-of-line) (point)))
-	   ":"))
-	 (local (car (split-string (nth 2 entry) "@")))
-	 (host (cadr (split-string (nth 2 entry) "@")))
-	 (from (car entry))
-	 (subject "subscribe")
-	 to)
-    (when (string-match "#" from)
-      (setq from (substring from 1)))
-    (cond
-     ((eq type 'mailman)
-      (setq to (concat local "-request@" host)))
-     ((eq type 'majordomo)
-      (setq to (concat "majordomo@" host)
-	    subject (concat "subscribe " local)))
-     ((eq type 'exmlm)
-      (setq to (concat local "-" from "=m.gmane.org@" host)))
-     (t
-      (error "No such type: %s" type)))
-    (message-mail
-     to subject
-     `((From . ,(concat from "@m.gmane.org"))))
-    (message-goto-body)
-    (delete-region (point) (point-max))
-    (insert subject "\n")))
-  
 (provide 'gnus-fun)
 
 ;;; gnus-fun.el ends here