lisp/gnus/gnus-start.el

476 (defvar gnus-current-startup-file nil
477   "Startup file for the current host.")
587     (set-buffer (nnheader-find-file-noselect gnus-current-startup-file))
603       (kill-buffer (current-buffer)))))
644   (defvar gnus-current-headers)
653   (defvar gnus-current-select-method)
687 	gnus-current-headers nil
698 	gnus-current-select-method nil
703   (and gnus-current-startup-file
704        (get-file-buffer gnus-current-startup-file)
705        (kill-buffer (get-file-buffer gnus-current-startup-file)))
778 	  ;; Find the current startup file name.
779 	  (setq gnus-current-startup-file
828   "Return the dribble file for the current .newsrc."
832 	       (file-name-nondirectory gnus-current-startup-file))
833      gnus-current-startup-file)
841     (let ((obuf (current-buffer)))
849       ;; (set-window-point (get-buffer-window (current-buffer)) (point-max))
872       (bury-buffer (current-buffer))
888 	  (when (and (file-exists-p gnus-current-startup-file)
890 		     (setq modes (file-modes gnus-current-startup-file)))
909 	(eval-buffer (current-buffer))))))
997     ;; format to the current format.  That enables the agent code
1011       (setq gnus-active-hashtb (gnus-make-hashtable 4096)))
1118 	    (gnus-make-hashtable-from-killed))
1195       (gnus-make-hashtable-from-killed))
1205 		hashtb (gnus-make-hashtable 100))
1207 	  ;; Enter all the new groups into a hashtable.
1255     (dolist (file (list (concat gnus-current-startup-file ".el")
1256 			(concat gnus-current-startup-file ".eld")
1800 (defun gnus-make-hashtable-from-newsrc-alist ()
1804     (setq gnus-newsrc-hashtb (gnus-make-hashtable (length alist)))
1821 (defun gnus-make-hashtable-from-killed ()
1826 	  (gnus-make-hashtable
1841       (cons (read (current-buffer))
1842 	    (read (current-buffer))))))
1878         (while (let ((range (car ranges))) ; note the current range
1936   (let ((hashtb (setq gnus-active-hashtb (gnus-make-hashtable 4096)))
1953     (gnus-make-hashtable-from-killed))
2070   (let ((cur (current-buffer))
2077 				(gnus-make-hashtable
2079 			      (gnus-make-hashtable 4096)))))))
2140 			(setq gnus-moderated-hashtb (gnus-make-hashtable)))
2157   (let ((cur (current-buffer))
2162 			    (gnus-make-hashtable
2218   (let* ((newsrc-file gnus-current-startup-file)
2227 		 (file-exists-p gnus-current-startup-file)
2245 	  (kill-buffer (current-buffer))
2252   "Convert old newsrc formats into the current format, if needed."
2265                       ;; to bring the newsrc file up to the current
2269                       ;; current gnus version (hardcoded so that it
2272                       ;; previous version into the current version.
2360 	  (let ((form (read (current-buffer))))
2388     (gnus-make-hashtable-from-newsrc-alist)
2450     (gnus-make-hashtable-from-newsrc-alist)))
2467     (setq gnus-active-hashtb (gnus-make-hashtable 4096)))
2468   (let ((buf (current-buffer))
2639     (gnus-make-hashtable-from-newsrc-alist)
2718 	     gnus-current-startup-file)
2737 	    (gnus-message 8 "Saving %s..." gnus-current-startup-file)
2739 	    (gnus-message 8 "Saving %s...done" gnus-current-startup-file))
2746 		(concat gnus-current-startup-file ".eld"))
2750           (gnus-message 5 "Saving %s.eld..." gnus-current-startup-file)
2754                     (standard-output (current-buffer)))
2760                   (startup-file (concat gnus-current-startup-file ".eld"))
2761                   (working-dir (file-name-directory gnus-current-startup-file))
2782                     ;; These bindings will mislead the current buffer
2789                       ;; Backup the current version of the startup file.
2799 	  (gnus-kill-buffer (current-buffer))
2801 	   5 "Saving %s.eld...done" gnus-current-startup-file))
2865     (set-buffer (create-file-buffer gnus-current-startup-file))
2867 	  (standard-output (current-buffer))
2869       (setq buffer-file-name gnus-current-startup-file)
2916       (kill-buffer (current-buffer)))))
2935 	   (mm-make-temp-file (concat gnus-current-startup-file "-slave-")))
2937 		   (file-modes (concat gnus-current-startup-file ".eld")))))
2946 	  (file-name-directory gnus-current-startup-file)
2950 		   (file-name-nondirectory gnus-current-startup-file)
2972 		      (eval-buffer (current-buffer))
3006     ;; We create the hashtable whether we manage to read the desc file
3010 	    (gnus-make-hashtable (length gnus-active-hashtb))))
3093   "Set the default directory in the current buffer to `gnus-default-directory'.