# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1233819536 0
# Node ID 47b9194b4a879a1da1d6ef6167fd59aa7b55a33c
# Parent  5e57e04731327e034dcfde6f8532ef382b2b3663
(rmail-duplicate-message): Make it work.

diff -r 5e57e0473132 -r 47b9194b4a87 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Feb 05 07:12:27 2009 +0000
+++ b/lisp/ChangeLog	Thu Feb 05 07:38:56 2009 +0000
@@ -12,7 +12,8 @@
 
 2009-02-05  Glenn Morris  <rgm@gnu.org>
 
-	* mail/rmail.el (rmail-what-message): Unbreak it.
+	* mail/rmail.el (rmail-what-message, rmail-duplicate-message):
+	Make these functions work.
 
 	* net/mairix.el (rmail-buffer): Remove unneeded eval-when-compile.
 	(rmail-narrow-to-non-pruned-header): Remove autoload.
diff -r 5e57e0473132 -r 47b9194b4a87 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Feb 05 07:12:27 2009 +0000
+++ b/lisp/mail/rmail.el	Thu Feb 05 07:38:56 2009 +0000
@@ -1442,16 +1442,27 @@
 The duplicate copy goes into the Rmail file just after the
 original copy."
   (interactive)
-  (widen)
-  (let ((buffer-read-only nil)
-	(number rmail-current-message)
-	(string (buffer-substring (rmail-msgbeg rmail-current-message)
-				  (rmail-msgend rmail-current-message))))
-    (goto-char (rmail-msgend rmail-current-message))
-    (insert string)
-    (rmail-forget-messages)
-    (rmail-show-message-maybe number)
-    (message "Message duplicated")))
+  ;; If we are in a summary buffer, switch to the Rmail buffer.
+  (set-buffer rmail-buffer)
+  (let ((buff (current-buffer))
+        (n rmail-current-message)
+        (beg (rmail-msgbeg rmail-current-message))
+        (end (rmail-msgend rmail-current-message)))
+    (if (rmail-buffers-swapped-p) (set-buffer rmail-view-buffer))
+    (widen)
+    (let ((buffer-read-only nil)
+          (string (buffer-substring-no-properties beg end)))
+      (goto-char end)
+      (insert string))
+    (set-buffer buff)
+    (rmail-swap-buffers-maybe)
+    (goto-char (point-max))
+    (rmail-set-message-counters)
+    (set-buffer-modified-p t)
+    (rmail-show-message n))
+  (if (rmail-summary-exists)
+      (rmail-select-summary (rmail-update-summary)))
+  (message "Message duplicated"))
 
 ;;;###autoload
 (defun rmail-input (filename)