X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mail%2Ffeedmail.el;h=d745802a8f9e32320e5bfea47cbd62357ead15b5;hb=HEAD;hp=dcff42bc867e1d6a31424f6ca2bb7fa807754af6;hpb=bf8ddd0fcaf0abdb9652d08b22309d1067b02a7e;p=elisp%2Flemi.git

diff --git a/mail/feedmail.el b/mail/feedmail.el
index dcff42b..d745802 100644
--- a/mail/feedmail.el
+++ b/mail/feedmail.el
@@ -1,6 +1,8 @@
 ;;; feedmail.el --- assist other email packages to massage outgoing messages
 ;;; This file is in the public domain.
 
+;; This file is part of GNU Emacs.
+
 ;; Author: Bill Carpenter <bill@bubblegum.net>, <bill@carpenter.ORG>
 ;; Version: 8
 ;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft
@@ -306,7 +308,7 @@
 (defgroup feedmail nil
   "Assist other email packages to massage outgoing messages."
   :link '(url-link "http://www.carpenter.org/feedmail/feedmail.html")
-  :link '(emacs-commentary "feedmail")
+  :link '(emacs-commentary-link "feedmail")
   :group 'mail)
 
 (defgroup feedmail-misc nil
@@ -1776,7 +1778,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))))
 
@@ -2675,4 +2677,5 @@ been weeded out."
       (point-marker))))
 
 (provide 'feedmail)
+
 ;;; feedmail.el ends here