From 3f72e0c15c56fe6b49b526dcfb106d31b4d50f31 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 Mar 1999 07:41:00 +0000 Subject: [PATCH] * gnus.el (gnus-revision-number): Increment to 02. * 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 52d1d8a..ab038b7 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -268,7 +268,7 @@ is restarted, and sometimes reloaded." (defconst gnus-version-number "6.10.062" "Version number for this version of gnus.") -(defconst gnus-revision-number "01" +(defconst gnus-revision-number "02" "Revision number for this version of gnus.") (defconst gnus-original-version-number "0.80" diff --git a/lisp/message.el b/lisp/message.el index e002f95..7254eac 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2070,20 +2070,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