From: yamaoka <yamaoka>
Date: Fri, 24 Sep 2004 09:52:10 +0000 (+0000)
Subject: Synch to No Gnus 200409240951.
X-Git-Tag: t-gnus-6_17_4-quimby-~749
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aeb376ccb5c347fdac74a32affe42ae7b1a0abd9;p=elisp%2Fgnus.git-

Synch to No Gnus 200409240951.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e62aa6..83aae3c 100644
--- 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
--- 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