Remove RCS ids, add arch tags

24 files changed, 50 insertions, 24 deletions

diff --git a/jabber-ahc-presence.el b/jabber-ahc-presence.el
index e6e15f6..8239e45 100644
--- a/jabber-ahc-presence.el
+++ b/jabber-ahc-presence.el
@@ -1,5 +1,4 @@
 ;; jabber-ahc-presence.el - provide remote control of presence
-;; $Id: jabber-ahc-presence.el,v 1.3 2004/03/13 11:33:25 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -102,3 +101,5 @@
 		(note ((type . "info")) "Presence has been changed."))))))
 
 (provide 'jabber-ahc-presence)
+
+;;; arch-tag: 4b8cbbe7-00a9-4d42-a4ac-b824ab914fba
diff --git a/jabber-ahc.el b/jabber-ahc.el
index 931aed6..24eea2f 100644
--- a/jabber-ahc.el
+++ b/jabber-ahc.el
@@ -1,5 +1,4 @@
 ;; jabber-ahc.el - Ad-Hoc Commands by JEP-0050
-;; $Id: jabber-ahc.el,v 1.6 2004/03/31 09:30:09 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -223,3 +222,5 @@ access allowed.  nil means open for everyone."
 		  #'jabber-process-data "Command execution failed"))
 
 (provide 'jabber-ahc)
+
+;;; arch-tag: c0d5ed8c-50cb-44e1-8e0f-4058b79ee353
diff --git a/jabber-alert.el b/jabber-alert.el
index 7072c06..454e12a 100644
--- a/jabber-alert.el
+++ b/jabber-alert.el
@@ -1,5 +1,4 @@
 ;; jabber-alert.el - alert hooks
-;; $Id: jabber-alert.el,v 1.3 2004/03/29 20:07:52 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -277,3 +276,5 @@ This function uses `jabber-info-message-alist' to find a message."
   (switch-to-buffer buffer))
 
 (provide 'jabber-alert)
+
+;;; arch-tag: 725bd73e-c613-4fdc-a11d-3392a7598d4f
diff --git a/jabber-browse.el b/jabber-browse.el
index b8ba7ef..b391a62 100644
--- a/jabber-browse.el
+++ b/jabber-browse.el
@@ -1,5 +1,4 @@
 ;; jabber-browse.el - jabber browsing by JEP-0011
-;; $Id: jabber-browse.el,v 1.3 2004/03/29 20:07:52 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -95,3 +94,5 @@
 	    (jabber-process-browse item))))))
 
 (provide 'jabber-browse)
+
+;;; arch-tag: be01ab34-96eb-4fcb-aa35-a0d3e6c446c3
diff --git a/jabber-chat.el b/jabber-chat.el
index 50cc6d9..430a072 100644
--- a/jabber-chat.el
+++ b/jabber-chat.el
@@ -1,5 +1,4 @@
 ;; jabber-chat.el - chat buffer display, basic groupchat functions
-;; $Id: jabber-chat.el,v 1.8 2004/04/06 11:32:12 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -220,3 +219,5 @@ TIMESTAMP is timestamp, or nil for now."
   (jabber-send-message to body nil "chat"))
 
 (provide 'jabber-chat)
+
+;;; arch-tag: a6cca037-2fcd-4e3b-8a40-d00523aebff5
diff --git a/jabber-core.el b/jabber-core.el
index 27e591f..a95accc 100644
--- a/jabber-core.el
+++ b/jabber-core.el
@@ -1,5 +1,4 @@
 ;; jabber-core.el - core functions
-;; $Id: jabber-core.el,v 1.9 2004/04/02 19:27:56 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -195,3 +194,5 @@ With prefix argument, register a new account."
   (process-send-string *jabber-connection* (jabber-sexp2xml sexp)))
 
 (provide 'jabber-core)
+
+;;; arch-tag: 9d273ce6-c45a-447b-abf3-21d3ce73a51a
diff --git a/jabber-disco.el b/jabber-disco.el
index 021b47b..226be6e 100644
--- a/jabber-disco.el
+++ b/jabber-disco.el
@@ -1,5 +1,4 @@
 ;; jabber-disco.el - service discovery functions
-;; $Id: jabber-disco.el,v 1.8 2004/04/03 09:01:08 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -199,3 +198,5 @@ See JEP-0030."
 		  #'jabber-process-data "Info discovery failed"))
 
 (provide 'jabber-disco)
+
+;;; arch-tag: 71f5c76f-2956-4ed2-b871-9f5fe198092d
diff --git a/jabber-feature-neg.el b/jabber-feature-neg.el
index 5c34a18..1fb8853 100644
--- a/jabber-feature-neg.el
+++ b/jabber-feature-neg.el
@@ -1,5 +1,4 @@
 ;; jabber-feature-neg.el - Feature Negotiation by JEP-0020
-;; $Id: jabber-feature-neg.el,v 1.2 2004/04/11 21:01:59 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -122,3 +121,5 @@ protocols."
 	alist)))
 
 (provide 'jabber-feature-neg)
+
+;;; arch-tag: 65b2cdcc-7a5f-476b-a613-84ec8e590186
diff --git a/jabber-ft-server.el b/jabber-ft-server.el
index 48742e8..20eaeca 100644
--- a/jabber-ft-server.el
+++ b/jabber-ft-server.el
@@ -1,5 +1,4 @@
 ;; jabber-ft-server.el - handle incoming file transfers, by JEP-0096
-;; $Id: jabber-ft-server.el,v 1.2 2004/04/11 21:01:59 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -84,3 +83,5 @@ is function to call to get more data."
 	(insert data)))))
 
 (provide 'jabber-ft-server)
+
+;;; arch-tag: 334adcff-6210-496e-8382-8f49ae0248a1
diff --git a/jabber-iq.el b/jabber-iq.el
index bc64bcd..96957fa 100644
--- a/jabber-iq.el
+++ b/jabber-iq.el
@@ -1,5 +1,4 @@
 ;; jabber-iq.el - infoquery functions
-;; $Id: jabber-iq.el,v 1.9 2004/03/29 23:13:47 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -161,3 +160,5 @@ See section 9.3 of XMPP Core."
       (run-hook-with-args 'jabber-alert-info-message-hooks 'browse (current-buffer) (funcall jabber-alert-info-message-function 'browse (current-buffer))))))
 
 (provide 'jabber-iq)
+
+;;; arch-tag: 5585dfa3-b59a-42ee-9292-803652c85e26
diff --git a/jabber-keymap.el b/jabber-keymap.el
index 8ee9562..877caa1 100644
--- a/jabber-keymap.el
+++ b/jabber-keymap.el
@@ -1,5 +1,4 @@
 ;; jabber-keymap.el - common keymap for many modes
-;; $Id: jabber-keymap.el,v 1.1 2004/03/29 23:13:47 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -33,3 +32,5 @@
   )
 
 (provide 'jabber-keymap)
+
+;;; arch-tag: 22a9993d-a4a7-40ef-a025-7cff6c3f5587
diff --git a/jabber-logon.el b/jabber-logon.el
index fcdf7ea..28c334a 100644
--- a/jabber-logon.el
+++ b/jabber-logon.el
@@ -1,5 +1,4 @@
 ;; jabber-logon.el - logon functions
-;; $Id: jabber-logon.el,v 1.2 2004/03/29 20:07:52 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -83,3 +82,5 @@ CLOSURE-DATA should be t on success and nil on failure."
     (jabber-disconnect)))
 
 (provide 'jabber-logon)
+
+;;; arch-tag: f24ebe5e-3420-44bb-af81-d4de21f378b0
diff --git a/jabber-menu.el b/jabber-menu.el
index 12c936e..3dc04b1 100644
--- a/jabber-menu.el
+++ b/jabber-menu.el
@@ -1,5 +1,4 @@
 ;; jabber-menu.el - menu definitions
-;; $Id: jabber-menu.el,v 1.1 2004/03/02 13:08:25 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -75,3 +74,5 @@
   (jabber-popup-menu (append jabber-jid-chat-menu jabber-jid-info-menu jabber-jid-roster-menu jabber-jid-muc-menu)))
 
 (provide 'jabber-menu)
+
+;;; arch-tag: 5147f52f-de47-4348-86ff-b799d7a75e3f
diff --git a/jabber-muc.el b/jabber-muc.el
index f698493..d1bdaad 100644
--- a/jabber-muc.el
+++ b/jabber-muc.el
@@ -1,5 +1,4 @@
 ;; jabber-muc.el - advanced MUC functions
-;; $Id: jabber-muc.el,v 1.1 2004/03/02 13:08:25 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -79,3 +78,5 @@
 		  nil nil nil nil))
 
 (provide 'jabber-muc)
+
+;;; arch-tag: 1ff7ab35-1717-46ae-b803-6f5b3fb2cd7d
diff --git a/jabber-presence.el b/jabber-presence.el
index 2b12716..ca081da 100644
--- a/jabber-presence.el
+++ b/jabber-presence.el
@@ -1,5 +1,4 @@
 ;; jabber-presence.el - roster and presence bookkeeping
-;; $Id: jabber-presence.el,v 1.7 2004/04/06 11:23:04 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -277,3 +276,5 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise."
 		  #'jabber-report-success "Roster item removal"))
 
 (provide 'jabber-presence)
+
+;;; arch-tag: b8616d4c-dde8-423e-86c7-da7b4928afc3
diff --git a/jabber-register.el b/jabber-register.el
index 9822fbd..b5f52ff 100644
--- a/jabber-register.el
+++ b/jabber-register.el
@@ -1,5 +1,4 @@
 ;; jabber-register.el - registration according to JEP-0077
-;; $Id: jabber-register.el,v 1.1 2004/03/02 13:08:25 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -126,3 +125,5 @@ CLOSURE-DATA is either 'success or 'error."
 		      #'jabber-report-success "Unregistration")))
 
 (provide 'jabber-register)
+
+;;; arch-tag: e6b349d6-b1ad-4d19-a412-74459dfae239
diff --git a/jabber-roster.el b/jabber-roster.el
index 4ba07f7..2c4ab2a 100644
--- a/jabber-roster.el
+++ b/jabber-roster.el
@@ -1,5 +1,4 @@
 ;; jabber-roster.el - displaying the roster
-;; $Id: jabber-roster.el,v 1.6 2004/03/29 23:13:47 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -146,3 +145,5 @@ bring up menus of actions.
 	(run-hook-with-args 'jabber-alert-info-message-hooks 'roster (current-buffer) (funcall jabber-alert-info-message-function 'roster (current-buffer))))))
 
 (provide 'jabber-roster)
+
+;;; arch-tag: 096af063-0526-4dd2-90fd-bc6b5ba07d32
diff --git a/jabber-search.el b/jabber-search.el
index 52f257a..d88a466 100644
--- a/jabber-search.el
+++ b/jabber-search.el
@@ -1,5 +1,4 @@
 ;; jabber-search.el - searching by JEP-0055, with x:data support
-;; $Id: jabber-search.el,v 1.2 2004/03/03 19:24:58 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -112,3 +111,5 @@
 	    (insert "\n"))))))
 
 (provide 'jabber-search)
+
+;;; arch-tag: c39e9241-ab6f-4ac5-b1ba-7908bbae009c
diff --git a/jabber-socks5.el b/jabber-socks5.el
index 0efb0a5..f23ea2b 100644
--- a/jabber-socks5.el
+++ b/jabber-socks5.el
@@ -1,5 +1,4 @@
 ;; jabber-socks5.el - SOCKS5 bytestreams by JEP-0065
-;; $Id: jabber-socks5.el,v 1.2 2004/04/11 21:01:59 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -121,3 +120,5 @@ Zeroconf is not supported."
      nil)))
 
 (provide 'jabber-socks5)
+
+;;; arch-tag: 9e70dfea-2522-40c6-a79f-302c8fb82ac5
diff --git a/jabber-version.el b/jabber-version.el
index a483277..2d2ef0d 100644
--- a/jabber-version.el
+++ b/jabber-version.el
@@ -1,5 +1,4 @@
 ;; jabber-version.el - version reporting by JEP-0092
-;; $Id: jabber-version.el,v 1.4 2004/03/29 20:07:52 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -69,3 +68,5 @@ determined from the incoming packet passed in XML-DATA."
 		    id)))
 
 (provide 'jabber-version)
+
+;;; arch-tag: 2051dbe7-01b5-401e-bd8a-fe24afb88e1e
diff --git a/jabber-widget.el b/jabber-widget.el
index b7b7ee3..cbe7a9b 100644
--- a/jabber-widget.el
+++ b/jabber-widget.el
@@ -1,5 +1,4 @@
 ;; jabber-widget.el - display various kinds of forms
-;; $Id: jabber-widget.el,v 1.4 2004/03/29 20:07:52 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -266,3 +265,5 @@ Return a list of strings, each of which to be included as cdata in a <value/> ta
 	(insert "\n")))))
 
 (provide 'jabber-widget)
+
+;;; arch-tag: da3312f3-1970-41d5-a974-14b8d76156b8
diff --git a/jabber-xml.el b/jabber-xml.el
index 96b894b..64d6434 100644
--- a/jabber-xml.el
+++ b/jabber-xml.el
@@ -1,5 +1,4 @@
 ;; jabber-xml.el - XML functions
-;; $Id: jabber-xml.el,v 1.3 2004/03/29 20:07:52 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -118,3 +117,5 @@ is not present, emulate it with `xml-get-attribute'."
 	 (and (> (length result) 0) result))))
 
 (provide 'jabber-xml)
+
+;;; arch-tag: ca206e65-7026-4ee8-9af2-ff6a9c5af98a
diff --git a/jabber.el b/jabber.el
index 7ffc0af..81dbe60 100644
--- a/jabber.el
+++ b/jabber.el
@@ -1,5 +1,4 @@
 ;; jabber.el - a minimal jabber client
-;; $Id: jabber.el,v 1.44 2004/04/03 20:00:29 legoscia Exp $
 
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net
 ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu
@@ -268,3 +267,5 @@ Offline is represented as nil."
   (info "jabber"))
 
 (provide 'jabber)
+
+;;; arch-tag: 5145153e-4d19-4dc2-800c-b1282feb155d
diff --git a/jabber.texi b/jabber.texi
index 4e7f379..8727015 100644
--- a/jabber.texi
+++ b/jabber.texi
@@ -1,5 +1,4 @@
 \input texinfo          @c -*-texinfo-*-
-@c $Id: jabber.texi,v 1.13 2004/04/02 19:36:09 legoscia Exp $
 @c %**start of header
 @setfilename jabber.info
 @settitle jabber.el manual 0.5
@@ -845,3 +844,7 @@ to change the behaviour of downstream functions.
 @printindex cp
 
 @bye
+
+@ignore
+   arch-tag: 995bf3da-0e87-4b15-895a-1e85fac139a2
+@end ignore