* gnus-sum.el (gnus-summary-enter-digest-group): ogroup, nor

group.

(gnus-inews-insert-archive-gcc): Paren mistake.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ce847d..d9523e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,11 @@
 2003-10-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-sum.el (gnus-summary-enter-digest-group): ogroup, nor
+       group. 
+
        * gnus-msg.el (gnus-inews-insert-archive-gcc): Use the parent
        name for gcc-self.
+       (gnus-inews-insert-archive-gcc): Paren mistake.
 
        * gnus-sum.el (gnus-summary-enter-digest-group): Add
        parent-group. 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index de1a2f2..0357e68 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1785,12 +1785,12 @@ this is a reply."
                       gcc-self-val)
                   ;; 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)))))
+                  (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 61f459f..c92a246 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8188,7 +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 'parent-group ogroup))
                           (list (cons 'save-article-group ogroup))))
           (case-fold-search t)
           (buf (current-buffer))