emacs-jabber jabber-history.el,1.30,1.31

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

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

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

Don't lose messages when unable to write them to history file


Index: jabber-history.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-history.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- jabber-history.el	8 Mar 2008 12:42:24 -0000	1.30
+++ jabber-history.el	15 May 2008 23:36:28 -0000	1.31
@@ -1,6 +1,6 @@
 ;; jabber-history.el - recording message history
 
-;; Copyright (C) 2004, 2007 - Magnus Henoch - ma...@fr...
+;; Copyright (C) 2004, 2007, 2008 - Magnus Henoch - ma...@fr...
 ;; Copyright (C) 2004 - Mathias Dahl
 
 ;; This file is a part of jabber.el.
@@ -160,7 +160,10 @@
 	(make-directory jabber-history-dir))
       (when (jabber-rotate-history-p history-file)
 	(jabber-history-rotate history-file))
-      (write-region (point-min) (point-max) history-file t 'quiet))))
+      (condition-case e
+	  (write-region (point-min) (point-max) history-file t 'quiet)
+	(error
+	 (message "Unable to write history: %s" (error-message-string e)))))))
 
 (defun jabber-history-query (start-time
 			     end-time