Mercurial > emacs

diff lisp/gnus/gnus-util.el @ 72509:59dd12493697

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 126-127) - Merge from emacs--devo--0 - Update from CVS 2006-08-23 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> [ Backported bug fix from No Gnus. ] * lisp/gnus/gnus.el (gnus-find-method-for-group): On killed/unknown groups, try looking up the method using GROUP's prefix before inventing a new one. It is used on killed/unknown groups in various places where returning an all-new method isn't expected by the caller. * lisp/gnus/gnus-util.el (gnus-group-server): Copy required macro from No Gnus. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-410
author Miles Bader <miles@gnu.org>
date Fri, 25 Aug 2006 02:15:02 +0000
parents 2cd7cafcba54
children aeb79612dc36 6823a91487f2
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el	Thu Aug 24 23:40:00 2006 +0000
+++ b/lisp/gnus/gnus-util.el	Fri Aug 25 02:15:02 2006 +0000
@@ -607,6 +607,17 @@
 	 (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)
   "Return a composite sort condition based on the functions in FUNS."
   (cond