X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-msg.el;h=c4bf6bfc6389b738e9e0ce9737cc2a6f28d46e3f;hb=9b6c272d50c6896583a69d40d9e9b15cabaf4247;hp=0af33a3399b71b284338fc5ecc686618090656a7;hpb=05b270a99e73d580ca1b51dbc79b41a7a22cea97;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0af33a3..c4bf6bf 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -352,10 +352,10 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
   (gnus-summary-followup (gnus-summary-work-articles arg) t))
 
 (defun gnus-inews-yank-articles (articles)
-  (let* ((more-than-one (> (length articles) 1))
+  (let* ((more-than-one (cdr articles))
 	 (frame (when (and message-use-multi-frames more-than-one)
 		  (window-frame (get-buffer-window (current-buffer)))))
-	 refs beg article references)
+	 refs beg article)
     (message-goto-body)
     (while (setq article (pop articles))
       (save-window-excursion
@@ -367,11 +367,10 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
 
       ;; Gathering references.
       (when more-than-one
-	(setq refs
-	      (append
-	       refs
-	       (split-string (mail-header-references gnus-current-headers))
-	       (list (mail-header-message-id gnus-current-headers)))))
+	(setq refs (message-list-references
+		    refs
+		    (mail-header-references gnus-current-headers)
+		    (mail-header-message-id gnus-current-headers))))
 
       (gnus-copy-article-buffer)
       (let ((message-reply-buffer gnus-article-copy)
@@ -382,17 +381,8 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
 	(insert "\n")))
     (push-mark)
 
-    ;; Eliminate duplicated references.
-    (when refs
-      (mapcar
-       (lambda (ref)
-	 (or (zerop (length ref))
-	     (member ref references)
-	     (setq references (append references (list ref)))))
-       refs))
-
     ;; Replace with the gathered references.
-    (when references
+    (when refs
       (push-mark beg)
       (save-restriction
 	(message-narrow-to-headers)
@@ -404,7 +394,7 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
 	 (list (or (assq 'References message-header-format-alist)
 		   '(References . message-shorten-references)))
 	 (list (cons 'References
-		     (mapconcat 'identity references " "))))
+		     (mapconcat 'identity (nreverse refs) " "))))
 	(backward-delete-char 1))
       (setq beg (mark t))
       (pop-mark))