(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 d6bfe13dd9ae9947d00d4a2f8b093d8b23ad67b3..57bcfb004d608c85a1077efcb857a34c369db448 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-22  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * 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  <rms@gnu.org>
 
        * net/ange-ftp.el (ange-ftp-canonize-filename): Avoid duplicate

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 614732811f8605989699160f57794a81bbf0c1bf..3c56c00d7b6824e83c88dcec0ab43036460d7fa9 100644 (file)
--- 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,