Function: mail-source-set-common-1

mail-source-set-common-1 is a byte-compiled function defined in mail-source.el.gz.

Signature

(mail-source-set-common-1 SOURCE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mail-source.el.gz
(defun mail-source-set-common-1 (source)
  (let* ((type (pop source))
	 (defaults-1 (cdr (assq type mail-source-keyword-map)))
	 value keyword)
    (dolist (default mail-source-common-keyword-map)
      (set (mail-source-strip-keyword (setq keyword (car default)))
	   (if (setq value (plist-get source keyword))
	       (mail-source-value value)
	     (if (setq value (assq  keyword defaults-1))
		 (mail-source-value (cadr value))
	       (mail-source-value (cadr default))))))))