From 06aa1b92759389956224a3116e4d3655e5118670 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 1 Oct 2004 03:54:57 +0000 Subject: [PATCH] Synch to No Gnus 200410010354. --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-agent.el | 13 ++++++++++--- lisp/gnus-sum.el | 3 ++- 3 files changed, 22 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f30d848..358ecc8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2004-10-01 Katsumi Yamaoka + + * gnus-sum.el (gnus-summary-toggle-header): Make it work even if + there's no visible header. + +2004-10-01 Kevin Greiner + + * gnus-agent.el (gnus-agent-synchronize-group-flags): When + necessary, pass full group name to gnus-request-set-marks. + 2004-10-01 Simon Josefsson * mailcap.el (mailcap-mime-data): Add pdf. Remove non-free diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 35424d3..8944bff 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1221,9 +1221,16 @@ This can be added to `gnus-select-article-hook' or (defun gnus-agent-synchronize-group-flags (group actions server) "Update a plugged group by performing the indicated actions." (let* ((gnus-command-method (gnus-server-to-method server)) - (info (or (gnus-get-info group) - (gnus-get-info (gnus-group-full-name - group gnus-command-method))))) + (info + ;; This initializer is required as gnus-request-set-mark + ;; calls gnus-group-real-name to strip off the host name + ;; before calling the backend. Now that the backend is + ;; trying to call gnus-request-set-mark, I have to + ;; reconstruct the original group name. + (or (gnus-get-info group) + (gnus-get-info + (setq group (gnus-group-full-name + group gnus-command-method)))))) (gnus-request-set-mark group actions) (when info diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 7bda399..3f2aff7 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -8941,7 +8941,8 @@ If ARG is a negative number, hide the unwanted header lines." (inhibit-point-motion-hooks t) (hidden (if (numberp arg) (>= arg 0) - (gnus-article-hidden-text-p 'headers))) + (or (not (looking-at "[^ \t\n]+:")) + (gnus-article-hidden-text-p 'headers)))) s e) (delete-region (point-min) (point-max)) (with-current-buffer gnus-original-article-buffer -- 1.7.10.4