Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-start.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 1856695b1fa9
children 85ec50267440
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
760 (unless (zerop (buffer-size)) 760 (unless (zerop (buffer-size))
761 (set-buffer-modified-p t)) 761 (set-buffer-modified-p t))
762 ;; Set the file modes to reflect the .newsrc file modes. 762 ;; Set the file modes to reflect the .newsrc file modes.
763 (save-buffer) 763 (save-buffer)
764 (when (and (file-exists-p gnus-current-startup-file) 764 (when (and (file-exists-p gnus-current-startup-file)
765 (file-exists-p dribble-file)
765 (setq modes (file-modes gnus-current-startup-file))) 766 (setq modes (file-modes gnus-current-startup-file)))
766 (set-file-modes dribble-file modes)) 767 (set-file-modes dribble-file modes))
767 ;; Possibly eval the file later. 768 ;; Possibly eval the file later.
768 (when (gnus-y-or-n-p 769 (when (gnus-y-or-n-p
769 "Gnus auto-save file exists. Do you want to read it? ") 770 "Gnus auto-save file exists. Do you want to read it? ")
1646 (setq gnus-active-hashtb 1647 (setq gnus-active-hashtb
1647 (if (equal method gnus-select-method) 1648 (if (equal method gnus-select-method)
1648 (gnus-make-hashtable 1649 (gnus-make-hashtable
1649 (count-lines (point-min) (point-max))) 1650 (count-lines (point-min) (point-max)))
1650 (gnus-make-hashtable 4096))))))) 1651 (gnus-make-hashtable 4096)))))))
1651 ;; Delete unnecessary lines, cleaned up dmoore@ucsd.edu 31.10.1996 1652 ;; Delete unnecessary lines.
1652 (goto-char (point-min)) 1653 (goto-char (point-min))
1653 (cond ((gnus-ignored-newsgroups-has-to-p) 1654 (cond ((gnus-ignored-newsgroups-has-to-p)
1654 (delete-matching-lines gnus-ignored-newsgroups)) 1655 (delete-matching-lines gnus-ignored-newsgroups))
1655 ((string= gnus-ignored-newsgroups "") 1656 ((string= gnus-ignored-newsgroups "")
1656 (delete-matching-lines "^to\\.")) 1657 (delete-matching-lines "^to\\."))
1658 (delete-matching-lines (concat "^to\\.\\|" 1659 (delete-matching-lines (concat "^to\\.\\|"
1659 gnus-ignored-newsgroups)))) 1660 gnus-ignored-newsgroups))))
1660 1661
1661 ;; Make the group names readable as a lisp expression even if they 1662 ;; Make the group names readable as a lisp expression even if they
1662 ;; contain special characters. 1663 ;; contain special characters.
1663 ;; Fix by Luc Van Eycken <Luc.VanEycken@esat.kuleuven.ac.be>.
1664 (goto-char (point-max)) 1664 (goto-char (point-max))
1665 (while (re-search-backward "[][';?()#]" nil t) 1665 (while (re-search-backward "[][';?()#]" nil t)
1666 (insert ?\\)) 1666 (insert ?\\))
1667 1667
1668 ;; If these are groups from a foreign select method, we insert the 1668 ;; If these are groups from a foreign select method, we insert the
1669 ;; group prefix in front of the group names. 1669 ;; group prefix in front of the group names.
1670 (and method (not (gnus-server-equal 1670 (when (not (gnus-server-equal
1671 (gnus-server-get-method nil method) 1671 (gnus-server-get-method nil method)
1672 (gnus-server-get-method nil gnus-select-method))) 1672 (gnus-server-get-method nil gnus-select-method)))
1673 (let ((prefix (gnus-group-prefixed-name "" method))) 1673 (let ((prefix (gnus-group-prefixed-name "" method)))
1674 (goto-char (point-min)) 1674 (goto-char (point-min))
1675 (while (and (not (eobp)) 1675 (while (and (not (eobp))
1676 (progn (insert prefix) 1676 (progn (insert prefix)
1677 (zerop (forward-line 1))))))) 1677 (zerop (forward-line 1)))))))
1678 ;; Store the active file in a hash table. 1678 ;; Store the active file in a hash table.
1679 (goto-char (point-min)) 1679 (goto-char (point-min))
1680 (let (group max min) 1680 (let (group max min)
1681 (while (not (eobp)) 1681 (while (not (eobp))
1682 (condition-case () 1682 (condition-case ()