Interesting Emacs trick, insert spook words into a document.

;; To use this:
;;  Just before sending mail, do M-x spook.
;;  A number of phrases will be inserted into your buffer, to help
;;  give your message that extra bit of attractiveness for automated
;;  keyword scanners.  Help defeat the NSA trunk trawler!

Federal Aviation Administration MSNBC Flu UKUSA Electric Egret NTIS RL
FKS La Familia Suspicious package penrep NWO Air Marshal IRIDF

I am the psychotherapist.  Please, describe your problems.  Each time
you are finished talking, type RET twice.

(defun hsplit-parent ()
  "horizontal split of parent window, or curr if no parent."
  (let ((p (window-parent)))
    (if p
        (split-window p nil t)
      (split-window-horizontally))))

(defun baal-split-window-sensibly (&optional window)
  "Split WINDOW in a way suitable for `display-buffer'.
WINDOW defaults to the currently selected window.
If `split-width-threshold' specifies an integer, WINDOW is at
least `split-width-threshold' lines wide and can be split
horizontally, split WINDOW into two windows side by side and
return the right window.  Otherwise, if `split-height-threshold'
specifies an integer, WINDOW is at least `split-height-threshold'
columns tall and can be split vertically, split WINDOW into two
windows one above the other and return the lower window.  If this
can't be done either and WINDOW is the only window on its frame,
try to split WINDOW horizondally disregarding any value specified
by `split-width-threshold'.  If that succeeds, return the right
window.  Return nil otherwise.
 
By default `display-buffer' routines call this function to split
the largest or least recently used window.  To change the default
customize the option `split-window-preferred-function'.
 
You can enforce this function to not split WINDOW vertically,
by setting (or binding) the variable `split-height-threshold' to
nil.  If, in addition, you set `split-width-threshold' to zero,
chances increase that this function does split WINDOW horizontally.
 
In order to not split WINDOW horizontally, set (or bind) the
variable `split-width-threshold' to nil.  Additionally, you can
set `split-height-threshold' to zero to make a vertical split
more likely to occur.
 
Have a look at the function `window-splittable-p' if you want to
know how `split-window-sensibly' determines whether WINDOW can be
split."
  (let ((window (or window (selected-window))))
    (or (and (window-splittable-p window t)
             ;; Split window horizontally.
             (with-selected-window window
               (split-window-right)))
        (and (window-splittable-p window)
             ;; Split window vertically.
             (with-selected-window window
               (split-window-below)))
        (and
         ;; If WINDOW is the only usable window on its frame (it is
         ;; the only one or, not being the only one, all the other
         ;; ones are dedicated) and is not the minibuffer window, try
         ;; to split it horizontally disregarding the value of
         ;; `split-width-threshold'.
         (let ((frame (window-frame window)))
           (or
            (eq window (frame-root-window frame))
            (catch 'done
              (walk-window-tree (lambda (w)
                                  (unless (or (eq w window)
                                              (window-dedicated-p w))
                                    (throw 'done nil)))
                                frame nil 'nomini)
              t)))
         (not (window-minibuffer-p window))
         (let ((split-width-threshold 0))
           (when (window-splittable-p window)
             (with-selected-window window
               (split-window-right))))))))
 
(setq split-window-preferred-function #'baal-split-window-sensibly)
 
(setq split-height-threshold nil
      split-width-threshold 120)
 
(defun baal-set-split-width-threshold (fn &rest args)
  (let ((split-width-threshold (* (frame-width) 0.55)))
    (apply fn args)))
 
(advice-add 'window-splittable-p :around #'baal-set-split-width-threshold)