/[emacs]/emacs/lisp/gnus/gnus.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by zsh, Wed Jan 2 03:36:28 2002 UTC revision 1.23.4.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 845  be set in `.emacs' instead." Line 845  be set in `.emacs' instead."
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    
# Line 2048  This restriction may disappear in later Line 2048  This restriction may disappear in later
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    
# Line 2852  Disallow invalid group names." Line 2852  Disallow invalid group names."
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)

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.23.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26