(defun vm-display-current-message-buffer (&optional no-highlighting) (byte-code " ! q ! !?‰p=== @HH!qԎp`p!?p!?p m d = p!)pp! q !   \" !dY e\"))) ? ! = ?p= @HH!qގ @p!\"))+" [vm-mail-buffer vm-summary-buffer nil point msg-buf sized vm-sbe-buffer major-mode vm-message-list vm-message-pointer vm-mutable-windows pop-up-windows t w no-highlighting buffer-name bufferp vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) get-buffer-window vm-set-window-configuration showing-message display-buffer switch-to-buffer set-window-point window-start set-window-start vm-proportion-windows ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) vm-highlight-headers] 19)) (defun vm-proportion-windows nil (byte-code " ! qp =\" \" @HH!qΎ!?7 \"\"= Up!p!! !Z\"\"Z  !! ! >~ )+p!p!! \"\"Z  !! ! > )+))" [vm-mail-buffer vm-sbe-buffer major-mode vm-message-list vm-message-pointer t mail-w n vm-mail-window-percentage old-w buffer-name vm-virtual-mode marker-buffer 0 ((byte-code "p=?!q" [vm-sbe-buffer buffer-name] 2)) one-window-p selected-window next-window window-width screen-width get-buffer-window window-height / * screen-height minibuffer-window 100 select-window shrink-window (vm-summary-mode vm-virtual-mode) vm-auto-center-summary shrink-window-horizontally (vm-summary-mode vm-virtual-mode)] 34)) (defun vm-load-window-configurations (file) (byte-code "Î!q ȏ)))" [work-buffer vm-window-configurations nil ((byte-code "!" [work-buffer kill-buffer] 2)) get-buffer-create "*vm-wconfig*" erase-buffer (byte-code "!p!" [file insert-file-contents read] 3) ((error (byte-code "" [nil] 1)))] 5)) (defun vm-store-window-configurations (file) (byte-code "Ď!q p\"ed %)))" [work-buffer vm-window-configurations file nil ((byte-code "!" [work-buffer kill-buffer] 2)) get-buffer-create "*vm-wconfig*" erase-buffer print write-region 0] 9)) (defun vm-set-window-configuration (&rest tags) (byte-code "" [done (byte-code " ?(@\"A 1\" !! >W T !T qp =pp n @HH! ! !?ȉ p    8# 8! q@)." [scratch summary message composition config p tags vm-window-configurations nil t major-mode vm-mail-buffer vm-message-pointer vm-summary-buffer vm-window-configuration "*scratch*" assq throw done vm-copy vm-find-composition-buffer (vm-summary-mode mail-mode) buffer-name vm-virtual-mode marker-buffer 0 bufferp screen-replace-map-element 1 symbol-value set-screen-map] 12)] 2)) (defun vm-save-window-configuration (tag) (interactive (byte-code "?! $!C" [vm-window-configuration-file vm-supported-window-configurations t error "Configurable windows not enabled." intern completing-read "Name this window configuration: " identity] 7)) (byte-code "ň? !  # &\" : A \"D DB!\"*" [vm-window-configuration-file vm-supported-window-configurations t map p nil tag vm-window-configurations error "Configurable windows not enabled." screen-map screen-replace-map-element buffer-name vm-screen-buffer-to-label screen-nullify-map-elements assq setcar vm-store-window-configurations message "%s configuration recorded"] 11)) (defun vm-screen-buffer-to-label (buf) (byte-code "q >Ă# =Ƃ# =\"Ȃ#)" [buf major-mode t (vm-virtual-mode vm-summary-mode) summary mail-mode composition vm-mode message] 2)) (defun vm-delete-window-configuration (tag) (interactive (byte-code "?! $!C" [vm-window-configuration-file vm-window-configurations t error "Configurable windows not enabled." intern completing-read "Delete window configuration: " identity] 7)) (byte-code "ň? ! \" , @=& A, \")! \"" [vm-window-configuration-file vm-window-configurations t p tag nil error "Configurable windows not enabled." assq delq vm-store-window-configurations message "%s configuration deleted"] 7)) (defun vm-apply-window-configuration (tag) (interactive (byte-code "?! $!C" [vm-window-configuration-file vm-window-configurations t error "Configurable windows not enabled." intern completing-read "Apply window configuration: " identity] 7)) (byte-code "Ĉ? ! !" [vm-window-configuration-file vm-window-configurations t tag nil error "Configurable windows not enabled." vm-set-window-configuration] 3)) (defun vm-window-help nil (interactive) (byte-code "!" [nil message "WS = save configuration, WD = delete configuration, WW = apply configuration"] 2))