Function: gnus-server-add-address

gnus-server-add-address is a byte-compiled function defined in gnus.el.gz.

Signature

(gnus-server-add-address METHOD)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus.el.gz
;;; Servers and groups.

(defsubst gnus-server-add-address (method)
  (let ((method-name (symbol-name (car method))))
    (if (and (memq 'address (assoc method-name gnus-valid-select-methods))
	     (not (assq (intern (concat method-name "-address")) method))
	     (memq 'physical-address (assq (car method)
					   gnus-valid-select-methods)))
	(append method (list (list (intern (concat method-name "-address"))
				   (nth 1 method))))
      method)))