Index: sbbs.el
==================================================================
--- sbbs.el
+++ sbbs.el
@@ -644,10 +644,12 @@
         (goto-char end)
         (insert style)
         (goto-char beg)
         (insert style)))
      (sbbs-format-word-at-point
+      (when current-prefix-arg
+        (sbbs-compose-unformat))
       (save-mark-and-excursion
         (let ((bounds (bounds-of-thing-at-point 'word)))
           (if bounds
               (progn
                 (set-mark (car bounds))