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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8902a714ab924f33f1a3c4453758554bc955af6c..404324cb0e73b613e1e540dbc949c9384ca4056c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-24  Glenn Morris  <rgm@gnu.org>
+
+       * mail/rmailmm.el (rmail-mime): When rmail-enable-mime is non-nil,
+       if called on a non-mime message just toggle the headers.  (Bug#8006)
+
 2011-11-24  Juanma Barranquero  <lekktu@gmail.com>
 
        * allout.el (allout-setup, allout-auto-save-temporarily-disabled)

diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index e53e0c0744ee1ebc3b3d948e2c5680f1b638c148..d01cfc7f2c811887acfee6b9e5e64a14087bc753 100644 (file)
--- 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."
                             (or arg (goto-char (point-min)))
                             (point)) 'rmail-mime-entity)))
              (if (or (not arg) entity) (rmail-mime-toggle-raw state)))
-         (message "Not a MIME message")))
+         (message "Not a MIME message, just toggling headers")
+         (rmail-toggle-header)))
     (let* ((data (rmail-apply-in-message rmail-current-message 'buffer-string))
           (buf (get-buffer-create "*RMAIL*"))
           (rmail-mime-mbox-buffer rmail-view-buffer)