# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1001588072 0
# Node ID 7ff02d7c4baf31129dc43678de621fb9b9d78b2b
# Parent  53010170674b0608f7a8b98fb6a10c3e90ec39c7
(feedmail-queue-send-edit-prompt-help):
Call get-buffer-window first second arg `visible'.

diff -r 53010170674b -r 7ff02d7c4baf lisp/mail/feedmail.el
--- a/lisp/mail/feedmail.el	Thu Sep 27 09:23:01 2001 +0000
+++ b/lisp/mail/feedmail.el	Thu Sep 27 10:54:32 2001 +0000
@@ -1770,7 +1770,7 @@
 
 (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))))