diff options
| author | Lute Kamstra | 2005-06-04 09:49:25 +0000 |
|---|---|---|
| committer | Lute Kamstra | 2005-06-04 09:49:25 +0000 |
| commit | d4755e04910eac135f80e4b222146107e073553b (patch) | |
| tree | 8d703562833d535a2e9ffd644522b2808f0b3369 | |
| parent | b89875707ce5b8e88097b7d4d365b480b17733a6 (diff) | |
| download | emacs-d4755e04910eac135f80e4b222146107e073553b.tar.gz emacs-d4755e04910eac135f80e4b222146107e073553b.zip | |
(nnfolder-read-folder): Make sure that undo information is never recorded.
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/nnfolder.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 36d17afab2d..492852eef68 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2005-06-04 Lute Kamstra <lute@gnu.org> | ||
| 2 | |||
| 3 | * nnfolder.el (nnfolder-read-folder): Make sure that undo | ||
| 4 | information is never recorded. | ||
| 5 | |||
| 1 | 2005-06-03 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2005-06-03 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * gnus-art.el (gnus-emphasis-alist): Disable the strikethru thingy. | 8 | * gnus-art.el (gnus-emphasis-alist): Disable the strikethru thingy. |
diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index 961f124a614..20cdb3da273 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el | |||
| @@ -875,6 +875,7 @@ deleted. Point is left where the deleted region was." | |||
| 875 | nnfolder-file-coding-system)) | 875 | nnfolder-file-coding-system)) |
| 876 | (nnheader-find-file-noselect file t))))) | 876 | (nnheader-find-file-noselect file t))))) |
| 877 | (mm-enable-multibyte) ;; Use multibyte buffer for future copying. | 877 | (mm-enable-multibyte) ;; Use multibyte buffer for future copying. |
| 878 | (buffer-disable-undo) | ||
| 878 | (if (equal (cadr (assoc group nnfolder-scantime-alist)) | 879 | (if (equal (cadr (assoc group nnfolder-scantime-alist)) |
| 879 | (nth 5 (file-attributes file))) | 880 | (nth 5 (file-attributes file))) |
| 880 | ;; This looks up-to-date, so we don't do any scanning. | 881 | ;; This looks up-to-date, so we don't do any scanning. |
| @@ -901,7 +902,6 @@ deleted. Point is left where the deleted region was." | |||
| 901 | maxid start end newscantime | 902 | maxid start end newscantime |
| 902 | novbuf articles newnum | 903 | novbuf articles newnum |
| 903 | buffer-read-only) | 904 | buffer-read-only) |
| 904 | (buffer-disable-undo) | ||
| 905 | (setq maxid (cdr active)) | 905 | (setq maxid (cdr active)) |
| 906 | 906 | ||
| 907 | (unless (or gnus-nov-is-evil nnfolder-nov-is-evil | 907 | (unless (or gnus-nov-is-evil nnfolder-nov-is-evil |