From: Andreas Schwab <schwab@suse.de>
Cc: ding@gnus.org
Subject: nnir: nnir-group-server used before defined
Date: Mon, 05 Apr 2004 15:48:44 +0200 [thread overview]
Message-ID: <je4qrybkn7.fsf@sykes.suse.de> (raw)
The macro nnir-group-server is used before it is defined.
Andreas.
2004-04-05 Andreas Schwab <schwab@suse.de>
* 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)
+(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 ":"))
+ ))
+
;; Summary mode commands.
@@ -1486,17 +1497,6 @@ form 'backend:name'."
;; (symbol-value key))
;; ))
-(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."
--
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux AG, Maxfeldstraße 5, 90409 Nürnberg, Germany
Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5
"And now for something completely different."
next reply other threads:[~2004-04-05 13:48 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-04-05 13:48 Andreas Schwab [this message]
2004-04-05 14:20 ` Reiner Steib
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=je4qrybkn7.fsf@sykes.suse.de \
--to=schwab@suse.de \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).