(mail-complete): Fix the test of (mail-heder-end).

This commit is contained in:
Richard M. Stallman 1998-06-26 06:04:56 +00:00
parent 64abe701f1
commit baaddce7c0

View file

@ -379,7 +379,7 @@ current header, calls `mail-complete-function' and passes prefix arg if any."
(if (file-exists-p mail-personal-alias-file)
(build-mail-aliases))))
(let ((list mail-complete-alist))
(if (and (> 0 (mail-header-end))
(if (and (< 0 (mail-header-end))
(save-excursion
(if (re-search-backward "^[^\t]" nil t)
(while list