Commit 349deff4 authored by Gerd Moellmann's avatar Gerd Moellmann

(mail-abbrev-in-expansion-header-p): Simplify.

parent 0dd7b8f0
......@@ -440,11 +440,8 @@ of a mail alias.")
(and ;;
;; we are on an appropriate header line...
(save-excursion
(beginning-of-line)
;; skip backwards over continuation lines.
(while (and (looking-at "^[ \t]")
(not (= (point) (point-min))))
(forward-line -1))
(unless (eobp) (forward-char 1))
(re-search-backward "^[^ \t]" nil 'move)
;; are we at the front of an appropriate header line?
(looking-at mail-abbrev-mode-regexp))
;;
......
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