diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/miscellany/mhe/mh-edit.ml

   1 ;  This autoloaded file implements the "e" command of mhe
   2 (defun
   3     (&mh-edit msgn sm fn fl
   4         (save-excursion
   5             (pop-to-buffer (concat "+" mh-folder))
   6             (&mh-save-killbuffer)
   7             (delete-other-windows)
   8             (error-occured
   9                 (setq msgn (&mh-get-msgnum))
  10                 (setq fn (&mh-get-fname))
  11                 (setq fl mh-folder)
  12                 (setq sm mode-line-format)
  13                 (message "editing message " msgn)
  14                 (setq mode-line-format "{%b}    %[^X^F writes and exits to top level%]  ")
  15                 (pop-to-buffer "message")
  16                 (read-file fn)
  17                 (setq mode-line-format
  18                       (concat "{%b}     %[%p of +" fl "/" msgn
  19                               "%]       ^X^C exits to top level"))
  20                 (local-bind-to-key "exit-emacs" "\\18\\ 3")
  21                 (&mh-restore-killbuffer)
  22                 (recursive-edit)
  23                 (pop-to-buffer "message")
  24                 (setq mode-line-format
  25                       (concat "{%b}     %[%p of +" fl "/" msgn "%]"))
  26             )
  27         )
  28         (pop-to-buffer (concat "+" mh-folder))
  29         (setq mode-line-format sm)
  30     )
  31 )