Function: url-http-user-agent-string

url-http-user-agent-string is a byte-compiled function defined in url-http.el.gz.

Signature

(url-http-user-agent-string)

Documentation

Compute a User-Agent string.

The string is based on url-privacy-level and url-user-agent.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-http.el.gz
;; Building an HTTP request
(defun url-http-user-agent-string ()
  "Compute a User-Agent string.
The string is based on `url-privacy-level' and `url-user-agent'."
  (let* ((hide-ua
          (or (eq url-privacy-level 'paranoid)
              (and (listp url-privacy-level)
                   (memq 'agent url-privacy-level))))
         (ua-string
          (and (not hide-ua)
               (cond
                ((functionp url-user-agent) (funcall url-user-agent))
                ((stringp url-user-agent) url-user-agent)
                ((eq url-user-agent 'default) (url-http--user-agent-default-string))))))
    (if ua-string (format "User-Agent: %s\r\n" (string-trim ua-string)) "")))