# HG changeset patch # User Katsumi Yamaoka # Date 1283299333 0 # Node ID 93f65e2caf3e33c7f69f9635b2bd9175c28bbdf2 # Parent c74caa6fbef54e7ad593ab1a23143114dc952249 Remove nnwarchive by Lars Magne Ingebrigtsen . diff -r c74caa6fbef5 -r 93f65e2caf3e doc/misc/gnus.texi --- a/doc/misc/gnus.texi Tue Aug 31 23:55:50 2010 +0000 +++ b/doc/misc/gnus.texi Wed Sep 01 00:02:13 2010 +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 -@node Web Archive -@subsection Web Archive -@cindex nnwarchive -@cindex Web Archive - -Some mailing lists only have archives on Web servers, such as -@uref{http://www.egroups.com/} and -@uref{http://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. - -@findex 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 -@var{an_egroup} with the mailing list you subscribed, the -@var{your@@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: - -@table @code -@item nnwarchive-directory -@vindex nnwarchive-directory -The directory where @code{nnwarchive} stores its files. The default is@* -@file{~/News/warchive/}. - -@item nnwarchive-login -@vindex nnwarchive-login -The account name on the web server. - -@item nnwarchive-passwd -@vindex nnwarchive-passwd -The password for your account on the web server. -@end 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}, -@code{nnml-nov-is-evil}, @code{nnspool-nov-is-evil}, and -@code{nnwarchive-nov-is-evil}. Note that a non-@code{nil} value for -@code{gnus-nov-is-evil} overrides all those variables.@footnote{Although -+the back ends @code{nnkiboze}, and +@code{nnml-nov-is-evil}, and @code{nnspool-nov-is-evil}. Note that a +non-@code{nil} value for @code{gnus-nov-is-evil} overrides all those +variables.@footnote{Although the back ends @code{nnkiboze}, and @code{nnwfm} don't have their own nn*-nov-is-evil.} @end table diff -r c74caa6fbef5 -r 93f65e2caf3e lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Tue Aug 31 23:55:50 2010 +0000 +++ b/lisp/gnus/ChangeLog Wed Sep 01 00:02:13 2010 +0000 @@ -1,5 +1,7 @@ 2010-08-31 Lars Magne Ingebrigtsen + * nnwarchive.el: Removed. + * gnus-soup.el: Removed. * nnsoup.el: Removed. diff -r c74caa6fbef5 -r 93f65e2caf3e lisp/gnus/gnus-group.el --- a/lisp/gnus/gnus-group.el Tue Aug 31 23:55:50 2010 +0000 +++ b/lisp/gnus/gnus-group.el Wed Sep 01 00:02:13 2010 +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." diff -r c74caa6fbef5 -r 93f65e2caf3e lisp/gnus/gnus.el --- a/lisp/gnus/gnus.el Tue Aug 31 23:55:50 2010 +0000 +++ b/lisp/gnus/gnus.el Wed Sep 01 00:02:13 2010 +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)