# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1053293706 0
# Node ID af63282f9b8e83ff24882512eead19b53a85bcc0
# Parent  a4bb96832880671d0b66cdca5183a2ab0ab727cf
(mail-mode): Don't bother setting paragraph-start.

diff -r a4bb96832880 -r af63282f9b8e lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun May 18 21:27:41 2003 +0000
+++ b/lisp/mail/sendmail.el	Sun May 18 21:35:06 2003 +0000
@@ -498,7 +498,6 @@
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults '(mail-font-lock-keywords t t))
   (make-local-variable 'paragraph-separate)
-  (make-local-variable 'paragraph-start)
   (make-local-variable 'normal-auto-fill-function)
   (setq normal-auto-fill-function 'mail-mode-auto-fill)
   (make-local-variable 'fill-paragraph-function)
@@ -518,12 +517,11 @@
   ;; lines that delimit forwarded messages.
   ;; Lines containing just >= 3 dashes, perhaps after whitespace,
   ;; are also sometimes used and should be separators.
-  (setq paragraph-start (concat (regexp-quote mail-header-separator)
+  (setq paragraph-separate (concat (regexp-quote mail-header-separator)
 				"$\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$"
 				"\\|[ \t]*[[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|"
-				"-- $\\|---+$\\|"
-				page-delimiter))
-  (setq paragraph-separate paragraph-start))
+				"--\\( \\|-+\\)$\\|"
+				page-delimiter)))
 
 
 (defun mail-header-end ()