diff options
Diffstat (limited to 'lisp/mail/mspools.el')
-rw-r--r-- | lisp/mail/mspools.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el index 2ab4fa411a6..0673493487a 100644 --- a/lisp/mail/mspools.el +++ b/lisp/mail/mspools.el @@ -264,7 +264,7 @@ Buffer is not displayed if SHOW is non-nil." (delete-char 1)))) (message "folder %s spool %s" folder-name spool-name) - (forward-line (if (eq (count-lines (point-min) (point-at-eol)) + (forward-line (if (eq (count-lines (point-min) (line-end-position)) mspools-files-len) ;; FIXME: Why use `mspools-files-len' instead ;; of looking if we're on the last line and @@ -307,7 +307,7 @@ Buffer is not displayed if SHOW is non-nil." (defun mspools-get-spool-name () "Return the name of the spool on the current line." - (let ((line-num (1- (count-lines (point-min) (point-at-eol))))) + (let ((line-num (1- (count-lines (point-min) (line-end-position))))) ;; FIXME: Why not extract the name directly from the current line's text? (car (nth line-num mspools-files)))) |