Commit 328f984d authored by Glenn Morris's avatar Glenn Morris
Browse files

mail-mode paragraph-separate fix for bug#10276

* lisp/mail/sendmail.el (mail-mode):
Update paragraph-separate for changes in adaptive-fill-regexp.
parent 2cc769a8
2012-01-12 Glenn Morris <rgm@gnu.org>
* mail/sendmail.el (mail-mode): Update paragraph-separate for
changes in adaptive-fill-regexp. (Bug#10276)
2012-01-11 Alan Mackenzie <acm@muc.de>
Fix Emacs bug #10463 - put `widen's around the critical spots.
......
;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*-
;;; sendmail.el --- mail sending commands for Emacs
;; Copyright (C) 1985-1986, 1992-1996, 1998, 2000-2012
;; Free Software Foundation, Inc.
......@@ -743,11 +743,14 @@ 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-separate (concat (regexp-quote mail-header-separator)
"$\\|\t*\\([-|#;>* ]\\|(?[0-9]+[.)]\\)+$"
"\\|[ \t]*[[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|"
"--\\( \\|-+\\)$\\|"
page-delimiter)))
(setq paragraph-separate
(concat (regexp-quote mail-header-separator)
;; This is based on adaptive-fill-regexp.
;; Presumably the idea is to allow filling of cited paragraphs.
"$\\|\t*[-–!|#%;>*·•‣⁃◦ ]+$"
"\\|[ \t]*[-[:alnum:]]*>+[ \t]*$\\|[ \t]*$\\|"
"--\\( \\|-+\\)$\\|"
page-delimiter)))
(defun mail-header-end ()
......@@ -1986,4 +1989,9 @@ you can move to one of them and type C-c C-c to recover that one."
(provide 'sendmail)
;; Local Variables:
;; byte-compile-dynamic: t
;; coding: utf-8
;; End:
;;; sendmail.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment