Synch to No Gnus 200410010354.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f30d848..358ecc8 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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