Commit 67d120eb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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.
parent a3ae17d4
......@@ -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 ... */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment