845 |
|
|
846 |
(defcustom gnus-home-directory "~/" |
(defcustom gnus-home-directory "~/" |
847 |
"Directory variable that specifies the \"home\" directory. |
"Directory variable that specifies the \"home\" directory. |
848 |
All other Gnus path variables are initialized from this variable." |
All other Gnus file and directory variables are initialized from this variable." |
849 |
:group 'gnus-files |
:group 'gnus-files |
850 |
:type 'directory) |
:type 'directory) |
851 |
|
|
2048 |
(memq class gnus-visual)) |
(memq class gnus-visual)) |
2049 |
t)))) |
t)))) |
2050 |
|
|
2051 |
;;; Load the compatability functions. |
;;; Load the compatibility functions. |
2052 |
|
|
2053 |
(require 'gnus-ems) |
(require 'gnus-ems) |
2054 |
|
|
2852 |
(let ((prefix "") |
(let ((prefix "") |
2853 |
group) |
group) |
2854 |
(while (not group) |
(while (not group) |
2855 |
(when (string-match |
(when (string-match |
2856 |
gnus-invalid-group-regexp |
gnus-invalid-group-regexp |
2857 |
(setq group (read-string (concat prefix prompt) |
(setq group (read-string (concat prefix prompt) |
2858 |
(cons (or default "") 0) |
(cons (or default "") 0) |