diff options
| -rw-r--r-- | lisp/mail/feedmail.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 180e32bee4c..943bdd88510 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el | |||
| @@ -2198,8 +2198,7 @@ you can set `feedmail-queue-reminder-alist' to nil." | |||
| 2198 | ;; emacs convention is that scroll-up moves text up, window down | 2198 | ;; emacs convention is that scroll-up moves text up, window down |
| 2199 | (feedmail-say-debug ">in-> feedmail-scroll-buffer %s" direction) | 2199 | (feedmail-say-debug ">in-> feedmail-scroll-buffer %s" direction) |
| 2200 | (save-selected-window | 2200 | (save-selected-window |
| 2201 | (let ((signal-error-on-buffer-boundary nil) ;FIXME: Unknown var!? | 2201 | (let ((fqm-window (display-buffer (if buffy buffy (current-buffer))))) |
| 2202 | (fqm-window (display-buffer (if buffy buffy (current-buffer))))) | ||
| 2203 | (select-window fqm-window) | 2202 | (select-window fqm-window) |
| 2204 | (if (eq direction 'up) | 2203 | (if (eq direction 'up) |
| 2205 | (if (pos-visible-in-window-p (point-max) fqm-window) | 2204 | (if (pos-visible-in-window-p (point-max) fqm-window) |