aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/mail
diff options
context:
space:
mode:
authorGlenn Morris2011-11-23 19:59:09 -0800
committerGlenn Morris2011-11-23 19:59:09 -0800
commitc0bc0fd4ff1e422d9f9d3662145c1f90649c4fc6 (patch)
tree495cbf0fa9352c6f513fcc3222cef57ea2176911 /lisp/mail
parentf8107b793900674f44a162ddc1d5bf4351be43bd (diff)
downloademacs-c0bc0fd4ff1e422d9f9d3662145c1f90649c4fc6.tar.gz
emacs-c0bc0fd4ff1e422d9f9d3662145c1f90649c4fc6.zip
Make rmail-mime toggle headers of non-mime messages.
* lisp/mail/rmailmm.el (rmail-mime): When rmail-enable-mime is non-nil, if called on a non-mime message just toggle the headers. Fixes: debbugs:8006
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/rmailmm.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index e53e0c0744e..d01cfc7f2c8 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -1269,7 +1269,8 @@ The arguments ARG and STATE have no effect in this case."
1269 (or arg (goto-char (point-min))) 1269 (or arg (goto-char (point-min)))
1270 (point)) 'rmail-mime-entity))) 1270 (point)) 'rmail-mime-entity)))
1271 (if (or (not arg) entity) (rmail-mime-toggle-raw state))) 1271 (if (or (not arg) entity) (rmail-mime-toggle-raw state)))
1272 (message "Not a MIME message"))) 1272 (message "Not a MIME message, just toggling headers")
1273 (rmail-toggle-header)))
1273 (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string)) 1274 (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string))
1274 (buf (get-buffer-create "*RMAIL*")) 1275 (buf (get-buffer-create "*RMAIL*"))
1275 (rmail-mime-mbox-buffer rmail-view-buffer) 1276 (rmail-mime-mbox-buffer rmail-view-buffer)