Function: dns-get-txt-answer

dns-get-txt-answer is a byte-compiled function defined in dns.el.gz.

Signature

(dns-get-txt-answer ANSWERS)

Source Code

;; Defined in /usr/src/emacs/lisp/net/dns.el.gz
(defun dns-get-txt-answer (answers)
  (let ((result "")
	(do-next nil))
    (dolist (answer answers)
      (dolist (elem answer)
	(when (consp elem)
	  (cond
	   ((eq (car elem) 'type)
	    (setq do-next (eq (cadr elem) 'TXT)))
	   ((eq (car elem) 'data)
	    (when do-next
	      (setq result (concat result (dns-read-txt (cadr elem))))))))))
    result))