diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-12-29 20:06:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-12-29 20:06:19 +0000 |
| commit | 67d120ebadb080a3c7ec16f7a4855fd6227b923e (patch) | |
| tree | d693278b398d2afd812a5aa00185211ffdc8f973 /lisp/textmodes | |
| parent | a3ae17d490db9c7a64f5f031e0dd1f838ea46c17 (diff) | |
| download | emacs-67d120ebadb080a3c7ec16f7a4855fd6227b923e.tar.gz | |
(mail-mode-flyspell-verify): Search for header separator alone on a
line, literally, and search for it backward, not forward.
(flyspell-abbrev-table): Always use global-abbrev-table if there is no
local one.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index dc4f521c018..e71eb440c12 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -267,7 +267,9 @@ property of the major mode name.") (defun mail-mode-flyspell-verify () "This function is used for `flyspell-generic-check-word-p' in Mail mode." (let ((in-headers (save-excursion - (re-search-forward mail-header-separator nil t))) + ;; When mail-header-separator is "", + ;; it is likely to be found in both directions. + (not (re-search-backward (concat "^" (regexp-quote mail-header-separator) "$") nil t)))) (in-signature (save-excursion (re-search-backward message-signature-separator nil t)))) (cond (in-headers @@ -1628,7 +1630,7 @@ misspelled words backwards." (defun flyspell-abbrev-table () (if flyspell-use-global-abbrev-table-p global-abbrev-table - local-abbrev-table)) + (or local-abbrev-table global-abbrev-table))) ;*---------------------------------------------------------------------*/ ;* flyspell-define-abbrev ... */ |