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

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

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd10d7a2211..bd7c0b05aa0 100644
--- 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 2d21c9c45c5..a5679073064 100644
--- 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))))