diff options
| author | Glenn Morris | 2013-05-29 20:25:29 -0700 |
|---|---|---|
| committer | Glenn Morris | 2013-05-29 20:25:29 -0700 |
| commit | 7029bc7d31ddfe536647459594b48fb8e297fe0c (patch) | |
| tree | 0b53fc7c9b48651c70cd4cb2e74ec23f61ff153e | |
| parent | dd8620de6ec3fc50494f3bba4d324b0f73af4e4b (diff) | |
| download | emacs-7029bc7d31ddfe536647459594b48fb8e297fe0c.tar.gz emacs-7029bc7d31ddfe536647459594b48fb8e297fe0c.zip | |
* gnus/spam-stat.el (spam-stat-save): No need to tweak font-lock in temp buffers
| -rw-r--r-- | lisp/gnus/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/gnus/spam-stat.el | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b45abb618d8..eb12b67e733 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2013-05-30 Glenn Morris <rgm@gnu.org> | 1 | 2013-05-30 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * spam-stat.el (spam-stat-save): | ||
| 4 | No need to tweak font-lock in temp buffers. | ||
| 5 | |||
| 3 | * shr.el (shr-put-image): Silence compiler. | 6 | * shr.el (shr-put-image): Silence compiler. |
| 4 | 7 | ||
| 5 | 2013-05-29 Glenn Morris <rgm@gnu.org> | 8 | 2013-05-29 Glenn Morris <rgm@gnu.org> |
diff --git a/lisp/gnus/spam-stat.el b/lisp/gnus/spam-stat.el index d75e8198842..135bfd48e5f 100644 --- a/lisp/gnus/spam-stat.el +++ b/lisp/gnus/spam-stat.el | |||
| @@ -412,8 +412,7 @@ With a prefix argument save unconditionally." | |||
| 412 | (when (or force spam-stat-dirty) | 412 | (when (or force spam-stat-dirty) |
| 413 | (let ((coding-system-for-write spam-stat-coding-system)) | 413 | (let ((coding-system-for-write spam-stat-coding-system)) |
| 414 | (with-temp-file spam-stat-file | 414 | (with-temp-file spam-stat-file |
| 415 | (let ((standard-output (current-buffer)) | 415 | (let ((standard-output (current-buffer))) |
| 416 | (font-lock-maximum-size 0)) | ||
| 417 | (insert (format ";-*- coding: %s; -*-\n" spam-stat-coding-system)) | 416 | (insert (format ";-*- coding: %s; -*-\n" spam-stat-coding-system)) |
| 418 | (insert (format "(setq spam-stat-ngood %d spam-stat-nbad %d | 417 | (insert (format "(setq spam-stat-ngood %d spam-stat-nbad %d |
| 419 | spam-stat (spam-stat-to-hash-table '(" spam-stat-ngood spam-stat-nbad)) | 418 | spam-stat (spam-stat-to-hash-table '(" spam-stat-ngood spam-stat-nbad)) |