![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mh-inc.ml CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe|
Return to mh-inc.ml CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe |
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.