Function: newsticker--image-download-by-wget

newsticker--image-download-by-wget is a byte-compiled function defined in newst-backend.el.gz.

Signature

(newsticker--image-download-by-wget FEED-NAME FILENAME DIRECTORY URL)

Documentation

Download image for FEED-NAME using external program.

Save image as FILENAME in DIRECTORY, download it from URL.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-backend.el.gz
(defun newsticker--image-download-by-wget (feed-name filename directory url)
  "Download image for FEED-NAME using external program.
Save image as FILENAME in DIRECTORY, download it from URL."
  (let* ((proc-name (concat feed-name "-" filename))
         (buffername (concat " *newsticker-wget-image-" proc-name "*"))
         (item (or (assoc feed-name newsticker-url-list)
                   (assoc feed-name newsticker-url-list-defaults)
                   (error
                    "Cannot get image for %s: Check newsticker-url-list"
                    feed-name)))
         (wget-arguments (or (car (cdr (cdr (cdr (cdr item)))))
                             newsticker-wget-arguments)))
    (with-current-buffer (get-buffer-create buffername)
      (erase-buffer)
      ;; throw an error if there is an old wget-process around
      (if (get-process feed-name)
          (error "Another wget-process is running for image %s"
                 feed-name))
      ;; start wget
      (let* ((args (append wget-arguments (list url)))
             (proc (apply #'start-process proc-name buffername
                          newsticker-wget-name args)))
        (set-process-coding-system proc 'no-conversion 'no-conversion)
        (set-process-sentinel proc #'newsticker--image-sentinel)
        (process-put proc 'nt-directory directory)
        (process-put proc 'nt-feed-name feed-name)
        (process-put proc 'nt-filename filename)))))