diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index ee9e648b7c1..299abcb257e 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el | |||
| @@ -13411,6 +13411,8 @@ If FORCE is non-nil, the .newsrc file is read." | |||
| 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)) |
| @@ -13485,6 +13487,8 @@ If FORCE is non-nil, the .newsrc file is read." | |||
| 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, |