mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

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

Browse Source 
Call get-buffer-window first second arg `visible'.
This commit is contained in:
Gerd Moellmann 2001-09-27 10:54:55 +00:00
parent 14531065ac
commit 6eb94ddb0f
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

2
lisp/mail/feedmail.el
View File

@ -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))))