[Emacs-diffs] /srv/bzr/emacs/trunk r101256: Remove nnwarchive by Lars Magne Ingebrigtsen <address@hidden>.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101256
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-09-01 00:02:13 +0000
message:
  Remove nnwarchive by Lars Magne Ingebrigtsen <address@hidden>.
modified:
  doc/misc/gnus.texi
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-group.el
  lisp/gnus/gnus.el

=== modified file 'doc/misc/gnus.texi'
--- a/doc/misc/gnus.texi        2010-08-31 23:55:50 +0000
+++ b/doc/misc/gnus.texi        2010-09-01 00:02:13 +0000
@@ -695,7 +695,6 @@
 
 * Archiving Mail::
 * Web Searches::                Creating groups from articles that match a 
string.
-* Web Archive::                 Reading mailing list archived on web.
 * RSS::                         Reading RDF site summary.
 * Customizing W3::              Doing stuff to Emacs/W3 from Gnus.
 
@@ -17395,7 +17394,6 @@
 @menu
 * Archiving Mail::
 * Web Searches::                Creating groups from articles that match a 
string.
-* Web Archive::                 Reading mailing list archived on web.
 * RSS::                         Reading RDF site summary.
 * Customizing W3::              Doing stuff to Emacs/W3 from Gnus.
 @end menu
@@ -17538,43 +17536,6 @@
 @end table
 
 
address@hidden Web Archive
address@hidden Web Archive
address@hidden nnwarchive
address@hidden Web Archive
-
-Some mailing lists only have archives on Web servers, such as
address@hidden://www.egroups.com/} and
address@hidden://www.mail-archive.com/}.  It has a quite regular and nice
-interface, and it's possible to get the information Gnus needs to keep
-groups updated.
-
address@hidden gnus-group-make-warchive-group
-The easiest way to get started with @code{nnwarchive} is to say
-something like the following in the group buffer: @kbd{M-x
-gnus-group-make-warchive-group RET @var{an_egroup} RET egroups RET
-www.egroups.com RET @var{your@@email.address} RET}.  (Substitute the
address@hidden with the mailing list you subscribed, the
address@hidden@@email.address} with your email address.), or to browse the
-back end by @kbd{B nnwarchive RET mail-archive RET}.
-
-The following @code{nnwarchive} variables can be altered:
-
address@hidden @code
address@hidden nnwarchive-directory
address@hidden nnwarchive-directory
-The directory where @code{nnwarchive} stores its files.  The default 
address@hidden
address@hidden/News/warchive/}.
-
address@hidden nnwarchive-login
address@hidden nnwarchive-login
-The account name on the web server.
-
address@hidden nnwarchive-passwd
address@hidden nnwarchive-passwd
-The password for your account on the web server.
address@hidden table
-
 @node RSS
 @subsection RSS
 @cindex nnrss
@@ -29163,10 +29124,9 @@
 As the variables for the other back ends, there are
 @code{nndiary-nov-is-evil}, @code{nndir-nov-is-evil},
 @code{nnfolder-nov-is-evil}, @code{nnimap-nov-is-evil},
address@hidden, @code{nnspool-nov-is-evil}, and
address@hidden  Note that a address@hidden value for
address@hidden overrides all those address@hidden
-+the back ends @code{nnkiboze}, and
address@hidden, and @code{nnspool-nov-is-evil}.  Note that a
address@hidden value for @code{gnus-nov-is-evil} overrides all those
address@hidden the back ends @code{nnkiboze}, and
 @code{nnwfm} don't have their own nn*-nov-is-evil.}
 @end table
 

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-08-31 23:55:50 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-01 00:02:13 +0000
@@ -1,5 +1,7 @@
 2010-08-31  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * nnwarchive.el: Removed.
+
        * gnus-soup.el: Removed.
 
        * nnsoup.el: Removed.

=== modified file 'lisp/gnus/gnus-group.el'
--- a/lisp/gnus/gnus-group.el   2010-08-31 23:55:50 +0000
+++ b/lisp/gnus/gnus-group.el   2010-09-01 00:02:13 +0000
@@ -3083,42 +3083,6 @@
          (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."

=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2010-08-31 23:55:50 +0000
+++ b/lisp/gnus/gnus.el 2010-09-01 00:02:13 +0000
@@ -1747,7 +1747,6 @@
     ("nnweb" none)
     ("nnrss" none)
     ("nnwfm" none)
-    ("nnwarchive" none)
     ("nnlistserv" none)
     ("nnagent" post-mail)
     ("nnimap" post-mail address prompt-address physical-address)