Mercurial > emacs

changeset 19724:3f803418061c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-mode): Set adaptive-fill-first-line-regexp specially, not same as adaptive-fill-regexp.
author Richard M. Stallman <rms@gnu.org>
date Wed, 03 Sep 1997 07:08:43 +0000
parents 3ada64a43911
children 1b5169b9c5be
files lisp/mail/sendmail.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Wed Sep 03 05:46:54 1997 +0000
+++ b/lisp/mail/sendmail.el	Wed Sep 03 07:08:43 1997 +0000
@@ -359,7 +359,8 @@
   (setq adaptive-fill-regexp
 	(concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp))
   (make-local-variable 'adaptive-fill-first-line-regexp)
-  (setq adaptive-fill-first-line-regexp adaptive-fill-regexp)
+  (setq adaptive-fill-first-line-regexp
+	(concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp))
   ;; `-- ' precedes the signature.  `-----' appears at the start of the
   ;; lines that delimit forwarded messages.
   ;; Lines containing just >= 3 dashes, perhaps after whitespace,