Mercurial > emacs
comparison lisp/mail/rmail.el @ 14898:467e9d219590
(rmail-fontify-message, rmail-unfontify-buffer-function):
Reset the buffer modified state if necessary.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Mar 1996 23:32:46 +0000 |
| parents | afbd0214f6ec |
| children | 9d170829f227 |
comparison
equal
deleted
inserted
replaced
| 14897:9cce31ba2d61 | 14898:467e9d219590 |
|---|---|
| 2546 buffer-file-name buffer-file-truename) | 2546 buffer-file-name buffer-file-truename) |
| 2547 (save-restriction | 2547 (save-restriction |
| 2548 (widen) | 2548 (widen) |
| 2549 (remove-hook 'rmail-show-message-hook 'rmail-fontify-message t) | 2549 (remove-hook 'rmail-show-message-hook 'rmail-fontify-message t) |
| 2550 (remove-text-properties (point-min) (point-max) '(rmail-fontified nil)) | 2550 (remove-text-properties (point-min) (point-max) '(rmail-fontified nil)) |
| 2551 (font-lock-default-unfontify-buffer)))) | 2551 (font-lock-default-unfontify-buffer) |
| 2552 (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil))))) | |
| 2552 | 2553 |
| 2553 (defun rmail-fontify-message () | 2554 (defun rmail-fontify-message () |
| 2554 ;; Fontify the current message if it is not already fontified. | 2555 ;; Fontify the current message if it is not already fontified. |
| 2555 (if (text-property-any (point-min) (point-max) 'rmail-fontified nil) | 2556 (if (text-property-any (point-min) (point-max) 'rmail-fontified nil) |
| 2556 (let ((modified (buffer-modified-p)) | 2557 (let ((modified (buffer-modified-p)) |
| 2558 before-change-functions after-change-functions | 2559 before-change-functions after-change-functions |
| 2559 buffer-file-name buffer-file-truename) | 2560 buffer-file-name buffer-file-truename) |
| 2560 (save-excursion | 2561 (save-excursion |
| 2561 (save-match-data | 2562 (save-match-data |
| 2562 (add-text-properties (point-min) (point-max) '(rmail-fontified t)) | 2563 (add-text-properties (point-min) (point-max) '(rmail-fontified t)) |
| 2563 (font-lock-fontify-region (point-min) (point-max))))))) | 2564 (font-lock-fontify-region (point-min) (point-max)) |
| 2565 (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil))))))) | |
| 2564 | 2566 |
| 2565 ;;;; *** Rmail Specify Inbox Files *** | 2567 ;;;; *** Rmail Specify Inbox Files *** |
| 2566 | 2568 |
| 2567 (autoload 'set-rmail-inbox-list "rmailmsc" | 2569 (autoload 'set-rmail-inbox-list "rmailmsc" |
| 2568 "Set the inbox list of the current RMAIL file to FILE-NAME. | 2570 "Set the inbox list of the current RMAIL file to FILE-NAME. |