From: yamaoka <yamaoka>
Date: Fri, 1 Oct 2004 03:54:57 +0000 (+0000)
Subject: Synch to No Gnus 200410010354.
X-Git-Tag: t-gnus-6_17_4-quimby-~732
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=06aa1b92759389956224a3116e4d3655e5118670;p=elisp%2Fgnus.git-

Synch to No Gnus 200410010354.
---

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  <yamaoka@jpl.org>
+
+	* gnus-sum.el (gnus-summary-toggle-header): Make it work even if
+	there's no visible header.
+
+2004-10-01  Kevin Greiner  <kgreiner@compsol.cc>
+
+	* gnus-agent.el (gnus-agent-synchronize-group-flags): When
+	necessary, pass full group name to gnus-request-set-marks.
+	
 2004-10-01  Simon Josefsson  <jas@extundo.com>
 
 	* 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