From 6eb94ddb0f2e64ca9cd66486ae2aa0b76fe4c2ac Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 27 Sep 2001 10:54:55 +0000 Subject: [PATCH] (feedmail-queue-send-edit-prompt-help): Call get-buffer-window first second arg `visible'. --- lisp/ChangeLog | 3 +++ lisp/mail/feedmail.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * 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)))) -- 2.39.5