diff options
| author | Dave Love <fx@gnu.org> | 2000-11-10 17:37:31 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-11-10 17:37:31 +0000 |
| commit | 9e30862d6e29d1e2d7b6affaeac91a7d4ab4d8b3 (patch) | |
| tree | e1598b7276d89807edfed814f8a0ea052d45ff82 /lisp | |
| parent | 185a608e0ffd2ea53ce1e38782b8f9725b11129a (diff) | |
| download | emacs-9e30862d6e29d1e2d7b6affaeac91a7d4ab4d8b3.tar.gz emacs-9e30862d6e29d1e2d7b6affaeac91a7d4ab4d8b3.tar.bz2 emacs-9e30862d6e29d1e2d7b6affaeac91a7d4ab4d8b3.zip | |
(message-mode) <adaptive-fill-regexp>:
<adaptive-fill-first-line-regexp>: Use [:alnum:] in regexp range.
(message-newline-and-reformat): Likewise.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/message.el | 9 |
1 files changed, 5 insertions, 4 deletions
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 |