Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-start.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 1917ad0d78d7
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
332 :type 'hook) 332 :type 'hook)
333 333
334 (defcustom gnus-startup-hook nil 334 (defcustom gnus-startup-hook nil
335 "A hook called at startup. 335 "A hook called at startup.
336 This hook is called after Gnus is connected to the NNTP server." 336 This hook is called after Gnus is connected to the NNTP server."
337 :group 'gnus-start
338 :type 'hook)
339
340 (defcustom gnus-started-hook nil
341 "A hook called as the last thing after startup."
337 :group 'gnus-start 342 :group 'gnus-start
338 :type 'hook) 343 :type 'hook)
339 344
340 (defcustom gnus-get-new-news-hook nil 345 (defcustom gnus-get-new-news-hook nil
341 "A hook run just before Gnus checks for new news." 346 "A hook run just before Gnus checks for new news."
628 (save-excursion 633 (save-excursion
629 (set-buffer gnus-group-buffer) 634 (set-buffer gnus-group-buffer)
630 (eq major-mode 'gnus-group-mode))) 635 (eq major-mode 'gnus-group-mode)))
631 (progn 636 (progn
632 (switch-to-buffer gnus-group-buffer) 637 (switch-to-buffer gnus-group-buffer)
633 (gnus-group-get-new-news)) 638 (gnus-group-get-new-news
639 (and (numberp arg)
640 (> arg 0)
641 (max (car gnus-group-list-mode) arg))))
634 642
635 (gnus-splash) 643 (gnus-splash)
636 (gnus-clear-system) 644 (gnus-clear-system)
637 (nnheader-init-server-buffer) 645 (nnheader-init-server-buffer)
638 (gnus-read-init-file) 646 (gnus-read-init-file)
673 (gnus-setup-news nil level dont-connect) 681 (gnus-setup-news nil level dont-connect)
674 ;; Generate the group buffer. 682 ;; Generate the group buffer.
675 (gnus-group-list-groups level) 683 (gnus-group-list-groups level)
676 (gnus-group-first-unread-group) 684 (gnus-group-first-unread-group)
677 (gnus-configure-windows 'group) 685 (gnus-configure-windows 'group)
678 (gnus-group-set-mode-line)))))) 686 (gnus-group-set-mode-line)
687 (run-hooks 'gnus-started-hook))))))
679 688
680 ;;;###autoload 689 ;;;###autoload
681 (defun gnus-unload () 690 (defun gnus-unload ()
682 "Unload all Gnus features." 691 "Unload all Gnus features."
683 (interactive) 692 (interactive)
1817 (gnus-message 5 "Reading %s..." ding-file) 1826 (gnus-message 5 "Reading %s..." ding-file)
1818 (let (gnus-newsrc-assoc) 1827 (let (gnus-newsrc-assoc)
1819 (condition-case nil 1828 (condition-case nil
1820 (load ding-file t t t) 1829 (load ding-file t t t)
1821 (error 1830 (error
1822 (gnus-error 1 "Error in %s" ding-file))) 1831 (ding)
1832 (unless (gnus-yes-or-no-p
1833 (format "Error in %s; continue? " ding-file))
1834 (error "Error in %s" ding-file))))
1823 (when gnus-newsrc-assoc 1835 (when gnus-newsrc-assoc
1824 (setq gnus-newsrc-alist gnus-newsrc-assoc))) 1836 (setq gnus-newsrc-alist gnus-newsrc-assoc)))
1825 (gnus-make-hashtable-from-newsrc-alist) 1837 (gnus-make-hashtable-from-newsrc-alist)
1826 (when (file-newer-than-file-p file ding-file) 1838 (when (file-newer-than-file-p file ding-file)
1827 ;; Old format quick file 1839 ;; Old format quick file