[Emacs-diffs] Changes to emacs/lisp/net/newst-backend.el,v

[Ulf Jasper]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Ulf Jasper <u11>        08/10/31 20:15:46

Index: newst-backend.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/newst-backend.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- newst-backend.el    7 Jul 2008 17:34:38 -0000       1.2
+++ newst-backend.el    31 Oct 2008 20:15:45 -0000      1.3
@@ -7,7 +7,7 @@
 ;; Filename:    newst-backend.el
 ;; URL:         http://www.nongnu.org/newsticker
 ;; Keywords:    News, RSS, Atom
-;; Time-stamp:  "7. Juli 2008, 19:20:10 (ulf)"
+;; Time-stamp:  "31. Oktober 2008, 21:07:17 (ulf)"
 
 ;; ======================================================================
 
@@ -2105,14 +2105,15 @@
   "Update newsticker cache file.
 If optional argument SAVE is not nil the cache file is saved to disk."
   (save-excursion
-    (let ((coding-system-for-write 'utf-8))
-      (with-temp-buffer
+    (let ((coding-system-for-write 'utf-8)
+          (buf (find-file-noselect newsticker-cache-filename)))
+      (when buf
+        (set-buffer buf)
         (setq buffer-undo-list t)
         (erase-buffer)
         (insert ";; -*- coding: utf-8 -*-\n")
         (insert (prin1-to-string newsticker--cache))
         (when save
-          (set-visited-file-name newsticker-cache-filename)
           (save-buffer))))))
 
 (defun newsticker--cache-get-feed (feed)