Mercurial > emacs
comparison lisp/mail/rmail.el @ 8383:d2b1b642f4e6
(rmail-highlighted-face): New variable.
(rmail-highlight-headers): Use it if non-nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 30 Jul 1994 02:46:24 +0000 |
| parents | dd0a2dd71ad3 |
| children | 4c88569aaa73 |
comparison
equal
deleted
inserted
replaced
| 8382:425ac5eebc19 | 8383:d2b1b642f4e6 |
|---|---|
| 66 value is the user's name.) | 66 value is the user's name.) |
| 67 It is useful to set this variable in the site customization file.") | 67 It is useful to set this variable in the site customization file.") |
| 68 | 68 |
| 69 ;;;###autoload | 69 ;;;###autoload |
| 70 (defvar rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:\\|^message-id:\\|^summary-line:" "\ | 70 (defvar rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:\\|^message-id:\\|^summary-line:" "\ |
| 71 *Regexp to match Header fields that rmail should normally hide.") | 71 *Regexp to match Header fields that Rmail should normally hide.") |
| 72 | 72 |
| 73 ;;;###autoload | 73 ;;;###autoload |
| 74 (defvar rmail-highlighted-headers "^From:\\|^Subject:" "\ | 74 (defvar rmail-highlighted-headers "^From:\\|^Subject:" "\ |
| 75 *Regexp to match Header fields that rmail should normally highlight. | 75 *Regexp to match Header fields that Rmail should normally highlight. |
| 76 A value of nil means don't highlight.") | 76 A value of nil means don't highlight.") |
| 77 | |
| 78 ;;;###autoload | |
| 79 (defvar rmail-highlight-face nil "\ | |
| 80 *Face used by Rmail for highlighting headers.") | |
| 77 | 81 |
| 78 ;;;###autoload | 82 ;;;###autoload |
| 79 (defvar rmail-delete-after-output nil "\ | 83 (defvar rmail-delete-after-output nil "\ |
| 80 *Non-nil means automatically delete a message that is copied to a file.") | 84 *Non-nil means automatically delete a message that is copied to a file.") |
| 81 | 85 |
| 1426 (narrow-to-region (point-min) (point)) | 1430 (narrow-to-region (point-min) (point)) |
| 1427 (let ((case-fold-search t) | 1431 (let ((case-fold-search t) |
| 1428 (inhibit-read-only t) | 1432 (inhibit-read-only t) |
| 1429 ;; Highlight with boldface if that is available. | 1433 ;; Highlight with boldface if that is available. |
| 1430 ;; Otherwise use the `highlight' face. | 1434 ;; Otherwise use the `highlight' face. |
| 1431 (face (if (face-differs-from-default-p 'bold) | 1435 (face (or rmail-highlight-face |
| 1432 'bold 'highlight)) | 1436 (if (face-differs-from-default-p 'bold) |
| 1437 'bold 'highlight))) | |
| 1433 ;; List of overlays to reuse. | 1438 ;; List of overlays to reuse. |
| 1434 (overlays rmail-overlay-list)) | 1439 (overlays rmail-overlay-list)) |
| 1435 (goto-char (point-min)) | 1440 (goto-char (point-min)) |
| 1436 (while (re-search-forward rmail-highlighted-headers nil t) | 1441 (while (re-search-forward rmail-highlighted-headers nil t) |
| 1437 (skip-chars-forward " \t") | 1442 (skip-chars-forward " \t") |