From 603c5d8d67c202f99262acb7b569ca9c2203c48f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 31 Jan 2009 02:51:18 +0000 Subject: (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). --- lisp/mail/rmail.el | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index c960e8e413e..22774ba3340 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2353,18 +2353,22 @@ the message. Point is at the beginning of the message." ;;;; *** 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 @@ use \\[mail-yank-original] to yank the original message into it." (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 -- cgit v1.2.3