Return to mh-exit.ml CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe

Annotation of 43BSD/contrib/mh/miscellany/mhe/mh-exit.ml, revision 1.1.1.1

1.1       root        1: ; This file implements the autoloaded "exit" function (not a command) of mhe.
                      2: (defun 
                      3:     (&mh-exit ans retval
                      4:        (temp-use-buffer "cmd-buffer")
                      5:        (setq retval 0)
                      6:        (setq ans (get-response "Preparing to exit. Action? [q, e, u, ?] "
                      7:                      "qQeEuU\" 
                      8:                      "q: quit (don't process) e: exit (after processing) u: undo (don't exit)"))
                      9:        (if (| (= ans 'q') (= ans '\'))
                     10:            (progn
                     11:                  (temp-use-buffer "cmd-buffer") (setq ans 'y')
                     12:                  (if (> (buffer-size) 0)
                     13:                      (setq ans
                     14:                            (get-response "Really exit without processing? "
                     15:                                "yYnN\" "y for Yes or n for No")))
                     16:                  (if (| (= ans 'y') (= ans '\'))
                     17:                      (progn
                     18:                            (pop-to-buffer (concat "+" mh-folder))
                     19:                            (erase-buffer)
                     20:                            (setq retval 1)
                     21:                      )
                     22:                  )
                     23:            )
                     24:            (= ans 'e')
                     25:            (progn
                     26:                  (temp-use-buffer "cmd-buffer")
                     27:                  (if (!= 0 (buffer-size))
                     28:                      (progn
                     29:                            (temp-use-buffer "cmd-buffer")
                     30:                            (message "Processing deletes and moves...")
                     31:                            (beginning-of-file)
                     32:                            (split-long-lines)
                     33:                            (beginning-of-file) (set-mark) (end-of-file)
                     34:                            (progn s
                     35:                                  (setq s (region-to-string))
                     36:                                  (send-to-shell s)
                     37:                                  (setq buffer-is-modified 0)
                     38:                                  (temp-use-buffer (concat "+" mh-folder))
                     39:                                  (&mh-make-headers-current)
                     40:                                  (setq buffer-is-modified 0)
                     41:                                  (setq retval 1)
                     42:                            )
                     43:                      )
                     44:                      (setq retval 1)
                     45:                  )
                     46:            )
                     47:        )
                     48:        (sit-for 10)
                     49:        retval
                     50:     )
                     51:     
                     52:     (split-long-lines t s      ; make sure no overlong lines in cmd-buffer
                     53:        (beginning-of-file)
                     54:        (while (! (eobp))
                     55:               (next-line)
                     56:               (while
                     57:                     (progn (beginning-of-line)
                     58:                            (setq t (dot)) (end-of-line) (> (dot) (+ t 200)))
                     59:                     (beginning-of-line) (set-mark)
                     60:                     (if (looking-at "rmm")
                     61:                         (progn (forward-word) (forward-word) (forward-word)
                     62:                                (backward-word))
                     63:                         (looking-at "filem")
                     64:                         (progn (forward-word) (forward-word)
                     65:                                (forward-word) (forward-word)
                     66:                                (forward-word) (backward-word))
                     67:                     )
                     68:                     (setq s (region-to-string)) (beginning-of-line)
                     69:                     (goto-character (+ (dot) 200)) (backward-word)
                     70:                     (delete-previous-character) (newline)
                     71:                     (insert-string s)
                     72:               )
                     73:        )
                     74:        (setq buffer-is-modified 0)
                     75:     )
                     76: )

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.