gnus-virgin.el (was: Re: A road map for Oort Gnus)

[Per Abrahamsen <abraham@dina.kvl.dk>]

Oops, I accidently left some debug code in.

;;; gnus-virgin.el --- Run Gnus for the very first time.
;;
;; Copyright (C) 2001 Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: news, mail, help
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the
;; Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Comments:
;;
;; Gentle introduction to Gnus.

;;; Code: 

(defcustom gnus-virgin t 
  "Non-nil (on) means user haven't finished Gnus setup yet.
Set this option to false if you want to avoid getting this buffer next
time you start Gnus.  That is, you *must* unset this flag in order to
start Gnus for real."
  :type 'boolean)

(defgroup gnus-virgin '((gnus-virgin custom-variable)
			(user-full-name custom-variable)
			(user-mail-address custom-variable)
			(message-user-organization custom-variable)
			(gnus-select-method custom-variable)
			(gnus-secondary-select-methods custom-variable))
  "Setup Gnus for the very first time.

This buffer contains the options that most people need to set in order
to use Gnus for reading Mail and Usenet newsgroups.  You should look
at each of the options below (use the \"Show\" buttons when needed),
set their value as appropriate, and then press the \"Save for Future
Sessions\" button.  Viola!  Gnus should be ready to use.  You can then
start Gnus by typing with `M-x gnus <ret>'. If you ever want to
revisit these option, type `M-x customize-group <ret> gnus-virgin
<ret>'.

Please note that there are many more options in Gnus than those listed
below.  Just about everything about Gnus is customizable.  To see all
the options, type `M-x customize-group <ret> gnus <ret>'.

Now about the individual options:

\"Virgin\": Set this to off using the Toggle button, efter you have
finished with the other options.

\"User Full Name\" and \"User Mail Address\": Type in your name and
e-mail address in the text fields.

\"Message User Organization\": Select \"String\" by clicking the right
mouse button on the Value Menu, then enter the name of the
organization you want to be associated with in your mail and news messages.

\"Select Method\": Select \"nntp\" from teh Value Menu, then type in
the name of your news server in the text field below.  If you don't
know the name of your news server, ask your ISP.

\"Secondary Select Methods\": This one has two purposes, reading mail
and connecting to specialized news servers.  

Here is how to use it for mail.  Ignore it if you don't want to use
Gnus for reading mail.  If you *do* want to use Gnus for mail, be
warned that Gnus will download all your mail so you can't use other
mailers as well.  Stil here?  Good.  Gnus as a mail reader is strange,
but cool.  Type the Ins button.  A \"Select Method\" entry should
appear.  Now select \"nnimap\" from the Value Menu and type the name
of the server you want to read mail from.  Again, your ISP should know
the correct name.

Using it for extra news servers is similar.  Push the Ins button to
get a new \"Select Method\" entry.  Select \"nntp\" from the Value
Menu.  Write the address of the server you want to connect to in the
text field below.  Repeat for each server you want to read news.  Try
for example \"quimby.gnus.org\", a server that onbly carry Gnus
releated newsgroups."
  :link '(custom-manual "(gnus)Top")
  :link '(url-link :tag "Development Page" "http://www.gnus.org/")
  :prefix "gnus-"
  :group 'gnus
  :group 'wizards)

(defun gnus-virgin ()
  "Setup gnus for the very first time.  Please be gentle. 
Or just run it if already experienced."
  (interactive)
  (if gnus-virgin
      (customize-group 'gnus-virgin)
    (call-interactively 'gnus)))

;;; gnus-virgin.el ends here