# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973877851 0
# Node ID d7d4bd9d131cf901b1cbc7225c73e250e0839d92
# Parent  1666541ea9be3d19db38a13d4d1b1aec3cd96707
(message-mode) <adaptive-fill-regexp>:
<adaptive-fill-first-line-regexp>: Use [:alnum:] in regexp range.
(message-newline-and-reformat): Likewise.

diff -r 1666541ea9be -r d7d4bd9d131c lisp/gnus/message.el
--- a/lisp/gnus/message.el	Fri Nov 10 17:29:46 2000 +0000
+++ b/lisp/gnus/message.el	Fri Nov 10 17:37:31 2000 +0000
@@ -1,4 +1,4 @@
-;;; message.el --- composing mail and news messages
+;;; message.el --- composing mail and news messages  -*- coding: iso-latin-1 -*-
 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000
 ;;        Free Software Foundation, Inc.
 
@@ -1522,12 +1522,12 @@
   (message-set-auto-save-file-name)
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
-	(concat "[ \t]*[-a-z0-9A-Z]*\\(>[ \t]*\\)+[ \t]*\\|" adaptive-fill-regexp))
+	(concat "[ \t]*[-[:alnum:]]*\\(>[ \t]*\\)+[ \t]*\\|" adaptive-fill-regexp))
   (unless (boundp 'adaptive-fill-first-line-regexp)
     (setq adaptive-fill-first-line-regexp nil))
   (make-local-variable 'adaptive-fill-first-line-regexp)
   (setq adaptive-fill-first-line-regexp
-	(concat "[ \t]*[-a-z0-9A-Z]*\\(>[ \t]*\\)+[ \t]*\\|"
+	(concat "[ \t]*[-[:alnum:]]*\\(>[ \t]*\\)+[ \t]*\\|"
 		adaptive-fill-first-line-regexp))
   (make-local-variable 'auto-fill-inhibit-regexp)
   (setq auto-fill-inhibit-regexp "^[A-Z][^: \n\t]+:")
@@ -1708,8 +1708,9 @@
 (defun message-newline-and-reformat ()
   "Insert four newlines, and then reformat if inside quoted text."
   (interactive)
+  ;; The Latin-1 angle quote looks pretty dubious.  -- fx
   (let ((prefix "[]>»|:}+ \t]*")
-	(supercite-thing "[-._a-zA-Z0-9]*[>]+[ \t]*")
+	(supercite-thing "[-._[:alnum:]]*[>]+[ \t]*")
 	quoted point)
     (unless (bolp)
       (save-excursion