From 4e803b82d7a60a803d794d7c3e25120689e1599f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 15 Oct 2002 10:10:12 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-agent.el | 5 +++++ lisp/spam-stat.el | 1 + 3 files changed, 11 insertions(+) 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 + + * gnus-agent.el (gnus-agent-fetch-selected-article): Open history + if it isn't open yet. + 2002-10-14 Katsumi Yamaoka * 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 -- 1.7.10.4