anchor.diff:         (gtk:gtk-box-pack-start horizontal-box-layout panel-buffer-container-right :expand nil)
          (gtk:gtk-box-pack-start root-box-layout horizontal-box-layout :expand t :fill t)
   
  -       (setf message-view (make-web-view))
  +       (setf message-view (make-web-view *global-profile* nil))
          (gtk:gtk-box-pack-end root-box-layout message-container :expand nil)
          (gtk:gtk-box-pack-start message-container message-view :expand t)
          (setf (gtk:gtk-widget-size-request message-container)
  
positive.code: (define-ffi-method ffi-buffer-make ((buffer gtk-buffer))
    "Initialize BUFFER's GTK web view."
    (unless (gtk-object buffer) ; Buffer may already have a view, e.g. the prompt-buffer.
      (setf (gtk-object buffer) (make-web-view :buffer buffer)))
    (when (navigable-buffer-p buffer)
      (if (smooth-scrolling buffer)
          (ffi-buffer-enable-smooth-scrolling buffer t)
  
negative.code:   (%within-renderer-thread-async
     (lambda ()
       (with-slots (gtk-object) buffer
         (setf gtk-object (make-web-view (profile buffer) buffer))
         (connect-signal-function
          buffer "decide-policy"
          (make-decide-policy-handler buffer))))))
  