--- weblogger.el.orig	2005-10-03 18:44:47.000000000 -0400
+++ weblogger.el	2005-10-06 22:15:03.000000000 -0400
@@ -194,7 +194,7 @@
 (defvar weblogger-post-mode-hook nil
   "Hook to run after starting up weblogger mode.")
 
-(defvar weblogger-new-post-hook '(weblogger-ping-weblogs)
+(defvar weblogger-new-post-hook nil
   "Hook to run after sending a new post.  Typically, this is
 where you would put weblogger-ping-weblogs to let weblog
 aggregators know that you have updated.")
@@ -214,21 +214,39 @@
 (defvar weblogger-ring-index 0
   "Pointer to the index on the ring")
 
-(defvar weblogger-capabilities '(("blogger.newPost" . nil)
-				 ("blogger.editPost" . nil)
-				 ("blogger.getRecentPosts" . nil)
-				 ("blogger.getUsersBlogs" . nil)
+(defvar weblogger-capabilities '(("blogger.getUsersBlogs" . nil)
 				 ("blogger.getUserInfo" . nil)
-				 ("blogger.deletePost" . nil)
+				 ("blogger.getPost" . nil)
+				 ("blogger.getRecentPosts" . nil)
 				 ("blogger.getTemplate" . nil)
 				 ("blogger.setTemplate" . nil)
-				 ("metaWeblog.getPost" . nil)
+				 ("blogger.newPost" . nil)
+				 ("blogger.editPost" . nil)
+				 ("blogger.deletePost" . nil)
 				 ("metaWeblog.newPost" . nil)
 				 ("metaWeblog.editPost" . nil)
+				 ("metaWeblog.getPost" . nil)
 				 ("metaWeblog.getRecentPosts" . nil)
-				 ("mt.setPostCategories" . nil)
+				 ("metaWeblog.getCategories" . nil)
+				 ("metaWeblog.newMediaObject" . nil)
+				 ("metaWeblog.deletePost" . nil)
+				 ("metaWeblog.getTemplate" . nil)
+				 ("metaWeblog.setTemplate" . nil)
+				 ("metaWeblog.getUsersBlogs" . nil)
+				 ("mt.getCategoryList" . nil)
+				 ("mt.getRecentPostTitles" . nil)
 				 ("mt.getPostCategories" . nil)
-				 ("mt.getTrackbackPings" . nil))
+				 ("mt.setPostCategories" . nil)
+				 ("mt.supportedMethods" . nil)
+				 ("mt.supportedTextFilters" . nil)
+				 ("mt.getTrackbackPings" . nil)
+				 ("mt.publishPost" . nil)
+				 ("pingback.ping" . nil)
+				 ("pingback.extensions.getPingbacks" . nil)
+				 ("demo.sayHello" . nil)
+				 ("demo.addTwoNumbers" . nil))
+
+
   "Known capabilities of the remote host")
 
 (defvar weblogger-default-title ""
@@ -373,9 +391,11 @@
 	    (message-add-header (concat "Subject: " title)))
 	(message-add-header (concat "From: " 
 				    (or author weblogger-server-username)))))
-  (message-add-header (concat "Newsgroup: " 
-			      (weblogger-weblog-name-from-id 
-			       (weblogger-weblog-id))))
+;;  (insert (concat "Newsgroups: " 
+;;			      (weblogger-weblog-name-from-id 
+;;			       (weblogger-weblog-id))))
+  (insert "Subject: \n")
+  (insert "Keywords: \n")
   (insert mail-header-separator "\n"))
 
 (defun weblogger-send-post (&optional arg)
@@ -769,7 +789,7 @@
 	  (list
 	   (cons "title" (or (message-fetch-field "Subject") 
 			     weblogger-default-title))
-	   (cons "category" (or (message-tokenize-header 
+	   (cons "categories" (or (message-tokenize-header 
 				 (message-fetch-field "Keywords") ", ")
 				weblogger-default-categories))
 	   (if weblogger-ring-index