From ad892459034e4b792f755b19b079d448258f567f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 23 Jan 2002 00:44:42 +0000 Subject: [PATCH] (mail-mode): ">" is not a supercite-style prefix and is already matched by adaptive-fill-regexp. --- lisp/ChangeLog | 5 +++++ lisp/mail/sendmail.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d6bfe13dd9a..57bcfb004d6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-01-22 Stefan Monnier + + * mail/sendmail.el (mail-mode): ">" is not a supercite-style prefix + and is already matched by adaptive-fill-regexp. + 2002-01-22 Richard M. Stallman * net/ange-ftp.el (ange-ftp-canonize-filename): Avoid duplicate diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 614732811f8..3c56c00d7b6 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -495,12 +495,12 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and (set (make-local-variable 'comment-start) mail-yank-prefix) (make-local-variable 'adaptive-fill-regexp) (setq adaptive-fill-regexp - (concat "[ \t]*[-[:alnum:]]*>+[ \t]*\\|" + (concat "[ \t]*[-[:alnum:]]+>+[ \t]*\\|" adaptive-fill-regexp)) (make-local-variable 'adaptive-fill-first-line-regexp) (setq adaptive-fill-first-line-regexp (concat adaptive-fill-first-line-regexp - "\\|[ \t]*[-[:alnum:]]*>+[ \t]*")) + "\\|[ \t]*[-[:alnum:]]+>+[ \t]*")) ;; `-- ' precedes the signature. `-----' appears at the start of the ;; lines that delimit forwarded messages. ;; Lines containing just >= 3 dashes, perhaps after whitespace, -- 2.39.5