procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-toggle-header): Determine current header

Browse source 
style using the buffer-local value of rmail-header-style in the
view buffer.
(rmail-show-message): Set a buffer-local value of
rmail-header-style in the view buffer.
This commit is contained in:
Chong Yidong 2009-01-29 14:09:36 +00:00
parent 7c2758bf33
commit 00c6f62e66
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/mail/rmail.el
View file

@ -2358,10 +2358,12 @@ With argument ARG, show the message header pruned if ARG is greater than zero;
otherwise, show it in full."
(interactive "P")
(let ((rmail-header-style
(cond
((and (numberp arg) (> arg 0)) 'normal)
((eq rmail-header-style 'full) 'normal)
(t 'full))))
(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)))))
(rmail-show-message-maybe)))
(defun rmail-beginning-of-message ()
@ -2475,7 +2477,8 @@ range (displaying a reasonable choice as well), nil otherwise.
The current mail message becomes the message displayed."
(let ((mbox-buf rmail-buffer)
(view-buf rmail-view-buffer)
blurb beg end body-start coding-system character-coding is-text-message)
blurb beg end body-start coding-system character-coding
is-text-message header-style)
(if (not msg)
(setq msg rmail-current-message))
(unless (setq blurb (rmail-no-mail-p))
@ -2489,6 +2492,7 @@ The current mail message becomes the message displayed."
blurb "No following message"))
(t (setq rmail-current-message msg)))
(with-current-buffer rmail-buffer
(setq header-style rmail-header-style)
;; Mark the message as seen, bracket the message in the mail
;; buffer and determine the coding system the transfer encoding.
(rmail-set-attribute rmail-unseen-attr-index nil)
@ -2510,6 +2514,11 @@ The current mail message becomes the message displayed."
;; unibyte temporary buffer where the character decoding takes
;; place.
(with-current-buffer rmail-view-buffer
;; We give the view buffer a buffer-local value of
;; rmail-header-style based on the binding in effect when
;; this function is called; `rmail-toggle-headers' can
;; inspect this value to determine how to toggle.
(set (make-local-variable 'rmail-header-style) header-style)
(erase-buffer))
(if (null character-coding)
;; Do it directly since that is fast.