From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 27 Jul 1998 23:09:41 +0000 (+0000)
Subject: (mail-mode): Add the citation regexp
X-Git-Tag: emacs-20.3~240
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ddedc4d4249be0544d86ccfcced151aed965d0bd;p=emacs.git

(mail-mode): Add the citation regexp
to adaptive-fill-regexp after the usual contents.
But modify the usual contents not to match whitespace alone;
match that again last.
Add that citation regexp to paragraph-start and paragraph-separate too.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 81a99113f9d..43185e8a071 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -425,16 +425,20 @@ Here are commands that move to a header field (and create it if there isn't):
   (setq fill-paragraph-function 'mail-mode-fill-paragraph)
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
-	(concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp))
+	(concat "[ \t]*\\([-|#;>*]+ *\\|(?[0-9]+[.)] *\\)+"
+		"\\|[ \t]*[-a-z0-9A-Z]*>+[ \t]*"
+		"\\|[ \t]*"))
   (make-local-variable 'adaptive-fill-first-line-regexp)
   (setq adaptive-fill-first-line-regexp
-	(concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp))
+	(concat adaptive-fill-first-line-regexp
+		"\\|[ \t]*[-a-z0-9A-Z]*>+[ \t]*"))
   ;; `-- ' precedes the signature.  `-----' appears at the start of the
   ;; 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]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|"
+				"$\\|[ \t]*\\([-|#;>*]+ *\\|(?[0-9]+[.)] *\\)*$"
+				"\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|"
 				"-- $\\|---+$\\|"
 				page-delimiter))
   (setq paragraph-separate paragraph-start)