From f85e03e73141110e7c34adb68c1e041889a71227 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 Mar 1999 07:43:37 +0000 Subject: [PATCH] * gnus.el: Semi-gnus 6.10.10 is released. * message.el (message-yank-original): Keep the existing references. --- lisp/gnus.el | 2 +- lisp/message.el | 13 ++++++++++--- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/gnus.el b/lisp/gnus.el index 71b3145..a97e452 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -253,7 +253,7 @@ is restarted, and sometimes reloaded." (defconst gnus-product-name "Semi-gnus" "Product name of this version of gnus.") -(defconst gnus-version-number "6.10.9" +(defconst gnus-version-number "6.10.10" "Version number for this version of gnus.") (defconst gnus-version diff --git a/lisp/message.el b/lisp/message.el index f1098ff..5a6afa2 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1868,20 +1868,27 @@ be added to \"References\" field." (interactive "P") (let ((modified (buffer-modified-p)) (buffer (message-eval-parameter message-reply-buffer)) - refs) + start end refs) (when (and buffer message-cite-function) (delete-windows-on buffer t) (insert-buffer buffer) ; mark will be set at the end of article. + (setq start (point) + end (mark t)) ;; Add new IDs to References field. (when (and message-yank-add-new-references (interactive-p)) (save-excursion (save-restriction - (narrow-to-region (point) (mark t)) + (message-narrow-to-headers) + (setq refs (message-list-references + nil + (message-fetch-field "References"))) + (widen) + (narrow-to-region start end) (std11-narrow-to-header) (when (setq refs (message-list-references - '() + refs (or (message-fetch-field "References") (message-fetch-field "In-Reply-To")) (message-fetch-field "Message-ID"))) -- 1.7.10.4