diff options
| author | Richard M. Stallman | 1997-09-13 06:25:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-13 06:25:46 +0000 |
| commit | 83be5c8c3e4a2ae7c010db8c6a151ba01458a0aa (patch) | |
| tree | 3978204d89bf764c47b778cb3e96795ef02b5eab | |
| parent | 085d66980f7e60c9a658280d3f3e30f2d5d57b29 (diff) | |
| download | emacs-83be5c8c3e4a2ae7c010db8c6a151ba01458a0aa.tar.gz emacs-83be5c8c3e4a2ae7c010db8c6a151ba01458a0aa.zip | |
(gnus-default-subscribed-newsgroups): Fix custom type. Doc fix.
(gnus-init-file): Doc fix.
(gnus-site-init-file): Fix customize type.
| -rw-r--r-- | lisp/gnus/gnus-start.el | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 0520c2f59e9..95413550e5e 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el | |||
| @@ -41,31 +41,29 @@ | |||
| 41 | :type 'file) | 41 | :type 'file) |
| 42 | 42 | ||
| 43 | (defcustom gnus-init-file (nnheader-concat gnus-home-directory ".gnus") | 43 | (defcustom gnus-init-file (nnheader-concat gnus-home-directory ".gnus") |
| 44 | "Your Gnus elisp startup file. | 44 | "Your Gnus Emacs-Lisp startup file name. |
| 45 | If a file with the .el or .elc suffixes exist, it will be read | 45 | If a file with the `.el' or `.elc' suffixes exists, it will be read instead." |
| 46 | instead." | ||
| 47 | :group 'gnus-start | 46 | :group 'gnus-start |
| 48 | :type 'file) | 47 | :type 'file) |
| 49 | 48 | ||
| 50 | (defcustom gnus-site-init-file | 49 | (defcustom gnus-site-init-file |
| 51 | (condition-case nil | 50 | (condition-case nil |
| 52 | (concat (file-name-directory | 51 | (concat (file-name-directory |
| 53 | (directory-file-name installation-directory)) | 52 | (directory-file-name installation-directory)) |
| 54 | "site-lisp/gnus-init") | 53 | "site-lisp/gnus-init") |
| 55 | (error nil)) | 54 | (error nil)) |
| 56 | "The site-wide Gnus elisp startup file. | 55 | "The site-wide Gnus Emacs-Lisp startup file name, or nil if none. |
| 57 | If a file with the .el or .elc suffixes exist, it will be read | 56 | If a file with the `.el' or `.elc' suffixes exists, it will be read instead." |
| 58 | instead." | ||
| 59 | :group 'gnus-start | 57 | :group 'gnus-start |
| 60 | :type 'file) | 58 | :type '(choice file (const nil))) |
| 61 | 59 | ||
| 62 | (defcustom gnus-default-subscribed-newsgroups nil | 60 | (defcustom gnus-default-subscribed-newsgroups nil |
| 63 | "This variable lists what newsgroups should be subscribed the first time Gnus is used. | 61 | "List of newsgroups to subscribe, when a user runs Gnus the first time. |
| 64 | It should be a list of strings. | 62 | The value should be a list of strings. |
| 65 | If it is `t', Gnus will not do anything special the first time it is | 63 | If it is t, Gnus will not do anything special the first time it is |
| 66 | started; it'll just use the normal newsgroups subscription methods." | 64 | started; it'll just use the normal newsgroups subscription methods." |
| 67 | :group 'gnus-start | 65 | :group 'gnus-start |
| 68 | :type '(repeat string)) | 66 | :type '(choice (repeat string) (const :tag "Nothing special" t))) |
| 69 | 67 | ||
| 70 | (defcustom gnus-use-dribble-file t | 68 | (defcustom gnus-use-dribble-file t |
| 71 | "*Non-nil means that Gnus will use a dribble file to store user updates. | 69 | "*Non-nil means that Gnus will use a dribble file to store user updates. |