@@ -645,8 +645,10 @@
         (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