diff options
| author | Richard M. Stallman | 1995-04-08 20:09:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-04-08 20:09:28 +0000 |
| commit | 0408f0ac5a62f74e6b39286ced39706f0cea72b6 (patch) | |
| tree | b8e9f4de54ef0dea10072951dc327f50a81b6093 | |
| parent | e7a52e415f3290da7da22c90c1aa810c4743ebfe (diff) | |
| download | emacs-0408f0ac5a62f74e6b39286ced39706f0cea72b6.tar.gz emacs-0408f0ac5a62f74e6b39286ced39706f0cea72b6.zip | |
(mail-mode): Make mail-header-separator into regexp.
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 82230e09511..d2cc11c6c40 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -296,10 +296,10 @@ C-c C-v mail-sent-via (add a sent-via field for each To or CC)." | |||
| 296 | (setq font-lock-defaults '(mail-font-lock-keywords t)) | 296 | (setq font-lock-defaults '(mail-font-lock-keywords t)) |
| 297 | (make-local-variable 'paragraph-separate) | 297 | (make-local-variable 'paragraph-separate) |
| 298 | (make-local-variable 'paragraph-start) | 298 | (make-local-variable 'paragraph-start) |
| 299 | (setq paragraph-start (concat mail-header-separator | 299 | (setq paragraph-start (concat (regexp-quote mail-header-separator) |
| 300 | "$\\|[ \t]*[-_][-_][-_]+$\\|" | 300 | "$\\|[ \t]*[-_][-_][-_]+$\\|" |
| 301 | paragraph-start)) | 301 | paragraph-start)) |
| 302 | (setq paragraph-separate (concat mail-header-separator | 302 | (setq paragraph-separate (concat (regexp-quote mail-header-separator) |
| 303 | "$\\|[ \t]*[-_][-_][-_]+$\\|" | 303 | "$\\|[ \t]*[-_][-_][-_]+$\\|" |
| 304 | paragraph-separate)) | 304 | paragraph-separate)) |
| 305 | (run-hooks 'text-mode-hook 'mail-mode-hook)) | 305 | (run-hooks 'text-mode-hook 'mail-mode-hook)) |