  :version twit-version-number)
 (provide 'twit)
 
+
+;;* testing auth
+(when nil
+
+	  (with-twitter-auth "twit_el" twit-pass
+		(message "auth: %s" (symbol-value url-basic-auth-storage))
+		(twit-post-status twit-update-url "Testing again.  Hopefully authentication works this time."))
+
+	  (with-twitter-auth "jonnay" twit-pass
+		(message "auth: %s" (symbol-value url-basic-auth-storage))
+		(twit-show-recent-tweets))
+	  
+	  )
+
+;;* testing 
+(when nil
+
+	  (shell-command "emacs --no-site-file --no-init-file &" nil nil)
+;; copy/paste to new emacs instance.
+(load "~/my-elisp/twit.el")
+(twit-show-recent-tweets)
+(twit-follow-recent-tweets)
+	  )
+
+;;* posting
+(when nil
+	  (let* ((summary " - 0.2.1  - Fixed a bug that put the list of tweets on the kill ring.
+         - removed twit-grab-author-of-tweet, (its superceeded by
+           (twit-get-text-property 'twit-user)  
+         - added with-twit-auth macro, so that you can use more then
+           one twitter account.  Better support forthcoming)
+         - fixed potential auth bug with https
+         - added function to visit url (current url, users twit url)
+         - fixed regex for @tweets and #tags.
+         - tweaked get-friends
+         - made twit-filter-at-tweets use get-friends cache, so you
+           don't need images on.
+         - Added ascii logo to title bar 
+         - fixed a bug in image retrieval that would try to retrieve
+           the image through a POST method instead of GET." )
+			 (short-summary "LOTS of Bug fixing, basic multi-account support, custom url support.")
+			 (twit-post (concat "New #twit.el: http://www.emacswiki.org/emacs-en/twit.el. " short-summary)))
+		(yaoddmuse-post-library "twit.el" "EmacsWiki" "twit.el" summary t)
+		(twit-post-status twit-update-url twit-post)
+		(with-twit-auth "twit_el" twit-pass (twit-post-status twit-update-url twit-post))
+		(twit-show-recent-tweets))
+	  )
 ;;; twit.el ends here

(defun twit-write-search (atom-data)
  "This function writes atom-based search data."
  (buffer-disable-undo)
  (delete-region (point-min) (point-max))
  (twit-display-error atom-data)
  (twit-write-title "Search (%s): %s \n" (xml-first-childs-value (cadr atom-data) 'title) (format-time-string "%c"))
  (dolist (entry-node (xml-get-children (cadr atom-data) 'entry))

  :type '(repeat string)
  :group 'twit)

;;* face
(defface twit-message-face
  '((default
	  :family "helv"
