* gnus-msg.el (gnus-inews-insert-archive-gcc): Use the parent

name for gcc-self.

* gnus-sum.el (gnus-summary-enter-digest-group): Add
parent-group.

* gnus-art.el (gnus-ignored-headers): Add more headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 20cf2c0..7ce847d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2003-10-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-msg.el (gnus-inews-insert-archive-gcc): Use the parent
+       name for gcc-self.
+
+       * gnus-sum.el (gnus-summary-enter-digest-group): Add
+       parent-group. 
+
+       * gnus-art.el (gnus-ignored-headers): Add more headers.
+
        * rfc2047.el (rfc2047-encode): See which encoding is shorter --
        base64 or QP.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a254d7e..d066a13 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -149,7 +149,7 @@
      "X-Virus-Scanned" "X-Delivery-Agent" "Posted-Date" "X-Gateway"
      "X-Local-Origin" "X-Local-Destination" "X-UserInfo1"
      "X-Received-Date" "X-Hashcash" "Face" "X-DMCA-Notifications"
-     "X-Abuse-and-DMCA-Info" "X-Postfilter"))
+     "X-Abuse-and-DMCA-Info" "X-Postfilter" "X-Gpg-.*" "X-Disclaimer"))
   "*All headers that start with this regexp will be hidden.
 This variable can also be a list of regexps of headers to be ignored.
 If `gnus-visible-headers' is non-nil, this variable will be ignored."

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0b34f3c..de1a2f2 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1783,9 +1783,14 @@ this is a reply."
                     (if (string-match " " gcc-self-val)
                         (concat "\"" gcc-self-val "\"")
                       gcc-self-val)
-                  (if (string-match " " group)
-                      (concat "\"" group "\"")
-                    group)))
+                  ;; In nndoc groups, we use the parent group name
+                  ;; instead of the current group.
+                  ((let ((group (or (gnus-group-find-parameter
+                                     gnus-newsgroup-name 'parent-group)
+                                    group)))
+                     (if (string-match " " group)
+                         (concat "\"" group "\"")
+                       group)))))
                (if (not (eq gcc-self-val 'none))
                    (insert "\n")
                  (gnus-delete-line)))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 3b10e30..61f459f 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8188,6 +8188,7 @@ to guess what the document format is."
           (ogroup gnus-newsgroup-name)
           (params (append (gnus-info-params (gnus-get-info ogroup))
                           (list (cons 'to-group ogroup))
+                          (list (cons 'parent-group group))
                           (list (cons 'save-article-group ogroup))))
           (case-fold-search t)
           (buf (current-buffer))