comparison lisp/gnus/gnus-start.el @ 122:d2f30a177268 r20-1b14

Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents cca96a509cfe
children 1856695b1fa9
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
2172 (run-hooks 'gnus-save-newsrc-hook) 2172 (run-hooks 'gnus-save-newsrc-hook)
2173 (if gnus-slave 2173 (if gnus-slave
2174 (gnus-slave-save-newsrc) 2174 (gnus-slave-save-newsrc)
2175 ;; Save .newsrc. 2175 ;; Save .newsrc.
2176 (when gnus-save-newsrc-file 2176 (when gnus-save-newsrc-file
2177 (gnus-message 5 "Saving %s..." gnus-current-startup-file) 2177 (gnus-message 8 "Saving %s..." gnus-current-startup-file)
2178 (gnus-gnus-to-newsrc-format) 2178 (gnus-gnus-to-newsrc-format)
2179 (gnus-message 5 "Saving %s...done" gnus-current-startup-file)) 2179 (gnus-message 8 "Saving %s...done" gnus-current-startup-file))
2180 ;; Save .newsrc.eld. 2180 ;; Save .newsrc.eld.
2181 (set-buffer (get-buffer-create " *Gnus-newsrc*")) 2181 (set-buffer (get-buffer-create " *Gnus-newsrc*"))
2182 (make-local-variable 'version-control) 2182 (make-local-variable 'version-control)
2183 (setq version-control 'never) 2183 (setq version-control 'never)
2184 (setq buffer-file-name 2184 (setq buffer-file-name