From 110f5b6db8998fd340ef2075e3d9794b2757c18a Mon Sep 17 00:00:00 2001 From: bg66 Date: Mon, 12 Mar 2007 08:27:21 +0000 Subject: [PATCH] * mixi-atom.el (mixi-atom-file): New use option. (mixi-make-atom-file): Use it. * mixi-atom.el (mixi-make-atom-file): Rename from `mixi-atom-write-file'. --- ChangeLog | 8 ++++++++ mixi-atom.el | 9 +++++++-- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0d89dd0..93274d3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,13 @@ 2007-03-12 OHASHI Akira + * mixi-atom.el (mixi-atom-file): New use option. + (mixi-make-atom-file): Use it. + + * mixi-atom.el (mixi-make-atom-file): Rename from + `mixi-atom-write-file'. + +2007-03-12 OHASHI Akira + * mixi.el (mixi-login): Simplify. 2007-03-07 OHASHI Akira diff --git a/mixi-atom.el b/mixi-atom.el index 24a79e3..cfaaa4d 100644 --- a/mixi-atom.el +++ b/mixi-atom.el @@ -71,6 +71,11 @@ RANGE is the range for getting articles. If RANGE is nil, get all articles." (radio (integer :tag "Range") (const :tag "All" nil))))) +(defcustom mixi-atom-file "~/atom.xml" + "*File name for `mixi-make-atom-file'." + :group 'mixi + :type 'string) + (defmacro mixi-atom-make-date (time) `(let ((date (format-time-string "%Y-%m-%dT%T%z" ,time))) (if (string-match "[+-][0-9][0-9][0-9][0-9]$" date) @@ -141,11 +146,11 @@ RANGE is the range for getting articles. If RANGE is nil, get all articles." "\n")) ;;;###autoload -(defun mixi-atom-write-file (file) +(defun mixi-make-atom-file () (with-temp-buffer (mixi-make-atom) (let ((coding-system-for-write mixi-atom-coding-system) - (file (expand-file-name file))) + (file (expand-file-name mixi-atom-file))) (write-region (point-min) (point-max) file)))) (provide 'mixi-atom) -- 1.7.10.4