(gnus-agent-fetch-selected-article): Open history

if it isn't open yet.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f43d6c..3dc6e7d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-15  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-agent.el (gnus-agent-fetch-selected-article): Open history
+       if it isn't open yet.
+
 2002-10-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-group.el: Require mm-url only when compiling.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 790c5f2..430eae0 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -790,6 +790,11 @@ This can be added to `gnus-select-article-hook' or
     (when (and gnus-plugged (gnus-agent-method-p gnus-command-method))
       (let ((gnus-agent-current-history
             (gnus-agent-history-buffer)))
+       (unless (and gnus-agent-current-history
+                    (buffer-live-p gnus-agent-current-history))
+         (gnus-agent-open-history)
+         (setq gnus-agent-current-history
+               (gnus-agent-history-buffer)))
        (gnus-agent-fetch-articles
         gnus-newsgroup-name
         (list gnus-current-article))))))