From: Dave Love Date: Fri, 10 Nov 2000 17:37:31 +0000 (+0000) Subject: (message-mode) : X-Git-Tag: emacs-pretest-21.0.90~160 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e30862d6e29d1e2d7b6affaeac91a7d4ab4d8b3;p=emacs.git (message-mode) : : Use [:alnum:] in regexp range. (message-newline-and-reformat): Likewise. --- diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 66ea87b2228..3f688adfd82 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -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 @@ M-RET message-newline-and-reformat (break the line and reformat)." (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 @@ With the prefix argument FORCE, insert the header anyway." (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