Function: gnus-url-parse-query-string

gnus-url-parse-query-string is a byte-compiled function defined in gnus-art.el.gz.

This function is obsolete since 28.1; use message-parse-mailto-url instead.

Signature

(gnus-url-parse-query-string QUERY &optional DOWNCASE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-url-parse-query-string (query &optional downcase)
  (declare (obsolete message-parse-mailto-url "28.1"))
  (let (retval pairs cur key val)
    (setq pairs (split-string query "&"))
    (while pairs
      (setq cur (car pairs)
	    pairs (cdr pairs))
      (if (not (string-match "=" cur))
	  nil                           ; Grace
	(setq key (gnus-url-unhex-string (substring cur 0 (match-beginning 0)))
	      val (gnus-url-unhex-string (substring cur (match-end 0) nil) t))
	(if downcase
	    (setq key (downcase key)))
	(setq cur (assoc key retval))
	(if cur
	    (setcdr cur (cons val (cdr cur)))
	  (setq retval (cons (list key val) retval)))))
    retval))