From: yamaoka <yamaoka>
Date: Tue, 15 Oct 2002 10:10:12 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-05-quimby~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e803b82d7a60a803d794d7c3e25120689e1599f;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f43d6c..3dc6e7d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-15  Kai Gro,A_(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 9c43a2d..e64a348 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -804,6 +804,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))))))
diff --git a/lisp/spam-stat.el b/lisp/spam-stat.el
index e348c2a..967c948 100644
--- a/lisp/spam-stat.el
+++ b/lisp/spam-stat.el
@@ -185,6 +185,7 @@ This is set by hooking into Gnus.")
 	     (= emacs-major-version 20))
     ;; gethash, hash-table-count, make-hash-table, mapc
     (require 'cl)
+    ;; alias puthash is missing from Emacs 20 cl-extra.el
     (defalias 'puthash 'cl-puthash)))
 
 (eval-when-compile