From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/56918 Path: main.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.gnus.general Subject: nnir: nnir-group-server used before defined Date: Mon, 05 Apr 2004 15:48:44 +0200 Sender: ding-owner@lists.math.uh.edu Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1081173660 25082 80.91.224.253 (5 Apr 2004 14:01:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 5 Apr 2004 14:01:00 +0000 (UTC) Cc: ding@gnus.org Original-X-From: ding-owner+M5457@lists.math.uh.edu Mon Apr 05 16:00:54 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BAUek-0001q2-00 for ; Mon, 05 Apr 2004 16:00:54 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1BAUeR-0000YM-00; Mon, 05 Apr 2004 09:00:35 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1BAUTA-0000XV-00 for ding@lists.math.uh.edu; Mon, 05 Apr 2004 08:48:56 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1BAUT8-0007mE-Tl for ding@lists.math.uh.edu; Mon, 05 Apr 2004 08:48:54 -0500 Original-Received: from Cantor.suse.de (ns.suse.de [195.135.220.2]) by justine.libertine.org (Postfix) with ESMTP id CD0BD3A0239 for ; Mon, 5 Apr 2004 08:48:53 -0500 (CDT) Original-Received: from hermes.suse.de (Hermes.suse.de [195.135.221.8]) (using TLSv1 with cipher EDH-RSA-DES-CBC3-SHA (168/168 bits)) (No client certificate requested) by Cantor.suse.de (Postfix) with ESMTP id C94013EEC80; Mon, 5 Apr 2004 15:48:51 +0200 (CEST) Original-To: grossjohann@ls6.cs.uni-dortmund.de X-Yow: CALIFORNIA is where people from IOWA or NEW YORK go to subscribe to CABLE TELEVISION!! User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3.50 (gnu/linux) X-Spam-Score: -4.9 (----) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:56918 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:56918 The macro nnir-group-server is used before it is defined. Andreas. 2004-04-05 Andreas Schwab * nnir.el (nnir-group-server): Move before first use. --- gnus-5.10.6/contrib/nnir.el.~1~ 2003-10-24 23:43:57.000000000 +0200 +++ gnus-5.10.6/contrib/nnir.el 2004-04-05 15:45:34.000000000 +0200 @@ -693,6 +693,17 @@ that it is for Namazu, not Glimpse." (add-hook 'gnus-group-mode-hook 'nnir-group-mode-hook) =20 =20 +(defmacro nnir-group-server (group) + "Returns the server for a foreign newsgroup in the format as gnus-server= -to-method needs it. Compare to gnus-group-real-prefix and gnus-group-real-= name." + `(let ((gname ,group)) + (if (string-match "^\\([^:]+\\):" gname) + (setq gname (match-string 1 gname)) + nil) + (if (string-match "^\\([^+]+\\)\\+\\(.+\\)$" gname) + (format "%s:%s" (match-string 1 gname) (match-string 2 gname)) + (concat gname ":")) + )) + =20 ;; Summary mode commands. =20 @@ -1486,17 +1497,6 @@ form 'backend:name'." ;; (symbol-value key)) ;; )) =20 -(defmacro nnir-group-server (group) - "Returns the server for a foreign newsgroup in the format as gnus-server= -to-method needs it. Compare to gnus-group-real-prefix and gnus-group-real-= name." - `(let ((gname ,group)) - (if (string-match "^\\([^:]+\\):" gname) - (setq gname (match-string 1 gname)) - nil) - (if (string-match "^\\([^+]+\\)\\+\\(.+\\)$" gname) - (format "%s:%s" (match-string 1 gname) (match-string 2 gname)) - (concat gname ":")) - )) - (defun nnir-group-full-name (shortname server) "For the given group name, return a full Gnus group name. The Gnus backend/server information is added." --=20 Andreas Schwab, SuSE Labs, schwab@suse.de SuSE Linux AG, Maxfeldstra=DFe 5, 90409 N=FCrnberg, Germany Key fingerprint =3D 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5 "And now for something completely different."