Mercurial > emacs

changeset 19000:f5d103332d9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-mode): Make adaptive-fill-regexp match more values. Bind adaptive-fill-first-line-regexp too.
author Richard M. Stallman <rms@gnu.org>
date Sat, 26 Jul 1997 22:19:26 +0000
parents 4d5237dec736
children 2190c39dc640
files lisp/mail/sendmail.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Sat Jul 26 19:01:01 1997 +0000
+++ b/lisp/mail/sendmail.el	Sat Jul 26 22:19:26 1997 +0000
@@ -348,7 +348,9 @@
   (setq fill-paragraph-function 'mail-mode-fill-paragraph)
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
-	(concat "[ \t]+[a-z0-9A-Z]+> *\\|" adaptive-fill-regexp))
+	(concat "[ \t]+[a-z0-9A-Z]*>+ *\\|" adaptive-fill-regexp))
+  (make-local-variable 'adaptive-fill-first-line-regexp)
+  (setq adaptive-fill-first-line-regexp adaptive-fill-regexp)
   ;; `-- ' precedes the signature.  `-----' appears at the start of the
   ;; lines that delimit forwarded messages.
   ;; Lines containing just >= 3 dashes, perhaps after whitespace,