diff options
| -rw-r--r-- | lisp/gnus/message.el | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 6da6140c5bc..edfe1a39f3d 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el | |||
| @@ -1601,19 +1601,21 @@ starting with `not' and followed by regexps." | |||
| 1601 | (progn (goto-char (match-beginning 0)) (match-end 0)) nil | 1601 | (progn (goto-char (match-beginning 0)) (match-end 0)) nil |
| 1602 | (1 'message-header-name) | 1602 | (1 'message-header-name) |
| 1603 | (2 'message-header-other nil t))) | 1603 | (2 'message-header-other nil t))) |
| 1604 | ,@(if (and mail-header-separator | 1604 | (,(lambda (limit) |
| 1605 | (not (equal mail-header-separator ""))) | 1605 | (and mail-header-separator |
| 1606 | `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$") | 1606 | (not (equal mail-header-separator "")) |
| 1607 | 1 'message-separator)) | 1607 | (re-search-forward |
| 1608 | nil) | 1608 | (concat "^" (regexp-quote mail-header-separator) "$") |
| 1609 | ((lambda (limit) | 1609 | limit t))) |
| 1610 | (re-search-forward (concat "^\\(" | 1610 | 0 'message-separator) |
| 1611 | message-cite-prefix-regexp | 1611 | (,(lambda (limit) |
| 1612 | "\\).*") | 1612 | (re-search-forward (concat "^\\(?:" |
| 1613 | limit t)) | 1613 | message-cite-prefix-regexp |
| 1614 | (0 'message-cited-text)) | 1614 | "\\).*") |
| 1615 | ("<#/?\\(multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>" | 1615 | limit t)) |
| 1616 | (0 'message-mml)))) | 1616 | 0 'message-cited-text) |
| 1617 | ("<#/?\\(?:multipart\\|part\\|external\\|mml\\|secure\\)[^>]*>" | ||
| 1618 | 0 'message-mml))) | ||
| 1617 | "Additional expressions to highlight in Message mode.") | 1619 | "Additional expressions to highlight in Message mode.") |
| 1618 | 1620 | ||
| 1619 | (defvar message-face-alist | 1621 | (defvar message-face-alist |