diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:34:27 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:34:27 +0000 |
| commit | 349deff4c6b51955488062a6b14ade8fb1757b8c (patch) | |
| tree | 7e36894d06065d8d3fa331cff39998c359d7986a /lisp/mail/mailabbrev.el | |
| parent | 0dd7b8f0e7346bb1899faa2e0c1bdf98794d17e6 (diff) | |
| download | emacs-349deff4c6b51955488062a6b14ade8fb1757b8c.tar.gz | |
(mail-abbrev-in-expansion-header-p): Simplify.
Diffstat (limited to 'lisp/mail/mailabbrev.el')
| -rw-r--r-- | lisp/mail/mailabbrev.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 818255ffafa..baf08903a79 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -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)) ;; |