Those `mailcrypt' "push OK" boxes

["François Pinard" <pinard@iro.umontreal.ca>]

Hi, gang.

`mailcrypt' has this habit to write nice boxes with an OK button as windows
over the Emacs frame, forcing my hand to leave the keyboard, play with
the mouse and click on the said button.  This is surely nice, but neither
efficient nor ergonomic.  Maybe I'm not ready for user-friendliness! :-)

So, I decided to counter-attack with the following kludge.  Maybe it could
serve other people as well?



;; Override message-box (so we avoid the mouse from mailcrypt, for example).
(defun message-box (fmt &rest args)
  (let ((string (apply (function format) fmt args)))
    (ediff-select-lowest-window)
    (split-window-vertically)
    (ediff-select-lowest-window)
    (with-temp-buffer
      (switch-to-buffer (current-buffer))
      (insert string)
      (goto-char (point-min))
      (let ((window-min-height 2))
	(shrink-window-if-larger-than-buffer))
      (let ((cursor-in-echo-area t)
	    key)
	(while (not (memq key '(?\C-m ?\C-j)))
	  (setq key (read-char-exclusive (format "OK? [Enter] "))))))
    (delete-window)))
(autoload 'ediff-select-lowest-window "ediff-wind")

-- 
François Pinard                            mailto:pinard@iro.umontreal.ca
Join the free Translation Project!    http://www.iro.umontreal.ca/~pinard