Return to mh-inc.ml CVS log

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

Annotation of 43BSD/contrib/mh/miscellany/mhe/mh-inc.ml, revision 1.1

1.1     ! root        1: ;  This autoloaded file implements the "i" command of mhe
        !             2: (defun 
        !             3:     (&mh-inc old-folder
        !             4:        (&mh-save-killbuffer)
        !             5:        (setq old-folder mh-folder)
        !             6:        (if (!= mh-folder "inbox")
        !             7:            (save-window-excursion  ffl
        !             8:                (setq ffl (get-folder-name "inc into" "inbox" 1))
        !             9:                (&mh-read-folder ffl "" t-buffer-filename ffl)
        !            10:            )
        !            11:        )
        !            12:        (message "Checking for new mail...") (sit-for 0)
        !            13:        (send-to-shell (concat mh-progs "/inc +" mh-folder))
        !            14:        (temp-use-buffer "mh-temp")
        !            15:        (beginning-of-file)
        !            16:        (if (looking-at "^Incorporating")
        !            17:            (progn 
        !            18:                   (pop-to-buffer (concat "+" old-folder))
        !            19:                   (switch-to-buffer (concat "+" mh-folder))
        !            20:                   (end-of-file)
        !            21:                   (&mh-update-headers)
        !            22:                   (&mh-unmark-all-headers 0)
        !            23:                   (beginning-of-line)
        !            24:                   (goto-character (+ (dot) 3))
        !            25:                   (delete-next-character)
        !            26:                   (insert-character '+')
        !            27:                   (beginning-of-line)
        !            28:                   (setq mh-direction 1)
        !            29:                   (temp-use-buffer "mh-temp") (erase-buffer)
        !            30:                   (insert-string global-mode-string)
        !            31:                   (beginning-of-file)
        !            32:                   (error-occured (search-forward " Mail")
        !            33:                       (region-around-match 0)
        !            34:                       (erase-region)
        !            35:                       (set-mark) (beginning-of-file)
        !            36:                       (setq global-mode-string (region-to-string))
        !            37:                   )
        !            38:                   (temp-use-buffer (concat "+" mh-folder))
        !            39:            )
        !            40:            (progn 
        !            41:                   (message "No new mail.") (sit-for 10)
        !            42:                   (send-string-to-terminal "")
        !            43:                   (pop-to-buffer (concat "+" mh-folder))
        !            44:            )
        !            45:        )
        !            46:        (&mh-restore-killbuffer)
        !            47:     )
        !            48: )

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