changeset 39477:7ff02d7c4baf

(feedmail-queue-send-edit-prompt-help): Call get-buffer-window first second arg `visible'.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 27 Sep 2001 10:54:32 +0000
parents 53010170674b
children 4e38854cd410
files lisp/mail/feedmail.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))