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
|