andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2003-05-18 21:35:06 +00:00
parent b1ccc1cee6
commit f3e95b0df0
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/sendmail.el
View file

@ -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 ()