Mercurial > emacs
comparison lisp/gnus.el @ 14477:7da7619a6150
(gnus-gnus-to-newsrc-format): Turn off version-control
before saving the .newsrc files.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 03 Feb 1996 17:49:44 +0000 |
| parents | 83a980edc854 |
| children | 6903f7c54083 |
comparison
equal
deleted
inserted
replaced
| 14476:63540fa43674 | 14477:7da7619a6150 |
|---|---|
| 13409 (gnus-gnus-to-newsrc-format) | 13409 (gnus-gnus-to-newsrc-format) |
| 13410 (gnus-message 5 "Saving %s...done" | 13410 (gnus-message 5 "Saving %s...done" |
| 13411 gnus-current-startup-file))) | 13411 gnus-current-startup-file))) |
| 13412 ;; Quickly loadable .newsrc. | 13412 ;; Quickly loadable .newsrc. |
| 13413 (set-buffer (get-buffer-create " *Gnus-newsrc*")) | 13413 (set-buffer (get-buffer-create " *Gnus-newsrc*")) |
| 13414 (make-local-variable 'version-control) | |
| 13415 (setq version-control 'never) | |
| 13414 (setq buffer-file-name (concat gnus-current-startup-file ".eld")) | 13416 (setq buffer-file-name (concat gnus-current-startup-file ".eld")) |
| 13415 (gnus-add-current-to-buffer-list) | 13417 (gnus-add-current-to-buffer-list) |
| 13416 (buffer-disable-undo (current-buffer)) | 13418 (buffer-disable-undo (current-buffer)) |
| 13417 (erase-buffer) | 13419 (erase-buffer) |
| 13418 (gnus-message 5 "Saving %s.eld..." gnus-current-startup-file) | 13420 (gnus-message 5 "Saving %s.eld..." gnus-current-startup-file) |
| 13483 (insert (int-to-string (car range)) "-" | 13485 (insert (int-to-string (car range)) "-" |
| 13484 (int-to-string (cdr range)))) | 13486 (int-to-string (cdr range)))) |
| 13485 (if ranges (insert ",")))))) | 13487 (if ranges (insert ",")))))) |
| 13486 (insert "\n"))) | 13488 (insert "\n"))) |
| 13487 (setq newsrc (cdr newsrc))) | 13489 (setq newsrc (cdr newsrc))) |
| 13490 (make-local-variable 'version-control) | |
| 13491 (setq version-control 'never) | |
| 13488 ;; It has been reported that sometime the modtime on the .newsrc | 13492 ;; It has been reported that sometime the modtime on the .newsrc |
| 13489 ;; file seems to be off. We really do want to overwrite it, so | 13493 ;; file seems to be off. We really do want to overwrite it, so |
| 13490 ;; we clear the modtime here before saving. It's a bit odd, | 13494 ;; we clear the modtime here before saving. It's a bit odd, |
| 13491 ;; though... | 13495 ;; though... |
| 13492 ;; sometimes the modtime clear isn't sufficient. most brute force: | 13496 ;; sometimes the modtime clear isn't sufficient. most brute force: |