Remove nnwarchive by Lars Magne Ingebrigtsen <larsi@gnus.org>.

3 files changed, 2 insertions, 37 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9eccb71c866..3d8d4c9c16b 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2010-08-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+        * nnwarchive.el: Removed.
+
         * gnus-soup.el: Removed.
 
         * nnsoup.el: Removed.
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 31f1718054c..e4758fadb85 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -3083,42 +3083,6 @@ If there is, use Gnus to create an nnrss group"
           (nnrss-save-server-data nil))
       (error "No feeds found for %s" url))))
 
-(defvar nnwarchive-type-definition)
-(defvar gnus-group-warchive-type-history nil)
-(defvar gnus-group-warchive-login-history nil)
-(defvar gnus-group-warchive-address-history nil)
-
-(defun gnus-group-make-warchive-group ()
-  "Create a nnwarchive group."
-  (interactive)
-  (require 'nnwarchive)
-  (let* ((group (gnus-read-group "Group name: "))
-         (default-type (or (car gnus-group-warchive-type-history)
-                           (symbol-name (caar nnwarchive-type-definition))))
-         (type
-          (gnus-string-or
-           (completing-read
-            (format "Warchive type (default %s): " default-type)
-            (mapcar (lambda (elem) (list (symbol-name (car elem))))
-                    nnwarchive-type-definition)
-            nil t nil 'gnus-group-warchive-type-history)
-           default-type))
-         (address (read-string "Warchive address: "
-                               nil 'gnus-group-warchive-address-history))
-         (default-login (or (car gnus-group-warchive-login-history)
-                            user-mail-address))
-         (login
-          (gnus-string-or
-           (read-string
-            (format "Warchive login (default %s): " user-mail-address)
-            default-login 'gnus-group-warchive-login-history)
-           user-mail-address))
-         (method
-          `(nnwarchive ,address
-                       (nnwarchive-type ,(intern type))
-                       (nnwarchive-login ,login))))
-    (gnus-group-make-group group method)))
-
 (defun gnus-group-make-archive-group (&optional all)
   "Create the (ding) Gnus archive group of the most recent articles.
 Given a prefix, create a full group."
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index d95ebd7acec..dece8dccece 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -1747,7 +1747,6 @@ slower."
     ("nnweb" none)
     ("nnrss" none)
     ("nnwfm" none)
-    ("nnwarchive" none)
     ("nnlistserv" none)
     ("nnagent" post-mail)
     ("nnimap" post-mail address prompt-address physical-address)