[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el

[Stefan Monnier]

Index: emacs/lisp/mail/sendmail.el
diff -c emacs/lisp/mail/sendmail.el:1.267 emacs/lisp/mail/sendmail.el:1.268
*** emacs/lisp/mail/sendmail.el:1.267   Sat May  3 09:52:57 2003
--- emacs/lisp/mail/sendmail.el Sun May 18 17:35:06 2003
***************
*** 498,504 ****
    (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)
--- 498,503 ----
***************
*** 518,529 ****
    ;; 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)
                                "$\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$"
                                "\\|[ \t]*[[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|"
!                               "-- $\\|---+$\\|"
!                               page-delimiter))
!   (setq paragraph-separate paragraph-start))
  
  
  (defun mail-header-end ()
--- 517,527 ----
    ;; lines that delimit forwarded messages.
    ;; Lines containing just >= 3 dashes, perhaps after whitespace,
    ;; are also sometimes used and should be separators.
!   (setq paragraph-separate (concat (regexp-quote mail-header-separator)
                                "$\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$"
                                "\\|[ \t]*[[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|"
!                               "--\\( \\|-+\\)$\\|"
!                               page-delimiter)))
  
  
  (defun mail-header-end ()