diff options
| author | Richard M. Stallman | 1998-06-26 06:04:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-06-26 06:04:56 +0000 |
| commit | baaddce7c0316132b8edbfabe0176186ec22b76a (patch) | |
| tree | 506b34fc5e247ff3d0f645714cd610b7178960d3 | |
| parent | 64abe701f107204aa473ca3c780e28f57c3e3569 (diff) | |
| download | emacs-baaddce7c0316132b8edbfabe0176186ec22b76a.tar.gz emacs-baaddce7c0316132b8edbfabe0176186ec22b76a.zip | |
(mail-complete): Fix the test of (mail-heder-end).
| -rw-r--r-- | lisp/mail/mailalias.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 9d15345dd43..fec940c7254 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el | |||
| @@ -379,7 +379,7 @@ current header, calls `mail-complete-function' and passes prefix arg if any." | |||
| 379 | (if (file-exists-p mail-personal-alias-file) | 379 | (if (file-exists-p mail-personal-alias-file) |
| 380 | (build-mail-aliases)))) | 380 | (build-mail-aliases)))) |
| 381 | (let ((list mail-complete-alist)) | 381 | (let ((list mail-complete-alist)) |
| 382 | (if (and (> 0 (mail-header-end)) | 382 | (if (and (< 0 (mail-header-end)) |
| 383 | (save-excursion | 383 | (save-excursion |
| 384 | (if (re-search-backward "^[^\t]" nil t) | 384 | (if (re-search-backward "^[^\t]" nil t) |
| 385 | (while list | 385 | (while list |