emacs-jabber jabber-util.el,2.52,2.53

[Magnus H. <leg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv7427

Modified Files:
	jabber-util.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-435
Creator:  Magnus Henoch <ma...@fr...>

Add interactive form to jabber-uncache-password


Index: jabber-util.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-util.el,v
retrieving revision 2.52
retrieving revision 2.53
diff -u -d -r2.52 -r2.53
--- jabber-util.el	17 Sep 2007 20:25:44 -0000	2.52
+++ jabber-util.el	16 Jan 2008 15:22:49 -0000	2.53
@@ -1,6 +1,6 @@
 ;; jabber-util.el - various utility functions    -*- coding: utf-8; -*-
 
-;; Copyright (C) 2003, 2004, 2007 - Magnus Henoch - ma...@fr...
+;; Copyright (C) 2003, 2004, 2007, 2008 - Magnus Henoch - ma...@fr...
 ;; Copyright (C) 2002, 2003, 2004 - tom berger - ob...@in...
 
 ;; This file is a part of jabber.el.
@@ -272,6 +272,8 @@
 (defun jabber-uncache-password (bare-jid)
   "Uncache cached password for BARE-JID.
 Useful if the password proved to be wrong."
+  (interactive (list (jabber-jid-user
+		      (completing-read "Forget password of account: " jabber-account-list))))
   (when (fboundp 'password-cache-remove)
     (password-cache-remove (jabber-password-key bare-jid))))