|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T m
Length: 1401 (0x579)
Types: TextFile
Names: »mh-inc.ml«
└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
└─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z«
└─⟦c75e36ecb⟧
└─⟦this⟧ »mh-6.7/miscellany/mhe/mh-inc.ml«
; This autoloaded file implements the "i" command of mhe
(defun
(&mh-inc old-folder
(&mh-save-killbuffer)
(setq old-folder mh-folder)
(if (!= mh-folder "inbox")
(save-window-excursion ffl
(setq ffl (get-folder-name "inc into" "inbox" 1))
(&mh-read-folder ffl "" t-buffer-filename ffl)
)
)
(message "Checking for new mail...") (sit-for 0)
(send-to-shell (concat mh-progs "/inc +" mh-folder))
(temp-use-buffer "mh-temp")
(beginning-of-file)
(if (looking-at "^Incorporating")
(progn
(pop-to-buffer (concat "+" old-folder))
(switch-to-buffer (concat "+" mh-folder))
(end-of-file)
(&mh-update-headers)
(&mh-unmark-all-headers 0)
(beginning-of-line)
(goto-character (+ (dot) 3))
(delete-next-character)
(insert-character '+')
(beginning-of-line)
(setq mh-direction 1)
(temp-use-buffer "mh-temp") (erase-buffer)
(insert-string global-mode-string)
(beginning-of-file)
(error-occured (search-forward " Mail")
(region-around-match 0)
(erase-region)
(set-mark) (beginning-of-file)
(setq global-mode-string (region-to-string))
)
(temp-use-buffer (concat "+" mh-folder))
)
(progn
(message "No new mail.") (sit-for 10)
(send-string-to-terminal "▶07◀")
(pop-to-buffer (concat "+" mh-folder))
)
)
(&mh-restore-killbuffer)
)
)