From: Stefan Monnier Date: Wed, 23 Jan 2002 00:44:42 +0000 (+0000) Subject: (mail-mode): ">" is not a supercite-style prefix X-Git-Tag: emacs-21.2~159 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad892459034e4b792f755b19b079d448258f567f;p=emacs.git (mail-mode): ">" is not a supercite-style prefix and is already matched by adaptive-fill-regexp. --- 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,