xemacs-beta: lisp/gnus/gnus-start.el comparison

comparison lisp/gnus/gnus-start.el @ 108:360340f9fd5f r20-1b6

Import from CVS: tag r20-1b6

author	cvs
date	Mon, 13 Aug 2007 09:18:39 +0200
parents	cf808b4c4290
children	fe104dbd9147

comparison

equal deleted inserted replaced

-:523141596bda
+:360340f9fd5f
 :group 'gnus-start
 :type 'file)
 (defcustom gnus-site-init-file
 (ignore-errors
 (concat (file-name-directory
 	     (directory-file-name installation-directory))
 	    "site-lisp/gnus-init"))
 "The site-wide Gnus elisp startup file.
 If a file with the .el or .elc suffixes exist, it will be read
 instead."
 :group 'gnus-group-new
 :type '(choice regexp
 		 (const :tag "none" nil)))
 (defcustom gnus-modtime-botch nil
 "*Non-nil means .newsrc should be deleted prior to save.
 Its use is due to the bogus appearance that .newsrc was modified on
 disc."
 :group 'gnus-newsrc
 :type 'boolean)
 (defcustom gnus-get-new-news-hook nil
 "A hook run just before Gnus checks for new news."
 :group 'gnus-group-new
 :type 'hook)
 (defcustom gnus-after-getting-new-news-hook
 (when (gnus-boundp 'display-time-timer)
 '(display-time-event-handler))
 "A hook run after Gnus checks for new news."
 :group 'gnus-group-new
 :type 'hook)
 "Setup news information.
 If RAWFILE is non-nil, the .newsrc file will also be read.
 If LEVEL is non-nil, the news will be set up at level LEVEL."
 (let ((init (not (and gnus-newsrc-alist gnus-active-hashtb (not rawfile)))))
 (when init
 ;; Clear some variables to re-initialize news information.
 (setq gnus-newsrc-alist nil
 	    gnus-active-hashtb nil)
 ;; Read the newsrc file and create `gnus-newsrc-hashtb'.
 (gnus-read-newsrc-file rawfile))
 ;; Initialize the cache.
 (when gnus-use-cache
 (gnus-cache-open))
 ;; Possibly eval the dribble file.
 (and init
 	 (or gnus-use-dribble-file gnus-slave)
 	 (gnus-dribble-eval-file))
 ;; Slave Gnusii should then clear the dribble buffer.
 (when (and init gnus-slave)
 (gnus-dribble-clear))
 	       (gnus-check-server gnus-select-method)
 	       (not gnus-slave))
 (gnus-find-new-newsgroups))
 ;; We might read in new NoCeM messages here.
 (when (and gnus-use-nocem
 	       (not level)
 	       (not dont-connect))
 (gnus-nocem-scan-groups))
 ;; Read any slave files.
 	  (setcdr (cdr entry) (cdddr entry)))))
 ;; Finally we enter (if needed) the list where it is supposed to
 ;; go, and change the subscription level.  If it is to be killed,
 ;; we enter it into the killed or zombie list.
 (cond
 ((>= level gnus-level-zombie)
 	;; Remove from the hash table.
 	(gnus-sethash group nil gnus-newsrc-hashtb)
 	;; We do not enter foreign groups into the list of dead
 	;; groups.
 (defvar gnus-cache-active-hashtb)
 (defun gnus-cache-possibly-alter-active (group active)
 "Alter the ACTIVE info for GROUP to reflect the articles in the cache."
 (when gnus-cache-active-hashtb
 (let ((cache-active (gnus-gethash group gnus-cache-active-hashtb)))
 	(and cache-active
 	     (< (car cache-active) (car active))
 	     (setcar active (car cache-active)))
 	(and cache-active
 	     (> (cdr cache-active) (cdr active))
 	     (setcdr active (cdr cache-active)))))))
 (defun gnus-get-unread-articles-in-group (info active &optional update)
 (when active
 ;; Allow the backend to update the info in the group.
 (when (and update
 	       (gnus-request-update-info
 		info (gnus-find-method-for-group (gnus-info-group info))))
 (gnus-activate-group (gnus-info-group info) nil t))
 (let* ((range (gnus-info-read info))
 	   (num 0))
 ;; If a cache is present, we may have to alter the active info.
 (when (and gnus-use-cache info)
 	(inline (gnus-cache-possibly-alter-active
 		 (gnus-info-group info) active)))
 ;; Modify the list of read articles according to what articles
 ;; are available; then tally the unread articles and add the
 ;; number to the group hash table entry.
 (cond
 (gnus-dribble-touch))
 ;; Get the active file(s) from the backend(s).
 (defun gnus-read-active-file (&optional force)
 (gnus-group-set-mode-line)
 (let ((methods
 	 (append
 	  (if (gnus-check-server gnus-select-method)
 	      ;; The native server is available.
 	      (cons gnus-select-method gnus-secondary-select-methods)
 	    ;; The native server is down, so we just do the
 	      (let ((newsrc (cdr gnus-newsrc-alist))
 		    (gmethod (gnus-server-get-method nil method))
 		    groups info)
 		(while (setq info (pop newsrc))
 		  (when (gnus-server-equal
 			 (gnus-find-method-for-group
 			  (gnus-info-group info) info)
 			 gmethod)
 		    (push (gnus-group-real-name (gnus-info-group info))
 			  groups)))
 		(when groups
 "T only when gnus-ignored-newsgroups includes \"^to\\\\.\" as an element."
 ;; note this regexp is the same as:
 ;; (concat (regexp-quote "^to\\.") "\\($\\|" (regexp-quote "\\|") "\\)")
 (string-match "\\^to\\\\\\.\\($\\|\\\\|\\)"
 		gnus-ignored-newsgroups))
 ;; Read an active file and place the results in `gnus-active-hashtb'.
 (defun gnus-active-to-gnus-format (&optional method hashtb ignore-errors)
 (unless method
 (setq method gnus-select-method))
 (let ((cur (current-buffer))
 	  (set-buffer (nnheader-find-file-noselect newsrc-file))
 	  (buffer-disable-undo (current-buffer))
 	  (gnus-newsrc-to-gnus-format)
 	  (kill-buffer (current-buffer))
 	  (gnus-message 5 "Reading %s...done" newsrc-file)))
 ;; Convert old to new.
 (gnus-convert-old-newsrc))))
 (defun gnus-convert-old-newsrc ()
 "Convert old newsrc into the new format, if needed."
 	;; Copy marks into info.
 	(when (setq m (assoc (car group) marked))
 	  (unless (nthcdr 3 info)
 	    (nconc info (list nil)))
 	  (gnus-info-set-marks
 	   info (list (cons 'tick (gnus-compress-sequence
 				   (sort (cdr m) '<) t))))))
 (setq newsrc killed)
 (while newsrc
 	(setcar newsrc (caar newsrc))
 	(setq newsrc (cdr newsrc)))
 		       (or (and (re-search-forward "^[^ \t]" nil 'move)
 				(progn (beginning-of-line) (point)))
 			   (point)))))
 	(forward-line -1))
 (symbol
 	;; Group names can be just numbers.
 	(when (numberp symbol)
 	  (setq symbol (intern (int-to-string symbol) gnus-active-hashtb)))
 	(unless (boundp symbol)
 	  (set symbol nil))
 	;; It was a group name.
 ;;;
 ;;; Group description.
 ;;;
 (defun gnus-read-all-descriptions-files ()
 (let ((methods (cons gnus-select-method
 		       (nconc
 			(when (gnus-archive-server-wanted-p)
 			  (list "archive"))
 			gnus-secondary-select-methods))))
 (while methods
 	       (list (apply 'list name abilities)))))
 (defun gnus-set-default-directory ()
 "Set the default directory in the current buffer to `gnus-default-directory'.
 If this variable is nil, don't do anything."
 (setq default-directory
 	(if (and gnus-default-directory
 		 (file-exists-p gnus-default-directory))
 	    (file-name-as-directory (expand-file-name gnus-default-directory))
 	  default-directory)))

Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-start.el @ 108:360340f9fd5f r20-1b6