ap: Fix write past end of addrs[] array.

[nmh] / docs / historical / mh-6.8.5 / miscellany / mhe / mh-shell.ml

; These functions are used to run shell commands and check for errors.
; this file is loaded from mh-e with an explicit load command.
(defun
    (send-to-shell pname progress
        (save-excursion
            (temp-use-buffer "mh-temp") (erase-buffer)
            (insert-string (arg 1))
            (beginning-of-file) (setq progress -1)
            (while (& (! (eobp)) (< progress 50))
                   (beginning-of-line)
                   (setq progress (+ progress 1))
                   (if (! (eolp))
                       (progn 
                              (set-mark) (end-of-line)
                              (setq pname (region-to-string))
                              (delete-to-killbuffer)
                              (fast-filter-region pname)
                       )
                   )
                   (next-line)
            )
        )
    )
    
    (show-shell-errors
        (save-excursion 
            (temp-use-buffer "mh-temp")
            (if (!= (buffer-size) 0)
                (progn
                      (pop-to-buffer "mh-temp")
                      (sit-for 0)
                      (beginning-of-file) (set-mark)
                      (error-occured (re-replace-string "\n\n* *" "; "))
                      (end-of-line)
                      (backward-character) (backward-character)
                      (kill-to-end-of-line)
                      (send-string-to-terminal "\\a")
                      (message (region-to-string))
                      (send-string-to-terminal "\\a")
                      (sit-for 15)
                )
            )
        )
    )
)