(feedmail-queue-send-edit-prompt-help):

Call get-buffer-window first second arg `visible'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd10d7a2211da7010888c4f182747fe147124fe7..bd7c0b05aa0634299a3f07685f62a525903d7eea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-09-27  Gerd Moellmann  <gerd@gnu.org>
 
+       * mail/feedmail.el (feedmail-queue-send-edit-prompt-help): 
+       Call get-buffer-window first second arg `visible'.
+
        * international/mule-diag.el (list-input-methods-1): Output 
        something that's independent of Emacs' version.
 

diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el
index 2d21c9c45c56be015e5631557f6da967f7174325..a56790730649e4d79d77e53163de718eca24cca8 100644 (file)
--- a/lisp/mail/feedmail.el
+++ b/lisp/mail/feedmail.el
@@ -1770,7 +1770,7 @@ you can set feedmail-queue-reminder-alist to nil."
 
 (defun feedmail-queue-send-edit-prompt-help (d-string)
   (let ((fqm-help (get-buffer feedmail-p-h-b-n)))
-    (if (and fqm-help (get-buffer-window fqm-help))
+    (if (and fqm-help (get-buffer-window fqm-help 'visible))
        (feedmail-queue-send-edit-prompt-help-later fqm-help d-string)
       (feedmail-queue-send-edit-prompt-help-first d-string))))