From 4dc5fc8a219b39ca6a57c0d05e39a0f43e41b510 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 22 Jan 1999 05:32:23 +0000 Subject: [PATCH] * (gnus-inews-yank-articles): Fetch IDs from `gnus-current-headers' instead of article header. --- lisp/gnus-msg.el | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 47b3946..47423a5 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -311,8 +311,7 @@ If prefix argument YANK is non-nil, original article is yanked automatically." (let* ((more-than-one (> (length articles) 1)) (frame (when (and message-use-multi-frames more-than-one) (window-frame (get-buffer-window (current-buffer))))) - (refs "") - beg article references) + refs beg article references) (message-goto-body) (while (setq article (pop articles)) (save-window-excursion @@ -324,16 +323,13 @@ If prefix argument YANK is non-nil, original article is yanked automatically." ;; Gathering references. (when more-than-one - (save-current-buffer - (set-buffer (gnus-copy-article-buffer)) - (save-restriction - (message-narrow-to-head) - (setq refs (concat refs - (or (message-fetch-field "references") "") - " " - (or (message-fetch-field "message-id") "") - " "))))) + (setq refs + (append + refs + (split-string (mail-header-references gnus-current-headers)) + (list (mail-header-message-id gnus-current-headers))))) + (gnus-copy-article-buffer) (let ((message-reply-buffer gnus-article-copy) (message-reply-headers gnus-current-headers)) (message-yank-original) @@ -343,13 +339,13 @@ If prefix argument YANK is non-nil, original article is yanked automatically." (push-mark) ;; Eliminate duplicated references. - (unless (string-match "^ *$" refs) + (when refs (mapcar (lambda (ref) (or (zerop (length ref)) (member ref references) (setq references (append references (list ref))))) - (split-string refs))) + refs)) ;; Replace with the gathered references. (when references -- 1.7.10.4