Function: gnus-group-server

gnus-group-server is a macro defined in gnus-util.el.gz.

Signature

(gnus-group-server GROUP)

Documentation

Find the server name of a foreign newsgroup.

For example, (gnus-group-server "nnimap+yxa:INBOX.foo") would yield "nnimap:yxa".

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defmacro gnus-group-server (group)
  "Find the server name of a foreign newsgroup.
For example, (gnus-group-server \"nnimap+yxa:INBOX.foo\") would
yield \"nnimap:yxa\"."
  `(let ((gname ,group))
     (if (string-match "^\\([^:+]+\\)\\(?:\\+\\([^:]*\\)\\)?:" gname)
	 (format "%s:%s" (match-string 1 gname) (or
						 (match-string 2 gname)
						 ""))
       (format "%s:%s" (car gnus-select-method) (cadr gnus-select-method)))))