comparison lisp/gnus/gnus-start.el @ 142:1856695b1fa9 r20-2b5

Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents d2f30a177268
children 25f70ba0133c
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
859 859
860 (gnus-update-format-specifications) 860 (gnus-update-format-specifications)
861 861
862 ;; See whether we need to read the description file. 862 ;; See whether we need to read the description file.
863 (when (and (boundp 'gnus-group-line-format) 863 (when (and (boundp 'gnus-group-line-format)
864 (string-match "%[-,0-9]*D" gnus-group-line-format) 864 (let ((case-fold-search nil))
865 (string-match "%[-,0-9]*D" gnus-group-line-format))
865 (not gnus-description-hashtb) 866 (not gnus-description-hashtb)
866 (not dont-connect) 867 (not dont-connect)
867 gnus-read-active-file) 868 gnus-read-active-file)
868 (gnus-read-all-descriptions-files)) 869 (gnus-read-all-descriptions-files))
869 870