Mercurial > emacs

changeset 51082:af63282f9b8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-mode): Don't bother setting paragraph-start.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 18 May 2003 21:35:06 +0000
parents a4bb96832880
children 52ad052cb312
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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 ()