Changeset 4161 for trunk/lisp/gnus/gnus-util.el

Timestamp:

2006年09月09日 16時30分10秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/gnus/gnus-util.el (modified) (1 diff)

trunk/lisp/gnus/gnus-util.el

@@ -607 +607 @@
-         (substring gname (match-end 0))
-       gname)))
+
+(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)))))
-
-(defun gnus-make-sort-function (funs)