From aeb376ccb5c347fdac74a32affe42ae7b1a0abd9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 24 Sep 2004 09:52:10 +0000 Subject: [PATCH] Synch to No Gnus 200409240951. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-uu.el | 11 ++++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 1.7.10.4