Mercurial > emacs
changeset 33375:d7d4bd9d131c
(message-mode) <adaptive-fill-regexp>:
<adaptive-fill-first-line-regexp>: Use [:alnum:] in regexp range.
(message-newline-and-reformat): Likewise.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 10 Nov 2000 17:37:31 +0000 |
| parents | 1666541ea9be |
| children | 940adf5fe1c0 |
| files | lisp/gnus/message.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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