changeset 101695:6241a2905cf0

(rmail-msg-is-pruned): New (restored) function. (rmail-toggle-header): Doc fix. Use rmail-msg-is-pruned. (rmail-reply): Set up to yank from the decoded message rather than the raw one. (Bug#2104).

--- a/lisp/mail/rmail.el	Sat Jan 31 02:50:28 2009 +0000
+++ b/lisp/mail/rmail.el	Sat Jan 31 02:51:18 2009 +0000
@@ -2353,18 +2353,22 @@
 
 ;;;; *** Rmail Message Formatting and Header Manipulation ***
 
+;; This is used outside of rmail.
+(defun rmail-msg-is-pruned ()
+  "Return nil if the current message is showing full headers."
+  (with-current-buffer (if (rmail-buffers-swapped-p) rmail-view-buffer
+                         rmail-buffer)
+    (eq rmail-header-style 'normal)))
+
 (defun rmail-toggle-header (&optional arg)
-  "Show original message header if pruned header currently shown, or vice versa.
-With argument ARG, show the message header pruned if ARG is greater than zero;
-otherwise, show it in full."
+  "Toggle between showing full and normal message headers.
+With optional integer ARG, show the normal message header if ARG
+is greater than zero; otherwise, show it in full."
   (interactive "P")
   (let ((rmail-header-style
 	 (if (numberp arg)
 	     (if (> arg 0) 'normal 'full)
-	   (with-current-buffer (if (rmail-buffers-swapped-p)
-				    rmail-view-buffer
-				  rmail-buffer)
-	     (if (eq rmail-header-style 'full) 'normal 'full)))))
+           (if (rmail-msg-is-pruned) 'full 'normal))))
     (rmail-show-message-maybe)))
 
 (defun rmail-beginning-of-message ()
@@ -3367,7 +3371,9 @@
 			(mail-strip-quoted-names
 			 (if (null cc) to (concat to ", " cc))))))
 	 (if (string= cc-list "") nil cc-list)))
-     rmail-view-buffer
+     (if (rmail-buffers-swapped-p)
+	 rmail-buffer
+       rmail-view-buffer)
      (list (list 'rmail-mark-message
 		 rmail-buffer
 		 (with-current-buffer rmail-buffer