Commit 9645b575 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Compilation warning fix in feedmail.el

* lisp/mail/feedmail.el (feedmail-scroll-buffer): Remove XEmacs
compat code (that gave a compilation warning).
parent 1743da11
......@@ -2198,8 +2198,7 @@ you can set `feedmail-queue-reminder-alist' to nil."
;; emacs convention is that scroll-up moves text up, window down
(feedmail-say-debug ">in-> feedmail-scroll-buffer %s" direction)
(save-selected-window
(let ((signal-error-on-buffer-boundary nil) ;FIXME: Unknown var!?
(fqm-window (display-buffer (if buffy buffy (current-buffer)))))
(let ((fqm-window (display-buffer (if buffy buffy (current-buffer)))))
(select-window fqm-window)
(if (eq direction 'up)
(if (pos-visible-in-window-p (point-max) fqm-window)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment