Function: mail-source-call-script

mail-source-call-script is a byte-compiled function defined in mail-source.el.gz.

Signature

(mail-source-call-script SCRIPT)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mail-source.el.gz
(defun mail-source-call-script (script)
  (require 'gnus)
  (let (;; (background nil)
	(stderr (gnus-get-buffer-create " *mail-source-stderr*"))
	result)
    (when (string-match "& *$" script)
      (setq script (substring script 0 (match-beginning 0))
	    ;; background 0
	    ))
    (setq result
	  (call-process shell-file-name nil stderr nil
			shell-command-switch script))
    (if (and result
             (not (zerop result)))
        (progn
          (split-window-vertically)
          (other-window 1)
          (switch-to-buffer stderr)
          (message "Mail source error: %s " (buffer-string)))
      (kill-buffer stderr))))