From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 18 May 2003 21:35:06 +0000 (+0000)
Subject: (mail-mode): Don't bother setting paragraph-start.
X-Git-Tag: ttn-vms-21-2-B4~10088
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3e95b0df03eb4c321817f8e521c07d2c83d022d;p=emacs.git

(mail-mode): Don't bother setting paragraph-start.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e89dc3392f5..130bd160a4b 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -498,7 +498,6 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and
   (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 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and
   ;; 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 ()