# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797371768 0
# Node ID e39cb5447c6880a650ca6e44103c5fe06f864d06
# Parent  97b1aef779dc1d46809bcebd4d255cc7a15325d9
(mail-mode): Make mail-header-separator into regexp.

diff -r 97b1aef779dc -r e39cb5447c68 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sat Apr 08 20:05:41 1995 +0000
+++ b/lisp/mail/sendmail.el	Sat Apr 08 20:09:28 1995 +0000
@@ -296,10 +296,10 @@
   (setq font-lock-defaults '(mail-font-lock-keywords t))
   (make-local-variable 'paragraph-separate)
   (make-local-variable 'paragraph-start)
-  (setq paragraph-start (concat mail-header-separator
+  (setq paragraph-start (concat (regexp-quote mail-header-separator)
 				"$\\|[ \t]*[-_][-_][-_]+$\\|"
 				paragraph-start))
-  (setq paragraph-separate (concat mail-header-separator
+  (setq paragraph-separate (concat (regexp-quote mail-header-separator)
 				   "$\\|[ \t]*[-_][-_][-_]+$\\|"
 				   paragraph-separate))
   (run-hooks 'text-mode-hook 'mail-mode-hook))