[Emacs-diffs] /srv/bzr/emacs/trunk r106501: Make rmail-mime toggle headers of non-mime messages.

[Glenn Morris]

------------------------------------------------------------
revno: 106501
fixes bug(s): http://debbugs.gnu.org/8006
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-11-23 19:59:09 -0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/mail/rmailmm.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-24 01:58:14 +0000
+++ b/lisp/ChangeLog    2011-11-24 03:59:09 +0000
@@ -1,3 +1,8 @@
+2011-11-24  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * allout.el (allout-setup, allout-auto-save-temporarily-disabled)

=== modified file 'lisp/mail/rmailmm.el'
--- a/lisp/mail/rmailmm.el      2011-11-22 02:55:06 +0000
+++ b/lisp/mail/rmailmm.el      2011-11-24 03:59:09 +0000
@@ -1269,7 +1269,8 @@
                             (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)