Synch to No Gnus 200409240951.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e62aa6..83aae3c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-24  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-uu.el (gnus-uu-digest-mail-forward): Obey the process/prefix
+       convention fully; don't miss the root article of a thread; make
+       the X-Draft-From header with correct article numbers.
+
 2004-09-23  Kevin Greiner  <kgreiner@compsol.cc>
 
        * gnus-agent.el (gnus-agent-synchronize-flags-server): Do nothing

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index f7908cd..9da4de0 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -479,7 +479,16 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
     (if (and n (not (numberp n)))
        (setq message-forward-as-mime (not message-forward-as-mime)
              n nil))
-    (let ((gnus-article-reply (gnus-summary-work-articles n)))
+    (let ((gnus-article-reply (gnus-summary-work-articles n))
+         gnus-newsgroup-processable)
+      (when (and (not n)
+                (= (length gnus-article-reply) 1))
+       ;; The case where neither a number of articles nor a region is
+       ;; specified.
+       (gnus-summary-top-thread)
+       (setq gnus-article-reply (gnus-uu-get-list-of-articles nil)))
+      ;; Specify articles to be forwarded.
+      (setq gnus-newsgroup-processable (copy-sequence gnus-article-reply))
       (gnus-setup-message 'forward
        (setq gnus-uu-digest-from-subject nil)
        (setq gnus-uu-digest-buffer